Excel में एकाधिक कक्षों में तुरंत एक टिप्पणी कैसे सम्मिलित करें?
वर्कशीट में, एक सेल में एक टिप्पणी डालना बहुत आसान है, लेकिन जब आप एक ही टिप्पणी को एक ही समय में कई सेल में डालना चाहते हैं, तो आप ऐसा कैसे कर सकते हैं?
पेस्ट स्पेशल फीचर के साथ कई सेल में एक टिप्पणी डालें
VBA कोड के साथ एकाधिक कक्षों में एक टिप्पणी डालें
पेस्ट स्पेशल फीचर के साथ कई सेल में एक टिप्पणी डालें
एक्सेल में, एक ही समय में एकाधिक टिप्पणियाँ सम्मिलित करने का कोई तरीका नहीं है। हालाँकि, आप किसी टिप्पणी को निम्नानुसार अनेक कक्षों में कॉपी कर सकते हैं:
1. अपनी टिप्पणी एक सेल में डालें.
2. टिप्पणी सेल का चयन करें और दबाएँ कंट्रोल + C इसे कॉपी करने के लिए चाबी
3. फिर उस श्रेणी का चयन करें और राइट क्लिक करें जिसे आप बैच में टिप्पणी सम्मिलित करना चाहते हैं, चुनें चिपकाने > चिपकाने राइट-क्लिक मेनू से. स्क्रीनशॉट देखें:
4। में चिपकाने संवाद बॉक्स में, चेक करें टिप्पणियाँ विकल्प, और फिर क्लिक करें OK बटन। स्क्रीनशॉट देखें:
फिर सभी चयनित सेल में तुरंत वही टिप्पणियाँ डाली जाती हैं।
नोट: यह विधि सभी चयनित कक्षों में समान टिप्पणियाँ सम्मिलित करेगी। यदि आप केवल फ़िल्टर की गई सूची के दृश्यमान कक्षों में समान टिप्पणियाँ सम्मिलित करना चाहते हैं, तो कृपया नीचे दी गई VBA विधि आज़माएँ।
VBA कोड के साथ एकाधिक कक्षों में एक टिप्पणी डालें
मान लीजिए कि आपके पास एक फ़िल्टर की गई सूची है जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है। और आप बस सभी दृश्यमान कक्षों में टिप्पणियाँ जोड़ना चाहते हैं। कृपया निम्नानुसार करें.
1। दबाएं ऑल्ट + F11 कुंजियाँ एक साथ खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। में अनुप्रयोगों के लिए मोक्रोसॉफ्ट विज़ुअल बेसिक विंडो, कृपया क्लिक करें सम्मिलित करें > मॉड्यूल, और मॉड्यूल में निम्नलिखित कोड इनपुट करें:
वीबीए: निष्क्रिय टिप्पणियों को कई कोशिकाओं में बैचें (केवल फ़िल्टर की गई सूची में दिखाई देने वाली कोशिकाएं)
Sub InsertCommentsSelection()
Dim xRg As Range
Dim xRgEach As Range
Dim xAddress As String
Dim xText As String
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select a range:", "Kutools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Count > 1 Then
Set xRg = xRg.SpecialCells(xlCellTypeVisible)
End If
xRg.Select
xText = InputBox("Enter Comment to Add" & vbCrLf & "Comment will be added to all cells in Selection: ", "Kutools For Excel")
If xText = "" Then
MsgBox "No comment added", vbInformation, "Kutools For Excel"
Exit Sub
End If
For Each xRgEach In xRg
With xRgEach
.ClearComments
.AddComment
.Comment.Text Text:=xText
End With
Next xRgEach
End Sub
3। दबाएं F5 कोड चलाने की कुंजी. सबसे पहले पॉपिंग में एक्सेल के लिए कुटूल संवाद बॉक्स में, कृपया उस फ़िल्टर की गई श्रेणी का चयन करें जिसमें आप टिप्पणियाँ जोड़ना चाहते हैं, और फिर क्लिक करें OK बटन। स्क्रीनशॉट देखें:
4. फिर दूसरा एक्सेल के लिए कुटूल संवाद बॉक्स पॉप अप होता है, कृपया टेक्स्ट बॉक्स में अपनी टिप्पणी दर्ज करें और फिर क्लिक करें OK बटन.
अब टिप्पणियाँ केवल चयनित फ़िल्टर की गई सूची में सभी दृश्यमान कक्षों में डाली जाती हैं जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है:
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!