У наставку ћемо погледати програм у Екцел ВБА то дели део новца на новчанице и кованице.
Ситуација:
Направите догађај промене радног листа. Код додан догађају промене радног листа извршиће Екцел ВБА када промените ћелију на радном листу.
1. Отворите Висуал Басиц Едитор.
2. Двапут кликните на Схеет1 (Схеет1) у Пројецт Екплореру.
3. Одаберите Радни лист са леве падајуће листе. Одаберите Промени са десне падајуће листе.
Додајте следеће линије кода у Догађај промене радног листа:
4. Прогласите променљиву која се зове количина типа Доубле и променљиву и типа Интегер.
Пригуши износ као двоструко, и као цео број
5. Догађај промене радног листа слуша све промене на листу 1. Желимо само да Екцел ВБА учини нешто ако се нешто промени у ћелији Б2. Да бисте то постигли, додајте следећу линију кода:
Ако је Таргет.Аддресс = "$ Б $ 2" Затим
6. Променљиву количину иницијализујемо вредношћу ћелије Б2.
износ = Опсег ("Б2"). Вредност
7. Испразњавамо опсег фреквенцијама.
Опсег ("Б5: Б16"). Вредност = ""
8. Сада је време да поделите унети износ новца. Покрећемо петљу Фор Нект.
За и = 5 до 16
9. Користићемо структуру До Вхиле Лооп. Код постављен између ових речи ће се понављати све док је део иза До Вхиле тачан. Желимо да Екцел ВБА понови кодне редове у кораку 10 све док је износ већи или једнак ћелијама (и, 1). Вредност.
Учинити Док је износ> = Ћелије (и, 1) .Вредност
Лооп
10. Додајте следеће редове кода у петљу Уради док.
Ћелије (и, 2) .Вредност = Ћелије (и, 2) .Вредност + 1
износ = износ - Ћелије (и, 1) .Вредност
Објашњење: све док је износ већи или једнак ћелијама (и, 1) .вриједност, износ садржи новчанице/кованице ове вриједности. Као резултат тога, Екцел ВБА повећава учесталост овог рачуна/новчића (први ред) и одузима вредност рачуна/новчића од износа (други ред). Овај процес ће се понављати све док количина не постане мања од ћелија (и, 1). Затим Екцел ВБА повећава и и прелази на следећи рачун/новчић да види колико се пута овај рачун/новчић уклапа у преостали износ. На овај начин ће се износ новца подијелити на новчанице и кованице све док више не остане новца за подјелу.
11. Затворите петљу Фор Нект и не заборавите да затворите иф наредбу (оба изван петље До Вхиле).
Затим сам
Заврши ако
12. Тестирајте програм.
Резултат:
Напомена: наравно да унети износ не садржи нужно сваку новчаницу/новчић. Ако износ не садржи одређену новчаницу/новчић, део после До док никада не постане тачан за ову новчаницу/новчић и Екцел ВБА прелази директно на следећи рачун/новчић.
