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

• #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