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

所以，我正在写一个程序来计算我的学生的成绩，看起来我没有把这些值存储在我需要处理的变量中。运行代码时，我不断收到

类型错误消息

下面是代码。你有什么建议吗

Public Sub-FinalGrade（）
将消息1设置为双精度
Dim essay2作为整数
Dim essay3作为整数
作为整数的期中考试
作为整数的Dim final
类中的Dim为整数
Dim_平均值为整数
Dim中期平均值为整数
Dim final_平均值为整数
Dim in_class_平均值为整数
作为整数的Dim x
当x“”时执行此操作
对于x=2到100
essay1=单元格（x，c）.值
essay2=单元格（x，d）.值
essay3=单元格（x，e）.值
中期=单元格（x，f）。数值
最终论文=单元格（x，g）.值
in_类=单元（x，h）.值
随笔平均=（（随笔1+随笔2+随笔3）/3）*0.3
中期平均值=中期*0.15
最终平均值=最终值*0.15
类内平均=类内*0.3
单元格（x，j）。数值=论文平均值+期中平均值+期末平均值+班级平均值+10
下一个x
环
端接头
尝试此转换。ToDouble（Cells（x，c）.Value）
以及在哪一行得到错误？注意，您可能只想使用
Double
-使用
Integer
将自动删除任何小数位数。
do While
循环是多余的。我在这一行得到错误：essay1=Cells（x，c）.value将列中的字母填入引号中。否则，它是一个未声明的
Convert变量。ToDouble
是VB.NET，它是一种完全不同的语言。在VBA中，函数为
CDbl