vba listbox同时选中相同数据行

可以通过遍历listbox中的每一项，判断是否和目标行相同，如果相同则设置该项为选中状态即可，示例代码如下：

For i = 0 To ListBox1.ListCount - 1
If ListBox1.List(i) = targetRow Then
ListBox1.Selected(i) = True
End If
Next i

请注意，这段代码只是一个示例，实际使用时需要根据具体情况进行修改和拓展。

相关问题

用vba listbox 在多选时候，如何单击就能同时选中相同数据的行

您可以使用以下代码来实现用 VBA ListBox 在多选时候，使用单击就能同时选中相同数据的行：

Private Sub ListBox1_Click()

Dim SelectedValue As String
Dim i As Integer

SelectedValue = ListBox1.Value

For i = 0 To ListBox1.ListCount - 1
If SelectedValue = ListBox1.List(i) Then
ListBox1.Selected(i) = True
End If
Next i

End Sub

当您在 ListBox1 中选中一个项时，该代码会遍历 ListBox1 中的所有项，并将与您选中的项相同的项也选中。

vba listbox 当一行被选中，同时会自动选中其他相同数据的行

以下是一个示例代码，它将检查ListBox中的每一行是否包含与选定行相同的数据，并将它们全部选中。

Private Sub ListBox1_Click()
Dim i As Integer
Dim j As Integer
Dim selectedData As String

selectedData = ListBox1.Value

For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
For j = 0 To ListBox1.ColumnCount - 1
If ListBox1.List(i, j) = selectedData Then
ListBox1.Selected(i) = True
Exit For
End If
Next j
End If
Next i

End Sub

请注意，此代码仅考虑ListBox中的单个列，如果ListBox包含多个列，则需要相应地修改代码。