(若是和其他不同软体互动之问题 请记得一并填写) 软体: 版本: 目前有google了一阵子 有找到类似解答 但还差了一点 表单物件有 userform1 内有checkbox1 跟 userform2.show (用来放大)的按钮 userform2的字体有加大 userform2 内有checkbox1 跟 "确定" "取消" 两个按钮皆有关闭userform2的功能 而 "确定" 按钮则会将勾选好的checkbo1 的true值, 传递给userform1的checkbox1 主要作用是 当我按下userform1设定好的放大按钮 userform2会弹出 这时後 我勾选userform2表单的控制项checkbox1 之後 按下userform2 的"确定"按钮 他会关闭视窗 并且让userform1的checkbox1也打勾 目前我用某论坛的解答,主要是利用物件类别模组, 我是想说可不可以直连过去,不用在经过工作表纪录变数再回传 '物件类别模组 Option Explicit Public WithEvents 物件_CheckBox As MSForms.CheckBox Private Sub 物件_CheckBox_Click() If CheckBox1.Value = True Then CheckBox1.Value = True ElseIf CheckBox1.Value = False Then CheckBox1.Value = False End If End Sub ------------------------------------- 'userform1 和 userform2 Dim User_按钮 As New Class1 Private Sub UserForm_Initialize() Set User_按钮.物件_CheckBox = CheckBox1 End Sub 不过还是失败了 求大大指点 或者有更简单的方法 --

※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 114.35.158.244 ※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1476919207.A.A40.html ※ 编辑: waiter337 (114.35.158.244), 10/20/2016 07:21:06