使用VBA检查给定范围是否有效

Question

I have a range variable stored as string. I just ant to check the given range is valid or not. For example: A11:Z4, D8:H7, B112:H80, M5:P45 not valid, A5:A5 not valid (one scenario), A11:Z11, D8:H8, A5:M5 is valid. I just want to get in same row, different columns.

How can we do this?

Answer 1

Here's some code you can use:

Sub Validate()
Dim rng As String
'here you can define your range
rng = "C11:D12"

If Range(rng).Rows.Count = 1 And Range(rng).Columns.Count > 1 And Range(rng).Areas.Count = 1 Then
    MsgBox "Range is valid"
Else
    MsgBox "Range is invalid"
End If

End Sub

Answer 2

If you print out a Range object's address inside VBA, it'll print the address in proper order. So, if you pass it A6:A5 , it'll know that you're actually referring to A5:A6 .

\n

You can use that to create a UDF:

Edit:

I misunderstood the question. So, I've modified my answer to make rectify the mistakes.

Note : This is basically Michal Turczyn's answer, rewritten in the form of a UDF:

Function IS_RANGE_VALID(s As String) As Boolean
    IS_RANGE_VALID = (Range(s).Rows.Count = 1 And Range(s).Columns.Count > 1)
End Function

The result:

╔═══╦══════════╦═══════╗
║   ║    A     ║   B   ║
╠═══╬══════════╬═══════╣
║ 1 ║ A11:Z4   ║ FALSE ║
║ 2 ║ D8:H7    ║ FALSE ║
║ 3 ║ B112:H80 ║ FALSE ║
║ 4 ║ M5:P45   ║ FALSE ║
║ 5 ║ A5:A5    ║ FALSE ║
║ 6 ║ A11:Z11  ║ TRUE  ║
║ 7 ║ D8:H8    ║ TRUE  ║
║ 8 ║ A5:M5    ║ TRUE  ║
╚═══╩══════════╩═══════╝

Note : Like I asked you in the comment, why is M5:P45 invalid? If it was a typo, then this should work for you. Otherwise you'll have to be clearer about the criterion you're using to determine validity of a range.

Answer 3

Thank you for your help. I just used the below method to solve this issue.

                Dim i As Integer
                Dim retval As String
                Dim retval1 As String
                Dim colFrom As String
                Dim colTo As String

        'Example : FromRange = A5, ToRange =D5
                If FromRange = ToRange  Then  'For Same Column
                    MsgBox "The Input Range specified is invalid"
                    Exit Sub
                End If

                colFrom = FromRange 
                colTo = ToRange  
        'Get the numbers only from given range and compare it
                For i = 1 To Len(colFrom)
                    If Mid(colFrom, i, 1) >= "0" And Mid(colFrom, i, 1) <= "9" Then
                        retval = retval + Mid(colFrom, i, 1)
                    End If
                Next

                For i = 1 To Len(colTo)
                    If Mid(colTo, i, 1) >= "0" And Mid(colTo, i, 1) <= "9" Then
                        retval1 = retval1 + Mid(colTo, i, 1)
                    End If
                Next

                If retval <> "" And retval1 <> "" And retval = retval1 Then
                    myCellRange= FromRange  & ":" & ToRange  
                Else
                    MsgBox "Input Range is invalid"
                    Exit Sub
                End If