VBA टाइमर - एक्सेल VBA टाइमर फ़ंक्शन का उपयोग करने के उदाहरण

विषय - सूची

एक्सेल VBA टाइमर समारोह

एक्सेल VBA टाइमर समारोह

VBA टाइमर एक इनबिल्ट फंक्शन है जिसका इस्तेमाल हमें कुछ सेकंड्स का फ्रैक्शनल वैल्यू देने के लिए किया जाता है। यह एक बहुत ही उपयोगी फंक्शन है जो कभी-कभी यूजर्स द्वारा दिए गए समय के आधार पर चलने वाले कोड के किसी भी सेट को पॉज करने या उन्हें फिर से शुरू करने के लिए उपयोग किया जाता है, टाइमर बस है समय के इनपुट के साथ VBA में एक बयान के रूप में उपयोग किया जाता है।

सरल शब्दों में, TIMER वर्तमान दिन की मध्यरात्रि से चलाए गए सेकंड की कुल संख्या देता है। कोड की लाइन एक से सही, हम वास्तव में हमारे कोड द्वारा खपत समय को ट्रैक कर सकते हैं ताकि उपप्रक्रिया में निर्दिष्ट प्रक्रिया को पूरा किया जा सके।

कभी-कभी जब आप एक कोड लिखते हैं और आप कोड अवधि का परीक्षण करना चाहते हैं, यानी, आपके कोड द्वारा उप-प्रक्रिया को पूरा करने में कुल कितना समय लगता है। अपने कोड द्वारा ली गई वास्तविक अवधि का परीक्षण करके, आप अपने कोड को कुशल बना सकते हैं और अपने मॉड्यूल पर अवांछित या लंबे कोड हटाकर समय लेने वाली प्रक्रिया को समाप्त कर सकते हैं।

VBA में TIMER फ़ंक्शन का उपयोग कैसे करें?

जैसा कि मैंने TIMER फ़ंक्शन रिटर्न के बारे में बताया, कुल सेकंड वर्तमान तिथि की मध्यरात्रि से अतीत में चला गया। जब मैं यह लेख लिख रहा हूं, भारत में समय 13:50:45 है।

मैंने एक मैक्रो नाम बनाया है और VBA संदेश बॉक्स में TIMER का मान असाइन किया है।

कोड:

उप टाइमर_प्रदर्शन 1 () MsgBox टाइमर अंत उप

जब मैंने इस कोड को चलाया, तो मुझे परिणाम 50480.08 के रूप में मिला।

यह कुल सेकंड है जो आज की आधी रात, यानी 12:00:00 पूर्वाह्न से अतीत में चला गया।

अतः मध्यरात्रि 12 से वर्तमान समय 14:01:20 तक, कुल 14 घंटे 1 मिनट, 20 सेकंड बीते। सेकंड में यह 50480.08 के बराबर है, जो हमारे TIMER फ़ंक्शन द्वारा दिया गया है।

उदाहरण

उदाहरण # 1 - आपके कोड द्वारा लिया गया कुल समय की गणना

अब हम प्रक्रिया को निष्पादित करने के लिए VBA द्वारा लिए गए समय का परीक्षण करने के लिए कुछ सरल कोडिंग करेंगे। मैंने कुछ कोड लिखे हैं, जैसा कि नीचे की छवि में दिखाया गया है।

कोड:

उप Do_Until_Example1 () डिम ST ST as सिंगल ST = टाइमर Dim x as लॉन्ग x = 1 Do to x = 100000 Cells (x, 1) .Value = xx = x + 1 लूप MsgBox Xer - ST End Sub उप।

अगर मैं अब इस कोड को चलाता हूं, तो यह मुझे VBA द्वारा निष्पादित करने के लिए लिया गया कुल समय दिखाएगा।

यह 3.058594 कहता है। इस फ़ंक्शन द्वारा दिया गया परिणाम सेकंड में है, अर्थात, इस कोड द्वारा लिया गया कुल समय 3.058 सेकंड है।

आपके लिए कोड का उपयोग करने के लिए, मैंने आपके लिए नीचे दिया गया कोड लिखा है।

कोड:

Sub Timer_Example1 () सिंगल स्टार्टअप टाइमिंग के रूप में Dim StartTime = टाइमर 'यहां अपना कोड दर्ज करें' अपना कोड यहां दर्ज करें 'अपना कोड यहां दर्ज करें' अपना कोड यहां दर्ज करें MsgBox टाइमर - प्रारंभ समय समाप्त

उपरोक्त का उपयोग करें और कोड StartTime = टाइमर के बाद अपना कोड टाइप करें , लेकिन कोड MsgBox टाइमर से पहले - StartTime, अर्थात, हरे क्षेत्र में, आपको अपना कोड दर्ज करना होगा।

स्पष्टीकरण: सबसे पहले, चर StartTime = टाइमर का मतलब है कि कोड को चलाने के समय आधी रात से कोड चलने के समय के बीच के समय के बराबर है।

टाइमर - स्टार्टिंग टाइम : इसका मतलब है कि कोड को चलाने के बाद, कोड को शुरुआत के समय में शुरू होने वाले समय में शून्य से घटाया गया समय ।

This will give the difference between start and end time and return the result.

Example #2 - Show the Result in the Correct Time Format

As we have seen, the result given by the function is in seconds but not in an accurate format. However, we can apply a VBA time format to the end result by using the FORMAT function.

Use the below code to see the result in the correct time format, i.e., “hh: mm: ss” format.

I have used the FORMAT function here. The result is given by (Timer - starting time). I have divided it by the number 86400 to convert it to seconds as per time format rules, then I have applied the time format in an hour, minute, and second format.

Now, if I run the code, it will give the result like this.

So, the total time taken by the code is 3 Seconds.

इस कोड की सुंदरता 60 सेकंड को पार करने का क्षण है; यह मिनटों में परिणाम दिखाएगा। मैंने अपना कोड एक मिनट के लिए (Ctrl + Break का उपयोग करके) चलाया और परिणाम देखा।