यह छोटा ईवेंट मैक्रो पहली पंक्ति के अंत में नवीनतम A1 मान रखेगा :
Private Sub Worksheet_Calculate()
Dim v As Variant, N As Long
v = Range("A1").Value
Application.EnableEvents = False
If Range("B1").Value = "" Then
Range("B1").Value = v
Application.EnableEvents = True
Exit Sub
End If
N = Cells(1, Columns.Count).End(xlToLeft).Column
If Cells(1, N).Value = v Then
Application.EnableEvents = True
Exit Sub
End If
Cells(1, N + 1).Value = v
Application.EnableEvents = True
End Sub
क्योंकि यह वर्कशीट कोड है, इसे इंस्टॉल करना और उपयोग करने के लिए स्वचालित करना बहुत आसान है:
- एक्सेल विंडो के नीचे टैब नाम पर राइट-क्लिक करें
- देखें कोड चुनें - यह VBE विंडो लाता है
- सामान पेस्ट करें और VBE विंडो बंद करें
यदि आपको कोई चिंता है, तो पहले इसे परीक्षण कार्यपत्रक पर आज़माएं।
यदि आप कार्यपुस्तिका को सहेजते हैं, तो मैक्रो इसके साथ सहेजा जाएगा। यदि आप बाद में 2003 के एक्सेल के संस्करण का उपयोग कर रहे हैं, तो आपको .xlsx के बजाय .xlsm के रूप में फ़ाइल को सहेजना होगा
मैक्रो को हटाने के लिए:
- ऊपर के रूप में VBE विंडोज़ लाओ
- कोड साफ़ करें
- VBE विंडो बंद करें
सामान्य रूप से मैक्रोज़ के बारे में अधिक जानने के लिए, देखें:
http://www.mvps.org/dmcritchie/excel/getstarted.htm
तथा
http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx
इवेंट मैक्रोज़ (वर्कशीट कोड) के बारे में अधिक जानने के लिए, देखें:
http://www.mvps.org/dmcritchie/excel/event.htm
इस कार्य के लिए मैक्रोज़ को सक्षम होना चाहिए!