我可以知道,如何使选项框和复选框在列表框中被选中? 比方说,如果数据是肯定的,那么选项框将自动被选中,如果选择 Whatsapp 和电子邮件,它将在 WhatsApp 和电子邮件中自动选中另一个选项框。

Method 的列从 C9 列开始,而 Participation 列在 D9 列。

供参考,

Emp 2 - 是 Emp 3 - 否 Emp 8 - Whatsapp Emp 9 - 电话 Emp 10 - Facebook Emp 11 -Email Emp 12 - SMS

在此处输入图片说明

这是我已经尝试过的编码

Private Sub lstEmployee_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

'dim the variables
Dim i As Integer
On Error Resume Next

'find the selected list item
i = Me.lstEmployee.ListIndex

'add the values to the text boxes
Dim methodsOfCommunication() As String

Me.Emp1.Value = Me.lstEmployee.Column(0, i)
Select Case Me.lstEmployee.Column(2, i)
    Case "Yes"
        Emp2.Value = True
        Emp3.Value = False
    Case "No"
        Emp2.Value = False
        Emp3.Value = True
End Select

' Reset Methods of Communication checkboxes.
Emp8.Value = False
Emp9.Value = False
Emp10.Value = False
Emp11.Value = False
Emp12.Value = False
' Set Methods of Communication checkboxes.
methodsOfCommunication = Split(Me.lstEmployee.Column(1, i), ", ")
For i = LBound(methodsOfCommunication, 1) To UBound(methodsOfCommunication, 1)
    Select Case methodsOfCommunication(i)
        Case "Whatsapp"
            Emp8.Value = True
        Case "Phone Call"
            Emp9.Value = True
        Case "Facebook"
            Emp10.Value = True
        Case "Email"
            Emp11.Value = True
        Case "SMS"
            Emp12.Value = True
    End Select
Next

Me.Emp4.Value = Me.lstEmployee.Column(3, i)
Me.Emp5.Value = Me.lstEmployee.Column(4, i)
Me.Emp6.Value = Me.lstEmployee.Column(5, i)
Me.Emp7.Value = Me.lstEmployee.Column(6, i)
Me.Emp13.Value = Me.lstEmployee.Column(7, i)
Me.Emp14.Value = Me.lstEmployee.Column(8, i)
Me.Emp15.Value = Me.lstEmployee.Column(9, i)

On Error GoTo 0

End Sub

#1楼 票数:0 已采纳

Dim methodsOfCommunication() As String
Dim i As Integer

Me.Emp1.Value = Me.lstEmployee.Column(0, i)
Select Case Me.lstEmployee.Column(2, i)
    Case "Yes"
        Me.Emp2.Value = True
        Me.Emp3.Value = False
    Case "No"
        Me.Emp2.Value = False
        Me.Emp3.Value = True
End Select

' Reset Methods of Communication checkboxes.
Me.Emp8.Value = False
Me.Emp9.Value = False
Me.Emp10.Value = False
Me.Emp11.Value = False
Me.Emp12.Value = False
' Set Methods of Communication checkboxes.
methodsOfCommunication = Split(Me.lstEmployee.Column(1, i), ", ")
For i = LBound(methodsOfCommunication, 1) To UBound(methodsOfCommunication, 1)
    Select Case methodsOfCommunication(i)
        Case "Whatsapp"
            Me.Emp8.Value = True
        Case "Phone Call"
            Me.Emp9.Value = True
        Case "Facebook"
            Me.Emp10.Value = True
        Case "Email"
            Me.Emp11.Value = True
        Case "SMS"
            Me.Emp12.Value = True
    End Select
Next

  ask by translate from so

未解决问题?本站智能推荐:

2回复

VBA-如果选中复选框,则将单元格值添加到总和中

我不确定标题是否准确地描述了我的查询,因此,我将尽力在此处进行描述。 我有一个跟踪支出和收入的工作表,还有一个宏,可用于将复选框插入选定的单元格,将复选框链接到这些单元格,最后,一旦复选框被选中,就应用条件格式的条件,同样如果再次取消选中。 这是执行此操作的代码: 子: 功能:
1回复

将复选框添加到多个列?

我有以下代码,但是有没有一种方法可以根据单击的复选框来将复选框设置为不同的列? 因此,如果单击复选框1,则将在第1列中创建一个带有复选标记的复选框,如果单击复选框2,则将在第2列中创建具有复选标记的复选框,如果未单击任何复选框,则将选中未选中的复选框。 我有8个复选框-是否有更好的方法来代替
3回复

动态将复选框添加到窗体VBA上的框架

如何将多个复选框添加到userForm框架? 这似乎是一件微不足道的事情,但是我的代码只为数组中的最后一项生成了一个复选框。 任何建议在这里表示赞赏。 提前致谢。
2回复

使用动态添加到用户表单的复选框

我使用以下代码将CheckBox1添加到我的UserForm : 现在,当我单击CommandButton我想检查CheckBox1是否已选中: 但是这段代码不起作用; 我认为是因为复选框是动态添加的。 这只是解决问题的代码的简化。
1回复

将复选框添加到Excel工作表

假设我有三列; A列,B列和C列。如果我将文本放在B列(仅)而不是C列中,如何在A列中使用VBA自动添加复选框,并且当我删除该文本时,从A列中删除复选框
2回复

使用vba将复选框添加到emptyrow

我有以下代码: 但是由于某种原因,复选框不会每次都添加到空行中,而是使复选框一次又一次地保存列/行...我该如何解决?
2回复

将多个复选框中的数据添加到单元格

我已经看到了与此类似的帖子,但我不确定100%如何使其适用于现有的UserForm。 我有5个复选框,如果选中,将向单元格中输入数据,包括是否选中了多个复选框。 因此,如果检查了HU和OS,它将读取类似HU,OS的内容。 现在的表格将信息添加到新行中,我希望它继续这样做。 我尝试了一些
1回复

如何将两个已命名的复选框添加到一个单元格

我环顾四周,但不知道如何将两个复选框添加到单个单元格。 是否需要使用OLEObjects.Add? 我需要在E列中添加两列复选框。在此先感谢。 这是我的尝试: