त्रुटि 424 ऑब्जेक्ट आवश्यक - एक्सेल, वीबीए, एक्सेल-वीबीए

कैलकुलेटर एक्सेल फ़ाइल में एक टैब है।nnoise एक ड्रॉप-डाउन सूची वाले सेल द्वारा असाइन किया गया एक मैक्रो है। ड्रॉप डाउन सूची के विकल्प 1,2,3,4 और 5. ड्रॉप-डाउन सूची के चयन के आधार पर, मैं एक और सेल को एक निश्चित मान असाइन करना चाहता हूं।

यह हमेशा आवश्यक वस्तु प्रकट होता है।

Sub nnoise()

noiseval = Calculator.Range("E15")

With Calculator

If noiseval = 1 Then
.Range("F15") = 0

ElseIf noiseval = 2 Then
.Range("F15") = 30

ElseIf noiseval = 3 Then
.Range("F15") = 50

ElseIf noiseval = 4 Then
.Range("F15") = 70

ElseIf noiseval = 5 Then
.Range("F15") = 90

End If

End With

End Sub

उत्तर:

जवाब के लिए 5 № 1

मुझे संदेह है कि noiseval पाठ के रूप में आ रहा है। आपकी प्रक्रिया से भी लाभ हो सकता है केस स्टेटमेंट का चयन करें प्रतिस्थापित करने के लिए If ... ElseIf ... End If

Sub nnoise()
Dim noiseVal As Variant

With Worksheets("Calculator")
noiseVal = .Range("E15").Value2

Select Case noiseVal
Case 1, "1"
.Range("F15") = 0
Case 2, "2"
.Range("F15") = 30
Case 3, "3"
.Range("F15") = 50
Case 4, "4"
.Range("F15") = 70
Case 5, "5"
.Range("F15") = 90
Case Else
.Range("F15") = vbNullString
End Select
End With

End Sub

तुलनात्मक मूल्यों को ढेर करके, noiseVal स्ट्रिंग और पूर्णांक मान दोनों के खिलाफ परीक्षण किया जाता है; जैसे 1 के बराबर नहीं है "1"

मैं आपके वर्कशीट संदर्भ के बारे में निश्चित नहीं हूं; मैंने आपकी कथा से यह माना है कैलकुलेटर वर्कशीट है नाम संपत्ति


संबंधित सवाल
सबसे लोकप्रिय