Написать макрос в Exel

@Mannergaym · Регистрация: 04.11.2016

Author24 — интернет-сервис помощи студентам

Сам текст задания звучит так:
В транспортной компании работают водители грузовых автомобилей. Имеется таблица, где для каждого водителя указано количество штрафов за последние пять лет. Предполагается начислить премию тем водителям, количество штрафов которых ниже среднего по предприятию.
Для расёта суммыпремии необходимо пересчитать значения в столбце с количеством штрафов, заменив их на разность между средним значением по диапазону и текущим значением в ячейке, умноженную на 10000. Если разность отрицательна, в ячейку записывается 0.
Требуется создать макрос, пересчитывающий значения в столбце таблицы. Макрос должен применяться к выделенному диапазону и выполняться по выбранной комбинации клавиш.

Водители

Иванов А.А.

Петров А.М.

Сидоров Н.Г.

Попов Н.С.

Крылов В.Ю.

Кошкин М.И.

Ковалёв С.Н.

Сергеев Н.А.

Иванов Н.Н.

Петренко А.Ю.


Штраф за 5 лет
12
5
7,5
13,6
11,1
3,2
8
2
17
4,2

toiai · 09.05.2017, 19:57

Вариантик:

Visual Basic

'Выделить диапазон из сумм штрафов
Sub pr()
    Dim sr#, x As Range
    sr = WorksheetFunction.Average(Selection.Value)
    For Each x In Selection
        x.Offset(, 1) = IIf(x < sr, 10000 * (sr - x.Value), 0)
    Next
End Sub

С привязкой к комбинации клавиш уж сам.

	09.05.2017, 19:57

Опции темы