एक्सेल में VBA को गति दें

प्रस्तावना

यह सिर्फ इतना हुआ कि आज कई लोगों को एक्सेल में वीबीए पर काम करना (मैक्रोज़ लिखना) है। कुछ मैक्रोज़ में कोड की सैकड़ों लाइनें होती हैं जिन्हें आपको हर दिन (सप्ताह, महीने, तिमाही, और इसी तरह) निष्पादित करना होता है और, एक ही समय में, वे उचित समय लेते हैं। ऐसा लगता है कि प्रक्रिया स्वचालित है और मानव हस्तक्षेप आवश्यक नहीं है, लेकिन मैक्रो को निष्पादित करने में लगने वाला समय दसियों मिनट या कई घंटे भी ले सकता है। समय, जैसा कि वे कहते हैं, पैसा है, और इस पोस्ट में मैं आपके मैक्रो के निष्पादन समय को काफी तेज करने की कोशिश करूंगा और संभवतः, यह आपके मामलों को सकारात्मक रूप से प्रभावित करेगा, और अंततः, पैसा।

शुरू करने से पहले

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

स्थूल की गति बढ़ाई

तो, इस बिंदु पर ... एक्सेल में वास्तव में वीबीए के काम को गति देने के लिए, आपको यह समझने की आवश्यकता है कि किसी कार्यपत्रक पर सेल तक पहुंचने में बहुत समय लगता है। यदि आप एक सेल में एक मान लिखना चाहते हैं, तो इसमें अधिक समय नहीं लगेगा, लेकिन यदि आपको हजारों कोशिकाओं को लिखने (पढ़ने, उपयोग करने) की आवश्यकता है, तो इसके लिए बहुत अधिक समय की आवश्यकता होगी। ऐसे मामलों में क्या करना है? बचाव के लिए आते हैं। एरे को मेमोरी में संग्रहीत किया जाता है, और वीबीए मेमोरी में संचालन को सैकड़ों, या यहां तक ​​कि हजारों गुना तेजी से निष्पादित करता है। इसलिए, यदि आपके पास डेटा में हजारों, सैकड़ों हजारों मूल्य हैं, तो मैक्रो निष्पादन का समय कई मिनट से कई घंटों तक हो सकता है, और यदि आप इस डेटा को सरणी में स्थानांतरित करते हैं, तो मैक्रो निष्पादन कई सेकंड (मिनट) तक कम हो सकता है।

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

उदाहरण

मान लें कि हमारे पास "शीट 1" ("शीट 1") पर डेटा है। डेटा 50 कॉलम (कॉलम में नाम) और 10,000 पंक्तियों में समाहित है। उदाहरण के लिए, हमें अंतिम कॉलम में एक मान दर्ज करना होगा जो दूसरे कॉलम में मूल्य के बराबर है, तीसरे कॉलम में मूल्य से विभाजित है (दूसरी पंक्ति से शुरू, क्योंकि पहले में एक शीर्षक होता है)। फिर हम पहले 10 कॉलम लेते हैं और उन्हें “Sheet2” (“Sheet2”) पर कॉपी करते हैं, आगे की प्रक्रिया के लिए (अन्य जरूरतों के लिए)। उदाहरण को सामान्य होने दें, लेकिन, जैसा कि मुझे लगता है, यह इस पोस्ट के पूरे सार को प्रतिबिंबित कर सकता है।

'   ,    '     Option Explicit Sub Test() '      Dim Sheet1_WS, Sheet2_WS As Worksheet '      ( ) Dim i As Long ',       Dim R_data As Variant '     Dim FinalRow, FinalColumn As Long '     ,     'Set Sheet1_WS = Application.ThisWorkbook.Worksheet("Sheet1") Set Sheet1_WS = Application.ThisWorkbook.Sheets(1) Set Sheet2_WS = Application.ThisWorkbook.Sheets(2) '        ',      ,         '   ,   ,     . ,       .        . FinalRow = Sheet1_WS.Cells(Rows.Count, 1).End(xlUp).Row '=10 000 '        FinalColumn = Sheet1_WS.Cells(1, Columns.Count).End(xlToLeft).Column '=50 '      1 R_data = Sheet1_WS.Range(Sheet1_WS.Cells(1, 1), Sheet1_WS.Cells(FinalRow, FinalColumn)) For i = 2 To FinalRow '     . ',       . ',    2  3    '    If R_data(i, 3) <> 0 Then R_data(i, FinalColumn) = R_data(i, 2) / R_data(i, 3) End If Next i '      1 '      (    ,   Sheet1_WS.Cells.ClearContents) Sheet1_WS.Cells.Delete Sheet1_WS.Range(Sheet1_WS.Cells(1, 1), Sheet1_WS.Cells(FinalRow, FinalColumn)) = R_data '   2,   10 . Sheet2_WS.Range(Sheet2_WS.Cells(1, 1), Sheet2_WS.Cells(FinalRow, 10)) = R_data '     Workbooks(Application.ThisWorkbook.Name).Close SaveChanges:=True End Sub 

इस उदाहरण में, सरणी निर्दिष्ट सीमा से भरी हुई है। अगर हमारे पास स्पष्ट रूप से परिभाषित दो-आयामी सरणी है, तो इसके मूल्य को शीट पर इस तरह से कॉपी करें:

 Dim R_new() As Variant ............................................ '     ReDim R_new(1 To FinalRow, 1 To 50) As Variant ........................................... Sheet1_WS.Range(Sheet1_WS.Cells(1, 1), Sheet1_WS.Cells(FinalRow, 50)) = R_new() 

निष्कर्ष

शीट पर केवल परिणाम प्रदर्शित करते हुए, डेटा पर अधिकांश ऑपरेशन एक सरणी में किए जा सकते हैं। कभी-कभी एक शीट पर परिणाम दिखाना उचित होता है, फिर कुछ क्रियाएं (उदाहरण के लिए, छंटाई) करें और डेटा को फिर से सरणी में लोड करें।

चादरों पर डेटा, वास्तव में, इसलिए द्वि-आयामी सरणी है, क्योंकि सरणियों के कारण मैक्रो के काम में तेजी लाने के लिए यह मेरे लिए एक बड़ा आश्चर्य था। लेकिन, यह पता चला है, मेमोरी एक्सेस शीट पर कोशिकाओं की तुलना में बहुत तेज है।

भविष्य में, मैं एक शीट पर डेटा की त्वरित खोज पर सुझाव (उदाहरण) लिखने की योजना बना रहा हूं, लेकिन यह एक और पोस्ट होगा। यदि आपके पास प्रश्न, टिप्पणी है, तो कृपया लिखें।

आपका ध्यान देने के लिए धन्यवाद। सफल विकास।