मुख्य सामग्री पर जाएं

Excel में कॉम्बो बॉक्स मान को सक्रिय सेल में कैसे कॉपी करें?

लेखक: सिलुविया अंतिम संशोधित: 2020-07-02

कुछ मामलों में, आपको कॉम्बो बॉक्स से चयनित मान को सक्रिय सेल में कॉपी करने की आवश्यकता हो सकती है। आम तौर पर, आपको कॉम्बो बॉक्स में जाकर उसे कॉपी करके सक्रिय सेल में मैन्युअल रूप से पेस्ट करना होगा। यह आलेख कॉम्बो बॉक्स में मानों का चयन करते समय सक्रिय सेल को स्वचालित रूप से अपडेट करने की एक सुविधाजनक विधि का परिचय देता है।

कॉम्बो बॉक्स मान को VBA कोड के साथ सक्रिय सेल में कॉपी करें

वीबीए 1: कॉम्बो बॉक्स मान को कमांड के माध्यम से सक्रिय सेल में कॉपी करें
वीबीए 2: कॉम्बो बॉक्स मान को सक्रिय सेल में ऑटो कॉपी करें


कॉम्बो बॉक्स मान को VBA कोड के साथ सक्रिय सेल में कॉपी करें

नीचे दिए गए VBA कोड आपको कॉम्बो बॉक्स मान को सक्रिय सेल में स्वचालित रूप से कॉपी करने में मदद कर सकते हैं। कृपया निम्नानुसार करें.

वीबीए 1: कमांड बटन के माध्यम से कॉम्बो बॉक्स मान को सक्रिय सेल में कॉपी करें

1. सबसे पहले, आपको नीचे स्क्रीनशॉट में दिखाए अनुसार वर्कशीट में एक कमांड बटन डालना होगा।

2. कमांड बटन पर राइट क्लिक करें, फिर क्लिक करें कोड देखें राइट-क्लिक मेनू से. स्क्रीनशॉट देखें:

3. पॉप अप में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, कोड विंडो में मूल कोड को नीचे दिए गए VBA कोड से बदलें।

वीबीए कोड: कॉम्बो बॉक्स मान को सक्रिय सेल में कॉपी करें

Private Sub CommandButton1_Click()
   ActiveCell.Value = Me.ComboBox1.Text
End Sub

नोट: कोड में, CommandButton1 सम्मिलित कमांड बटन का नाम है, और ComboBox1 उस कॉम्बो बॉक्स का नाम है जिससे आप मूल्य कॉपी करेंगे। कृपया उन्हें आवश्यकतानुसार बदलें।

4। दबाएं ऑल्ट + Q बंद करने के लिए कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

अब से, जब आपको कॉम्बो बॉक्स मान को सक्रिय सेल में कॉपी करने की आवश्यकता हो, तो कृपया केवल सेल का चयन करें, फिर इसे पूरा करने के लिए कमांड बटन पर क्लिक करें।

वीबीए 2: कॉम्बो बॉक्स मान को सक्रिय सेल में ऑटो कॉपी करें

नीचे दिया गया VBA कोड आपको कॉम्बो बॉक्स में मानों का चयन करते समय सक्रिय सेल को स्वचालित रूप से अपडेट करने में मदद कर सकता है। आप इस प्रकार कर सकते हैं.

1। सुनिश्चित करें कि डिजाइन मोड के अंतर्गत चालू है डेवलपर टैब.

2. जिस कॉम्बो बॉक्स से आप वैल्यू कॉपी करेंगे उस पर राइट क्लिक करें, फिर क्लिक करें कोड देखें राइट-क्लिक मेनू से. स्क्रीनशॉट देखें:

3. पॉप अप में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो में मूल कोड बदलें कोड नीचे दिए गए VBA कोड वाली विंडो।

वीबीए कोड: कॉम्बो बॉक्स मान को सक्रिय सेल में कॉपी करें

Private Sub ComboBox1_Change()
  ActiveCell.Value = Me.ComboBox1.Value
End Sub

