顯式的選項 - 標籤（錯誤處理程序轉到頁）無法識別

Question

我做了一個UDF，與Option Explicit模塊中非常簡單，我已經上了標籤的使用爲目標進行錯誤處理的錯誤：

編譯錯誤：子或函數定義

下面是代碼：

Public Function IsRowEmpty(ByVal aArray As Variant, ByVal RowNumber As Long) As Boolean 
Dim j As Integer 
    IsRowEmpty = True 
    On Error GoTo ErrHdl: 
    For j = LBound(aArray, 2) To UBound(aArray, 2) 
     If aArray(RowNumber, j) <> "" Then 
      IsRowEmpty = False 
      Exit Function 
     Else 
     End If 
    Next j 
Exit Function 
ErrHdl 
    IsRowEmpty = False 
End Function 

我環顧四周，但我似乎無法找到一個解決辦法...

Answer 1

你缺少一個:的ErrHdl標籤

Public Function IsRowEmpty(ByVal aArray As Variant, ByVal RowNumber As Long) As Boolean 
    Dim j As Integer 
    IsRowEmpty = True 
    On Error GoTo ErrHdl 
    For j = LBound(aArray, 2) To UBound(aArray, 2) 
     If aArray(RowNumber, j) <> "" Then 
      IsRowEmpty = False 
      Exit Function 
     Else 
     End If 
    Next j 
Exit Function 
ErrHdl: 
    IsRowEmpty = False 
End Function