excel 投票统计问题
发布网友
发布时间:2022-04-28 18:49
我来回答
共1个回答
热心网友
时间:2022-06-22 21:40
建议楼主这样做:
点击“提交”按钮以后,运行下面的代码(我这里假设楼主的控件是放在名称为 Sheet1 的工作表里的,楼主根据具体情况来调整):
Private Sub 提交_Click()
'锁住三个选择按钮,以防重复选择
OptionButton1.Enabled = False
OptionButton2.Enabled = False
OptionButton3.Enabled = False
Sheet1.Cells(2, 4) = Sheet1.Cells(2, 4).Value - OptionButton1.Value * 1
Sheet1.Cells(3, 4) = Sheet1.Cells(3, 4).Value - OptionButton2.Value * 1
Sheet1.Cells(4, 4) = Sheet1.Cells(4, 4).Value - OptionButton3.Value * 1
MsgBox ("你已完成提交!")
'把提交按钮也给禁掉,让用户彻底打消重复选择的念头
提交.Enabled = False
End Sub
经过上面处理以后,用户不保存则无所谓。一旦保存,则下次打开的时候就会有问题了。因为这三个单选按钮和这个“提交”按钮都被禁掉了。所以,在打开这个工作簿的时候再把它们的 Enabled 属性重新激活就行了:
Private Sub Workbook_Open()
Sheet1.提交.Enabled = True
Sheet1.OptionButton1.Enabled = True
Sheet1.OptionButton2.Enabled = True
Sheet1.OptionButton3.Enabled = True
End Sub
追问
有点问题哦