-
Fototrend
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
bara17
tag
Sziasztok!
Egy olyan kérdésem lenne, hogy van két tök egyforma excelem (.csv kiterjeszéts) amiben 800.00 cellányi adat van, és, hogyha megnyitom két gépen azonos verziójú Excellel (2010) akkor bizonyos cellák (kb. 20-30 db) az egyiken dátumként jellenek meg, míg a másikon meg rendesen számként. (harmadik gépen is próbáltam és ott is rendesen jelenik meg.) A gépeken fájl megnyitását követően egyik esetben sem állítottam semmit. Először persze egyből a cellaformátumra gondoltam, de az nem segített....
Ötletl ?
-
bara17
tag
Sziasztok!
Olyan kérdésem lenne, hogy hogyan tudom megszámolni egy adott oszlopban egy adott színre (pl. sárga)színezett cellákat? Elsősorban függvényes megoldásra lennék kíváncsi (ha persze egyáltalán megoldható), de, ha makrós az sem gond
Köszi
-
bara17
tag
Sziasztok!
Az alábbi próblémával szembesültem:
Van egy makróm, amivel csv fájlokat másolok át másik excelbe (.xls formátum) majd onnan még feldolgozom. Azonban, ha makróval behívom ugyebár a csv fájlt akkor egy cellába tömörít mindent így persze a további feldolgozás hibás lesz. A dolog kijavítása remekül működik az Adatok/szövegből oszlop funkcíóval, de hiába rögzítem a műveletet makróval és írom be a változót az első sor kivételével nem jó. Kérdésem mi lehet a hiba? Rögzített makró (Z= adatot tartalmazó sorok száma):
For i = 1 To Z
Selection.TextToColumns Destination:=Cells(i, 1), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
)), TrailingMinusNumbers:=True
NextA makró lefut az első sor rendeződik, a többi sorba azonban a rendeződés utáni A1 cella értéke kerül bele. (lásd. képek). Mi lehet a gond? (lehet, hogy nagyon apró a bibi, de sajna nem vagyok programozó)
http://prohardver.hu/dl/upc/2015-03/11/358977_kknflyzrmatxbw8h_before_2.jpg
http://prohardver.hu/dl/upc/2015-03/11/358977_epzkcszqwtatlbu7_after.jpg
Kösziui: Természetesen ez csak egy minta
[ Szerkesztve ]
-
bara17
tag
válasz Delila_1 #25920 üzenetére
Köszi szépen, valóban ez a megoldás
Amúgy találtam egy másikat is, ami végül szintén célra vezetett
ActiveWorkbook.ActiveSheet.Columns("A:A").TextToColumns Destination:=ActiveWorkbook.ActiveSheet.Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False, _
Space:=False, Other:=False -
bara17
tag
Sziasztok!
A feladatom a következő:
Van egy sablon e-mail szöveg, amiben vannak bizonyos változók (szerződésszám, összeg, e-mail, ügyfélnév), melyek egy excel táblázatban vannak. A cél az lenne, hogy olyan makró kerüljön megírásra, mely a sablonszöveget küldje el mindegyik ügyfél számára az ügyfélhez tartozó változókkal. Alapból úgy képzeltem el, hogy a sablon szöveget átmásoltam a forrás excel másik munkalapjára és ide kerülnek bele a változók is cellákba, és innen gondoltam kiküldeni.
Az alábbi makróval (nyílván for ciklusokkal kiegészülne) kezdtem neki és az a kérdésem, hogy hogy tudnám az e-mail szövegébe beilleszteni az A152 (itt van a sablonszöveg) cellákat úgy, hogy a nyílván megmaradjon a formátuma is A152 tartománynak. (Ha crtl+c +crtl v-vel beillsztem a tartományt akkor normálisan illeszti be a szöveget az outlookba.)
sub sablon e-mail()
Dim datumakt As Date
datumakt = Format(Date, "yyyy-mm-dd")
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next'parameterek
With OutMail
.To = Cells(26, 9) 'példa e-mail címzett
.CC = ""
.BCC = ""
.Subject = " Teszt " & datumakt & " " Aktuális dátum a levél tárgyában
.Body = "" 'e-mail szöveg.Send
End With
On Error GoTo 0Set OutMail = Nothing
Set OutApp = NothingEnd Sub
Lehet, (sőt tuti) hogy jobb megoldás is van.
Köszönöm a segítséget!
-
bara17
tag
Sziasztok!
Az lenne a feladatom, hogy egy bizonyos cellát, és/vagy tartományt, hogyan lehet átmásolni az össze munkalapra makróval? (az excelemben kb 30 lapom van és kicsit macerás egyesévcel átmásolni cellákat és tartományokat)
Nagyon szépen köszönöm!
-
bara17
tag
Lehet nagyon láma kérdést teszek fel, de létezik ki olyan függvény ami kiírja egy cellába egy adott oszlop leggyakoribb szövegét. pl. A oszlopban vannak a győztesek nevei és ki nyerte a legtöbbet?
A problémát meg tudom oldani darabteli, max és match/index függvényekkel, de lehet én nem tudom az egyszerűbb megoldást...(bár ez sem annyira bonyoltult).
-
bara17
tag
kb ugyanezt csináltam, csak az A oszlop mellé darabteli függvénnyel megszámoltam, hogy az adott elem hányszor van benne a tartományban majd a max függvényel a max értéket kikerestem és index/hol.van-nal az értékhez tartozó elemet megkerestem
Csak azt hittem van más megoldás
Ja és köszönöm
-
bara17
tag
Sziasztok!
Az alábbi kérdésem lenne és nem tudom hogyan oldjam meg.
Van egy .csv fájlom ahol az egyes számok tizedesvesszői ponttal vannak elválasztva (pl. 5.500 vagy 6.250).
Ezt akarom kicserélni az összes munkalapon makróval vesszőre, azonban pont helyett a makró szőközt cserél. (Gondolom valahol az excel és a vba nyelvi beállításai közt lesz a hiba.)
A futtatott makró:
Sub pontvesszőcsere()
Z = Sheets.Count
For i = 1 To Z
Sheets(i).SelectCells.Replace What:=".", Replacement:=",", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Next
End SubKöszönöm a segítséget!
-
bara17
tag
Sziasztok!
A következő problémába futottam bele:
Van két for ciklsom melybe bele van ágyazva egy if.
Feladat:
- ha a feltétel igaz akkor az utasítások végrehajtása utána lépjen ki a "belső" for ciklusból.(Ha A megegyezik B-vel akkor hajtódjon végre az utasítás és ugorjon egyből a következő i-re (vagyis lépjen ki a for j ciklusból), ha meg nem egyezik meg lépjen a következő j-re. )
Jelenleg így néz ki a makróm, mely lefut de nem úgy ahogy gondolom...
For i = 2 To 340 Step 8
For j = 3 To utsosor
A = wb_forrás.Sheets("1").Cells(i + 3, 1)
B = wb_cél.Sheets("1").Cells(j, 3)If a = b Then
' utasítások
Exit ForEnd If
Next j
Next iRemélem érthető volt és köszönöm a segítséget
-
bara17
tag
Sziasztok!
Olyan problémám lenne, hogy a B oszlop soraiban vannak értékeim. Az egyes sorokhoz tartozik egy eredmény az E oszlopban, melyet a B oszlop hozzá tartozó sorából, függvénnyel határozok meg. A célom az, hogy minimalizáljam az E oszlop egyes sorait a hozzá tartozó B változtatásával.
leírva pl: E1 min legyen B1 esetén, E2 min legyen B2 esetén stb.
Ezt Solverrel szeretném megoldani, de maceráns mindig egyes adatsor esetén ráklikkelni a Solver ikonra. Makróval is próbálokoztam, de valahogy nem indult el. Hogy lehetne ezt megoldani?
Köszi szépen!
-
bara17
tag
Sziasztok!
Nekem olyan kérdésem van, hogy jelenleg van két oszlopom (lehet lesz több is), melyekben pénzösszegek vannak. A feladat az, hogy színezzem ki a két- vagy több oszlop sorait, úgy hogy minden sorban a legkisebb legyen pl. zöld színű?
Kérdésem, hogy erre létezik valami beépített Excel trükk? VBA kóddal is megtudnám oldani a feladatot csak gondoltam létezik beépített dolog erre.
További kérdés:
--HA függvénnyel lehet -e színezni, vagy csak feltételes formázással? (pl. HA logikai vizsgálat IGAZ akkor zöld, HA HAMIS piros)Köszönöm a választ!
-
bara17
tag
Köszönöm, végül megvan a megoldás csak nem hittem volna, hogy soronként szépen nézi a relációkat azt hittem oszloponként csinálja.
Végül úgy csináltam, hogy Felt. formázás -> Új szabály -> A formázandó cellák kij. képlettel -> =MIN(N33)=N3 ide ezt írtam be ahol az n33 a tartományom és utána beállítottam a színt és kész.
Szóval köszönöm!
-
bara17
tag
Sziasztok!
Szerintem egy elég alap kérdésem van, hogy a HOL.VAN (MATCH) függvénnyel kapcsolatban.
A keresési értéket szeretném úgy megadni cellahivatkozással , hogy csak egy szövegrészletet keresek egy szövegben ( vagyis mindegy, hogy keresett érték előtt vagy utána mi van).
Hogy adható ez meg csillagokkal?
Köszönöm!
példa
[ Szerkesztve ]
-
bara17
tag
Sziasztok!
Az alábbi problémám van.van egy excelem, melyben van viszonylag sok modul és amelyekben a makrók vannak. (kb. 17 modul és modulonként 4 makró).
Célom, hogy valami másik makróval az összes modult névvel (és a benne lévő makrókkal együtt) átmásoljam egy másik munkafüzetbe.
Hogy tudnám ezt megoldani, a crtl+c és crtl+v megoldáson kívül gyorsan?
Köszönöm szépen!
-
bara17
tag
Sziasztok!
A következő - egyszerűnek gondolt - kérdésem/feladatom lenne:
Van egy oszlopom, melyben a sorokban kb. így helyezkednek (a lista hossza, de a felépítés ugyanilyen)
5050
5050
5030
5030
5030
5010
5090
5090
5090
5090Így akarom színezni:
5050 sárgák
5030 nincs szín
5010 sárga
5090 nincs szín
és így tovább...Hogy kellene ezt nem manuális megcsinálni? Gondolom feltételes formázással kellene valamit bűvölni...
Köszönöm a segítséget!
-
bara17
tag
Sziasztok!
Kimutatásban, hogyan tudom beállítani azt, hogy a hónapok nevei ne ábc sorrendben jelenjenek meg?
Köszönöm előre is.
[ Szerkesztve ]
-
bara17
tag
Sziasztok!
Egy szerintem viszonylag egyszerű kérdéssel fordulnék hozzátok:
Egy oszlopban számok vannak ismétlődésekkel 0-tól 10-ig. Az oszlop mellé szeretném rakni, hogy az adott szám hányadik legnagyobb, de úgy hogy ne legyen "sorszám" kihagyva. Tehát ha pl. van az oszlopban 2 db kettes, 1 db egyes, 2 db hatos és 4 db négyes akkor az egyes mellék kerüljön egyes, a kettes mellé kettes a négyes mellé hármas a hatos mellé meg négyes (felöltöttem egy mintát remélem az alapján érthető).
Köszönöm előre is.
-
bara17
tag
Sziasztok!
Magyar Excel 2010-et használok és nem találok olyan függvényt amely kiszámolja a tangens inverzét. Létezik ilyen?
Köszönöm előre is.
-
bara17
tag
Sziasztok!
Egy olyan kérdésem lenne, hogy vízszintesen szeretnék cellát egyesíteni (vagy középre igazítani a tartományban) úgy, hogy az első sor minden harmadik oszlopát szeretném egyesíteni, majd az ebben egyesített tartományban lévő stringre szeretnék hivatkozni az alatta lévő cellákban. De ha kitöltéssel/másolással húzom a képletet akkor nyílván elcsúszik a dolog, esztétikailag meg persze szeretnék élni a cellaegyesítés lehetőségével.
Tehát az a kérdésem, hogy létezik -e olyan módszer amellyel cellát egyesítek és az egyesített tartomány minden cellájában megjelenik ugyanaz a szöveg, de úgy hogy megjelenésben egy szövegként jelenik meg mondjuk a tartomány közepén? (remélem érthető voltam és köszönöm a választ!)
-
bara17
tag
válasz föccer #31039 üzenetére
Mellékelek egy mintamunkafüzetet, ami alapján szerintem már érthetőbb a dolog.
Szóval, hogy ha helyesen beírom a kívánt képletet a B3-as cellába és húzom jobbra az absz. hiv. miatt nyílván maradna az eredeti a 2. munkalapon lévő tartalom, ha meg rel. hiv.-t használok akkor szintén hibás eredményt kapok. Célom az, hogy úgy töltsem ki a cellákat, hogy ne kelljen utólag mindig "hozzáigazítanom", ha pl. kitöltést használok. (sárga színű cellák a jó eredmények a pirosak pedig egy példa a rossz megoldásra)
Köszi segítséget/választ!
[ Szerkesztve ]
-
bara17
tag
Sziasztok!
az alábbi feladatom lenne:
hivatkozást vagy linket szeretnék úgy létrehozni, hogy ha rákattintok a linkre, akkor egy másik munkalap celláját átírja pl. a link cellájának sorszámára (valójában sorszám-2-re kéne, hogy átírja, de ez részletkérdés). Hivatkozás létrehozásakor a dokumentum csak egy adott pontjára tudok mutatni sajnos, nem találtam olyan lehetőség, ahol átírható a hivatkozott cella.
köszi a segítséget!
-
bara17
tag
Sziasztok!
Lehetséges a 2010-es Excelben az, hogy vonaldiagramban egérrel arrébb húzom az adatsort és vele együtt változnak az adatsor értékei, tehát nem kéne kézzel áírnom az adatokat hanem elég lenne mozgatni a görbét.
Köszönöm a segítséget.
-
bara17
tag
Sziasztok!
Lehet láma kérdés, de a billentyűparancsokat hol lehet átállítani az Excelben (Office 2016). Korábba verziókban a ctrl+L szépen lemásolta a felette lévő cellát, de a 2016-os verzióban már nem működik.
Köszönöm.
-
bara17
tag
Sziasztok!
Az alábbi problémám lenne és hirtelen nem jut eszembe megoldás:
Van két oszlopom az egyikben dátumok vannak, a másikban meg 0 és 1. A feladat, hogy egy adott dátumot kikeresni a dátumos oszlopban, majd azt a következő dátumot visszaadni, ahol a második oszlopban 1-es szerepel.
Kép alapján szerintem egyértűbb a kérdés, itt a 2019.11.01-et feltétel alapján szeretném megkapni a 2019.11.04-et
Köszi a segítséget!
[ Szerkesztve ]
-
bara17
tag
válasz ny.janos #42247 üzenetére
Köszi, időközben megoldottam egy csodás tömbképletes megoldással
Annyi, hogy a HOL.VAN keresési értéket 1-re állítottam, a keresési tömböt pedig úgy adtam meg, hogy szorozza össze a c oszlop = 1 tömböt és a B oszlop nagyobb egyenlő, mint a kritérium érték tömböt (esetünkben ez: 2019.11.01).
=INDEX(B1:B20;HOL.VAN(1; (((B1: B20)>=H3)*1)*((C1: C20)=1)*1);0))
-
bara17
tag
-
bara17
tag
Sziasztok!
Az alábbi problémában kérném segítségeteket. Van egy kvázi vezérlő munkalapom, ahol Active X vezérlőkkel futtatok makrókat, azonban ezek a vezérlők nagyon gyakran átméretőzödnek (általában kisebb méretűre), a végén annyira, hogy csak tervező nézetben arrébb húzva, vagy visszaméretezve tudom újra használni a gombokat. Hosszú távon ez elég idegesítő...
Van valakinek valamilyen ötlete, hogy ez miért lehet és mi lehet a megoldás?
Köszi előre is.
Office 365, xlsb fájl
[ Szerkesztve ]
-
bara17
tag
Sziasztok,
Egy olyan feladatot szeretnék VBA-val megoldani, hogy egy fájl folyamatosan nyitva van és egy meghatároztt időben, akkor is ha egy másik munkafüzetben dolgozom feljön egy messagebox.
Hogy oldható ez meg?
-
bara17
tag
sziasztok,
Egy olyan problémában kérném segítsegeteket, hogy van egy pdf generáló makróm, ami több munkalapot pdf-ként menti el. A makró alapvetően jól működik, de furcsa módon csak akkor működik jól, ha először kézzel csinálom a PDF mentést. Ha nem csinálom meg ezt a kézzel való mentést, akkor a makró ugyan lefut, de nem menti el a PDF-t.
Tudnátok segíteni, hogy ez miért lehet?
Amúgy ez a kód:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
fájlnév _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=FalseKöszi.
Új hozzászólás Aktív témák
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok
- Vírusirtó, Antivirus VPN kulcsok
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!