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

• #51943 Fferi50 Topikgazda vilmaboy #51942

  Új Válasz 2023-12-14 09:27:27 #51943

  Ú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 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.

• #51040 Mutt senior tag vilmaboy #51038

  Új Válasz 2023-05-30 20:28:35 #51040

  Ú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

  

  Mutt

  senior 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

• #50698 lappy őstag vilmaboy #50696

  Új Válasz 2023-03-10 13:53:58 #50698

  Ú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 vilmaboy #50696 üzenetére

  =darabhatöbb(A1:E1;">=10";A1:E1;"<20").

• #50697 TheSaint aktív tag vilmaboy #50696

  Új Válasz 2023-03-10 13:42:39 #50697

  Ú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

  

  TheSaint

  aktív tag

  válasz vilmaboy #50696 üzenetére

  Így?:

  =SZÁMOL.HA.SI(A1:E1;">10";A1:E1;"<20")

• #20648 Mutt senior tag vilmaboy #20645

  Új Válasz 2014-02-24 22:51:51 #20648

  Ú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

  

  Mutt

  senior 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

• #20645 vilmaboy őstag vilmaboy #20616

  Új Válasz 2014-02-24 20:37:18 #20645

  Ú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

  

  vilmaboy

  őstag

  válasz vilmaboy #20616 üzenetére

  ez a probléma még mindig fent áll. tudna rá valaki olyan megoldást amit le tud írni hogy s mit kell megnyomni? Csferke amit leírt az nekem magas...

• #20617 csferke senior tag vilmaboy #20616

  Új Válasz 2014-02-22 07:44:06 #20617

  Ú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 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

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