0

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
4

1 に答える 1

2

そのはず

Cells(c, 2).Value = ng

A、B、C のような文字を入力すると、代わりにType Mismatch エラーが発生するはずです。

また、初期化が表示されませんc

于 2013-09-30T02:08:19.883 に答える