VBA Excel: прыклады праграм. Макрасы ў Excel

y = x1 + x1 ^ 2 + 3 * x1 ^ 3 - Cos (x1)

Cells (i, 1) .Value = x1 (значэнне x1 запісваецца ў вочка з каардынатамі (i, 1))

Cells (i, 2) .Value = y (значэнне y запісваецца ў вочка з каардынатамі (i, 2))

i = i + 1 (дзейнічае лічыльнік);

x1 = x1 + shag (аргумент змяняецца на велічыню кроку);

Loop

End Sub.

У выніку запуску дадзенага макраса ў "Эксэля" атрымліваем два слупка, у першым з якіх запісаны значэння для x, а ў другім - для y.

Затым па іх будуецца графік спосабам, стандартным для "Эксэля".

прыклад 3

Для рэалізацыі цыклаў ў VBA Excel 2010 г., як і ў іншых версіях, разам з ужо прыведзенай канструкцыяй Do While выкарыстоўваецца For.

Разгледзім праграму, якая створыць слупок. У кожнай яго вочку будуць запісаныя квадраты нумары адпаведнай радка. Выкарыстанне канструкцыі For дазволіць запісаць яе вельмі коратка, без выкарыстання лічыльніка.

Спачатку трэба стварыць макрас, як апісана вышэй. Далей запісваем сам код. Лічым, што нас цікавяць значэння для 10 вочак. Код выглядае наступным чынам.

For i = 1 to 10 Next

Каманда перакладаецца на «чалавечы» мова, як «Паўтараць ад 1 да 10 з крокам адзін».

Калі ставіцца задача атрымаць слупок з квадратамі, напрыклад, усіх няцотных лікаў з дыяпазону ад 1 да 11, то пішам:

For i = 1 to 10 step 1 Next.

Тут step - крок. У дадзеным выпадку ён роўны двум. Па змаўчанні адсутнасць гэтага слова ў цыкле азначае, што крок адзінкавы.

Атрыманыя вынікі трэба захоўваць у вочкі з нумарам (i, 1). Тады пры кожным запуску цыкла з павелічэннем i на велічыню кроку аўтаматычна будзе расці і нумар у радка. Такім чынам, адбудзецца аптымізацыя кода.

У цэлым код будзе выглядаць, як:

Sub program ()

For i = 1 To 10 Step 1 (можна запісаць проста For i = 1 To 10)

Cells (i, 1) .Value = i ^ 2 (г.зн. ў вочка (i, 1) запісваецца значэнне квадрата i)

Next (у пэўным сэнсе мае ролю лічыльніка і азначае яшчэ адзін запуск цыклу)

End Sub.

Калі ўсё зроблена правільна, у тым ліку запіс і запуск макраса (гл. Інструкцыю вышэй), то пры яго выкліку кожны раз будзе атрымлівацца слупок зададзенага памеру (у дадзеным выпадку складаецца з 10 вочак).

прыклад 4

У паўсядзённым жыцці запар і побач ўзнікае неабходнасць прыняць тое ці іншае рашэнне ў залежнасці ад якога-то ўмовы. Не абысціся без іх і ў VBA Excel. Прыклады праграм, дзе далейшы ход выканання алгарытму выбіраецца, а не наканаваны першапачаткова, часцей за ўсё выкарыстоўваюць канструкцыю If ... Then (для складаных выпадкаў) If ... Then ... END If.

Разгледзім канкрэтны выпадак. Выкажам здагадку, неабходна стварыць макрас для "Эксэля", каб у вочка з каардынатамі (1,1) было запісана:

1, калі аргумент станоўчы;

0, калі аргумент нулявы;

-1, калі аргумент адмоўны.

Стварэнне такога макраса для "Эксэля" пачынаецца стандартным спосабам, праз выкарыстанне «гарачых» клавіш Alt і F11. Далей запісваецца наступны код:

Sub program ()

x = Cells (1, 1) .Value (гэтая каманда прысвойвае x значэнне змесціва вочкі з каардынатамі (1, 1))

If x> 0 Then Cells (1, 1) .Value = 1

If x = 0 Then Cells (1, 1) .Value = 0

If x <0 Then Cells (1, 1) .Value = -1

End Sub.

Застаецца запусціць макрас і атрымаць у "Эксэля" патрэбнае значэнне для аргументу.

функцыі VBA

Як вы ўжо маглі заўважыць, праграмаваць ў самым вядомым таблічным працэсары Microsoft не так ужо складана. Асабліва, калі навучыцца прымяняць функцыi VBA. Усяго ў гэтай мове праграмавання, створаным спецыяльна для напісання прыкладанняў у "Эксэля" і Word, каля 160 функцый. Іх можна падзяліць на некалькі вялікіх груп. гэта:

