Fatal编程技术网
  • excel/
  • Excel 对象没有'；不支持此属性或方法？

Excel 对象没有'；不支持此属性或方法？

excel vba

Excel 对象没有'；不支持此属性或方法？,excel,vba,Excel,Vba,我试图在excel中输入字母等级，但当我输入等级时，它会出现“错误428，对象不支持此属性或方法”。我做错了什么 Option Explicit Sub HW09() Dim ng As Integer Dim v As String Do ng = InputBox("Please enter the student's numerical grade.") If ng < 0 Then ng = 0 ElseIf ng > 100 Then

我试图在excel中输入字母等级，但当我输入等级时，它会出现“错误428，对象不支持此属性或方法”。我做错了什么

Option Explicit
Sub HW09()

Dim ng As Integer
Dim v As String

Do

ng = InputBox("Please enter the student's numerical grade.")
    If ng < 0 Then
        ng = 0
    ElseIf ng > 100 Then
        ng = 100
    Else
End If


Cells(c, 2).Value (ng)
c = c + 1

v = InputBox("Would you like to enter another grade? Type 'Y' for yes and 'N' for no.")
    If v = "N" Then Exit Do

Loop

选项显式
HW09分项工程（）
作为整数的Dim ng
将v作为字符串
做
ng=输入框（“请输入学生的数字分数”）
如果ng<0，则
ng=0
ElseIf ng>100则
ng=100
其他的
如果结束
单元格（c，2）.数值（ng）
c=c+1
v=输入框（“是否要输入其他等级？键入“Y”表示是，键入“N”表示否”）
如果v=“N”，则退出Do
环
应该是

Cells(c, 2).Value = ng
如果输入字母A、B、C，则会出现类型不匹配错误

另外，我没有看到
c

的任何初始化@sam092有答案。我注意到了这一点，并确保我的回答避免了那个错误。此外，您可以简单地执行：
如果MsgBox（“您想输入另一个等级吗？”，vbYesNo）=vbNo，则退出do
，而不依赖
输入框和笨拙的用户输入字母/字符串：）