Xử Lý Lỗi Trong VBA: On Error, Err Object Và Debug Chuyên Nghiệp

Sub SafeDivision()
    On Error GoTo ErrorHandler
    
    Dim result As Double
    result = 100 / 0  ' Lỗi chia cho 0!
    
    MsgBox "Kết quả: " & result
    Exit Sub
    
ErrorHandler:
    MsgBox "Lỗi: " & Err.Description, vbCritical, "Có lỗi xảy ra"
End Sub

Sub CheckSheetExists()
    Dim ws As Worksheet
    On Error Resume Next
    Set ws = ThisWorkbook.Sheets("Data")
    On Error GoTo 0  ' Tắt Resume Next
    
    If ws Is Nothing Then
        MsgBox "Sheet Data không tồn tại!"
    Else
        MsgBox "Sheet Data đã tìm thấy."
    End If
End Sub

Sub DetailedErrorInfo()
    On Error GoTo ErrHandler
    
    ' Code có thể gây lỗi
    Open "C:\file_khong_ton_tai.txt" For Input As #1
    Exit Sub
    
ErrHandler:
    MsgBox "Mã lỗi: " & Err.Number & vbNewLine & _
           "Mô tả: " & Err.Description & vbNewLine & _
           "Nguồn: " & Err.Source, vbCritical
    Err.Clear  ' Reset lỗi
End Sub

Sub DebugDemo()
    Dim i As Long
    For i = 1 To 10
        Debug.Print "Dòng " & i & ": " & Cells(i, 1).Value
    Next i
    ' Nhấn Ctrl+G để mở Immediate Window xem kết quả
End Sub

Sub ProfessionalTemplate()
    On Error GoTo ErrHandler
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    ' === CODE CHÍNH ===
    ' ...
    ' =================
    
CleanUp:
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    Exit Sub
    
ErrHandler:
    MsgBox "Lỗi #" & Err.Number & ": " & Err.Description, vbCritical
    Resume CleanUp
End Sub