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

• #22326 Delila_1 veterán madrol #22322

  Új Válasz 2014-07-08 10:10:34 #22326

  Ú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 madrol #22322 üzenetére

  Írtam rá egy függvényt, a neve CsakSzam.

  Ha az adatod az A1 cellában van, akkor az =csakszam(A1) függvény megoldja a problémádat.

  Function CsakSzam(adat As String)
  Dim b As Integer
  For b = 1 To Len(adat)
  If Mid(adat, b, 1) Like "[0-9]" Then _
  CsakSzam = CsakSzam & Mid(adat, b, 1)
  Next
  CsakSzam = CsakSzam * 1
  End Function

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