VBA Excel-通过工作表和范围作为参数

Question

谁能帮助我将Sub转换为函数，以便可以将其用于其他表单控件？ 我是VBA excel的新手，并且我一直在尝试将其转换几个小时而没有运气。 如果有人可以帮助，请多加赞赏。

Private Sub ComboBox1_Change()
    Dim v, e
    With Sheets("DATABASE").Range("minRange").SpecialCells(2)
        v = .Value
    End With

    With CreateObject("scripting.dictionary")
        .comparemode = 1
        For Each e In v
        If Not .exists(e) Then .Add e, Nothing
        Next
        If .Count Then Me.ComboBox1.List = Application.Transpose(.keys)
    End With
End Sub

谢谢。

Answer 1

范围变量应该已经对工作表进行了限定，因此无需单独传递它。 只需编写您的sub即可接受范围参数：

Sub MySub(ByVal rng As Excel.Range)

    MsgBox rng.Address

End Sub