如何用VBA判断单元格输入的数值是否正确？？

如图如果在E1到E4单元格输入了正确的数据，即2、2、4、2，每空10分，则按下得分按钮弹出对话框显示得分为40分。这个功能用VBA代码如何实现？？请高手解答。

DIM a As Integer
a=0

If range("E1")=2
a=a+10
end if

If range("E2")=2
a=a+10
end if

If range("E3")=4
a=a+10
end if

If range("E4")=2
a=a+10
end if
MsgBox "得分："&a追问

您的这段代码我能看明白，但是好像没有促发点击按钮的事件啊？？还有把代码输入后按下运行，会弹出一个宏对话框，请问要怎么处理？我是新手，麻烦再帮我解答一下。

追答

1）按钮的问题
点击按钮，是插入按钮，右键关联到相应的程序就可以了。

2）前后加入名sub, end sub 如下，你运行宏就有选择 gety_your_core程序的选项了，点选，运行就可以

sub get_your_core()
DIM a As Integer
a=0

If range("E1")=2
a=a+10
end if

If range("E2")=2
a=a+10
end if

If range("E3")=4
a=a+10
end if

If range("E4")=2
a=a+10
end if
MsgBox "得分："&a
end sub

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/878vf8s74.html