请教vba写法

luqigaoyan

比如窗口中有 a b c d  四个选择，就是布尔形的，打勾的那种

如何实现在a b c 中打勾后，然后d 自动打勾呢？？？

谢谢，很急！

徐阿鹏

新的例子

luqigaoyan

ding

luqigaoyan

顶！继续问！ 上面的程序哪里错了

luqigaoyan

急呀，反之如何呀，比如本来勾是打着的  ，现在就要出现对话框，时候要取消呀，如何用if实现呢？？
Private Sub 工作单完成_Click() '打勾
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "确认要打钩吗？可以后悔的阿！"
Style = vbYesNo + vbCritical + vbDefaultButton2
Title = "后悔的机会"
Help = "DEMO.HLP"
Ctxt = 1000

Dim Msg1, Style1, Title1, Help1, Ctxt1, MyString1
Msg1 = "确认要取消吗？"
Style1 = vbYesNo + vbExclamation + vbDefaultButton2
Title1 = "确认要取消吗？"
Help1 = "DEMO.HLP"
Ctxt1 = 1000

If 工作单完成 = flase Then
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
    If Response = vbYes Then ' 如果按是的话
       Me.工作单完成 = True
   Else    '如果按放弃的话
       Me.工作单完成 = False
   End If
Else
Response = MsgBox(Msg1, Style1, Title1, Help1, Ctxt1)
   If Response = vbYes Then  ' 如果按是的话
     Me.工作单完成 = False
   Else    '如果按放弃的话
     Me.工作单完成 = True
   End If
End If

End Sub        这样写为何不对呀！！！！？？

徐阿鹏

luqigaoyan

我会了，谢谢！

luqigaoyan

呵呵，可否给我 单击确定 那么这个勾就打上     单击 cancel 那么这个勾就不打

的具体代码？？？？  呵呵，我很菜

徐阿鹏

是不是弹出对话框？
可以用msgbox函数阿！
例：
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "确认要打钩吗？可以后悔的阿！"
Style = vbYesNo + vbCritical + vbDefaultButton2
Title = "后悔的机会"
Help = "DEMO.HLP"
Ctxt = 1000
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' 如果按是的话
。。。。。‘你想要干的事情
Else    '如果按放弃的话
。。。。。
End If
用宏的话，。。。。。很抱歉，宏我没有用过！

luqigaoyan

还有问题，菜兄！

就是如果 打勾的时候弹出一个窗口   一个按钮是确定  一个按钮是 cancel   这两个按钮如何写呢？？
可否用宏实现？？