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

• #23832 Delila_1 veterán littleNorbi #23831

  Új Válasz 2014-10-21 13:01:28 #23832

  Ú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 littleNorbi #23831 üzenetére

  Egy saját függvénnyel megoldható.

  Function CsakSzam(cella As Range)
  Dim betu As Integer, szam As Integer
  
  If IsNumeric(cella) Then
  CsakSzam = cella
  Exit Function
  End If
  
  For betu = 1 To Len(cella)
  If IsNumeric(Mid(cella, betu, 1)) Then
  szam = szam & Mid(cella, betu, 1)
  Else
  CsakSzam = szam * 1
  End If
  Next
  End Function

  Alkalmazása: =csakszam(A1), az A1 cellában lévő házszám kinyeréséhez.

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