检查是用户从第一列或其他列中选择数据

Question

大家好，我有一个问题，我需要一些帮助

在 vba 中，我使用输入框让用户从第一列中选​​择一个范围。但我想检查用户是否只使用了第一列中的数据。

dim x 作为范围 将 y 调暗为范围

Set X = Application.InputBox(prompt:=" Enter the range for X from the first column ", Type:=8)

'现在我想检查用户是否只使用了第一列中的数据'

Set Y=Application.InputBox(prompt:="从第二列输入y的范围", Type:=8)

'检查用户是否从第二列中选择了数据') 结束子

结束子

Answer 1

编辑...

Sub Test()
    Dim x As Range, x2 As Range, bOK As Boolean
    On Error Resume Next
    Set x = Application.InputBox(prompt:=" Enter the range for X from the first column ", Type:=8)
    On Error GoTo 0

    'x will be Nothing if user cancels selection
    If Not x Is Nothing Then

        'find all cells in x which are also in ColA
        Set x2 = Application.Intersect(x, x.Parent.Columns(1))

        'x2 will be Nothing if no cells in ColA were selected
        If Not x2 Is Nothing Then
            bOK = (x2.Cells.Count = x.Cells.Count)
        End If

        If Not bOK Then
            MsgBox "Please only select cells from Column A"
        End If
    Else
        Exit Sub 'user cancelled selection
    End If
    'etc...
End Sub