vba listbox同时选择相同数据的行

您可以使用以下 VBA 代码来检查 Listbox 中是否同时选择了相同的行:

Private Sub ListBox1_Click()
    Dim i As Long, j As Long
    For i = 1 To ListBox1.ListCount
        For j = i + 1 To ListBox1.ListCount
            If ListBox1.Selected(i) And ListBox1.Selected(j) Then
                MsgBox "不能选择相同的行！"
            End If
        Next j
    Next i
End Sub

请注意，此代码假定您使用的是名为 "ListBox1" 的 Listbox。如果您使用的是不同的 Listbox，请确保在上面的代码中使用正确的名称。

相关问题

vba listbox 设置选择多个有相同数据的行

要设置选择多个具有相同数据的行，您可以使用以下代码：

Private Sub ListBox1_Click()
    Dim i As Long
    Dim selectedValue As String
    
    selectedValue = ListBox1.Value
    
    ' Clear all previous selections
    For i = 0 To ListBox1.ListCount - 1
        ListBox1.Selected(i) = False
    Next i
    
    ' Select all rows with the same value
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.List(i) = selectedValue Then
            ListBox1.Selected(i) = True
        End If
    Next i
End Sub

在此示例中，当用户单击列表框时，它会首先获取所选行的值，然后清除所有先前的选择，并选择所有具有相同值的行。请注意，此方法仅适用于单选列表框，因为多选列表框中可能会有多个不同值的行被选择。

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包含多个列，则需要相应地修改代码。