Как посчитать премию в экселе используя макросы (Select Case)

Пятая статья, как просчитать премию в зависимости от выполненного плана, предыдущие варианты можно найти по ссылкам:

Как посчитать премию в экселе используя функции ИНДЕКС и ПОИСКПОЗ

Как посчитать премию в экселе используя функции ВПР

Как посчитать премию в экселе используя функции ПОИСКПОЗ и СМЕЩ

Как посчитать премию в экселе используя функцию ЕСЛИ

Исходные данные снова совпадают с предыдущем вариантом.

Первый шаг. Чтобы запустить макрос, необходимо войти во вкладку «Вид» и блоке «Макросы» и нажимаем иконку «Макросы».

Второй шаг. Появляется меню «Макрос», в котором выделяем строку «Расчет_Премии» и нажимаем на иконку «Выполнить».

Хотите прокачать речь и мысли? Не изобретайте велосипед. Вдохновляйтесь мудростями от лучших умов планеты. Подпишитесь на наш телеграмм-канал

Третий шаг. Получаем результат, аналогичный предыдущим версиям.

Текст макроса:

Sub Расчет_Премии()

 

' Определяем рабочий лист

Set MKR = Worksheets("МАКРОС")

 

' Запускаем цикл по расчету премии, 3 - стартовая строка, а заполняем до 6 строкой

For i = 4 To 6

 

' Запускаем операто Select Case, в котором в зависимости от выполненого плана расчитывается премия

Select Case MKR.Cells(i, 3)

Case 0 To 0.59

MKR.Cells(i, 4) = 0

Case 0.6 To 0.79

MKR.Cells(i, 4) = MKR.Cells(i, 2) * 0.5

Case 0.8 To 0.89

MKR.Cells(i, 4) = MKR.Cells(i, 2) * 1

Case 0.9 To 0.99

MKR.Cells(i, 4) = MKR.Cells(i, 2) * 1.25

Case Else

MKR.Cells(i, 4) = MKR.Cells(i, 2) * 1.5

End Select

Next i

End Sub

 

Видео