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

• #23866 Delila_1 veterán littleNorbi #23863

  Új Válasz 2014-10-22 13:02:57 #23866

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

  Kiegészítve a tegnapi makró:

  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)
  ElseIf Mid(cella, betu, 1) = "/" And IsNumeric(Mid(cella, betu + 1, 1)) Then
  CsakSzam = cella
  Exit Function
  Else
  CsakSzam = szam
  End If
  Next
  End Function

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