एक्सेल-VBA: फार्म से मान रही नियंत्रित करता है

Question

कार्यपत्रक sheet1 में एंबेडेड मैं एक प्रपत्र नियंत्रण कॉम्बो बॉक्स combobox_test नामित है और यह है कि के अलावा मूल्य x

का चयन किया है, मैं भी एक बटन है कि जब embbeded है मैं इसे दबाता हूं, मैं चाहता हूं कि यह combobox_test का मान ले और इसे something.Rows(y) में रखें। लेकिन मैं इसे काम नहीं कर सकता और थोड़ा निराश हो रहा हूं। शायद आप मुझे सही दिशा में इंगित कर सकते हैं

Sub ButtonPressed_sample() 
    Dim value As String 

    Set putItRng = Range("theCells")   
    putItRng.Rows(1) = ActiveSheet.Shapes("combobox_test").Value   
End Sub 

कोई सलाह? वीबीए में एक पूर्ण शुरुआत करने वाला हूं, इसलिए कृपया जितना विस्तृत हो सके उतना विस्तृत हो। धन्यवाद

Answer 1

नाम पर है नहीं मुझे यकीन है कि यह तुम क्या चाहते है नहीं कर रहा हूँ, लेकिन यह एक शुरुआत है। आकार ऑब्जेक्ट में वैल्यू प्रॉपर्टी नहीं है, जो त्रुटि का स्रोत है। एक ड्रॉपडाउन ऑब्जेक्ट है जिसे बहिष्कृत किया गया है, लेकिन अभी भी उपलब्ध है।

Sub ButtonPressed_sample() 

    Set putitrng = Range("theCells") 
    putitrng.Rows(1) = ActiveSheet.DropDowns("combobox_test").value 

End Sub 

Answer 2

putItRng.Rows(1)= ActiveSheet.combobox_test.value 

प्रयास करें:

activesheet.cells(1,putItRng.column).value=activesheet.combobox_test.value 

यह तो काम does not यदि आपका बता गया "Combobox_test"

Answer 3

Sub QuickSelect_Change() 
     With ActiveSheet.Shapes("QuickBox") 
      MsgBox "My Selected Value " & .ControlFormat.List(.ControlFormat.ListIndex) 
     End With 
    End Sub 

Answer 4

ActiveSheet.Shapes("combobox_test").ControlFormat.ListIndex