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