Hirdetés

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

  • 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