请教vba写法

luqigaoyan

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

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

谢谢，很急！

徐阿鹏

if a＝true and b＝true and c＝true then
d＝true
end if
在a、b、c的单击事件中写上

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 那么这个勾就不打

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

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

ding