सेल बदलने पर स्वचालित रूप से दिनांक और समय कैसे रिकॉर्ड करें?
हमारे लिए स्थिर दिनांक और समय को मैन्युअल रूप से सम्मिलित करना या किसी सूत्र के साथ सिस्टम समय के साथ बदलती गतिशील दिनांक सम्मिलित करना आसान है। यदि आप मान बदलते या दर्ज करते समय स्वचालित रूप से दिनांक और समय रिकॉर्ड करना चाहते हैं, तो इस समस्या से निपटना कुछ अलग हो सकता है। लेकिन, इस लेख में, आप निम्नलिखित चरणों के साथ इस कार्य को हल कर सकते हैं।
जब सेल वीबीए कोड के साथ बदलता है तो दिनांक और समय स्वचालित रूप से रिकॉर्ड करें
जब सेल वीबीए कोड के साथ बदलता है तो दिनांक और समय स्वचालित रूप से रिकॉर्ड करें
उदाहरण के लिए, मेरे पास मानों की एक श्रृंखला है, और अब, जब मैं कॉलम बी में नए मान बदलता हूं या टाइप करता हूं, तो मैं चाहता हूं कि कॉलम सी में वर्तमान दिनांक और समय स्वचालित रूप से रिकॉर्ड हो जाए जैसा कि स्क्रीनशॉट में दिखाया गया है:
आप इस कार्य को निम्नलिखित VBA कोड से पूरा कर सकते हैं। कृपया इस प्रकार करें:
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए एप्लीकेशन विंडो के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक।
2. फिर बाईं ओर से अपनी प्रयुक्त वर्कशीट चुनें प्रोजेक्ट एक्सप्लोरर, खोलने के लिए इसे डबल क्लिक करें मॉड्यूल, और फिर निम्नलिखित VBA कोड को कॉपी करके रिक्त मॉड्यूल में पेस्ट करें:
वीबीए कोड: सेल बदलने पर दिनांक और समय स्वचालित रूप से रिकॉर्ड करें
Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140722
Dim WorkRng As Range
Dim Rng As Range
Dim xOffsetColumn As Integer
Set WorkRng = Intersect(Application.ActiveSheet.Range("B:B"), Target)
xOffsetColumn = 1
If Not WorkRng Is Nothing Then
Application.EnableEvents = False
For Each Rng In WorkRng
If Not VBA.IsEmpty(Rng.Value) Then
Rng.Offset(0, xOffsetColumn).Value = Now
Rng.Offset(0, xOffsetColumn).NumberFormat = "dd-mm-yyyy, hh:mm:ss"
Else
Rng.Offset(0, xOffsetColumn).ClearContents
End If
Next
Application.EnableEvents = True
End If
End Sub
3. फिर वर्कशीट पर लौटने के लिए इस कोड को सेव करें और बंद करें, अब जब आप सेल वैल्यू बदलते हैं या कॉलम बी में नया डेटा टाइप करते हैं, तो कॉलम सी में दिनांक और समय स्वचालित रूप से दर्ज हो जाएगा।
टिप्पणियाँ:
1. उपरोक्त कोड में, आप “संशोधित कर सकते हैं”बी:बी"किसी भी अन्य कॉलम में जिसे आप इस स्क्रिप्ट में सेल मान बदलना चाहते हैं: वर्कआरएनजी सेट करें = इंटरसेक्ट(एप्लिकेशन.एक्टिवशीट.रेंज("बी:बी"), लक्ष्य).
2. इसके साथ xOffsetColumn = 1 स्क्रिप्ट, आप अपने बदलते मूल्य कॉलम के आगे पहले कॉलम में दिनांक और समय डाल सकते हैं और अपडेट कर सकते हैं, आप नंबर 1 को अन्य नंबरों में बदल सकते हैं, जैसे 2,3,4,5... इसका मतलब है कि तारीख डाली जाएगी आपके परिवर्तित मान कॉलम के अलावा दूसरा, तीसरा, चौथा या पांचवां कॉलम।
3. जब आप बदले हुए कॉलम में कोई मान हटाते हैं, तो दिनांक और समय भी हटा दिया जाएगा।
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!