/ / Калькулятор продажів в Excel VBA

Калькулятор продажів в Excel VBA

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

Ситуація:

Калькулятор продажів в Excel VBA

Інші два аркуша мають однакову установку, алез різними комбінаціями місяців і співробітників, а також різні номери продажів. Є кілька способів обчислення загального обсягу продажів кожного співробітника в Excel, але ми побачимо, що це можна зробити у Excel VBA дуже легко.

Помістіть на вашій робочій клавіші команду та додайте наступні кодові рядки:

1 По-перше, ми оголошуємо три змінні та один об'єкт Worksheet. Одну змінну типу String ми називаємо службовцем, одну змінну типу Integer, яку ми називаємо total, одним об'єктом Worksheet, який ми називаємо sheet, і одну змінну типу Integer, яку ми називаємо i.

Dim employee As String, total As Integer, sheet As Worksheet, i As Integer

2. Ми ініціалізуємо дві змінні. Ми ініціалізуємо суму змінної з значенням 0. Ми використовуємо функцію InputBox, щоб отримати ім'я користувача від користувача.

total = 0
employee = InputBox("Enter the employee name (case sensitive)")

Введіть ім'я співробітника

3. Після того, як користувач введе ім'я співробітника, ми хочемо обчислити загальний обсяг продажів цього працівника. Робоча книга складається з трьох аркушів. Ми хочемо програму, яка все ще може бути використана, якщо аркуші будуть додані в майбутньому. Тому ми використовуємо таку кодову лінію:

For Each sheet In Worksheets

4. Ми запускаємо інший для Next циклу.

For i = 2 To 13

5. Якщо ім'я введеного співробітника співпадає з ім'ям співробітника в колонці B, Excel VBA додає номер продажу до загальної змінної. Додайте наступні кодові рядки:

If sheet.Cells(i, 2).Value = employee Then
    total = total + sheet.Cells(i, 3).Value
End If

6. Не забудьте закрити обидва петлі.

    Next i
Next sheet

7. Нарешті, ми показуємо загальний обсяг продажів працівника, використовуючи msgbox.

MsgBox "Total sales of " & employee & " is " & total

8. Перевірте програму.

Результат для Давида:

Результат продажу калькулятора

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