投票小事件

还是不可以哦

地址忘了加双引号，加上了也这样

or这样写就可以了，我那样写不知怎么就不可以？

一般这样的情况，都是用行列来确定。不用地址

range.address返回的是单元格区域[range.count>=1]的地址，是文本型字符串，和工作表中a1样式的绝对引用一样，所以要写成
if target.address=$a$1 then
一楼的图片是类型不匹配，[b3]是range类型，
二楼是 or逻辑运算符使用不当，

'抱大婶大腿,可以这样写
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Address
Case "$A$3", "$B$3", "$C$3", "$D$3"
Target.Value = Target.Value + 1
End Select
End Sub