DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub test()
Dim deger As String
deger = "d"
Select Case deger
Case "a", "b"
MsgBox "a yada b"
Case "c", "d", "e"
MsgBox "c, d yada e"
End Select
End Sub