andalso/OrElse VBA

Question

में मैं निम्न कार्य करके मेरी एक्सेल मैक्रो में के साथ एक आलसी मूल्यांकन पाने के लिए कोशिश कर रहा हूँ 'और':

If Not myObject Is Nothing *And* myObject.test() Then 
    'do something' 
Else 
    'do something else' 
End If 

मैं जानता हूँ कि आलसी मूल्यांकन AndAlso और OrElse के रूप में VB.NET में मौजूद है लेकिन वीबीए में कुछ भी नहीं मिल सकता है। यदि वीबीए में आलसी मूल्यांकन मौजूद नहीं है, तो कोड को ढूढ़ने का सबसे अच्छा तरीका क्या है जिससे कि मैं जिस तरह से उम्मीद करूँगा उसका मूल्यांकन करेगा?

Answer 1

एकमात्र शॉर्ट सर्किटिंग (एक प्रकार का) Case अभिव्यक्ति मूल्यांकन के भीतर है, इसलिए निम्न अनजाने कथन वह करता है जो मुझे लगता है कि आप क्या पूछ रहे हैं;

Select Case True 
    Case (myObject Is Nothing), Not myObject.test() 
     MsgBox "no instance or test == false" 
    Case Else 
     MsgBox "got instance & test == true" 
    End Select 
End Sub 

Answer 2

If Not myObject Is Nothing Then 
    If myObject.test() Then 
     'do something' 
    End If 
Else 
    'do something else' 
End If 

मुझे लगता है कि आपको ऐसा करने का तरीका है।

संपादित

हो सकता है कि इस

Dim bTestsFailed as Boolean 
bTestsFailed = False 

If Not myObject Is Nothing Then 
    If myObject.test() Then 
     'do something' 
    Else 
     bTestsFailed = True 
    End If 
Else 
    bTestsFailed = True 
End If 

If bTestsFailed Then 
    'do something else 
End If 

तरह VBA महान नहीं है?

Answer 3

या आप एक ऐसा फ़ंक्शन बना सकते हैं जो आपके ऑब्जेक्ट को पैरामीटर के रूप में ले ले और किसी भी मामले के लिए बूलियन लौटाता हो। मैं आमतौर पर यही करता हूं।

अर्थात

if Proceed(objMyAwesomeObject) then 
     'do some really neat stuff here 
else 
     'do something else, eh 
end if 
... 
end sub 

private function Proceed(objMyAwesomeObject as Object) 
    if not objMyAweseomeObject is nothing then 
      Proceed = true 
    elseif objMyAwesomeObject.SomeProperty = SomeValue then 
      Proceed = true 
    else 
      Proceed = false 
    endif 
end function 

Answer 4

यह एक पुरानी सवाल है, लेकिन इस मुद्दे पर अभी भी जीवित है और अच्छी तरह से। एक वैकल्पिक हल मैं का उपयोग किया है:

Dim success As Boolean  ' False by default. 

If myObj Is Nothing Then  ' Object is nothing, success = False already, do nothing. 
ElseIf Not myObj.test() Then ' Test failed, success = False already, do nothing. 
Else: success = True   ' Object is not nothing and test passed. 
End If 

If success Then 
    ' Do stuff... 
Else 
    ' Do other stuff... 
End If 

यह मूलतः मूल प्रश्न में तर्क उलट है, लेकिन आप एक ही परिणाम मिलता है। मुझे लगता है कि यह दूसरों के मुकाबले एक क्लीनर समाधान है जो केवल If कथन का उपयोग करता है। Select कथन का उपयोग करने वाला समाधान चालाक है, लेकिन यदि आप केवल If कथन का उपयोग करके एक विकल्प चाहते हैं, तो मुझे लगता है कि यह उपयोग करने वाला एक है।

Answer 5

के बाद से निम्न सिंटैक्स काम करता है

If myObject.test() Then do something 

आप

If Not myObject Is Nothing Then If myObject.test() Then 
    'do something' 
Else 
    'do something else' 
End If 

बेशक

की कोशिश कर सकते हैं, अगर आप कुछ और करने 'अगर myObject कुछ भी नहीं है, तो यह काम नहीं कर सकता चाहते हैं।