Új hozzászólás Aktív témák

• #48502 Delila_1 veterán Nixon18 #48495

  Új Válasz 2022-02-15 20:17:20 #48502

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  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

• #48498 Fire/SOUL/CD félisten Nixon18 #48495

  Új Válasz 2022-02-15 15:05:05 #48498

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fire/SOUL/CD

  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");"";""))

  Eredmény
  

• #48497 lappy őstag Nixon18 #48495

  Új Válasz 2022-02-15 10:13:53 #48497

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  lappy

  őstag

  válasz Nixon18 #48495 üzenetére

  második módszer
  Szám-szöveg konverter

• #48496 lappy őstag Nixon18 #48495

  Új Válasz 2022-02-15 10:05:57 #48496

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  lappy

  őstag

  válasz Nixon18 #48495 üzenetére

  az egyik módszer

• #47006 Delila_1 veterán Nixon18 #47004

  Új Válasz 2021-06-18 05:28:20 #47006

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Nixon18 #47004 üzenetére

  [link]
  A szűrőtartomány >=4 legyen.

• #47005 lappy őstag Nixon18 #47004

  Új Válasz 2021-06-18 03:02:43 #47005

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  lappy

  őstag

  válasz Nixon18 #47004 üzenetére

  Mondjuk egy sima szűréssel is megoldhato

• #46789 Fferi50 Topikgazda Nixon18 #46787

  Új Válasz 2021-05-27 14:44:15 #46789

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  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.

• #46786 Fferi50 Topikgazda Nixon18 #46785

  Új Válasz 2021-05-27 13:35:59 #46786

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  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.

• #46156 Fferi50 Topikgazda Nixon18 #46155

  Új Válasz 2021-02-23 12:57:18 #46156

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz Nixon18 #46155 üzenetére

  Szia!
  Ki kell jelölnöd a rendezéshez az egész táblázatot az új lapon.
  Miért nem jó azon a lapon az elérhetőségeket felvinni, ahol az oktatókat vezeted?
  Üdv.

• #44159 Fferi50 Topikgazda Nixon18 #44158

  Új Válasz 2020-05-30 09:24:02 #44159

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz Nixon18 #44158 üzenetére

  Szia!
  Nézd meg légy szíves a Windows területi beállításait. Az Excel is alapból onnan veszi a dátumok formátumát.
  Üdv.

• #43812 csferke senior tag Nixon18 #43806

  Új Válasz 2020-05-03 07:53:07 #43812

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  csferke

  senior tag

  válasz Nixon18 #43806 üzenetére

  =sum(a1:a10) => =sum(a1:a11)
  Jelöl ki a 11-es sort, amelyben a képlet van és Insert. Abban a pillanatban nem változik meg a képlet, de amikor kitöltöd az új a11-est akkor megváltozik a képlet a12-ben =sum(a1:a12)-re és jó lesz az eredmény

• #43809 Delila_1 veterán Nixon18 #43808

  Új Válasz 2020-05-02 11:13:05 #43809

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Nixon18 #43808 üzenetére

  
  Tedd valahova felülre a szum függvényt, ami további sorok összegzésére is alkalmas.
  =szum(a1:A50)

• #43807 Delila_1 veterán Nixon18 #43806

  Új Válasz 2020-05-02 11:08:01 #43807

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Nixon18 #43806 üzenetére

  A 10-es sor fölé szúrd be azt a sort, akkor változik a függvény tartománya.

• #36254 Delila_1 veterán Nixon18 #36251

  Új Válasz 2017-10-07 17:16:38 #36254

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Nixon18 #36251 üzenetére

  Készíts kimutatást, ahol szűrhetsz egy dátumra.

• #36250 Delila_1 veterán Nixon18 #36247

  Új Válasz 2017-10-07 07:27:13 #36250

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  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)

  

  

• #36248 lappy őstag Nixon18 #36247

  Új Válasz 2017-10-06 21:36:25 #36248

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  lappy

  őstag

  válasz Nixon18 #36247 üzenetére

  Nem lehet megcsinálni! max makroval

Új hozzászólás Aktív témák