मैं अपने संदेश बॉक्स को क्रिया में चलाना चाहता हूं अर्थात्, मैं "हां" पर क्लिक करने के बाद 2 चीजों को हटाना चाहता हूं।

मुझे यहां कुछ समाधान मिले:

एमएसजीबॉक्स हां/नहीं एक्सेल वीबीए

एक्सेल VBA vbYesNo MsgBox

और कुछ काम करने की कोशिश की। मेरा कोड इस तरह दिखता है:

   Case "Remove"

        MsgBox "Do you want to remove all firestopping elements with their values?", 
        vbQuestion + vbYesNo
        If MsgBox(Question) = vbYes Then
        Sheets("hilti firestopping stores").Range("E5:E17").ClearContents
        Call ActiveShapes

        End If

...

   Sub Firestopshapes()
   Dim shp As Shape
   Dim Ws As Worksheet

   Set Ws = ActiveSheet
   For Each shp In Ws.Shapes
    If shp.Name = "Firestop" Then
        shp.Delete
    End If
  Next shp
 End Sub

परिणाम नीचे दिखाया गया है:

यहां छवि विवरण दर्ज करें मैंने If MsgBox(Question) = vbYes Then को If ans = vbYes Then से भी बदल दिया लेकिन मुझे इसके बजाय एक त्रुटि मिल रही है।

क्या यह इस संदेश बॉक्स को चलाने का कोई तरीका है?

0
MKR 27 फरवरी 2020, 17:38

1 उत्तर

शायद यह अधिक स्पष्ट है:

Dim ans as VbMsgBoxResult
ans = MsgBox("Do you want to remove all firestopping elements with their values?", _
    vbQuestion + vbYesNo)

If ans = vbYes Then
     ...
End If
3
BigBen 27 फरवरी 2020, 17:41
सीधा और सरल
 – 
Siddharth Rout
27 फरवरी 2020, 17:51