• Матэматычныя функцыі. Ужыўшы іх да аргументу, атрымліваюць значэнне косінуса, натуральнага лагарыфма, цэлай часткі і пр.
• Фінансавыя функцыі. Дзякуючы іх наяўнасці і выкарыстоўваючы праграмаванне ў Excel, можна атрымліваць эфектыўныя прылады для вядзення бухгалтарскага ўліку і ажыццяўлення фінансавых разлікаў.
• Функцыі апрацоўкі масіваў. Да іх ставяцца Array, IsArray; LBound; UBound.
• Функцыі VBA Excel для радка. Гэта досыць шматлікая група. У яе ўваходзяць, напрыклад, функцыі Space для стварэння радкі з лікам прабелаў, роўных цэлалікавых аргументу, або Asc для перакладу знакаў у код ANSI. Усе яны маюць шырокае прымяненне і дазваляюць працаваць з радкамі ў "Эксэля", ствараючы прыкладання, значна палягчаюць працу з гэтымі табліцамі.
• Функцыі пераўтварэння тыпу дадзеных. Напрыклад, CVar вяртае значэнне аргументу Expression, пераўтварыўшы яго ў тып дадзеных Variant.
• Функцыі працы з датамі. Яны значна пашыраюць стандартныя магчымасці "Эксэля". Так, функцыя WeekdayName вяртае назоў (поўнае ці частковае) дня тыдня па яго нумары. Яшчэ больш карыснай з'яўляецца Timer. Ён выдае лік секунд, якія прайшлі з паўночы да канкрэтнага моманту дня.
• Функцыі для пераўтварэння лікавага аргументу ў розныя сістэмы злічэння. Напрыклад, Oct выдае ў васьмярковай прадстаўленне чысла.
• Функцыі фарматавання. Найважнейшай з іх з'яўляецца Format. Яна вяртае значэнне тыпу Variant з выразам, адфарматаваных паводле інструкцый, якія зададзены ў апісанні фармату.
• і інш.

Вывучэнне уласцівасцяў гэтых функцый і іх прымяненне дасць магчымасць значна пашырыць сферу прымянення "Эксэля".

прыклад 5

Паспрабуем перайсці да вырашэння больш складаных задач. напрыклад:

Дадзены папяровы дакумент справаздачы фактычнага ўзроўню выдаткаў прадпрыемства. патрабуецца:

• распрацаваць яго шаблён частка з дапамогай таблічнага працэсара "Эксэля";
• скласці праграму VBA, якая будзе запытваць зыходныя дадзеныя для яе запаўнення, ажыццяўляць неабходныя разлікі і запаўняць імі адпаведныя ячэйкі шаблону.

Разгледзім адзін з варыянтаў рашэння.

стварэнне шаблону

Усе дзеянні ажыццяўляюцца на стандартным аркушы ў Excel. Рэзервуюцца вольныя вочкі для ўнясення даных па месяцу, годзе, назве кампаніі-спажыўца, суме выдаткаў, іх ўзроўню, тавараабароту. Бо колькасць кампаній (таварыстваў), адносна якіх складаецца справаздачу, не зафіксавана, вочкі для ўнясення значэнняў па выніках і Прозвішча, імя спецыяліста загадзя ня рэзервуюць. Рабочаму лісту прысвойваецца новую назву. Напрыклад, "Օ тчет".

зменныя

Для напісання праграмы аўтаматычнага запаўнення шаблону, неабходна выбраць абазначэння. Яны будуць выкарыстоўвацца для зменных:

• NN- нумар бягучай радкі табліцы;
• TP і TF - плануемы і фактычны таваразварот;
• SF і SP - фактычная і планаваная сума выдаткаў;
• IP і IF - плануемы і фактычна ўзровень выдаткаў.

Абазначым тымі ж літарамі, але з «прыстаўкай» Itog назапашванне выніку па дадзеным слупка. Напрыклад, ItogTP - тычыцца слупка табліцы, пад назвай, як «плануемы таваразварот».

Рашэнне задачы з выкарыстаннем праграмавання на VBA

Выкарыстоўваючы уведзеныя абазначэння, атрымліваем формулы для адхіленняў. Калі патрабуецца ажыццявіць разлік у% маем (F - P) / P * 100, а ў суме - (F - P).

Вынікі гэтых вылічэнняў мага лепш за ўсё адразу ўнесці ў адпаведныя вочка табліцы "Эксэля".

Для вынікаў па факце і прагнозу атрымліваюць па формулах ItogP = ItogP + P і ItogF = ItogF + F.

Для адхіленняў выкарыстоўваюць = (ItogF - ItogP) / ItogP * 100, калі разлік вядзецца ў працэнтах, а ў выпадку сумарнай велічыні - (ItogF - ItogP).

Вынікі зноў жа адразу запісваюцца ў адпаведныя ячэйкі, таму няма неабходнасці іх прысвойвання пераменным.

Перад запускам створанай праграмы, патрабуецца захаваць рабочую кнігу, напрыклад, пад назвай "Отчет1.xls".

Клавішу «Стварыць справаздачную табліцу» патрабуецца націснуць ўсяго 1 раз пасля ўводу загалоўкавыя інфармацыі. Варта ведаць і іншыя правілы. У прыватнасці, кнопка «Дадаць радок» павінна націскайце кожны раз пасля ўводу ў табліцу значэнняў па кожным выглядзе дзейнасці. Пасля ўнясення ўсіх дадзеных патрабуецца націснуць кнопку «Скончыць» і затым пераключыцца ў акно "Эксэля".

Цяпер вы ведаеце, як вырашаць задачы для Excel з дапамогай макрасаў. Уменне прымяняць vba excel (прыклады праграм гл. Вышэй) можа спатрэбіцца і для працы ў асяроддзі самага папулярнага на дадзены момант тэкставага рэдактара "Ворд". У прыватнасці, можна шляхам запісы, як паказана ў самым пачатку артыкула, або праз напісанне кода ствараць кнопкі меню, дзякуючы якім многія аперацыі над тэкстам можна будзе ажыццяўляць націскам дзяжурных клавіш або праз ўкладку "Выгляд" і піктаграму "Макрасы".