Суббота, Сентябрь 19, 2020

Конструкция Select Case

'Select Case тестируемое_выражение
'[Case список условий -n
'[операторы - n ] ]
'[Case Else
'[операторы_по_умолчанию] ]
'End Select
Sub GreetMe()
   Dim Msg As String
   Select Case Time
      Case Is < 0.5
         Msg = "Доброе утро"
      Case 0.5 To 0.75
         Msg = "Добрый день"
      Case Else
         Msg = "Добрый вечер"
   End Select
MsgBox Msg
End Sub


 

Sub Discount3()
   Dim Quantity As Variant
   Dim Discount As Double
   Quantity = InputBox("Введитезначение : ")
   Select Case Quantity
      Case ""
         Exit Sub
      Case 0 To 24
         Discount = 0.1
      Case 25 To 49
         Discount = 0.15
      Case 50 To 74
         Discount = 0.2
      Case Is >= 75
         Discount = 0.25
    End Select
    MsgBox "Скидка : " & Discount
End Sub


 

Sub GreetUser1()
   Select Case Weekday(Now)
      Case 1, 7
         MsgBox "Это выходные"
      Case Else
         MsgBox "Это не выходные"
   End Select
End Sub


 

Sub GreetUser2()
   Select Case Weekday(Now)
      Case 2, 3, 4, 5, 6
         MsgBox "Это не выходные"
      Case Else
         MsgBox "Это выходные"
   End Select
End Sub


Sub SelectionType()
   Var = TypeName(Selection)
   Select Case TypeName(Selection)
      Case "Range"
         Select Case Selection.Count
            Case 1
               MsgBox "Выделена одна ячейка "
            Case Else
               MsgBox Selection.Rows.Count & " строк "
         End Select
      Case "Ничего "
         MsgBox "Ничего не выделено"
      Case Else
         MsgBox "Выделен объект,отличный от диапазона "
   End Select
End Sub


Back to Top