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

• #23877 Delila_1 veterán Delila_1 #23872

  Új Válasz 2014-10-22 14:39:42 #23877

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

  Még valamit be kellett tenni a ciklusba.

  For betu = 1 To Len(szoveg)
  If IsNumeric(Mid(szoveg, betu, 1)) Then
  szam = szam & Mid(szoveg, betu, 1)
  ElseIf Mid(szoveg, betu, 1) = "/" And IsNumeric(Mid(szoveg, betu + 1, 1)) Then
  If WorksheetFunction.IsEven(Left(szoveg, InStr(szoveg, "/") - 1) * 1) Then
  ParosCsakSzam = szoveg
  Exit Function
  Else
  ParosCsakSzam = ""
  Exit Function
  End If
  ElseIf WorksheetFunction.IsEven(szam) Then
  ParosCsakSzam = szam
  Exit Function
  Else
  ParosCsakSzam = ""
  Exit Function
  End If
  Next

  A 7/4-hez enélkül nullát ad.

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