如何将单元格的值存储到变量中

Question

所以，我正在写一个程序来计算我的学生的成绩，似乎我没有将这些值存储在我需要使用的变量中。当我运行代码时，我总是得到一个Type Error Message。

下面是代码。你有什么意见建议？

Public Sub FinalGrade()

    Dim essay1 As Double
    Dim essay2 As Integer
    Dim essay3 As Integer
    Dim midterm As Integer
    Dim final As Integer
    Dim in_class As Integer
    Dim essay_avg As Integer
    Dim midterm_avg As Integer
    Dim final_avg As Integer
    Dim in_class_avg As Integer

    Dim x As Integer

    Do While x <> ""
        For x = 2 To 100
            essay1 = Cells(x, c).Value
            essay2 = Cells(x, d).Value
            essay3 = Cells(x, e).Value
            midterm = Cells(x, f).Value
            final_essay = Cells(x, g).Value
            in_class = Cells(x, h).Value


            essay_avg = ((essay1 + essay2 + essay3) / 3) * 0.3
            midterm_avg = midterm * 0.15
            final_avg = final * 0.15
            in_class_avg = in_class * 0.3

            Cells(x, j).Value = essay_avg + midterm_avg + final_avg + in_class_avg + 10
        Next x
    Loop

End Sub

Answer 1

尝试此单元格(Convert.ToDouble(x，c).Value)