변수에 서브 루틴을 할당하는 VBA

Question

다음 서브 루틴을 모듈 10에 가지고 있습니다. 내가 받고 있어요

Set ws = module10.varWorksheet("Sheet1") 

을 :

Sub varWorksheet(wksht As String) 
Dim ws As Worksheet 

Set ws = ThisWorkbook.Sheets(wksht) 

Set ws = Nothing 
End Sub 

나는 각 루틴에서 명시 적으로 선언해야보다는 이런 일이있는 변수에 대한 참조로이 서브 루틴을 통과 할 수 있도록하려면 컴파일 오류 -> expected Function 또는 Variable.

Answer 1

당신은 다음과 같은 기능을 사용합니다.

Function varWorksheet(wksht As String) As Worksheet 
    On Error Resume Next 
    Set varWorksheet = ThisWorkbook.Sheets(wksht) 
End Function 

워크 시트가 없으면 아무 것도 반환하지 않습니다. 이것은 잘 작동합니다.

Sub Test() 
    Dim ws As Worksheet 

    Set ws = Modul10.varWorksheet("Tabelle4") 
    If ws Is Nothing Then 
     Debug.Print "No worksheet" 
    Else 
     ' what ever you want 
    End If 
End Sub