एक्सेल में टेक्स्ट बॉक्स के टेक्स्ट को सेल कंटेंट में कैसे बदलें?
यदि किसी शीट में कुछ टेक्स्ट बॉक्स हैं, और आप टेक्स्ट बॉक्स की सामग्री को अलग-अलग सेल में बदलना चाहते हैं जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है, तो क्या एक्सेल में एक-एक करके दर्ज करने के अलावा इस काम को हल करने का कोई त्वरित तरीका है? इस आलेख में, मैं इस समस्या पर आपकी सहायता करने के लिए एक मैक्रो प्रस्तुत करता हूँ।
वीबीए के साथ टेक्स्ट बॉक्स सामग्री को सेल में कनवर्ट करें
वीबीए के साथ टेक्स्ट बॉक्स सामग्री को सेल में कनवर्ट करें
मैक्रो कोड को छोड़कर, ऐसी कोई ट्रिक नहीं है जो टेक्स्ट बॉक्स को सेल सामग्री में तुरंत परिवर्तित कर सके।
1। दबाएँ ऑल्ट + F11 सक्षम करने के लिए कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और फिर नीचे दिए गए कोड को पेस्ट करें मॉड्यूल लिपियों.
वीबीए: टेक्स्ट बॉक्स को सेल में कनवर्ट करें
Sub TextboxesToCell()
'UpdatebyExtendoffice20160918
Dim xRg As Range
Dim xRow As Long
Dim xCol As Long
Dim xTxtBox As TextBox
Set xRg = Application.InputBox("Select a cell):", "Kutools for Excel", _
ActiveWindow.RangeSelection.AddressLocal, , , , , 8)
xRow = xRg.Row
xCol = xRg.Column
For Each xTxtBox In ActiveSheet.TextBoxes
Cells(xRow, xCol).Value = xTxtBox.Text
xTxtBox.Delete
xRow = xRow + 1
Next
End Sub
3। दबाएँ F5 कोड को चलाने के लिए कुंजी, टेक्स्टबॉक्स सामग्री को निर्यात करने के लिए एक सेल का चयन करने की याद दिलाने के लिए एक संवाद पॉप आउट होता है। स्क्रीनशॉट देखें:
4। क्लिक करें OK. अब सभी टेक्स्ट बॉक्स सेल सामग्री में परिवर्तित हो गए हैं।
युक्ति: उपरोक्त VBA चलने के बाद टेक्स्टबॉक्स हटा देगा, यदि आप टेक्स्टबॉक्स रखना चाहते हैं, तो कृपया कोड बदलें xTxtBox.हटाएँ सेवा मेरे 'xTxtBox.हटाएं.
एक्सेल के लिए कुटूल, से अधिक के साथ 300 सुविधाजनक कार्य, आपके कार्यों को और अधिक आसान बनाते हैं। |
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!