VBA Excel - パラメータとしてワークシートと範囲を渡す

Question

私はSubを関数に変換して、別のフォームコントロールに使用することができますか？私はVBAの初心者です。私はこれを何時間も変わらずに改造しようとしています。誰かを助けることができたらそれを感謝しなさい。

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 MySub(ByVal rng As Excel.Range) 

    MsgBox rng.Address 

End Sub