在下面的VBA上获取错误消息，以获取单元格的引用以及格式

Sub GetCellReferenceAndFormat()
    On Error Resume Next ' 忽略错误，继续执行下面的代码
    
    ' 获取单元格引用
    Dim cell As Range
    Set cell = Range("A1")
    
    ' 获取单元格格式
    Dim format As String
    format = cell.NumberFormat
    
    ' 恢复错误处理
    On Error GoTo 0
    
    ' 获取错误消息
    Dim errorMessage As String
    If Err.Number <> 0 Then
        errorMessage = Err.Description
    Else
        errorMessage = "No error"
    End If
    
    ' 输出结果
    MsgBox "Cell Reference: " & cell.Address & vbCrLf & _
           "Cell Format: " & format & vbCrLf & _
           "Error Message: " & errorMessage
End Sub