Viacnasobna podmienka

[arasid]

Nie som si isty ci od VBA necem vela, ale v exceli mi akosi nechce vziat viacnasobnu podmienku:

Kód: Vybrat vše

If Not krajina = "AG" And koncovka = "ZG" _
        Or (krajina = "G" And koncovka = "ZG") _
        Or (krajina = "I" And koncovka = "ZT") _
        Or (krajina = "K" And koncovka = "XU") _
        Or (krajina = "A" And koncovka = "XC") _
        Or (krajina = "N" And koncovka = "XN") _
        Or (krajina = "DA" And koncovka = "XE") _
        Or (krajina = "SOL" And koncovka = "XH") _
        Or (krajina = "SZ" And koncovka = "XH" And koncovka = "BT") _
        Or (krajina = "P" And koncovka = "XC") _
        Or (krajina = "SE" And koncovka = "XH") _
        Or (krajina = "SC" And koncovka = "RU") _
        Or (krajina = "SSC" And koncovka = "BT") Then

Vzdy zobere len podmienku v prvom riadku a ostatne akoby ignoroval.. Neviete preco?

[Reklama]

[Branscombe]

Odstranit závorky nebo použít "ElseIf"

[arasid]

zatvorky som tam predtym nedal.. mozem tam dat elseif aj ked je na zaciatku if not? ( bo mi to akosi nejde..
lebo proste ide o bunky vedla seba, a chcem aby mi urobilo ulohu( skopirovat riadok) ak dane dve bunky nebudu spadat ani pod jednu z tych podmienok v paroch.. teda ak napr. bude krajina AG, ale koncovka ZT (cize nevyhovuje prvej podmienke)


--- Doplnění předchozího příspěvku (04 Lis 2011 13:53) ---

no nakonec som to spravil takto, ale asi je to to najblbsie riesenie:

Kód: Vybrat vše

If Not (krajina = "A" And koncovka = "1") Then
        If Not (krajina = "B" And koncovka = "2") Then
        If Not (krajina = "C" And koncovka = "3") Then
        If Not (krajina = "D" And koncovka = "4") Then
        If Not (krajina = "E" And koncovka = "5") Then
        If Not (krajina = "F" And koncovka = "6") Then
        If Not (krajina = "G" And koncovka = "7") Then
        If Not (krajina = "H" And koncovka = "8") Then
        If Not (krajina = "J" And koncovka = "9" And koncovka = "10") Then
        If Not (krajina = "K" And koncovka = "11") Then
        If Not (krajina = "L" And koncovka = "12") Then
        If Not (krajina = "M" And koncovka = "13") Then
        If Not (krajina = "N" And koncovka = "14") Then
        If Not (krajina = "O" And koncovka = "15") Then
     PODMIENKA
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If

Next i


Nemate napad ako zhrnut tych 14 End If do jedneho?

[Žbeky]

Switch - case?

[arasid]

vedel by si mi to sem dat? staci prvy a posledny.. bo ked som to skusal cez case ja neslo mi to..

[cmuch]

A co takto? viz. Branscombe

Kód: Vybrat vše

Sub KontrolaShody()

krajina = Range("A10")
koncovka = Range("B10")
'
       If TotoPreskoc Then
        ElseIf krajina = "A" And koncovka = "1" Then Exit Sub
        ElseIf krajina = "B" And koncovka = "2" Then Exit Sub
        ElseIf krajina = "C" And koncovka = "3" Then Exit Sub
        ElseIf krajina = "D" And koncovka = "4" Then Exit Sub
        ElseIf krajina = "E" And koncovka = "5" Then Exit Sub
        ElseIf krajina = "F" And koncovka = "6" Then Exit Sub
        ElseIf krajina = "G" And koncovka = "7" Then Exit Sub
        ElseIf krajina = "H" And koncovka = "8" Then Exit Sub
        ElseIf krajina = "J" And koncovka = "9" Or koncovka = "10" Then Exit Sub
        ElseIf krajina = "K" And koncovka = "11" Then Exit Sub
        ElseIf krajina = "L" And koncovka = "12" Then Exit Sub
        ElseIf krajina = "M" And koncovka = "13" Then Exit Sub
        ElseIf krajina = "N" And koncovka = "14" Then Exit Sub
        ElseIf krajina = "O" And koncovka = "15" Then Exit Sub
       End If

MsgBox "Neshoda bunek"

End Sub


[arasid]

Zial nie.. Ak to napisem s elseif.. hned pri prvom mi vyhodi hlasku: "else without if" nevim proc..

[cmuch]

Upraveno a vloženo do předchozího příspěvku.

Při neshodě vyskočí hláška a při shodě se nestane nic.