Hàm diễn giải công thức

Đầ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 = ps2
ext = ext & Mid(txt, i, 1)
End If
Next i

DGiai2 = Trim(ext)

End Function

Để mở trình soạn thảo VBA, bạn xem thêm hướng dẫn tại đây !. Lưu ý: Hàm diễn giải các phép tính đơn giản như: + - * / ^ ( ) giữa các ô, sheet trong cùng một file.

Keywords: hàm diễn giải giá trị ô công thức, hàm diễn giải giá trị công thức của ô