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

• #23872 Delila_1 veterán m.zmrzlina #23871

  Új Válasz 2014-10-22 14:20:26 #23872

  Ú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 m.zmrzlina #23871 üzenetére

  Közben megszületett a páros számok kigyűjtése (egyik oszlopba), a páratlanokhoz ebben a makróban át kell írni az IsEven-eket IsOdd-ra.

  Function ParosCsakSzam(cella As Range)
  Dim betu As Integer, szam As Integer, szoveg As String
  szoveg = Trim(cella)
  
  If IsNumeric(szoveg) Then
  If WorksheetFunction.IsEven(szoveg) Then
  ParosCsakSzam = szoveg
  Exit Function
  Else
  ParosCsakSzam = ""
  Exit Function
  End If
  Else
  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
  End If
  ElseIf WorksheetFunction.IsEven(szam) Then
  ParosCsakSzam = szam
  Exit Function
  Else
  ParosCsakSzam = ""
  Exit Function
  End If
  Next
  End If
  End Function

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