在 vba 中执行 if 和 select 语句时出现语法错误

Posted 2023-04-13

【中文标题】在 vba 中执行 if 和 select 语句时出现语法错误

【英文标题】：Syntax error while executing if and select statement in vba

【发布时间】：2016-06-13 08:12:18

【问题描述】：

我正在学习基本的 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

【问题讨论】：

您需要更具体 - edit 您的问题包含确切的错误消息（包括行号）。无需进一步调查，看起来您确实写了 “ 而不是 " 来引用您的字符串...

【参考方案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