錯誤字段的提示信息

Question

我編寫了此代碼及其給出的錯誤。
我想爲有錯誤的單元格提示錯誤消息。

Public Sub OnErrorDemo() 
    On Error GoTo ErrorHandler 
    Dim LastCol As Long 
    Dim LastRow As Long 
    Dim rng As Range, iLength As Integer 
    LastCol = ActiveSheet.UsedRange.Columns.Count 
    LastRow = ActiveSheet.UsedRange.Rows.Count 

ErrorHandler: 
    For h = 1 To Range("A60").End(xlUp).Row 
     Set rng = ActiveSheet.Range("A1:A&h") 
     Select Case IsEmpty(rng) 
     Case True 
      MsgBox rng.Address & " is empty" 
     Case Else 
      Select Case IsNumeric(rng) 
      Case True 
       MsgBox rng.Address & " has a numeric value" 
       Select Case rng.HasFormula 
       Case True 
        MsgBox rng.Address & " also has a formula" 
       End Select 
      Case Else 
       iLength = Len(rng) 
       MsgBox rng.Address & " has a Text length of " & iLength 
      End Select 
     End Select 
    Next h 
End Sub 

Answer 1

檢查這行代碼的，我想這可能會導致錯誤：

Set rng = ActiveSheet.Range("A1:A&h") 

而是使用此：

Set rng = ActiveSheet.Range("A1:A" & h)