{"id":564,"date":"2011-02-11T09:45:54","date_gmt":"2011-02-11T08:45:54","guid":{"rendered":"http:\/\/www.matjazev.net\/blog\/?p=564"},"modified":"2011-02-11T09:47:42","modified_gmt":"2011-02-11T08:47:42","slug":"scitenje-resursov-v-vba-iii","status":"publish","type":"post","link":"https:\/\/www.matjazev.net\/blog\/2011\/02\/11\/scitenje-resursov-v-vba-iii\/","title":{"rendered":"\u0160\u010ditenje resursov v VBA III"},"content":{"rendered":"

V prej\u0161njem prispevku<\/a> sem prikazal kako idejo o \u0161\u010ditenju realizirati v praksi, danes pa podajam \u0161e prvi konkretni primer, ki bo prikazal resni\u010dno uporabnost.<\/strong><\/p>\n

Hitrej\u0161e izvajanje makrov<\/h2>\n

Za hitrej\u0161e izvajanje makrov v Excelu je priporo\u010dljivo ustaviti prera\u010dunavanje<\/strong>, saj sicer Excel ob vsaki spremembi, ki bi vplivala na druge celice vse tiste celice prera\u010dunava in \u010de to ponovimo 1000x se prera\u010dunavanje izvede 1000x!<\/p>\n

Dobro je tudi prepre\u010diti nepotrebno osve\u017eevanje ekrana<\/strong>, saj sicer uporabniku zaslon nenehno utripa in okna ter podatki ska\u010dejo sem ter tja.<\/p>\n

Nenazadnje pa je dobro (\u010de jih ne potrebujemo) izklju\u010diti tudi odzive na dogodke<\/strong>.<\/p>\n

Vse skupaj lahko torej strnemo v slede\u010do kodo:<\/p>\n

\nWith Application\n    .Calculation = xlCalculationManual  ' prepre\u010dimo prera\u010dunavanje\n    .ScreenUpdating = False    ' ne osve\u017eujemo ekrana\n    .EnableEvents = False  ' ugasnemo dogodke\nEnd With\n<\/pre>
\nSeveda pa je potrebno ob koncu makra vse to postaviti nazaj<\/strong>:<\/p>\n
\nSub VelikMakro()\n  ' zamrznemo\n  With Application\n    .Calculation = xlCalculationManual\n    .ScreenUpdating = False\n    .EnableEvents = False\n  End With\n\n  ' tu vmes je veliko kode\n\n  ' vzpostavimo nazaj\n  With Application\n    .Calculation = xlCalculationAutomatic\n    .ScreenUpdating = True\n    .EnableEvents = True\n  End With\nEnd Sub\n<\/pre><\/p>\n
Test<\/h2>\n
A da bo stvar bolj zanimiva, izvedimo majhen test<\/strong>. Poglejmo kako dolgo se bo izvajal slede\u010d makro:<\/p>\n
\nSub TestnaFunkcija()\n  Range("A1").Formula = "=cos(A2)*tan(A2)\/sin(a3)"\n  Range("A2").Formula = "=1\/A3"\n\n  Dim i As Long\n  For i = 1 To 100000\n    Range("A3") = i\n  Next\nEnd Sub\n\nSub KlicTestneFunkcije()\n  TestnaFunkcija\nEnd Sub\n\nSub IzvediTest()\n  Dim cas: cas = Now\n    KlicTestneFunkcije\n  MsgBox "Trajanje (v sec): "; ((Now - cas) * 24 * 60 * 60)\nEnd Sub\n<\/pre><\/p>\n
\u010ce izvedem makro IzvediTest<\/strong>, se na testnem ra\u010dunalniku izvaja 19 sekund<\/span><\/strong>.<\/p>\n
Objekt, ki bo vzpostavil stanje<\/h2>\n
Napi\u0161imo torej objekt, ki bo ob inicializaciji \u00bbzamrznil\u00ab Excel in ga ob koncu makra vzpostavil nazaj<\/strong>:<\/p>\n
\nOption Explicit\n\nPrivate Sub Class_Initialize()\n  With Application\n    .Calculation = xlCalculationManual\n    .ScreenUpdating = False\n    .EnableEvents = False\n  End With\nEnd Sub\n\nPrivate Sub Class_Terminate()\n  With Application\n    .Calculation = xlCalculationAutomatic\n    .ScreenUpdating = True\n    .EnableEvents = True\n  End With\nEnd Sub\n<\/pre><\/p>\n
Poimenujmo ga clsZamrzni<\/strong>.<\/p>\n
Nov test<\/h2>\n
Popravimo sedaj funkcijo tako, da uporabimo pridobljeno znanje. Uporabimo torej objekt. Popravimo testni klic:
\n
\nSub KlicTestneFunkcije()\n  Dim zamrzni As clsZamrzni\n\n  Set zamrzni = New clsZamrzni\n  TestnaFunkcija\nEnd Sub\n<\/pre><\/p>\n
\u010ce sedaj na mojem testnem ra\u010dunalniku izvedem funkcijo IzvediTest<\/strong>, se slednja izvede v manj kot sekundi<\/strong><\/span>\u2026 \ud83d\ude09<\/p>\n","protected":false},"excerpt":{"rendered":"
V prej\u0161njem prispevku sem prikazal kako idejo o \u0161\u010ditenju realizirati v praksi, danes pa podajam \u0161e prvi konkretni primer, ki bo prikazal resni\u010dno uporabnost. Hitrej\u0161e izvajanje makrov Za hitrej\u0161e izvajanje makrov v Excelu je priporo\u010dljivo ustaviti prera\u010dunavanje, saj sicer Excel ob vsaki spremembi, ki bi vplivala na druge celice vse tiste celice prera\u010dunava in \u010de … Continue reading \u0160\u010ditenje resursov v VBA III<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[3,35,34],"tags":[40,39,41,66,65,38],"_links":{"self":[{"href":"https:\/\/www.matjazev.net\/blog\/wp-json\/wp\/v2\/posts\/564"}],"collection":[{"href":"https:\/\/www.matjazev.net\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.matjazev.net\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.matjazev.net\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.matjazev.net\/blog\/wp-json\/wp\/v2\/comments?post=564"}],"version-history":[{"count":16,"href":"https:\/\/www.matjazev.net\/blog\/wp-json\/wp\/v2\/posts\/564\/revisions"}],"predecessor-version":[{"id":580,"href":"https:\/\/www.matjazev.net\/blog\/wp-json\/wp\/v2\/posts\/564\/revisions\/580"}],"wp:attachment":[{"href":"https:\/\/www.matjazev.net\/blog\/wp-json\/wp\/v2\/media?parent=564"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.matjazev.net\/blog\/wp-json\/wp\/v2\/categories?post=564"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.matjazev.net\/blog\/wp-json\/wp\/v2\/tags?post=564"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}