Kod kısaltması ( If---End if)

[tamer42]

Merhabalar,

Aşağıdaki kod da her değişkenin önüne (a,b,c,d) "MyRng Like " ifadesini tekrarlayarak yazmayı biliyorum,
bunun kısaltması olabilirmi?

Örn: ---- MyRng Like ("a" or "b" or "c" or "d") ---- gibi....

MyRng= Range("A" & j).Text

 If MyRng Like a Or MyRng Like b Or MyRng Like c Or MyRng Like d Then
  .........
...........                     
End If

İyi Çalışmalar.

 

[hamitcan]

Aşağıdaki şekilde deneyin.

Sub nn()
MyRng = Range("A" & j).Text
deg = Array("a", "b", "c", "d")
For i = 0 To 3
    If MyRng Like deg(i) Then
        '......
    End If
Next
End Sub