Ковзаюча середня в Excel VBA - Прості макроси Excel

Нижче ми розглянемо програму в Excel VBA що створює a середній стіл, що котиться. Помістіть на робочому аркуші командну кнопку і додайте такий кодовий рядок:

Діапазон ("B3"). Значення = Робочий лист Функція.RandBetween (0, 100)

Цей кодовий рядок вводить випадкове число від 0 до 100 у комірку В3. Ми хочемо, щоб Excel VBA взяв нову вартість акцій і розмістив її на першій позиції таблиці ковзної середньої. Усі інші значення мають переміститися на одне місце вниз, а останнє значення видалити.

Створіть подію зміни робочого аркуша. Код, доданий до події зміни робочого аркуша, буде виконуватися Excel VBA при зміні комірки на аркуші.

1. Відкрийте редактор Visual Basic.

2. Двічі клацніть на Sheet1 (Sheet1) у Провіднику проектів.

3. Виберіть Робочий аркуш зі спадного списку ліворуч. Виберіть Змінити зі спадного списку праворуч.

Додайте такі рядки коду до події зміни робочого аркуша:

4. Оголосіть змінну з назвою newvalue типу Integer та двох діапазонів (firstfourvalues ​​та lastfourvalues).

Затемнити нове значення як ціле число, перші чотири значення як діапазон, останні чотири значення як діапазон

5. Подія зміни робочого аркуша прослуховує всі зміни на аркуші1. Ми хочемо, щоб Excel VBA щось зробив, якщо щось зміниться у клітинці В3. Щоб цього досягти, додайте наступний рядок коду:

Якщо Target.Address = "$ B $ 3" ​​Тоді

6. Ми ініціалізуємо newvalue зі значенням комірки B3, firstfourvalues ​​з Range ("D3: D6") та lastfourvalues ​​з Range ("D4: D7").

newvalue = Діапазон ("B3"). Значення
Встановити перші чотири значення = Діапазон ("D3: D6")
Встановити lastfourvalues ​​= Діапазон ("D4: D7")

7. Тепер приходить простий трюк. Ми хочемо оновити таблицю ковзної середньої. Ви можете досягти цього, замінивши чотири останні значення першими чотирма значеннями таблиці та розмістивши нову вартість акцій на першій позиції.

lastfourvalues.Value = firstfourvalues.Value
Діапазон ("D3"). Значення = нове значення

8. Не забудьте закрити оператор if.

Закінчити, якщо

9. Нарешті, введіть формулу = СЕРЕДНЯ (D3: D7) у клітинку D8.

10. Перевірте програму, натиснувши кнопку команди.