MS VBA | Select Case |
|
➢Пример Select Case:
На входе в функцию укажем Performance (от 0) и Salary. С помощью Select Case = Performance, рассчитаем бонус:
Function Bonus(Performance, Salary)
Select Case Performance Case 1 Bonus = 0.02 * Salary Case 2 To 7 Bonus = 0.03 * Salary Case 8, 9 Bonus = 0.05 * Salary Case Is > 9 Bonus = 0.1 * Salary Case Else Bonus = 0 End Select
End Function
➢Применение Select Case:
Например, перехват клавиш
Select Case KeyCode
Case vbKeyReturn 'перехват клавиши Enter 'код процедуры, если был нажат Enter: '... End Select
См. также примеры Select Case в задачах: Разные группы пользователей - разные права
|