VBA用户定义的范围，并检查其是否为空

Question

I have been struggling with this for over an hour. I need to write a VBA code where the user selects a range and then I check if this selected range is empty before I go and do anything else.

This is what I have so far:

Sub test()
    Set rng= Application.InputBox("Select the range of the raw data please", Type:=8)
    If Application.WorksheetFunction.CountA(Range(rng)) > 0 Then
        MsgBox "do this, this and that!"
    End If
End Sub

When I run this I get a "Method Range of object_Global failed". I know it lets the user select the range just fine but the Range(rng) is not working right. Any help would be appreciated!

Answer 1

Your problem is that your variable rng is a range and you're trying to wrap that in a range, which is why it's throwing an error. Try this instead.

Sub test()    
    Dim rng As Range
    Set rng = Application.InputBox("Select the range of the raw data please", Type:=8)

    If Application.WorksheetFunction.CountA(rng) > 0 Then
        MsgBox "do this, this and that!"
    End If

End Sub

Answer 2

Just some code

 Sub main()

    Dim sentRange As Range

    Set sentRange = Application.InputBox("Select the range of the raw data please", Type:=8)


    If isRangeEmpty(sentRange) = False Then
        MsgBox "Range is not empty."
    Else
        MsgBox "Good to go!"
    End If


End Sub


Function isRangeEmpty(ByRef myRange As Range) As Boolean
    Dim rngLoop As Range
    Dim rangeEmpty As Boolean

    For Each rngLoop In myRange
        If rngLoop.Value = Empty Then
            'All Good
            isRangeEmpty = True
        Else
            'Need to exit
            isRangeEmpty = False
            Exit For
        End If
    Next rngLoop

End Function

Answer 3

If you are only acting on the instance of data being present then something like below will work. I would also adding Option Explicit to the top of your code and declare all variables.

Sub How()

Dim rng As Range
Set rng = Application.InputBox("Select Target Range", Type:=8)

If Application.WorksheetFunction.CountA(rng) <> 0 Then
    'Actions
End If

End Sub