नोट: कोड में, ComboBox1 उस कॉम्बो बॉक्स का नाम है जिससे आप मूल्य कॉपी करेंगे।

4। दबाएं ऑल्ट + Q एप्लिकेशन विंडो के लिए Microsoft Visual Basic को बंद करने के लिए कुंजियाँ, और डेवलपर टैब के अंतर्गत डिज़ाइन मोड को बंद करें।

अब से, कॉम्बो बॉक्स से मूल्य का चयन करते समय, यह चयनित रिकॉर्ड स्वचालित रूप से सक्रिय सेल में प्रदर्शित होगा।


संबंधित लेख:

सर्वोत्तम कार्यालय उत्पादकता उपकरण

🤖 कुटूल्स एआई सहयोगी: निम्न के आधार पर डेटा विश्लेषण में क्रांति लाएं: बुद्धिमान निष्पादन   |  कोड जनरेट करें  |  कस्टम फ़ॉर्मूले बनाएं  |  डेटा का विश्लेषण करें और चार्ट बनाएं  |  कुटूल फ़ंक्शंस का आह्वान करें...
लोकप्रिय सुविधाएँ: डुप्लिकेट ढूंढें, हाइलाइट करें या पहचानें   |  रिक्त पंक्तियाँ हटाएँ   |  डेटा खोए बिना कॉलम या सेल को संयोजित करें   |   फॉर्मूला के बिना गोल ...
सुपर लुकअप: एकाधिक मानदंड VLookup    मल्टीपल वैल्यू वीलुकअप  |   अनेक शीटों में VLookup   |   फजी लुकअप ....
उन्नत ड्रॉप-डाउन सूची: शीघ्रता से ड्रॉप डाउन सूची बनाएं   |  आश्रित ड्रॉप डाउन सूची   |  बहु-चयन ड्रॉप डाउन सूची ....
स्तम्भ प्रबंधक: कॉलमों की एक विशिष्ट संख्या जोड़ें  |  कॉलम ले जाएँ  |  छिपे हुए कॉलम की दृश्यता स्थिति टॉगल करें  |  रेंज और कॉलम की तुलना करें ...
फीचर्ड फीचर्स: ग्रिड फोकस   |  डिजाइन देखें   |   बड़ा फॉर्मूला बार    कार्यपुस्तिका एवं शीट प्रबंधक   |  संसाधन लाइब्रेरी (ऑटो टेक्स्ट)   |  खजूर बीनने वाला   |  कार्यपत्रकों को संयोजित करें   |  एन्क्रिप्ट/डिक्रिप्ट सेल    सूची के अनुसार ईमेल भेजें   |  सुपर फ़िल्टर   |   विशेष फ़िल्टर (फ़िल्टर बोल्ड/इटैलिक/स्ट्राइकथ्रू...) ...
शीर्ष 15 टूलसेट12 टेक्स्ट टूल्स (पाठ जोड़ें, अक्षर हटाएँ, ...)   |   50 + चार्ट प्रकार (गैन्ट चार्ट, ...)   |   40+ प्रैक्टिकल सूत्र (जन्मदिन के आधार पर आयु की गणना करें, ...)   |   19 निवेशन टूल्स (QR कोड डालें, पथ से चित्र सम्मिलित करें, ...)   |   12 रूपांतरण टूल्स (शब्दों को संख्याएँ, मुद्रा रूपांतरण, ...)   |   7 विलय और विभाजन टूल्स (उन्नत संयोजन पंक्तियाँ, विभाजन कोशिकाओं, ...)   |   ... और अधिक

एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है।  वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...

Description


ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Kalau sel aktifnya ditentuka, seperti misalnya D7, bagaimana code nya?
Terima Kasih
This comment was minimized by the moderator on the site
maksud saya, code vba berikut, untuk cel aktif yang randomKode VBA: Salin nilai Combo Box ke sel aktif
Private Sub ComboBox1_Change()
ActiveCell.Value = Me.ComboBox1.Value
End Sub

kalau cel aktifnya ingin di tentukan misalnya text dari combo box tersebut ingin berada di cell D7, bagaimana merubah code vba nyaterima kasih
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations