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

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