Estou tentando inserir notas em uma planilha de saída, mas quando eu insiro um número, recebo um erro que diz: 'Erro 428 de tempo de execução, o objeto não suporta esta propriedade ou método.' O que há de errado com o meu código?
Opção explícita
Sub HW09()
Dim ng como inteiro
Dim v como String
Dim lg as String
Dim sd como inteiro
Dim r as Integer
Dim c As Integer = 2
ng = InputBox ("Introduza nota numérica do aluno.")
Se ng < 0 Então
ng = 0
ElseIf ng > 100 Então
ng = 100
Final mais
Se
As células (c, 2).Valor (ng)
c = c + 1
v = InputBox ("Você gostaria de inserir outro grau? Sim, digite 'Y' e ' n' para não.")
Se v = "N" em seguida saída fazer Loop
Cells(1, 2).Valor ("Grade numérica")
Células (1, 1).Valor ("nota"),
Para r = 1
Para c
Se Cells(r, 2) > = 90 Então
lg = Cells(r, 1) "A".Valor (lg)
ElseIf Cells(r, 2) > = 80 Então
lg = Cells(r, 1) "B".Valor (lg)
ElseIf Cells(r, 2) > = 70 Então
lg = pilhas "C" (r, 1).Valor (lg)
ElseIf Cells(r, 2) > = 60 Então
lg = Cells(r, 1) "D".Valor (lg)
Else
lg = Cells(r, 1) "F".Valor (lg)
End If
R = r + 1
Próximo r
C = c - 1
Ca = ca
Application.WorksheetFunction.Average("(1,2):(1,c)")
Se > = 90 Então
lg = "A"
ElseIf ca > = 80 Então
lg = "B"
ElseIf ca > = 70 Então
lg = ca "C"
ElseIf > = 60 Então
lg = "D"
Else
lg = "F"
Fim se
MsgBox ("A carta de média grau para estas" & (c) & "alunos é" & (lg) & ".")
SD = c (Application.WorksheetFunction.Sum ("(1, 2) (1, c) ^ 2)") - Application.WorksheetFunction.Sum ("(1, 2) (1, c)") ^ 2 / (c (c - 1))
MsgBox ("O desvio padrão para essas classes é" & (sd) & ".")
End Sub