Excel में किसी सेल को कितनी बार बदला गया है इसकी गणना कैसे करें?
एक्सेल में किसी निर्दिष्ट सेल को कितनी बार बदला गया है, इसकी गणना करने के लिए इस आलेख में दिए गए वीबीए कोड मदद कर सकते हैं।
VBA कोड के साथ सेल को कितनी बार बदला गया है इसकी गणना करें
VBA कोड के साथ सेल को कितनी बार बदला गया है इसकी गणना करें
निम्नलिखित VBA कोड आपको यह गिनने में मदद कर सकते हैं कि Excel में किसी निर्दिष्ट सेल को कितनी बार बदला गया है।
1. उस वर्कशीट में जिसमें एक या अधिक सेल हैं जिसके लिए आपको कुल परिवर्तन की गणना करने की आवश्यकता है, शीट टैब पर राइट-क्लिक करें और फिर क्लिक करें कोड देखें संदर्भ मेनू से. स्क्रीनशॉट देखें:
2. उद्घाटन में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, निम्नलिखित VBA कोडों में से किसी एक को कॉपी और पेस्ट करें कोड आपकी आवश्यकताओं के अनुसार विंडो.
वीबीए कोड 1: परिवर्तनों को केवल एक सेल में ट्रैक करें
Dim xCount As Integer
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRg As Range, xCell As Range
On Error Resume Next
If Target = Range("B9") Then
xCount = xCount + 1
Range("C9").Value = xCount
End If
Application.EnableEvents = False
Set xRg = Application.Intersect(Target.Dependents, Me.Range("B9"))
If Not xRg Is Nothing Then
xCount = xCount + 1
Range("C9").Value = xCount
End If
Application.EnableEvents = True
End Sub
नोट: कोड में, B9 वह सेल है जिसकी आपको परिवर्तनों को गिनने के लिए आवश्यकता है, और C9 वह सेल है जिसकी गणना परिणाम को भरने के लिए करनी है। कृपया उन्हें आवश्यकतानुसार बदलें।
वीबीए कोड 2: एक कॉलम में एकाधिक सेल में परिवर्तन ट्रैक करें
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20220916
Dim xSRg As Range
Dim xRRg As Range
Set xSRg = Range("B9:B1000")
Set xCell = Intersect(xSRg, Target)
If xCell Is Nothing Then Exit Sub
Application.EnableEvents = False
On Error Resume Next
Set xCell = xCell.Range("A1")
Set xRRg = xCell.Offset(0, 1)
xRRg.Value = xRRg.Value + 1
Application.EnableEvents = True
End Sub
नोट: इस पंक्ति में "xRRg = xCell.Offset(0, 1) सेट करें", जो नंबर 1 शुरुआती संदर्भ के दाईं ओर ऑफसेट करने के लिए कॉलम की संख्या का प्रतिनिधित्व करता है (यहां शुरुआती संदर्भ कॉलम है B, और जो गिनती आप वापस करना चाहते हैं वह कॉलम में है C जो कॉलम बी के बगल में स्थित है)। यदि आपको कॉलम में परिणाम आउटपुट करने की आवश्यकता है S, नंबर बदलें 1 सेवा मेरे 10.
अब से, जब सेल B9 या श्रेणी B9:B1000 में कोई भी सेल बदलता है, तो परिवर्तनों की कुल संख्या सुपरइम्पोज़ हो जाएगी और स्वचालित रूप से निर्दिष्ट सेल में भर जाएगी।
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!