用户表单和工作表中的链接复选框
Linked checkboxes in Userform and Worksheet
我有一份 table 格式的问卷需要填写在用户表单上。有些部分只能通过检查来回答-boxes.Those 复选框都存在于工作表和用户表单中。当用户点击用户表单中的框时,它也需要在工作表中打勾(我不知道是否可能)。
1) Link 你 sheet 上的复选框到一个单元格(无论哪个单元格,甚至另一个 sheet)
2) 您可以根据自己的喜好更改代码。确保将其用作用户表单复选框上的点击事件:
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then Range("D3").Value = True
If CheckBox1.Value = False Then Range("D3").Value = False
End Sub
3) 结果会是这样的:
您可以编写一些 If
语句,在用户窗体复选框的单击或更改事件上将相同的值分配给工作表复选框。
类似于:
Private Sub CheckBox1_Click()
If Me.CheckBox1.Value = True Then
ThisWorkbook.Sheets(1).CheckBox1.Value = True
ElseIf Me.CheckBox1.Value = False Then
ThisWorkbook.Sheets(1).CheckBox1.Value = False
End If
End Sub
我有一份 table 格式的问卷需要填写在用户表单上。有些部分只能通过检查来回答-boxes.Those 复选框都存在于工作表和用户表单中。当用户点击用户表单中的框时,它也需要在工作表中打勾(我不知道是否可能)。
1) Link 你 sheet 上的复选框到一个单元格(无论哪个单元格,甚至另一个 sheet)
2) 您可以根据自己的喜好更改代码。确保将其用作用户表单复选框上的点击事件:
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then Range("D3").Value = True
If CheckBox1.Value = False Then Range("D3").Value = False
End Sub
3) 结果会是这样的:
您可以编写一些 If
语句,在用户窗体复选框的单击或更改事件上将相同的值分配给工作表复选框。
类似于:
Private Sub CheckBox1_Click()
If Me.CheckBox1.Value = True Then
ThisWorkbook.Sheets(1).CheckBox1.Value = True
ElseIf Me.CheckBox1.Value = False Then
ThisWorkbook.Sheets(1).CheckBox1.Value = False
End If
End Sub