2014-07-17 37 views
9

VBA için oldukça yeniyim ve belirtilen değişkenlerden herhangi birinin belirtilen bir değere eşit olup olmadığını test etmenin kolay bir yolunu bulamıyorum. Aşağıda çalışmak gibi görünüyor, ama bunu yapmak için daha kolay bir yolu var mı?VBA <bunlardan herhangi biri> = <value>?

If variable1 = 1 Or variable2 = 1 Or variable3 = 1 Or variable4 = 1 Or variable5 = 1 Then End If 

Ayrıca aşağıdakileri denedim, şanssız.

If (variable1 Or variable2 Or variable3 Or variable4 Or variable5) = 1 Then End If 
+0

kullanabilirsiniz, şans dışında. Diziler için bir döngü yapmayı deneyebilirsiniz ... Whoops, Siddharth'ın aşağıdaki örneğini takip ediyorum. – hnk

cevap

14

değişkenler (bit twiddling hileler çalışmamasına neden olan) belirli özellikleri vardır sürece seçeneğini dava :) Ayrı öğeler için

Sub Sample() 
    Dim variable1, variable2, variable3, variable4, variable5 

    variable1 = 1: variable2 = 1: variable3 = 1: variable4 = 1: variable5 = 1 

    Select Case 1 
     Case variable1, variable2, variable3, variable4, variable5 
      MsgBox "One of them is equal to 1" 
     Case Else 
      MsgBox "none of then is equal to 1" 
    End Select 
End Sub 
+1

Bu ciddi + 1, select case yöntemini tersine çevirmeyi denemedi! – hnk

+0

Bunu daha önce hiç görmedim. Umarım günü kurtarırsa bu numarayı hatırlarım. – tbur

+0

Çok sağol Siddharth! Bu cevabı yazmak için zaman ayırdığınız için teşekkürler! –

İlgili konular