- Ubisoft Forward 2024 - Az összes bejelentés egy helyen
- UbiForward24 - Jön az Anno 117: Pax Romana
- UbiForward24 - Hosszabb játékmenet videón az Assassin's Creed Shadows
- UbiForward24 - Sztori kiegészítőt kap az Avatar: Frontiers of Pandora
- UbiForward24 - Prince of Persia: The Sands of Time Remake csak 2026-ban
- UbiForward24 - Prince of Persia: The Sands of Time Remake csak 2026-ban
- Ubisoft Forward 2024 - Az összes bejelentés egy helyen
- Forza sorozat (Horizon/Motorsport)
- Diablo IV
- Xbox Series X|S
- UbiForward24 - Hosszabb bemutatón a Star Wars: Outlaws
- Genshin Impact (PC, PS4, Android, iOS)
- Call of Duty: Black Ops 6
- PlayStation 5
- UbiForward24 - Hosszabb játékmenet videón az Assassin's Creed Shadows
-
GAMEPOD.hu
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
-
Delila_1
Topikgazda
válasz Nixon18 #36247 üzenetére
Lehet, hogy nem erre gondolsz, de azért leírom.
Nem szükséges makróval elintézni, egyszerűen megoldható anélkül is.
A különböző tartományoknak nevet adsz.
Az F2:F3 nálam a "kategóriák" névre hallgat.
Fontos, hogy az allisták azt a nevet kapják, amelyik főlista-beli kategóriába tartoznak. A H2:H8 tartomány neve gyümölcs, a J2:J10-é zöldség. A tartományokat táblázattá alakítottam, így bővítéskor, szűkítéskor az elnevetett tartományok rugalmasan követik a sorok számát.
Az elnevezések nevében nem lehet szóköz, és nem szerepelhet önállóan számjegy.Az első érvényesítés a C2 cellában van, a lista forrása: =kategóriák
A D2-es érvényesítésnél a forrás: =INDIREKT(C2)[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
csferke
senior tag
-
Fferi50
őstag
válasz Nixon18 #46785 üzenetére
Szia!
Lehet, nem jól gondolom, de én így csinálnám:
Az "összesítő" munkalapra bemásolnám az egyes vizsganapok adatait fejléc nélkül egymás után. (Nyilván az első esetben fejléccel együtt.)
Majd a vizsgadíj oszlopra "ráereszteném" a befizetve szűrőt. Az eredményt pedig szükség esetén kimásolnám egy új munkalapra. Ehhez akár az Adatok - Speciális (irányított szűrő) menüpont is használható.
Üdv. -
Fferi50
őstag
válasz Nixon18 #46787 üzenetére
Szia!
Hát hiszen a manuális az kézenfekvő
Viccet félretéve: természetesen makróval megoldható a másolás, találsz rá ebben a fórumban is megoldást, több félét is. Néhány dolgot, mint pl. fájlnév, elérési út nyilván hozzá kell alakítani a te környezetedhez, de az nem olyan nehéz dolog.
Üdv. -
lappy
őstag
válasz Nixon18 #48495 üzenetére
második módszer
Szám-szöveg konverterBámulatos hol tart már a tudomány!
-
félisten
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");"";""))
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Delila_1
Topikgazda
válasz Nixon18 #48495 üzenetére
Valamikor régen már feltettem a makrót – talán többször is – de most nem találom. Újra felteszem.
Function Szam_kiiras(szam As Long) As String
Dim j1, j10, j10a, j100
j1 = Array("", "egy", "kettő", "három", "négy", "öt", "hat", "hét", "nyolc", "kilenc")
j10 = Array("", "tíz", "húsz", "harminc", "negyven", "ötven", "hatvan", "hetven", "nyolcvan", "kilencven")
j10a = Array("", "tizen", "huszon", "harminc", "negyven", "ötven", "hatvan", "hetven", "nyolcvan", "kilencven")
j100 = Array("száz", "", "ezer", "millió", "milliárd")
betu = ""
If szam = 0 Then
Szam_kiiras = "Nulla"
Exit Function
End If
s = Format(szam, "0")
j = 1
While s <> ""
i = Len(s) - 2
If i < 1 Then i = 1
s2 = Mid(s, i, 3)
s = Left(s, i - 1)
s3 = ""
If Len(s2) = 3 Then
s3 = s3 + j1(Asc(Mid(s2, 1, 1)) - 48)
If Mid(s2, 1, 1) <> "0" Then s3 = s3 + j100(0)
s2 = Right(s2, Len(s2) - 1)
End If
If Len(s2) = 2 Then
If Mid(s2, 2, 1) = "0" Then
s3 = s3 + j10(Asc(Mid(s2, 1, 1)) - 48)
Else
s3 = s3 + j10a(Asc(Mid(s2, 1, 1)) - 48)
End If
s2 = Right(s2, Len(s2) - 1)
End If
s3 = s3 + j1(Asc(Mid(s2, 1, 1)) - 48)
If s3 <> "" Then s3 = s3 + j100(j)
If (betu <> "") And (szam > 2000) And (s3 <> "") Then kot = "-" Else kot = ""
betu = s3 + kot + betu
j = j + 1
Wend
betu = UCase(Left(betu, 1)) & Right(betu, Len(betu) - 1)
Szam_kiiras = betu
End Function
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
- Szárba szökken a Galaxy Buds 3 Pro
- Luck Dragon: MárkaLánc
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Milyen routert?
- Veszprém és környéke adok-veszek-beszélgetek
- UbiForward24 - Prince of Persia: The Sands of Time Remake csak 2026-ban
- Ubisoft Forward 2024 - Az összes bejelentés egy helyen
- Külpolitika
- Medence topik
- Kés topik
- További aktív témák...
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Vírusirtó, Antivirus VPN kulcsok
- Game Pass Ultimate előfizetések 1 - 25 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN!
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- AKCIÓ! - STEAM kulcsok / Punch Club, Oddworld: Soulstorm, Children of Morta, stb. - 2024.05.16.
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen