excel - Sub Excel VBA的可选范围

Question

我有一个现有的宏，我想通过传递 rng 参数来使用，但如果没有传递 rng，宏会通过输入框请求 rng，但我无法让参数正常工作。
这是我所拥有的:

Sub Four_Hundred_Fourty_Four_Split_Sub(Optional urng)
     ' Tried (Optional urng As Range), but it didn't work, couldn't run sub without arg

If IsEmpty(urng) = False Then 'urng = Missing
    Debug.Print urng
    Set urng = Application.InputBox("Select a range", "Obtain Range Object", Type:=8)
End If

如何获得可选的 rng 参数以在此方法中工作？

Answer 1

在过程中使用可选参数时，需要使用 IsMissing :

Sub Four_Hundred_Fourty_Four_Split_Sub(Optional urng)
    If IsMissing(urng) Then
        Set urng = Application.InputBox("Select a range", "Obtain Range Object", Type:=8)
    End If
End Sub

问候，