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

• #34941 0P1 aktív tag macilaci78 #34920

  Új Válasz 2017-04-21 23:00:30 #34941

  Ú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

  

  0P1

  aktív tag

  válasz macilaci78 #34920 üzenetére

  Ha mindenképpen függvénnyel akarod, akkor ez működhet:

  Ha A1 cellában az adatod:

  =SZORZATÖSSZEG(KÖZÉP(0&A1;NAGY(INDEX(SZÁM(--KÖZÉP(A1;SOR($1:$40);1))*
SOR($1:$40);0);SOR($1:$40))+1;1)*10^SOR($1:$40)/10)

  Ez kiszedi a szám karaktereket , és összefűzi őket egy decimális számmá. Ha 40-nél hosszabb is lehet a karaktersorozat, akkor $40 -et módosítsd ennek megfelelően. (ha elegendő kevesebb, akkor csökkentheted, ha hosszabb kell, akkor növeld, de feleslegesen túl nagy értéket ne adj meg, mert ez minél nagyobb, annál lassabb lesz.

  Az excel számkezelési limitjét viszont ne lépd át, a számpontosság 15 számjegy, efelett elkezd normál alakban tárolni és kerekíteni ! Szóval nem lehet 15-nél több számjegy a karakterláncban. Ha ennél több számjegy van a
  sztringben, akkor csak Delila makrós megoldása a járható út.

• #34922 Delila_1 veterán macilaci78 #34920

  Új Válasz 2017-04-21 15:13:52 #34922

  Ú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 macilaci78 #34920 üzenetére

  Írtam rá egy CsakSzam nevű függvényt. Modulba másold. A füzetbe beírod
  =csakszam(A1) – ha az A1-ben lévő adatból akarod kiíratni a számjegyeket.

  Function CsakSzam(cella As Range)
Dim b As Integer, szam

For b = 1 To Len(cella)
If IsNumeric(Mid(cella, b, 1)) Then szam = szam & Mid(cella, b, 1)
Next
CsakSzam = szam * 1
End Function

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