-
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
-
#51717
Fire/SOUL/CD
félisten
tgumis
#51715
-
#51713
Fire/SOUL/CD
félisten
föccer
#51712
válasz
föccer
#51712
üzenetére
Akkor a megoldás, amit adtam, pont azt csinálja, amit szeretnél...
![;]](//cdn.rios.hu/dl/s/v1.gif)
(csak nyilván Én nem neveztem el a tartományokat)UI: Gondolom nem láttad a végleges hsz-t, mert közben szerkesztettem a hsz-t, mert olybá tűnik, a beépített képmetsző megmarhult W11 alatt, aztán furcsa méretű/eltolású stb. képet mentett...
-
#51711
Fire/SOUL/CD
félisten
föccer
#51709
-
#51700
Fire/SOUL/CD
félisten
tgumis
#51698
-
#51699
Fire/SOUL/CD
félisten
aviator
#51696
válasz
aviator
#51696
üzenetére
Lehet, hogy a Treeview betűkészletével (font) van gond. Válassz valami gyakori, alapértelmezett stb betűt pl. a Tahoma-t, abban nem lehet ilyen gond.
Private Sub CommandButton1_Click()
TreeView1.Nodes.Clear
TreeView1.Nodes.Add Key:="key1", Text:="ÖÜÓŐÚÉÁŰÍ"
TreeView1.Nodes.Add "key1", tvwChild, "key4", "öüóőúéáűí"
End Sub
UI: ha esetleg meg valami szöveges fájlt/egyéb adatforrást stb. dolgozol fel és abból építed fel a treeview elemeit, akkor magában a külső adatok karakterkódolásával lehet gond. -
#51691
Fire/SOUL/CD
félisten
aviator
#51690
válasz
aviator
#51690
üzenetére
A Key nem lehet azonos, annak minden esetben egyedinek kell lennie, akár Parent, akár Child esetén.
Helyes
Private Sub CommandButton1_Click()
TreeView1.Nodes.Clear
TreeView1.Nodes.Add Key:="key1", Text:="Same Parent Text"
TreeView1.Nodes.Add Key:="key2", Text:="Same Parent Text"
TreeView1.Nodes.Add Key:="key3", Text:="Same Parent Text"
TreeView1.Nodes.Add "key1", tvwChild, "p1", "Same Child Text"
TreeView1.Nodes.Add "key2", tvwChild, "p2", "Same Child Text"
TreeView1.Nodes.Add "key3", tvwChild, "p3", "Same Child Text"
End SubHelytelen - Parent-nél is mindig key1-t adtam meg, child-eknél meg mindig p1-t.
Private Sub CommandButton1_Click()
TreeView1.Nodes.Clear
TreeView1.Nodes.Add Key:="key1", Text:="Same Parent Text"
TreeView1.Nodes.Add Key:="key1", Text:="Same Parent Text"
TreeView1.Nodes.Add Key:="key1", Text:="Same Parent Text"
TreeView1.Nodes.Add "key1", tvwChild, "p1", "Same Child Text"
TreeView1.Nodes.Add "key2", tvwChild, "p1", "Same Child Text"
TreeView1.Nodes.Add "key3", tvwChild, "p1", "Same Child Text"
End SubAhány eleme van a TreeView-nak, annyi különböző Key kell, fenti képet alapil véve 6 db különböző Key kell, az alábbi képen látható a hiba
-
#51662
Fire/SOUL/CD
félisten
pinnacle
#51661
-
#51653
Fire/SOUL/CD
félisten
bozsozso
#51652
válasz
bozsozso
#51652
üzenetére
Épp föccer kérdezte privben.
A--előtag true/false értéket alakít 1/0-ra, ezért tudok a pl. SZUM-l darabot számolni, vagy másképp, egy feltétel kimenetét 1/0-ra alakítja ill. számmá konvertál valamilyen értéket, nem szöveg meg általános formátumot kapok vissza.
Én többször használom a képletekben, mint kellene (ez esetben többször feleslegesen is), csak összetettebb -lényegesen összetettebb- képletekben átláthatóbb számomra, nem pedig a zárójeleket vizslatni, meg melyik függvény-függvényének-függvényébe van beágyazva valami olyan feltétel, ami mindenképp 1/0-t kell, hogy visszaadjon. Így meg tudom meg látom, hogy minden beágyazott szükséges fx biztosan 1/0 fog visszaadni.
-
#51650
Fire/SOUL/CD
félisten
andreas49
#51645
válasz
andreas49
#51645
üzenetére
L3 képlete (lefelé másolható)
=INT(BAL(M3;1)/(DARABHATÖBB(C3:K3;"<>Fire")/3-1)) & "–" & INT(JOBB(M3;1)/(DARABHATÖBB(C3:K3;"<>Fire")/3-1))M3 képlete (lefelé másolható)
=SZUM(--HA(C3:K3<>"";HA(--BAL(C3:K3;1)>--JOBB(C3:K3;1);1;0);0)) & "–" & SZUM(--HA(C3:K3<>"";HA(--BAL(C3:K3;1)<--JOBB(C3:K3;1);1;0);0))N3 képlete (lefelé másolható)
=SZUM(--HA(C3:K3<>"";--BAL(C3:K3;1);0)) & "–" & SZUM(--HA(C3:K3<>"";--JOBB(C3:K3;1);0))
-
#51450
Fire/SOUL/CD
félisten
flash-
#51449
válasz
flash-
#51449
üzenetére
Szűrő gomb -> KI, sávos sorok és oszlopok -> BE, Új táblázatstílus
első-második sor- és oszlopsáv, formátum, kitöltés itt teljesen személyre szabhatod a táblázatot, pl. minden 2. 3. ... 9. sor/oszlop(sávméret lenyílóból állítható) legyen más színű stb stb. -
#51435
Fire/SOUL/CD
félisten
andreas49
#51434
-
#51388
Fire/SOUL/CD
félisten
rovgab
#51387
-
#51361
Fire/SOUL/CD
félisten
vamzi
#51360
-
#51338
Fire/SOUL/CD
félisten
wwhy
#51335
1. A1-be beírod a kezdő szöveget
2. A2-be ezt a képletet és lemásolod=BAL(A1;7)&SZÖVEG(2+SOR(A1)-SOR($A$1);"00")&JOBB(A1;12)
Értelem szerűen, ha nem az A1-ben van a kezdő szöveg, akkor módosítod a cellaképletet (fenti képen B10-től kezdtem)
Azt nem tudom milyen típusú vonalkód kell (sajnos a MS Barcode Controll Add.in-t már kiszedték az Excelből), de ez talán a legegyszerűbb megoldás. Ez egy sima betűkészlet, amit letöltesz, kicsomagolsz, TTF fájlon jobb egér, telepíteted, Excel restart és ott lesz a betűkészlet(font) lenyílóban.
-
#50176
Fire/SOUL/CD
félisten
lappy
#50175
-
#50174
Fire/SOUL/CD
félisten
Delila_1
#50173
-
#50169
Fire/SOUL/CD
félisten
BÚÉK mindenkinek...
-
#50093
Fire/SOUL/CD
félisten
VGYke
#50092
Ennek a kérdésnek semmi értelme, mert:
1. Teljesen lényegtelen, hogy egy adott XLS/XSLX táblázatot mikor nyomtattál ki, ha közben eltelt 1 év... (pl. 1 éve kinyomtattál egy Excel táblát, de 1 órája meg nyomtattál akármit...)
2. Az OS automatikusan hozzárendeli a fájlhoz, az utolsó nyomtatási idejét, de ez nem mérvadó, lásd feljebb... (jobb egér a fájlon, tulajdonságok/részletek fül -> utolsó nyomtatás dátuma)Szóval, ha nem akarod, hogy beszáradjon a masina (van benne tapasztalatom, most már kb. 7-9 éve az ECO Tank Epson-okkal), akkor minden hónapban 1x nyomtass ki egy szines képet, jó minőségben, oszt' ennyi...
-
#49696
Fire/SOUL/CD
félisten
föccer
#49695
válasz
föccer
#49695
üzenetére
Az Excel jellemzői és korlátai
mint láthatod, van "egy pár" korlát, de elsőre -mivel nekiálltál szűrözni- talán az lehet a gond, hogy egy adott szűrő több, mint 10000 sort jelenítene meg... -
#49656
Fire/SOUL/CD
félisten
marec1122
#49654
-
#49655
Fire/SOUL/CD
félisten
marec1122
#49654
válasz
marec1122
#49654
üzenetére
Akkor kicseszünk a rendszerrel (szó szerint)...
1. zárd be az Excel-t
2. WIN gomb megnyom és kezd el begépelni, hogy régió majd kattints a Régió (vezérlőpult) elemre
3. a megjelenő ablak Formátumok fülén jegyezd fel, hogy min áll jelenleg a Formátum, ha ez meg van, akkor állítsd át (mint a képen) Angol (Egyesült Királyság)-ra, alkalmaz és OK
4. indítsd el az Excelt, Exportáld ki az adatokat, de ne az UTF8-t válaszd, hanem a "sima" CSV (pontosvesszővel tagolt) formátumot. Mivel rendszerszinten módosítottuk a régiót angolra, így az elválasztó karakter vessző lesz, és vesszővel elválasztott fájlt fogsz kapni.
5. zárd be az Excel-t, 2.-3. pontban leírt módon állítsd vissza az eredeti formátumra a rendszert (ezért kellett, hogy korábban meg- vagy feljegyezd mi is volt)
6. csak ha az 5. ponton túl vagy, csak akkor indítsd el az Outlook-t, ami most már meg fogja enni ezt a CSV-t, és az ékezetes karaktereket sem cseszi el. -
#49648
Fire/SOUL/CD
félisten
Agony
#49647
-
#49646
Fire/SOUL/CD
félisten
marec1122
#49645
válasz
marec1122
#49645
üzenetére
1.
nem igazán értem, hogy minek kell lecserélni a pontosvesszőt vesszőre, amikor az importáláskor mind új felületen, mind a régi felületen is van lehetőség az elválasztó karakter kiválasztására
Bocsesz, Outlook-ba szeretnéd importálni az adatokat, ott meg vesszővel elválasztott CSV-t vár...2. lehet, hogy pont magadat szivatod meg, mert az a progi, amivel lecseréled a pontosvesszőt vesszőre, lehet az cseszi el a karakterkódolást, amikor elmented...
Ügyelj rá, hogy a progi felismerje automatikusan az UTF-8 kódolást(bár az Excel valójában UTF-8 BOM kódolással ment asszem), ha nem, akkor állítsd be neki ill. hogy mentéskor is UTF-8-ba legyen mentve vagy ha így sem jó, akkor UTF-8 BOM-ba. Ez utóbbi a Notepad++ -al megoldható.[ Módosította: Pyttawrx ]
-
#49644
Fire/SOUL/CD
félisten
Agony
#49640
Tehát felcsatolt/hálózati meghajtón lévő fájl esetében van gond, akkor ezt próbáld meg.
Lehet, hogy a Megbízható helyek engedélyezése saját hálózaton opció engedélyezése önmagában megoldja a gondot, ha nem, akkor meg add hozzá almappákkal együtt a hálózati útvonalat. -
#49642
Fire/SOUL/CD
félisten
marec1122
#49641
válasz
marec1122
#49641
üzenetére
Nem tudom milyen verziójú Excel-t használsz, de az újabbakban van lehetőség CSV UTF-8 formátumban menteni.
-
#49635
Fire/SOUL/CD
félisten
3DFan
#49630
-
#49633
Fire/SOUL/CD
félisten
Fire/SOUL/CD
#49628
válasz
Fire/SOUL/CD
#49628
üzenetére
2 dolgot kell beállítanod a makróban, hogy HONNAN (eredeti adatok) és hogy HOVA (átalakított adatok) másolódjanak az adatok.
Mindkét állítandó érték elé az[EZT KELL BEÁLLÍTANOD]kommentet tettem.
Module1-be másolandó kód
Option Explicit'Fire/SOUL/CD - 2022Public Sub Fire_Salex1_Process()'kötött formátum elválasztó karaktereConst MYDELIMITER = "-"'a feldogozandó adatok ebben az OSZLOP-ban és azon belül ebben a SOR-ban kezdődnekDim MySrcColumn, MySrcColumnFirstCell As String'tartomány, amit a makró a MySrcColumn és MySrcColumnFirstCell értéke alapján határoz meg/generálDim MySrcRange As Range'a feldolgozott adatokat ebbe a tartmányba írja a makróDim MyDestRange As Range'a MySrcRange tartományban található aktuális cella tartománya (1 cella)Dim MyCell As Range'Variant típusú dinamikus tömb, ami az N számosságú halmaz N0 - N-1 elemét tároljaDim MyUniqueSubStrArray() As Variant'Variant típusú dinamikus tömb, ami az N számosságú halmaz N0 - N-1 elemének feldolgozottságát tárolja (True/False)Dim MyUniqueSubStrProcessedArray() As Variant'szöveg típusú dinamikus tömb, amelynek elemei az aktuális cella'SPLIT parancs segítségével, MYDELIMITER paraméterrel elválasztott elemeit tartalmazzaDim MyTempArray() As String'átmeneti változóDim MyTempStr As String'átmeneti változó, ami meghatározza, hogy a MyTempStr változó szerepel-e a MyUniqueSubStrArray-benDim MySubStr As Variant'nem megfelelő cella adat esetén megjelenő ablak visszatérési értékeDim SelectedOptionOnWarningBox As Integer'makró-ciklusokban használt Long típusú változók (ciklus-számlálók)Dim i, j As Long'hogy gyorsabb legyen a makró, pár eseménykezelőt letiltunkApplication.ScreenUpdating = FalseApplication.EnableEvents = False'[EZT KELL BEÁLLÍTANOD] - forrástartomány kezdetének beállítása (itt a példában A1) innen kezdődnek a feldolgozandó adatokMySrcColumn = "A"MySrcColumnFirstCell = "1"Set MySrcRange = Range(MySrcColumn & MySrcColumnFirstCell & ":" & MySrcColumn & Cells(Cells.Rows.Count, MySrcColumn).End(xlUp).Row)'[EZT KELL BEÁLLÍTANOD] - ettől a tartománytól kezdve írodnak ki a feldolgozott adatok (itt a példában B1-től)Set MyDestRange = Range("B1")'dinamikus tömbök méretének beállítása, egyéb változók inicializálásaReDim MyUniqueSubStrArray(Cells(Cells.Rows.Count, MySrcColumn).End(xlUp).Row)ReDim MyUniqueSubStrProcessedArray(Cells(Cells.Rows.Count, MySrcColumn).End(xlUp).Row)MyTempStr = ""i = 0j = 0'végignézzük a forrástartomány celláit egyenkéntFor Each MyCell In MySrcRange'ha az aktuális cella üres, akkor kihagyjuk, egyébként feldolgozzukIf Not IsEmpty(MyCell.Value) Then'aktuális cellát feldaraboljuk az elválasztó-karakter szerint, kvázi, mint szövegből oszlopokMyTempArray = Split(MyCell.Value, MYDELIMITER)'kötött formátum szerint a MyTempArray elemeinek a száma 5-nek kell, hogy legyen'ezért megvizsgáljuk, hogy annyi-eIf WorksheetFunction.CountA(MyTempArray) = 5 Then'igen, 5 eleme van a tömbnek'a MyTempStr dinamikus tömbbe bemásoljuk a MyTempArray első 4 elemétMyTempStr = MyTempArray(0) + MYDELIMITER + MyTempArray(1) + MYDELIMITER + MyTempArray(2) + MYDELIMITER + MyTempArray(3)'megvizsgáljuk, hogy a MyUniqueSubStrArray tömb elemei (az összes) tartalmazzák-e a MyTempStr-tMySubStr = Filter(MyUniqueSubStrArray, MyTempStr)'ha igen, akkor az elemeire bontott értékeket a MyDestRange + j + index címre másoljuk'és a MyUniqueSubStrProcessedArray aktuális indexű elemét TRUE-ra állítjuk'hogy a továbbiakban ne kelljen feldolgozniIf UBound(MySubStr) < 0 ThenMyUniqueSubStrArray(i) = MyTempStrMyUniqueSubStrProcessedArray(i) = FalseIf (InStr(1, UCase(MyCell.Value), UCase(MyUniqueSubStrArray(i)), vbTextCompare)) And (MyUniqueSubStrProcessedArray(i) = False) ThenCells(MyDestRange.Row + j, MyDestRange.Column) = MyTempArray(0) + MYDELIMITER + MyTempArray(1)Cells(MyDestRange.Row + j + 1, MyDestRange.Column) = MyTempArray(0) + MYDELIMITER + MyTempArray(1) + MYDELIMITER + MyTempArray(2)Cells(MyDestRange.Row + j + 2, MyDestRange.Column) = MyTempArray(0) + MYDELIMITER + MyTempArray(1) + MYDELIMITER + MyTempArray(2) + MYDELIMITER + MyTempArray(3)Cells(MyDestRange.Row + j + 3, MyDestRange.Column) = MyCell.Valuej = j + 4MyUniqueSubStrProcessedArray(i) = TrueEnd Ifi = i + 1Else:'ha nem, akkor az adott cella értékét be kell másolni a MyDestRange + j címreCells(MyDestRange.Row + j, MyDestRange.Column) = MyCell.Valuej = j + 1End IfElse:'ha nem megfelelő a kötött formátum, akkor feltesszük a kérdést, hogy mi legyen'kihagyja a makró a feldolgozásból, avagy kilépjenSelectedOptionOnWarningBox = MsgBox("Nem szabványos formátumú adat a(z) " & MyCell.Address & " cellában:" & vbLf & _MyCell.Value & vbLf & vbLf & _"[OK] - hibás cella kihagyása" & vbLf & _"[Mégse] - makró megállítása", vbQuestion + vbOKCancel)If SelectedOptionOnWarningBox = vbCancel ThenExit SubEnd IfEnd IfEnd IfNext MyCell'eseménykezelőket újra engedélyezzükApplication.ScreenUpdating = TrueApplication.EnableEvents = TrueEnd Sub -
#49628
Fire/SOUL/CD
félisten
Salex1
#49627
válasz
Salex1
#49627
üzenetére
Az első cellát vélem Én hibásnak, mert nincs azonosítója (hiányzik a végéről), egyáltalán nem mindegy, hogy ilyen cella/cellák is van/vannak avagy sem.
Addig is írtam egy makrót, ami most hibásnak vél ilyen cellá(ka)t és kérésre kihagyja a feldolgozását, ez az eredménye a futtatásának.
Azért nem teszem be a kész makrót még, mert ha véletlenül az a cella nem hibás (itt a példában az A2 cella), akkor módosítanom kell a makrón....
(most viszont egy gépet kell összepakolnom, csak 6-7 órakor érek rá vele foglalkozni, addigra meg lehet, hogy dobnak be mások is megoldásokat) -
#49624
Fire/SOUL/CD
félisten
Salex1
#49623
-
#49618
Fire/SOUL/CD
félisten
#86883328
#49617
-
#49513
Fire/SOUL/CD
félisten
the radish
#49506
válasz
the radish
#49506
üzenetére
-
#49482
Fire/SOUL/CD
félisten
Rhair
#49480
-
#49453
Fire/SOUL/CD
félisten
Szikravadász
#49452
válasz
Szikravadász
#49452
üzenetére
A1-ben van az idő,
[ó]:ppformázott cellában, pl25:11, akkor az alábbi képlet1 nap 1 óra 11 perc-t fog kiírni.=INT(A1) & " nap " & INT(MARADÉK(A1;INT(A1))*24) & " óra " & PERCEK(A1) & " perc" -
#49404
Fire/SOUL/CD
félisten
psg5
#49403
-
#49383
Fire/SOUL/CD
félisten
psg5
#49382
-
#49378
Fire/SOUL/CD
félisten
Oryctolagus
#49377
válasz
Oryctolagus
#49377
üzenetére
Ha nem Magyar az Office, azt legközelebb írd meg...
=LEFT(A1,16)detroitrw megoldása is teljesen jó, csak angolosítani kell
=LEFT(A1,SEARCH(".",A1)-4) -
#49365
Fire/SOUL/CD
félisten
hódmaci
#49363
-
#49362
Fire/SOUL/CD
félisten
hódmaci
#49361
válasz
hódmaci
#49361
üzenetére
Excel-ben a dátum- és időformátumok számmal vannak megadva és ebből a számból számolja vissza és jeleníti meg dátum- és időformátumban. Pl. ha időre formázol egy cellát és beírsz egy 1-est, akkor a szerkesztőlécen a 1900.01.01 0:00:00 fog látszódni, ha 2-est, akkor meg 1900.01.02 0:00:00, ha 1,1-t akkor meg 1900.01.01 2:24:00 és így tovább, tehát csak így simán egy számot beírva nem fogja óó:pp formátumra tudni átalakítani, ezért kell így bevinni.
Makróval kivitelezhető a dolog, ami figyeli -példádban- az A és B oszlopokban bekövetkezett változást (amikor valamit beírsz) és átalakítja megfelelő formátumra (pl: 8 beírásakor 08:00-ra, esetleg segédoszloppal, de ennyit nem biztos, hogy ér a dolog...) -
#49359
Fire/SOUL/CD
félisten
hódmaci
#49358
válasz
hódmaci
#49358
üzenetére
Sima cellaformázásnál a formátummal megegyező módon kell beírni a cellaértéket idő esetén, mert egyébként nem értelmezhető a dolog.
Mindhárom oszlopot formázd óó:pp-re és ennek megfelelően kell bevinni az értéket, azaz 8:00 és 13:00. A két cella értéke meg simán kivonható egymásból és 05:00-t fogsz kapni.
(Ha a megfelelő formátumban írsz be időértéket, akkor az "nem létező" adat esetén is konvertálódik, tehát pl. 1:70 esetén 2:10-re...) -
#49322
Fire/SOUL/CD
félisten
Syl
#49320
-
#49309
Fire/SOUL/CD
félisten
kartalhu
#49308
-
#49218
Fire/SOUL/CD
félisten
dellfanboy
#49216
válasz
dellfanboy
#49216
üzenetére
Ha esetleg úgy érted, hogy nem a cellakurzor mozog, hanem az egész munkalap sorai és oszlopai "csúsznak el", akkor a Scroll Lock lett bekapcsolva.
-
#49210
Fire/SOUL/CD
félisten
andreas49
#49188
válasz
andreas49
#49188
üzenetére
Ó bakker, végül is sima szűrővel is megoldható...
Szűrőben kijelölöd azt az 50 országot, a szűrt listát kijelölöd, irányított kijelölés, csak a látható cellákat, ctrl+c, másik munkalap, ctrl+v, 50 sor kijelöl, és azonos sormagasságra állít (az előző munkalap sormagasságára) -
#49208
Fire/SOUL/CD
félisten
andreas49
#49188
válasz
andreas49
#49188
üzenetére
Itt az a gond, hogy cellába nem lehet képet betölteni, csak ahhoz igazítani. Az, hogy látszólag a felirattokkal együtt mozognak a képek, azt úgy oldják meg, hogy a kép méretének megfelelően vannak beállítva a sormagasságok ill. oszlopszélességek és amikor beszúrják a képeket, akkor az ALT gomb nyomva tartása mellett mozgatják a képet és így igazítják az adott cellához, de nem kerül bele a cellába. Ha a billentyűzeten a kurzormozgatókkal ráállsz egy látszólag képet tartalmazó cellára, akkor az adott cella tartalma üres lesz, itt az alábbi képen láthatod miről írok (A3-ban szöveg, B3-ban a kép, B3 üres).
A másik gond (orvosolható), hogy a beszúrt képekre objektumnévvel lehet hivatkozni vagy magára a kép fájlnevére (ahogy a HDD-n/SSD-n tárolva van)
Az alábbi kép bal-felső sarkában jól látható, hogy a Garfield kép beszúrása után az Excel automatikusan a Kép 1 objektumnevet adta neki.
Egy makró csak akkor fogja tudni megoldani az általad felvázolt feladatot, ha valahogy a szöveges országnevekhez egyértelműen tudja társítani az ahhoz tartozó képet.
Mint fentebb írtam, 2 lehetőség van.
1. Szépen egyenként át kell írni minden egyes kép objektum nevét az ország nevére (előbbi képet alapul véve a Kép 1-t Garfield-re)
2. Szépen egyenként át kell nevezni a képek fájlnevét az ország nevére és újra beszúrni őket.
Magyarország szöveghez-> Magyarország.png
Albánia szöveghez-> Albánia.png200 országnál és azokhoz tartozó képeknél egyik sem 1-2 perces meló, de az 1. pontban javasolt módszer lényegesen egyszerűbb és gyorsabb.
UI: Ezt azért még időben döntsd el, mert egyik hozzászólásodban másik munkalapra kellene másolni, másik hozzászólásodban meg már munkafüzetet említesz...
"Megoldható-e képlettel vagy macro-val, hogy képet másoljunk egyik munkalapról a másikra?"
"Ebből kell leválogatnom ~50 nevet képpel együtt (mindig más), de ezt új munkafüzetbe."
-
#49166
Fire/SOUL/CD
félisten
Hunter2
#49165
válasz
Hunter2
#49165
üzenetére
"Bár a billentyű kombinációk egyáltalán nem csináltak semmit."
Ez tipikusan 2 esetben fordul elő:
1. laptop user-ek esetén van Fn billentyű is és a BIOS-ban ennek használata van beállítva. Ilyenkor a funkcióbillentyűket csak ezen gomb lenyomásával együtt lehet elérni, tehát FN+ALT+F11 és FN+ALT+F8.
2. NVidia kártyát használók esetén a driver-el együt települ az ún. NVidia (Geforce) Experience és ez okozza a jelenséget, nem csak Excel-ben, hanem más app-okban is, a lentebb linkelt videóban épp a Photoshop-ba kever bele.
El kell távolítani, vagy letiltani vagy a hotkey szekcióban átkonfigolni.
How to Change/Disable Keyboard Hotkeys of Nvidia GeForce Experience -
#49164
Fire/SOUL/CD
félisten
Hunter2
#49163
válasz
Hunter2
#49163
üzenetére
Public Sub FireReEditCells()
Dim MyRange1 As Range, MyRange2 As Range
Application.ScreenUpdating = False
Set MyRange2 = Selection
For Each MyRange1 In MyRange2
MyRange1.Select
Application.SendKeys "{F2}"
Application.SendKeys "{ENTER}"
DoEvents
Next
Application.ScreenUpdating = True
End Sub3. kitörölheted a makrót és hagyományos munkafüzetként mentheted
-
#49136
Fire/SOUL/CD
félisten
Mutt
#49135
-
#49134
Fire/SOUL/CD
félisten
Mutt
#49125
-
#49087
Fire/SOUL/CD
félisten
Dilikutya
#49086
válasz
Dilikutya
#49086
üzenetére
Ismert problémák szekciót olvasd el!
=DÁTUMTÓLIG(A1;B1;"Y") & " év - " & DÁTUMTÓLIG(A1;B1;"YM") & " hónap - " & DÁTUMTÓLIG(A1;B1;"MD") & " nap " -
#49062
Fire/SOUL/CD
félisten
p5quser
#49061
válasz
p5quser
#49061
üzenetére
"Egy filter függvény által kinyert sort..."
Milyen filter függvényről van szó?Amúgy sima szűrt sorból csak 2 lépésben lehet transzponálni, elsőre a szűrt sorokból kijelölöd a kívánt tartományt, simán copy-paste-l valahova beilleszteted, másodikra meg ezt a beillesztett tartományt tudod már transzponálni.
-
#49058
Fire/SOUL/CD
félisten
Fferi50
#49056
-
#49055
Fire/SOUL/CD
félisten
Fferi50
#49054
-
#49053
Fire/SOUL/CD
félisten
Fferi50
#49052
válasz
Fferi50
#49052
üzenetére
Nálatok sem ismeri a Térkép diagram, Pest megyét?
Van valami trükk, amivel megjeleníthetőek az adatai? -
#49048
Fire/SOUL/CD
félisten
VGYke
#49046
Ha a legelején ezt így írtad volna le, akkor nem kellett volna köröket futni...
Én biztos nem foglalkoznék se képlettel, se makróval ez esetben, hanem az Összes lapon egy szűrőt dobnék a 2. sorra, az alapján bármely oszlop szerint lehet szűrni, szűrés után kijelölni a szűrt sorokat, aztán copy-paste-el meg beilleszteni a Keres lapra, ennyi(hivatkozások is jók lesznek). -
#49038
Fire/SOUL/CD
félisten
VGYke
#49036
Akkor csak arról van szó, hogy leklónozd a hiperhivatkozást? Ha igen, akkor
1. ELTOLÁS fx-re semmi szükség
2. Csak makróval lehet megoldani (tudom, írtad, hogy makró nélkül, de úgy nem megy)
# ALT+F11
# ThisWorkbook/jobb egér/Insert Module
# beilleszted az alábbi kódotFunction FireGetURLFromHyperlink(MySrcRange As Range) As String
FireGetURLFromHyperlink = MySrcRange.Hyperlinks(1).Address
End Function# így hivatkozol egy hiperlinket tartalmazó cellára
=HIPERHIVATKOZÁS(FireGetURLFromHyperlink(Összes!A2);Összes!A2) -
#49035
Fire/SOUL/CD
félisten
escsé
#49034
"Tehát, ha nem fér ki az adott oldalra, akkor az előző üres sornál töri el a nyomtatást."
Nem biztos, hogy jól értelmezem a kérdésed, de hátha segít a válasz...
Excel-ben 2 fajta oldaltörés van, Automatikus ill. kézi. Oldaltöréses nézetben az előbbit vastag kék szaggatott vonallal, utóbbit vastag kék folytonos vonallal jelöli az Excel.
(Normál nézetben is látszódnak, csak vékony fekete szaggatott/folyamatos vonallal jelöli, nehezebb látni)Ha egy oldalra nem fér el valami, akkor az automatikus oldaltörés lép érvénybe (amit nem lehet állítani, automatikusan igazodik a lapmérethez (A4-es lap pl.) ill. a margóbeállításokhoz stb) ergó automatikusan új oldalon folytatódik a nyomtatás.
Ebbe az automatikus folyamatba lehet beavatkozni a kézi töréspontok alkalmazásával, mert az mindig ott töri el az oldalt, ahova teszed, de automatikusan "vándorol" ha pl. az Excel táblázat bővül/csökken sorokkal, stb stb.Példaként itt létrehoztam 2 táblát, az elsőt jelképesen 0-val kitöltve, a másodikat meg 1-el kitöltve.
Alapállapot
2. tábla elé kézi oldaltörés
1. táblába sok sor beszúr, kézi oldaltörés vándorol
Szóval itt az 1. tábla (0-val kitöltve) több oldalra kerül folyamatosan, az automatikus oldaltörés gondoskodik erről, de 2. tábla (1-el kitöltve), mindig új oldalra fog kerülni. -
#49033
Fire/SOUL/CD
félisten
Salex1
#49032
-
#49029
Fire/SOUL/CD
félisten
Salex1
#49027
-
#49028
Fire/SOUL/CD
félisten
VGYke
#49025
-
#49023
Fire/SOUL/CD
félisten
VGYke
#49021
-
#48855
Fire/SOUL/CD
félisten
Salex1
#48853
-
#48840
Fire/SOUL/CD
félisten
lappy
#48839
-
#48836
Fire/SOUL/CD
félisten
Delila_1
#48835
válasz
Delila_1
#48835
üzenetére
Mert válaszoltam Neked, aztán kimentem kimosni a szememből a csipát, a hideg víz hatására meg megvilágosodtam, hogy hülyeséget írtam, így megváltoztattam a hozzászólást "Korán van még..." jeligére.
Akkor még1x:
A feladat kivitelezéséhez a kombinatorika, azon belül az ún. ismétlés nélküli variáció lekódolása szükséges. Ezt még meg lehet írni makróban, de mivel közben az is befigyelt, hogy "értelmes magyar szó" is kitétel, ezért már értelmetlen az egész. Ahhoz pluszban kellene -ahogy lappy is írta- egy adatbázis, ami max. 9 betűs magyar szavakat tartalmaz.
-
#48834
Fire/SOUL/CD
félisten
Delila_1
#48833
-
#48822
Fire/SOUL/CD
félisten
wr6vhwxeq
#48820
válasz
wr6vhwxeq
#48820
üzenetére
Windows sosem tartalmazott Office-t alapból, max. ha valami Windows-al előtelepített gépet vettél és adtak "ajándékba" pl. egy fél-egy éves Office 365 előfizut mellé...
Windows Home verziókon is megy az Office, szóval ismerősöd nem tudom miről beszél.További kérdés esetén fordulj ezekhez a topikokhoz:
Windows 10 | Microsoft Office és Office 365 -
#48817
Fire/SOUL/CD
félisten
zoombiee
#48814
válasz
zoombiee
#48814
üzenetére
Olyan legördülő lista kellene, amiben több oszlop van, szóval pl. ilyen?
Ha az adatoknak mindenképpen külön munkalapon kell lenniük, akkor kell hozzá makró, ha megoldható, hogy egy munkalapra kerüljenek az adatoszlopok/tartományok(mint a képen), akkor makró sem kell feltétlenül."Ezzel az a gond, hogy mindkét oszlop bővül, ha az első után kihagyok x sort, akkor egy idő után mindig el kell csúsztatnom a 2. munkalap hivatkozásait"
Ezt sajnos nem értem... Ha a 2 oszlopban/tartományban nem azonos számú kitöltött cella van, akkor a legördülő listának nincs értelme... -
#48811
Fire/SOUL/CD
félisten
_stick_
#48810
-
#48799
Fire/SOUL/CD
félisten
BigBadPlaYeR
#48798
válasz
BigBadPlaYeR
#48798
üzenetére
Mint látható, a képleted hibásan működik a 20,00 esetén ill. egyszerűsíteni is lehet, mivel tizedes elválasztó csak 1x szerepelhet, ergo nem kell megkeresni, csak simán lecserélni.
=HA((A2-INT(A2))<>0;HELYETTE(A2;",";".");INT(A2)) -
#48745
Fire/SOUL/CD
félisten
Eagl3
#48743
Ide másold a kódot
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MySrcRange As Range
Set MySrcRange = Range("P12")
If Not Intersect(Target, MySrcRange) Is Nothing Then
If UCase(MySrcRange.Value) = "X" Then
If IsNumeric(Range("T12").Value) = True And IsNumeric(Range("U12").Value) = True Then
Range("T12").Value = Range("T12").Value + 2
Range("U12").Value = Range("U12").Value + 2
Else
MsgBox "A(z) T12 és/vagy U12 cella nem számot tartalmaz!"
End If
End If
End If
End Sub -
#48740
Fire/SOUL/CD
félisten
andreas49
#48729
válasz
andreas49
#48729
üzenetére
1. Tehát ha jól értem, akkor csak 1 db excel fájl okozza a galibát?
2. Hogy nyitod meg ezt a fájlt, duplaklikk az intézőben rajta és indul az excel vagy Excel-t elindítod, és onnan nyitod meg? Mindkét esetben gond van?
3. Futtasd admin joggal az excel-t és így, az excel-ből próbáld megnyitni, ekkor is összeomlik?
4. elküldheted a LOG fájlt az email címemre(adatlapomon megtalálod), ígérni nem tudok semmit, de belenézek -
#48738
Fire/SOUL/CD
félisten
jerry311
#48737
-
#48736
Fire/SOUL/CD
félisten
jerry311
#48734
válasz
jerry311
#48734
üzenetére
Remélem ezt csak viccből írtad, hogy BTC-ről van szó... Mert ha esetleg nem vicceltél, akkor felejtsd el ezt a kódot, NE HASZNÁLD, mert ez esetben az időrendi feldolgozás az alap, ez a kód meg nem foglakozik időrendiséggel, azaz a márciusi CSV hamarabb kerülhetett feldolgozásra, mint a januári, azaz a márciusi státusz előrébb van és csak utána jön a januári, ez meg BTC "mozgás" esetében rohadtul nem mindegy...
Ha konkrétan leírtad volna, hogy a kód egy BTC "mozgás" összesítőhöz kell, akkor teljesen más megközelítést kellett volna használni, azaz a CSV fájlok nevében pl. időbélyeg kell, hogy legyen, először a CSV-ket tartalmazó mappában végig kell szaladni az összes CSV fájlon, beolvasva a nevüket egy "listába", ezt a listát rendezni név szerint emelkedő sorrendben, majd ezt a rendezett listát alapul véve az abban szereplő sorrendben feldolgozni a CSV-ket...Szóval még1x: Ezt a kódot ne használd!
-
#48735
Fire/SOUL/CD
félisten
jerry311
#48734
válasz
jerry311
#48734
üzenetére
Amikor olyan Name-ID páros szerepelt a CSV-kben, amiből csak 1 db volt(tehát nem ismétlődött a CSV-kben egyetlen egyszer sem), akkor is növekedett az index és ezen name-ID párosokat egy csomó üres sort kihagyva írta bele a táblázatba. A korábban látható kép esetén pl. az ötven akárhányadik sorba került(ek).
Ezért írtam, hogy erre elfelejtettem tesztelni a kódot...Ha esetedben minden egyes Name-ID páros legalább 2x szerepel, akkor nem lépett fel ez az anomália korábban sem.
-
#48733
Fire/SOUL/CD
félisten
Fire/SOUL/CD
#48732
válasz
Fire/SOUL/CD
#48732
üzenetére
radi8tor gyors volt (Thx innen is), most már okés a kód.
-
#48732
Fire/SOUL/CD
félisten
Fire/SOUL/CD
#48730
válasz
Fire/SOUL/CD
#48730
üzenetére
Ne használd, valamit elfelejtettem ellenőrizni, nem működik megfelelően a kód...
Kajálok egyet, aztán megigazítom, aztán szólok egy moderátornak, hogy cserélje ki a helyes kódra... -
#48730
Fire/SOUL/CD
félisten
jerry311
#48728
válasz
jerry311
#48728
üzenetére
Az itt található adatokat vettem alapul. Létrehoztam belőle 3 db CSV fájlt, az első maradt érintetlen, a 2.-ban lecseréltem az összes DOWN státuszt UP-ra, a 3.-ban meg lecseréltem az összes UP-t FIRE-UP-ra, nyilván azért, hogy több státusz is legyen.
A kód futtatásának ez lett az eredménye:
A Module1-be másolandó kód (és fontos, hogy modul-ba kerüljön!)
'Fire/SOUL/CD - 2022
Public Sub Fire_CSV_Process()
'mappa, amelyben a CSV fájlok találhatóak
Const MYCSVFOLDER = "C:\CSVs\"
'CSV elválasztó karakter megadása
Const MYDELIMITER = ","
'Ha igaz, akkor nem dolgozza fel a fejlécet
Const CSVFILEUSEHEADER = True
'A munkalap ezen cellájától illeszti be az összesítést
Const TABLETOPLEFTCORNER = "A1"
Dim MyWorksheetName As String
Dim MyCurrCSVFname As String
Dim MyFileNumber As Long
Dim MyCurrStr As String
Dim CSVLineNdx As Long
Dim MyStrs() As String
Dim MyRowNdx As Long
Dim NameFieldStartRange, IDFieldStartRange As Range
Dim FindNameFieldRange, FindIDFieldRange As Range
Dim FindNameRange, FindIDRange As Range
'ellenőrizzük, hogy a megadott mappa létezik-e, ha nem, akkor nem fut le a kód
If Dir(MYCSVFOLDER, vbDirectory) = "" Then
MsgBox "A megadott mappa [" & MYCSVFOLDER & "] nem létezik." & vbCrLf & "Adj meg egy létező mappát..."
Exit Sub
End If
'létrehozunk egy új munkalapot (itt másodpercre pontos idő lesz a nevében,
'ezért nem ellenőrzöm, hogy létezik-e már adott néven munkalap)
MyWorksheetName = "Ősszesítés_" & Format(Now, "yymmdd_hhmmss")
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = MyWorksheetName
Worksheets(MyWorksheetName).Activate
Application.ScreenUpdating = False
MyRowNdx = 0
Set NameFieldStartRange = Range(TABLETOPLEFTCORNER)
Set IDFieldStartRange = Range(TABLETOPLEFTCORNER).Offset(0, 1)
'megadott mappában végigszaladunk az összes CSV fájlon
MyCurrCSVFname = Dir(MYCSVFOLDER & "*.CSV")
Do While Len(MyCurrCSVFname) > 0
MyFileNumber = FreeFile
Open MYCSVFOLDER & MyCurrCSVFname For Input As MyFileNumber
CSVLineNdx = 0
'CSV fájlt egyenként, soronként feldolgozzuk
While Not EOF(MyFileNumber)
Line Input #MyFileNumber, MyCurrStr
If CSVFILEUSEHEADER = True And CSVLineNdx = 0 Then
Line Input #MyFileNumber, MyCurrStr
CSVLineNdx = 1
End If
'ha üres sor van benne, azt kihagyjuk
If MyCurrStr <> "" Then
'legeslső adat esetén nincs mit összehasonlítani
If MyRowNdx = 0 Then
MyStrs = Split(MyCurrStr, MYDELIMITER)
Range(TABLETOPLEFTCORNER).Offset(0 + MyRowNdx, 0) = MyStrs(0)
Range(TABLETOPLEFTCORNER).Offset(0 + MyRowNdx, 1) = MyStrs(1)
Range(TABLETOPLEFTCORNER).Offset(0 + MyRowNdx, 2) = MyStrs(2)
Else
'meghatározzuk a keresési tartományokat
MyStrs = Split(MyCurrStr, MYDELIMITER)
Set FindNameFieldRange = Range(NameFieldStartRange.Address & ":" & Chr(NameFieldStartRange.Column + &H40) & MyRowNdx)
Set FindIDFieldRange = Range(IDFieldStartRange.Address & ":" & Chr(IDFieldStartRange.Column + &H40) & MyRowNdx)
'keresünk egyező adatokat
Set FindNameRange = FindNameFieldRange.Find(what:=MyStrs(0), LookIn:=xlValues, lookat:=xlWhole)
Set FindIDRange = FindIDFieldRange.Find(what:=MyStrs(1), LookIn:=xlValues, lookat:=xlWhole)
'ha van egyezés, akkor a találati tartomány sorában megkeressük az első üres cellát
'és beleírjuk a megfelelő adatot
If Not FindNameRange Is Nothing And Not FindIDRange Is Nothing Then
Cells(FindNameRange.Row, Columns.Count).End(xlToLeft).Offset(0, 1).Value = MyStrs(2)
MyRowNdx = MyRowNdx - 1
Else
Range(TABLETOPLEFTCORNER).Offset(0 + MyRowNdx, 0) = MyStrs(0)
Range(TABLETOPLEFTCORNER).Offset(0 + MyRowNdx, 1) = MyStrs(1)
Range(TABLETOPLEFTCORNER).Offset(0 + MyRowNdx, 2) = MyStrs(2)
End If
End If
MyRowNdx = MyRowNdx + 1
End If
Wend
Close MyFileNumber
MyCurrCSVFname = Dir()
Loop
Application.ScreenUpdating = True
End SubTeszteld, remélem jó lesz.
[ Módosította: radi8tor ]
-
#48727
Fire/SOUL/CD
félisten
jerry311
#48725
-
#48726
Fire/SOUL/CD
félisten
jerry311
#48725
válasz
jerry311
#48725
üzenetére
Ha a Név és ID párban van, akkor a 6-7 sor külön "rekordot" képez, ergó nem lehet összevonni. Dobj egy olyan képet, ami az előző képed alapján az összesítésről készült (tehát a végeredményről, amit szeretnél megvalósítani), akkor talán megvilágosodom.
(az előző képedet alapul véve, az Excelben, hogy nézne ki a végeredmény) -
#48724
Fire/SOUL/CD
félisten
jerry311
#48722
válasz
jerry311
#48722
üzenetére
Lehet, hogy az a megoldás megfelel számodra, amit Fferi50 adott, de engem ez a mondatod "aggaszt"...
"Power Query megcsinálja az importot, de még nem jöttem rá, hogy miként lehetne minden fájlból csak a Státusz oszlopod betölteni egy-egy újabb oszlopba a havi összegző fájlban."
Nekem ebből az jön le (aztán lehet, hogy rosszul), hogy valami ilyesmire gondolsz, pl:
(Feltételezem az ID, az egy egyedi azonosító, hogy több azonos nevű emberkét meg lehessen különböztetni)Egyik CSV-ben pl. ez van
Fuvaros Jani;ID_001;"Úton"Másik CSV-ben (vagy akár ugyanabban) meg pl. ez van
Fuvaros Jani;ID_001;"Útfélen"És persze akármelyik CSV-ben lehet egy másik Fuvaros Jani (meg mások is) is, pl
Fuvaros Jani;ID_002;"Karambolozott"Te pedig ezt szeretnéd összehozni az összesítésben
Erre gondolt a költő?
-
#48713
Fire/SOUL/CD
félisten
Magnat
#48712
-
#48673
Fire/SOUL/CD
félisten
lappy
#48671
-
#48672
Fire/SOUL/CD
félisten
Colin111
#48670
-
#48644
Fire/SOUL/CD
félisten
andreas49
#48643
válasz
andreas49
#48643
üzenetére
Hivatalos forrásból beszerzett Windows és Office van?
Letöltés: Windows 11 | Office (innen is lehet OS-ket tölteni)
Az OS Home vagy Pro?
Az Office pontos verziója? (365/2021/2019 stb)
W10 alá is ugyanazt az Office-t telepíted? (Gondolom igen, de megkérdem)
Az OS-t és az Office-t is frissítsd le naprakészre. -
#48626
Fire/SOUL/CD
félisten
Exodius
#48625
válasz
Exodius
#48625
üzenetére
"Sima Excel-ben nincs ilyen függvény..."
De van, csak nem listázza ki az Excel (még az Excel 2007-esben is van ez az FX), szépen végig be kell pötyögni a függvény nevét meg a paramétereit"Meg oda kell írnom a tólig dátumot, ami ugye felesleges, mert az minden nap változik."
Miért kellene? A korábbi képet alapul véve A oszlopban vannak a születésnapok, B1-be meg beírod, hogy=DÁTUMTÓLIG(A1;MA();"Y")és végigmásolod... -
#48624
Fire/SOUL/CD
félisten
Exodius
#48623
-
#48622
Fire/SOUL/CD
félisten
wolfman
#48620
válasz
wolfman
#48620
üzenetére
Mindenekelőtt Delila_1 megoldását használd, ha még szeretnél vele további számolási műveleteket végezni.
Ez (# ##0) egy ún. formátumkód.
Bővebben (Angol) | Bővebben (Magyar) | Bővebben (Magyar) PDF -
#48619
Fire/SOUL/CD
félisten
sztanozs
#48618
-
#48617
Fire/SOUL/CD
félisten
Fire/SOUL/CD
#48616
válasz
Fire/SOUL/CD
#48616
üzenetére
Bocsesz, ez természetesen nem neked akart menni, hanem wolfman-nak...
-
#48616
Fire/SOUL/CD
félisten
Delila_1
#48615
-
#48613
Fire/SOUL/CD
félisten
wolfman
#48612
válasz
wolfman
#48612
üzenetére
Dobj egy-két képet, hogy pl. munka1 adott cellájában ez van, munka2 adott cellájában(ami a munka1 adott cellájára hivatkozik) meg ez a képlet szerepel és mi lett -a rossz- eredménye.
"Próbáltam alkalmazni ezt a korábbi dátumos formát is, hátha, de arra meg azt írja ki, hogy a függvényhez beírt argumentumok száma túl kevés."
Hát itt meg szinte biztos, hogy valamit elrontottál...Természetesen takard ki a nem szükséges/nem publikus adatokat tartalmazó cellákat, csak lássuk, hogy miről is van szó.
-
#48610
Fire/SOUL/CD
félisten
wolfman
#48609
-
#48604
Fire/SOUL/CD
félisten
zeeland66
#48603
válasz
zeeland66
#48603
üzenetére
Lehet, hogy csak a különböző cellahivatkozási szabályokkal nem vagy tisztában?
Váltás a relatív, az abszolút és a vegyes hivatkozás közöttMagyarul (itt a példádnál maradva) a Munka2 C3 cellába ez kerüljön:
=Munka1!$B$6és akkor a Munka2 lapon mindegy, hogy hova kerül a táblázat, a korábbi C3 cella bárhova is kerül, abba mindig a Munka1 lap B6 cella értéke fog kerülni. -
#48600
Fire/SOUL/CD
félisten
Dilikutya
#48598
-
#48509
Fire/SOUL/CD
félisten
Colin111
#48507
-
#48504
Fire/SOUL/CD
félisten
Magnat
#48503
-
#48501
Fire/SOUL/CD
félisten
lappy és Magnat
Egyelőre ennyit tudtam tenni az ügy érdekében (vezetek)
Tudom, még lehetne optimalizálni, de MA biztosan nem teszem.
B2 képlete
=ÖSSZEFŰZ(VÁLASZT(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));1;1)+1;"";"egyszáz ";"kétszáz ";"háromszáz ";"négyszáz ";"ötszáz ";"hatszáz ";"hétszáz ";"nyolcszáz ";"kilencszáz ");HA(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));3;1)<>"0";VÁLASZT(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));2;1)+1;"";"tizen";"huszon";"harminc";"negyven";"ötven";"hatvan";"hetven";"nyolcvan";"kilencven");VÁLASZT(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));2;1)+1;"";"tíz ";"húsz ";"harminc ";"negyven ";"ötven ";"hatvan ";"hetven ";"nyolcvan ";"kilencven "));VÁLASZT(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));3;1)+1;"";"egy ";"kettő ";"három ";"négy ";"öt ";"hat ";"hét ";"nyolc ";"kilenc ");HA(ÉS(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));1;1)="0";KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));2;1)="0";KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));3;1)="0");"";"milliárd ");VÁLASZT(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));4;1)+1;"";"egyszáz ";"kétszáz ";"háromszáz ";"négyszáz ";"ötszáz ";"hatszáz ";"hétszáz ";"nyolcszáz ";"kilencszáz ");HA(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));6;1)<>"0";VÁLASZT(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));5;1)+1;"";"tizen";"huszon";"harminc";"negyven";"ötven";"hatvan";"hetven";"nyolcvan";"kilencven");VÁLASZT(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));5;1)+1;"";"tíz ";"húsz ";"harminc ";"negyven ";"ötven ";"hatvan ";"hetven ";"nyolcvan ";"kilencven "));VÁLASZT(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));6;1)+1;"";"egy ";"kettő ";"három ";"négy ";"öt ";"hat ";"hét ";"nyolc ";"kilenc ");HA(ÉS(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));4;1)="0";KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));5;1)="0";KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));6;1)="0");"";"millió ");VÁLASZT(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));7;1)+1;"";"egyszáz ";"kétszáz ";"háromszáz ";"négyszáz ";"ötszáz ";"hatszáz ";"hétszáz ";"nyolcszáz ";"kilencszáz ");HA(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));9;1)<>"0";VÁLASZT(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));8;1)+1;"";"tizen";"huszon";"harminc";"negyven";"ötven";"hatvan";"hetven";"nyolcvan";"kilencven");VÁLASZT(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));8;1)+1;"";"tíz ";"húsz ";"harminc ";"negyven ";"ötven ";"hatvan ";"hetven ";"nyolcvan ";"kilencven "));VÁLASZT(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));9;1)+1;"";"egy ";"kettő ";"három ";"négy ";"öt ";"hat ";"hét ";"nyolc ";"kilenc ");HA(ÉS(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));7;1)="0";KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));8;1)="0";KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));9;1)="0");"";"ezer ");VÁLASZT(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));10;1)+1;"";"egyszáz ";"kétszáz ";"háromszáz ";"négyszáz ";"ötszáz ";"hatszáz ";"hétszáz ";"nyolcszáz ";"kilencszáz ");HA(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));12;1)<>"0";VÁLASZT(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));11;1)+1;"";"tizen";"huszon";"harminc";"negyven";"ötven";"hatvan";"hetven";"nyolcvan";"kilencven");VÁLASZT(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));11;1)+1;"";"tíz ";"húsz ";"harminc ";"negyven ";"ötven ";"hatvan ";"hetven ";"nyolcvan ";"kilencven "));VÁLASZT(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));12;1)+1;"";"egy";"kettő";"három";"négy";"öt";"hat";"hét";"nyolc";"kilenc");HA(ÉS(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));10;1)="0";KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));11;1)="0";KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));12;1)="0");"";""))Eredmény
Természetesen módosítsátok tetszésetek szerint a képletet, legyen pöpec...
UI: Makróban sokkal egyszerűbb megírni, ezt csak az érdekesség kedvéért csináltam...
-
#48498
Fire/SOUL/CD
félisten
Nixon18
#48495
válasz
Nixon18
#48495
üzenetére
Szeretem a fejtörőket, tessék.
=ÖSSZEFŰZ(VÁLASZT(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));1;1)+1;"";"egy száz ";"két száz ";"három száz ";"négy száz ";"öt száz ";"hat száz ";"hét száz ";"nyolc száz ";"kilenc száz ");HA(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));3;1)<>"0";VÁLASZT(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));2;1)+1;"";"tizen ";"huszon ";"harminc ";"negyven ";"ötven ";"hatvan ";"hetven ";"nyolcvan ";"kilencven ");VÁLASZT(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));2;1)+1;"";"tíz ";"húsz ";"harminc ";"negyven ";"ötven ";"hatvan ";"hetven ";"nyolcvan ";"kilencven "));VÁLASZT(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));3;1)+1;"";"egy ";"kettő ";"három ";"négy ";"öt ";"hat ";"hét ";"nyolc ";"kilenc ");HA(ÉS(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));1;1)="0";KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));2;1)="0";KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));3;1)="0");"";"milliárd ");VÁLASZT(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));4;1)+1;"";"egy száz ";"két száz ";"három száz ";"négy száz ";"öt száz ";"hat száz ";"hét száz ";"nyolc száz ";"kilenc száz ");HA(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));6;1)<>"0";VÁLASZT(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));5;1)+1;"";"tizen ";"huszon ";"harminc ";"negyven ";"ötven ";"hatvan ";"hetven ";"nyolcvan ";"kilencven ");VÁLASZT(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));5;1)+1;"";"tíz ";"húsz ";"harminc ";"negyven ";"ötven ";"hatvan ";"hetven ";"nyolcvan ";"kilencven "));VÁLASZT(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));6;1)+1;"";"egy ";"kettő ";"három ";"négy ";"öt ";"hat ";"hét ";"nyolc ";"kilenc ");HA(ÉS(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));4;1)="0";KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));5;1)="0";KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));6;1)="0");"";"millió ");VÁLASZT(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));7;1)+1;"";"egy száz ";"két száz ";"három száz ";"négy száz ";"öt száz ";"hat száz ";"hét száz ";"nyolc száz ";"kilenc száz ");HA(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));9;1)<>"0";VÁLASZT(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));8;1)+1;"";"tizen ";"huszon ";"harminc ";"negyven ";"ötven ";"hatvan ";"hetven ";"nyolcvan ";"kilencven ");VÁLASZT(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));8;1)+1;"";"tíz ";"húsz ";"harminc ";"negyven ";"ötven ";"hatvan ";"hetven ";"nyolcvan ";"kilencven "));VÁLASZT(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));9;1)+1;"";"egy ";"kettő ";"három ";"négy ";"öt ";"hat ";"hét ";"nyolc ";"kilenc ");HA(ÉS(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));7;1)="0";KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));8;1)="0";KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));9;1)="0");"";"ezer ");VÁLASZT(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));10;1)+1;"";"egy száz ";"két száz ";"három száz ";"négy száz ";"öt száz ";"hat száz ";"hét száz ";"nyolc száz ";"kilenc száz ");HA(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));12;1)<>"0";VÁLASZT(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));11;1)+1;"";"tizen ";"huszon ";"harminc ";"negyven ";"ötven ";"hatvan ";"hetven ";"nyolcvan ";"kilencven ");VÁLASZT(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));11;1)+1;"";"tíz ";"húsz ";"harminc ";"negyven ";"ötven ";"hatvan ";"hetven ";"nyolcvan ";"kilencven "));VÁLASZT(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));12;1)+1;"";"egy";"kettő";"három";"négy";"öt";"hat";"hét";"nyolc";"kilenc");HA(ÉS(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));10;1)="0";KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));11;1)="0";KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));12;1)="0");"";""))Eredmény
-
#48492
Fire/SOUL/CD
félisten
DGery
#48488
Az Option Explicit nem kell... (vagy azt csinálod, amit Fferi50 írt, viszont innentől minden változót deklarálni kell) 
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Új hozzászólás Aktív témák
- Vírusirtó, Antivirus, VPN kulcsok GARANCIÁVAL!
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem.
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Bluetooth hangszóró FM rádióval
- ÚJ MacBook Pro 14" M4 PRO 24GB 512GB Space Black
- 238 - Lenovo Legion Pro 7 (16IRX8) - Intel Core i9-13900HX, RTX 4070
- Lenovo Thinkpad P15 Gen 2 - 82 akkuciklus - 27% ÁFÁS
- HP 14 Elitebook 640 G10 FHD IPS i5-1345U vPro 10mag 16GB 512GB SSD Intel Iris XE Win11 Pro Garancia
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest