/ / Коефіцієнт прокату в Excel VBA

Коефіцієнт прокату в Excel VBA

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

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

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

Зворотна середня таблиця в Excel VBA

Зворотна середня таблиця в Excel VBA

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

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

2. Двічі клацніть на Sheet1 (Sheet1) в Project Explorer.

3. Оберіть Робочий аркуш у спадному списку ліворуч. У спадному списку праворуч виберіть «Змінити».

Робочий лист змінити події в Excel VBA

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

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

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

5. Сторiнка "Заміна робочих листів" прослуховує всі зміни на Sheet1. Ми хочемо, щоб програма Excel VBA робила щось, якщо щось змінюється в комірці B3. Для цього додати наступну кодову лінію:

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

6. Ми ініціалізуємо нове значення з значенням комірки B3, перші значення з діапазоном ("D3: D6") та останніми значеннями з діапазоном ("D4: D7").

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

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

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

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

End if

9. Нарешті, введіть формулу = середній (D3: D7) у комірку D8.

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

Також читайте: