-
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
-
csferke
senior tag
válasz vilmaboy #20616 üzenetére
Ezt használom excel 2007-ben. Remélem a 2010-es is "megeszi"
Function Szam_Szoveg(szam As Long) As String
Dim j1, j10, j10a, j100
j1 = Array("", "egy", "ketto", "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_Szoveg = "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_Szoveg = betu
End Function[ Szerkesztve ]
-
Mutt
aktív tag
válasz vilmaboy #20645 üzenetére
Hali,
csferke egy saját függvényt (UDF) osztott meg, amelyet mint az Excel többi függvényét képletként tudsz hsználni. Azonban ehhez a kódot az Excel makrókat tartalmazó lapjára (module) kell másolni.
Alt+F11-et nyomva megnyíilik a beépített visual basic szerkesztő. Ott az Insert menűben található Module-al lehet egy kódlapot nyitni. Erre kell másolni a kódot és a fájlt makróbarát formátumként elmenteni.
Innen letöltheted a minta fájlt.
üdv
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Mutt
aktív tag
válasz vilmaboy #51038 üzenetére
Szia,
Nagy segítséget nem tudok adni, de anno csináltam pár animációt Excelben VBA-val.
https://github.com/viszi/codes/tree/master/Excel/Fun oldalon van pár, Clock/Maze/Langton's Ant/Game of life.
Makróval lehet csinálni vmit, de nem igazán evidens mivel az Excelben a megjelenítést befolyásolja hogy a gépnek illetve az Excelnek milyen műveleteket kell elvégeznie párhuzamosan.
A legtöbb esetben csak annyi kell, hogy mindig újabb adatokat adsz a grafikon alapját adó táblázathoz és az Excel ezt megjeleníti. A gond az időzítés, mert egy Sleep vagy Appliction.Wait nem mindig tart ugyanaddig.Bővítményt nem találtam ami igazán segít, olyanok vannak amelyek mozgó GIF-ekket használnak, de azt előbb elő kellene állítani hogy lehessen használni.
Az Excel nem igazán erre van kihegyezve, a 3Ds térképpel pedig én eddig csak szenvedtem.
Szerintem más eszközt kell keresned.üdv
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Fferi50
őstag
válasz vilmaboy #51942 üzenetére
Szia!
Először a C oszlop függvénye:
C2 cellába:=DARABTELI($D$2:$D2;D2)
Ha új Exceled van, akkor DARABHA a függvény neve.
A képlet húzható lefelé, amíg adatod van. Figyelj a $ jelekre lsz.
A B oszlop függvénye:
B2 cellát üresen hagyod.
B3 cella képlete:=HA(C3=1;"";HA(B2="";A2;B2))
Ez a képlet is húzható lefelé.
Annyi eltérés van a kívánalmaidtól, hogy az egy darabos termék C oszlopában is ott lesz az 1-es szám - a B oszlopban viszont nem lesz érték.
Módosítás
A C oszlop javításához a képletek:
C2 cellába:=HA(ÉS(DARABHA($D$2:$D2;D2)=1;DARABHA($D$2:$D3;$D3)=1);"";DARABHA($D$2:$D2;D2))
B3 cellába:=HA(VAGY(C3=1;;C3="");"";HA(B2="";A2;B2))
Üdv.[ Szerkesztve ]
Új hozzászólás Aktív témák
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs