Excel में किसी सेल में बदलते मानों को कैसे रिकॉर्ड करें?
एक्सेल में बार-बार बदलते सेल के लिए हर बदलते मूल्य को कैसे रिकॉर्ड करें? उदाहरण के लिए, सेल C2 में मूल मान 100 है, संख्या 100 को 200 में बदलने पर, रिकॉर्डिंग के लिए मूल मान 100 स्वचालित रूप से सेल D2 में प्रदर्शित होगा। 200 से 300 बदलने के लिए आगे बढ़ें, संख्या 200 को सेल डी3 में डाला जाएगा, 300 से 400 बदलने पर 300 से डी4 प्रदर्शित होगा इत्यादि। इस आलेख में दी गई विधि आपको इसे हासिल करने में मदद कर सकती है।
VBA कोड वाले सेल में बदलते मान रिकॉर्ड करें
VBA कोड वाले सेल में बदलते मान रिकॉर्ड करें
नीचे दिया गया वीबीए कोड आपको एक्सेल में सेल में हर बदलते मूल्य को रिकॉर्ड करने में मदद कर सकता है। कृपया निम्नानुसार करें.
1. वर्कशीट में वह सेल है जिसमें आप बदलते मानों को रिकॉर्ड करना चाहते हैं, शीट टैब पर राइट क्लिक करें और फिर क्लिक करें कोड देखें संदर्भ मेनू से. स्क्रीनशॉट देखें:
2. फिर अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो खुल रही है, कृपया नीचे दिए गए VBA कोड को कोड विंडो में कॉपी करें।
वीबीए कोड: सेल में बदलते मूल्यों को रिकॉर्ड करें
Dim xVal As String
'Update by Extendoffice 2018/8/22
Private Sub Worksheet_Change(ByVal Target As Range)
Static xCount As Integer
Application.EnableEvents = False
If Target.Address = Range("C2").Address Then
Range("D2").Offset(xCount, 0).Value = xVal
xCount = xCount + 1
Else
If xVal <> Range("C2").Value Then
Range("D2").Offset(xCount, 0).Value = xVal
xCount = xCount + 1
End If
End If
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
xVal = Range("C2").Value
End Sub
नोट्स: कोड में, C2 वह सेल है जिसके सभी बदलते मानों को आप रिकॉर्ड करना चाहते हैं। D2 वह सेल है जिसमें आप C2 का पहला बदलता मान भरेंगे।
3। दबाएं ऑल्ट + Q बंद करने के लिए कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
अब से, हर बार जब आप सेल C2 में मान बदलते हैं, तो पिछले बदलते मान D2 और D2 के नीचे की कोशिकाओं में दर्ज किए जाएंगे।
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!