एक्सेल में टेक्स्ट को कैसे ढूंढें और बदलें फिर फ़ॉर्मेटिंग को कैसे सुरक्षित रखें?
मैक्रो कोड के साथ प्रिजर्व फ़ॉर्मेटिंग ढूंढें और बदलें
मैक्रो कोड के साथ प्रिजर्व फ़ॉर्मेटिंग ढूंढें और बदलें
कोई अन्य तरीका नहीं है लेकिन मैक्रो कोड आपको टेक्स्ट ढूंढने और बदलने और फ़ॉर्मेटिंग को संरक्षित करने में मदद कर सकता है।
1। दबाएँ ऑल्ट + F11 कुंजी को खोलने के लिए अनुप्रयोग के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और नीचे दिए गए कोड को स्क्रिप्ट में पेस्ट करें।
वीबीए: संरक्षित फ़ॉर्मेटिंग ढूंढें और बदलें
Sub CharactersReplace(Rng As Range, FindText As String, ReplaceText As String, Optional MatchCase As Boolean = False)
'UpdatebyExtendoffice20160711
Dim I As Long
Dim xLenFind As Long
Dim xLenRep As Long
Dim K As Long
Dim xValue As String
Dim M As Long
Dim xCell As Range
xLenFind = Len(FindText)
xLenRep = Len(ReplaceText)
If Not MatchCase Then M = 1
For Each xCell In Rng
If VarType(xCell) = vbString Then
xValue = xCell.Value
K = 0
For I = 1 To Len(xValue)
If StrComp(Mid$(xValue, I, xLenFind), FindText, M) = 0 Then
xCell.Characters(I + K, xLenFind).Insert ReplaceText
K = K + xLenRep - xLenFind
End If
Next
End If
Next
End Sub
Sub Test_CharactersReplace()
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Select a range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Call CharactersReplace(xRg, "KK", "Kutools", True)
End Sub
3। दबाएँ F5 कुंजी, खोजने और बदलने के लिए एक श्रेणी का चयन करने के लिए आपके लिए एक संवाद पॉप आउट होता है, स्क्रीनशॉट देखें:
4. ओके पर क्लिक करें, और चयनित सेल में विशिष्ट स्ट्रिंग को दूसरे से बदल दें और फ़ॉर्मेटिंग बनाए रखें।
टिप: कोड में, KK वह स्ट्रिंग है जिसे आप ढूंढना चाहते हैं, और कुटूल वह स्ट्रिंग है जिसे आप बदलना चाहते हैं, आप उन्हें आवश्यकतानुसार बदल सकते हैं।
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!