/ / एक्सेल वीबीए स्टेटसबार संपत्ति

एक्सेल वीबीए स्टेटसबार संपत्ति

The स्थिति गुण में अनुप्रयोग ऑब्जेक्ट की एक्सेल VBA किसी लंबा मैक्रो की प्रगति इंगित करने के लिए उपयोग किया जा सकता है ।इस तरह, आप उपयोगकर्ता को यह बताने दे सकते है कि मैक्रो अभी भी चल रहा है ।

परिस्थिति:

मैक्रो हम बनाने के लिए जा रहे है ("A1: E20") यादृच्छिक संख्या के साथ रेंज भरता है ।

Excel VBA स्थिति गुण उदाहरण

कमांड बटन पर निम्न कोड लाइन जोड़ें:

1. सबसे पहले, हम प्रकार के तीन चर घोषित पूर्णांक, नाम मैं, जंमू और pctCompl ।

Dim i As Integer, j As Integer, pctCompl As Integer

2. एक डबल लूप जोड़ें ।

For i = 1 To 20
    For j = 1 To 5

    Next j
Next i

लूप करने के लिए (3, 4 और 5) में निम्न कोड पंक्तियाँ जोड़ें ।

3.20 और १०० के बीच एक यादृच्छिक संख्या आयात करने के लिए RandBetween फ़ंक्शन का उपयोग करें ।

Cells(i, j).Value = WorksheetFunction.RandBetween(20, 100)

4. प्रारंभ चर pctCompl. दूसरी कोड पंक्ति चर pctCompl का मान और स्थिति पट्टी में कुछ वर्णनात्मक पाठ लिखता है ।

pctCompl = (i - 1) * 5 + (j * 1)
Application.StatusBar = "Importing Data.. " & pctCompl & "% Completed"

उदाहरण: के लिए मैं = 3, जंमू = 1, (3-1) * 5 (1 * 1) = 11% पूरा किया गया है ।

5. हम एक लंबा मैक्रो अनुकरण करने के लिए अनुप्रयोग ऑब्जेक्ट की प्रतीक्षा विधि का उपयोग करें ।

Application.Wait Now + TimeValue("00:00:01")

6.To स्थिति पट्टी पाठ पुनर्स्थापित करें, सेट स्थिति गुण False करने के लिए (लूप के बाहर) ।

Application.StatusBar = False

जब आप पत्रक पर आदेश बटन क्लिक करते हैं, तो परिणाम:

Excel VBA प्रस्थिति गुण परिणाम

नोट: आप Esc या Ctrl Break दबाकर किसी भी समय किसी मैक्रो को बाधित कर सकते हैं ।एक और अधिक दृश्य दृष्टिकोण के लिए, हमारे प्रगति संकेतक कार्यक्रम देखें ।

यह भी पढ़ें: