एक्सेल में दो कॉलम जोड़ते समय पार्ट टेक्स्ट को बोल्ड कैसे करें?
एक्सेल वर्कशीट में, सूत्रों के साथ दो सेल मानों को संयोजित करने के बाद, आप पाएंगे कि यह संयुक्त फॉर्मूला सेल में टेक्स्ट के हिस्से को बोल्ड नहीं करेगा। यह कभी-कभी कष्टप्रद हो सकता है, एक्सेल में दो कॉलम जोड़ते समय आप टेक्स्ट के भाग को बोल्ड कैसे कर सकते हैं?
वीबीए कोड के साथ दो कॉलम जोड़ते समय बोल्ड पार्ट टेक्स्ट
वीबीए कोड के साथ दो कॉलम जोड़ते समय बोल्ड पार्ट टेक्स्ट
उदाहरण के लिए, मेरे पास दो कॉलम डेटा हैं, अब, मैं इन दोनों कॉलमों को एक कॉलम में जोड़ना चाहता हूं और दिखाए गए स्क्रीनशॉट के अनुसार पहले मान को बोल्ड प्रारूप में प्रारूपित करना चाहता हूं:
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की।
वीबीए कोड: दो कॉलमों को जोड़ते समय बोल्ड पार्ट टेक्स्ट:
Sub JoinCellsWithBoldFormatForFirstWord()
'Updateby Extendoffice 20160725
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
LInput:
Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "does not support multiple selections", vbInformation, "Kutools for Excel"
GoTo LInput
End If
If xRg.Columns.Count <> 2 Then
MsgBox "only two columns in the selection", vbInformation, "Kutools for Excel"
GoTo LInput
End If
Set xRg = xRg.Resize(xRg.Rows, 3)
On Error Resume Next
For Each xCell In xRg.Columns(3).Cells
xCell = xRg.Cells(xCell.Row, 1) & " " & xRg.Cells(xCell.Row, 2)
xCell.Font.Bold = False
xCell.Characters(1, Len(xRg.Cells(xCell.Row, 1))).Font.FontStyle = "Bold"
Next
End Sub
3। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, और एक प्रॉम्प्ट बॉक्स आपको उस डेटा रेंज का चयन करने की याद दिलाने के लिए पॉप अप होगा जिसे आप संयोजित और बोल्ड करना चाहते हैं, स्क्रीनशॉट देखें:
4। और फिर क्लिक करें OK बटन, और पंक्तियों के सभी दो शब्दों को डेटा रेंज के पास की कोशिकाओं में एक साथ जोड़ दिया गया है और पहला शब्द भी बोल्ड किया गया है, स्क्रीनशॉट देखें:
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
