Đầu tiên mở file Excel cần tính toán. Bấm tổ hợp phíp Alt + F11 để mở trình soạn thảo VBA. Vào menu Insert, tạo module làm việc. Copy đoạn code VBA bên dưới dán vào và lưu Module. Rồi chuyển sang cửa sổ Excel sử dụng Hàm : DGIAI2 như hướng dẫn bên dưới. Function DGiai2(a As Range) Dim li1(0 To 500), li2(0 To 500) On Error Resume Next txt = a.Formula txt = Replace(txt, "=", "") cal = Replace(txt, "+", ":") & ":" txt = txt & " " cal = Replace(cal, "-", ":") cal = Replace(cal, "*", ":") cal = Replace(cal, "/", ":") cal = Replace(cal, "^", ":") cal = Replace(cal, "(", ":") cal = Replace(cal, ")", ":") ext = "": ps1 = 1 For i = 1 To Len(cal) If (Mid(cal, i, 1) = ":") Then ps2 = i If ps2 - ps1 > 1 Then ext = ext & Application.Evaluate(Mid(cal, ps1 + 1, ps2 - ps1 - 1)) End If ps1 =...