एक्सेल में आसन्न सेल अपडेट होने पर सेल में दिनांक को स्वचालित रूप से कैसे पॉप्युलेट करें?
कभी-कभी, किसी निश्चित कॉलम में किसी सेल को अपडेट करते समय, आप अपडेट करने की नवीनतम तारीख को चिह्नित करना चाह सकते हैं। यह आलेख इस समस्या को हल करने के लिए एक VBA विधि की अनुशंसा करेगा. जब सेल अपडेट किया जाता है, तो निकटवर्ती सेल तुरंत वर्तमान दिनांक के साथ स्वचालित रूप से पॉप्युलेट हो जाएगा।
जब आसन्न सेल को वीबीए कोड के साथ अपडेट किया जाता है, तो सेल में वर्तमान तिथि स्वतः भर जाती है
जब आसन्न सेल को वीबीए कोड के साथ अपडेट किया जाता है, तो सेल में वर्तमान तिथि स्वतः भर जाती है
मान लीजिए कि आपको जिस डेटा को अपडेट करने की आवश्यकता है वह कॉलम बी में स्थित है, और जब कॉलम बी में सेल अपडेट किया जाता है, तो वर्तमान तिथि कॉलम ए के आसन्न सेल में पॉप्युलेट हो जाएगी। स्क्रीनशॉट देखें:
इस समस्या को हल करने के लिए आप निम्नलिखित VBA कोड चला सकते हैं।
1. आसन्न अद्यतन सेल के आधार पर दिनांक को स्वचालित रूप से भरने के लिए आपको जिस शीट टैब की आवश्यकता है उस पर राइट क्लिक करें और फिर क्लिक करें कोड देखें राइट-क्लिक मेनू से।
2. एप्लिकेशन विंडो के लिए Microsoft Visual Basic में, कृपया नीचे दिए गए VBA कोड को कॉपी करें और कोड विंडो में पेस्ट करें।
वीबीए कोड: जब आसन्न सेल अपडेट किया जाता है तो सेल में वर्तमान तिथि स्वतः भर जाती है
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Updated by Extendoffice 2017/10/12
Dim xRg As Range, xCell As Range
On Error Resume Next
If (Target.Count = 1) Then
If (Not Application.Intersect(Target, Me.Range("B:B")) Is Nothing) Then _
Target.Offset(0, -1) = Date
Application.EnableEvents = False
Set xRg = Application.Intersect(Target.Dependents, Me.Range("B:B"))
If (Not xRg Is Nothing) Then
For Each xCell In xRg
xCell.Offset(0, -1) = Date
Next
End If
Application.EnableEvents = True
End If
End Sub
नोट्स:
3। दबाएँ ऑल्ट + Q बंद करने के लिए एक ही समय में कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
अब से, कॉलम बी में सेल अपडेट करते समय, कॉलम ए में आसन्न सेल तुरंत वर्तमान तिथि से भर जाएगा। स्क्रीनशॉट देखें:
संबंधित आलेख:
- एक्सेल ड्रॉप डाउन सूची में मानों का चयन करते समय अन्य कोशिकाओं को स्वचालित रूप से कैसे पॉप्युलेट करें?
- एक्सेल ड्रॉप डाउन सूची में टाइप करते समय स्वतः पूर्ण कैसे करें?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!