एक्सेल में केवल चयनित रेंज के बॉर्डर को कैसे कॉपी करें?
Microsoft Excel का उपयोग करते समय, पेस्ट स्पेशल फ़ंक्शन के साथ किसी श्रेणी से केवल सेल मान, सेल फ़ॉर्मेटिंग, सेल फ़ॉर्मूले इत्यादि की प्रतिलिपि बनाना आसान है। लेकिन क्या आपने कभी एक्सेल में किसी रेंज से केवल बॉर्डर स्टाइल को कॉपी करने की कोशिश की है? यह आलेख आपको एक्सेल में केवल चयनित रेंज की सीमाओं को एक नई रेंज में कॉपी करने की विधि दिखाएगा।
VBA कोड के साथ केवल चयनित श्रेणी की सीमाओं की प्रतिलिपि बनाएँ
VBA कोड के साथ केवल चयनित श्रेणी की सीमाओं की प्रतिलिपि बनाएँ
निम्नलिखित वीबीए कोड आपको केवल चयनित सेल की बॉर्डर शैली की प्रतिलिपि बनाने में मदद कर सकता है, और फिर इस बॉर्डर शैली को एक्सेल में एक नई रेंज पर लागू कर सकता है। कृपया निम्नानुसार करें.
1। दबाएं ऑल्ट + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की, क्लिक करें सम्मिलित करें > मॉड्यूल, और फिर नीचे दिए गए VBA कोड को कॉपी करके कोड विंडो में पेस्ट करें।
वीबीए कोड: एक्सेल में केवल चयनित रेंज की सीमाओं की प्रतिलिपि बनाएँ
Sub CopyBorders()
'Updated by Extendoffice 20211203
Dim xRg, yRg As Range
On Error Resume Next
Set xRg = Application.InputBox("Select Range with Borders to Copy...", "Kutools For Excel", , , , , , 8)
Set yRg = Application.InputBox("Select Cell to Apply Borders to range..", "Kutools For Excel", , , , , , 8)
With yRg.Borders(xlEdgeLeft)
.LineStyle = xRg.Borders(xlEdgeLeft).LineStyle
.ColorIndex = xRg.Borders(xlEdgeLeft).ColorIndex
.TintAndShade = xRg.Borders(xlEdgeLeft).TintAndShade
.Weight = xRg.Borders(xlEdgeLeft).Weight
End With
With yRg.Borders(xlEdgeTop)
.LineStyle = xRg.Borders(xlEdgeTop).LineStyle
.ColorIndex = xRg.Borders(xlEdgeTop).ColorIndex
.TintAndShade = xRg.Borders(xlEdgeTop).TintAndShade
.Weight = xRg.Borders(xlEdgeTop).Weight
End With
With yRg.Borders(xlEdgeBottom)
.LineStyle = xRg.Borders(xlEdgeBottom).LineStyle
.ColorIndex = xRg.Borders(xlEdgeBottom).ColorIndex
.TintAndShade = xRg.Borders(xlEdgeBottom).TintAndShade
.Weight = xRg.Borders(xlEdgeBottom).Weight
End With
With yRg.Borders(xlEdgeRight)
.LineStyle = xRg.Borders(xlEdgeRight).LineStyle
.ColorIndex = xRg.Borders(xlEdgeRight).ColorIndex
.TintAndShade = xRg.Borders(xlEdgeRight).TintAndShade
.Weight = xRg.Borders(xlEdgeRight).Weight
End With
With yRg.Borders(xlInsideHorizontal)
.LineStyle = xRg.Borders(xlInsideHorizontal).LineStyle
.ColorIndex = xRg.Borders(xlInsideHorizontal).ColorIndex
.TintAndShade = xRg.Borders(xlInsideHorizontal).TintAndShade
.Weight = xRg.Borders(xlInsideHorizontal).Weight
End With
With yRg.Borders(xlInsideVertical)
.LineStyle = xRg.Borders(xlInsideVertical).LineStyle
.ColorIndex = xRg.Borders(xlInsideVertical).ColorIndex
.TintAndShade = xRg.Borders(xlInsideVertical).TintAndShade
.Weight = xRg.Borders(xlInsideVertical).Weight
End With
End Sub
3। दबाएं F5 कोड चलाने की कुंजी. सबसे पहले पॉपिंग में एक्सेल के लिए कुटूल संवाद बॉक्स में, कृपया सीमाओं के साथ उस श्रेणी का चयन करें जिसे आपको कॉपी करना है, और फिर क्लिक करें OK बटन.
4. दूसरे में एक्सेल के लिए कुटूल संवाद बॉक्स में, कॉपी किए गए बॉर्डर को लागू करने के लिए कृपया एक सेल का चयन करें, फिर क्लिक करें OK बटन। स्क्रीनशॉट देखें:
फिर आप देख सकते हैं कि केवल चयनित रेंज की बॉर्डर शैली को कॉपी किया गया है और एक नई रेंज पर लागू किया गया है जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है।
संबंधित लेख:
- Excel में डुप्लिकेट को छोड़कर मानों को कॉपी और पेस्ट कैसे करें?
- एक्सेल में पंक्ति की ऊंचाई और कॉलम की चौड़ाई के साथ सेल डेटा की प्रतिलिपि कैसे बनाएं?
- एक्सेल में फॉर्मूला नहीं बल्कि टेक्स्ट वैल्यू के रूप में सेल को कैसे कॉपी करें?
- एक्सेल में किसी अन्य वर्कशीट की अगली खाली पंक्ति में डेटा कैसे कॉपी करें?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!