Select case

Select case

 

Sub ShowDiscount3()

    Dim Quantity As Integer

    Dim Discount As Double

    Quantity = InputBox("Enter Quantity: ")

    Select Case Quantity

        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: " & Discount

End Sub

 

Sub ShowDiscount4()

    Dim Quantity As Integer

    Dim Discount As Double

    Quantity = InputBox("Enter Quantity: ")

    Select Case Quantity

        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: " & Discount

End Sub

--------------------------------------------------------------------------------------------------------

 

Sub abc()

Dim samt As Double, comm As Double

samt = InputBox("enter sales amount:")

Select Case samt

Case Is >= 1000000: comm = samt * 0.5

Case Is >= 750000: comm = samt * 0.25

Case Is >= 250000: comm = samt * 0.15

Case Else: comm = 0

End Select

Cells(1, "a") = comm

 

End Sub