Question

我正在学习基本的VBA。在Excel 2013中执行以下程序时，我每次都会收到语法错误。

Sub ShowDiscount3()    
    Dim Quantity As Integer    
    Dim Discount As Double

    Quantity = InputBox(“Enter  the 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

Answer 1

请勿使用：“

改为使用"：

Sub ShowDiscount3()
    Dim Quantity As Integer
    Dim Discount As Double

    Quantity = InputBox("Enter  the 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

执行if时的语法错误，并在vba中选择语句

1 个答案: