/ / Просек кретања у Екцелу ВБА

Просек кретања у Екцелу ВБА

У наставку ћемо погледати програм Екцел ВБА што ствара а просечна таблица. Поставите командно дугме на свој радни лист и додајте следећу линију кода:

Range("B3").Value = WorksheetFunction.RandBetween(0, 100)

Ова линија кода улази у случајни број између 0и 100 у ћелију Б3. Желимо да Екцел ВБА преузме нову вредност залиха и постави је на прву позицију просечне таблице. Све остале вриједности требају се помјерити на једно мјесто и задња вриједност би требало избрисати.

Роллинг Просјечна табела у Екцелу ВБА

Роллинг Просјечна табела у Екцелу ВБА

Креирајте догађај за промјену радног листа. Код који је додат на радни лист Цханге Евент ће извршити Екцел ВБА када промените ћелију на радном листу.

1. Отворите Висуал Басиц Едитор.

2. Двапут кликните на Схеет1 (Схеет1) у Пројецт Екплорер-у.

3. Изаберите Радни лист са леве падајуће листе. Изаберите Промени са десне падајуће листе.

Радни лист Промените догађај у Екцелу ВБА

Додајте следеће линије кода у догађаје Промени радни лист:

4. Декларишемо променљиву која се назива нова вриједност типа Интегер и два опсега (првобитне вриједности и ластне вриједности).

Dim newvalue As Integer, firstfourvalues As Range, lastfourvalues As Range

5. Догађај промени радни лист слуша све промјене на листу1. Ми само желимо да Екцел ВБА уради нешто ако нешто промени у ћелији Б3. Да бисте то постигли, додајте следећу линију кода:

If Target.Address = "$B$3" Then

6. Иницијализирамо ново вриједност вриједношћу ћелије Б3, прве вриједности са опсегом ("Д3: Д6") и ластним вриједностима са опсегом ("Д4: Д7").

newvalue = Range("B3").Value
Set firstfourvalues = Range("D3:D6")
Set lastfourvalues = Range("D4:D7")

7. Сада долази једноставан трик. Желимо да ажурирамо просечну таблицу. Ово можете постићи тако што ћете задње четири вредности замијенити с првим четири вриједности табеле и ставити нову вриједност залиха на прву позицију.

lastfourvalues.Value = firstfourvalues.Value
Range("D3").Value = newvalue

8. Не заборавите да затворите изјаву ако.

End if

9. Коначно, унесите формулу = АВЕРАГЕ (Д3: Д7) у ћелију Д8.

10. Тестирајте програм кликом на командно дугме.

Такође прочитајте: