[Share] Tính diễn giải công việc giống chương trình Dự toán

Một số chương trình Dự toán, tính khối lượng theo kiểu Diễn giải trong cell chứ không dùng kiểu Dài, Rộng, Cao và cho ra kết quả phép tính ngay trong Ô đó, đồng thời tính được tổng các khối lượng trong công việc như trong hình:

Đăng nhập/Đăng ký mở rộng

thanhnamxd1 gửi lúc 17/11/2015 11:02
Khi em copy code sang file excel khác
thì các công thức với phép - thì lại biến thành đ ...

Để dử dụng code cho file khác và tùy biến theo số hiệu cột trên file mới, các Bạn lưu ý:
Cột ghi diễn giải (cột C hay D, E, F,... tùy theo file của mình) bạn định dạng kiểu Text là được  (không dùng kiểu General - là kiểu mặc định của Excel)

Đăng nhập/Đăng ký mở rộng

youme_215 gửi lúc 16/11/2015 21:28
Khi chèn thêm dòng thì xuất hiện lỗi này ạ

Đúng rồi. Tại vì bắt lỗi kỹ quá nên lại gây lỗi.
Chỉ cần sửa code

[Visual Basic] 纯文本查看 复制代码

If Target.Count > 1 Or Target.Column <> 3 Or Target.Value = "" Then Exit Sub

thành code

[Visual Basic] 纯文本查看 复制代码

If Target.Count > 1 Then Exit Sub

là không còn lỗi trên.
Đã cập nhật lại file đính kèm bên trên.

Khi em copy code sang file excel khác
thì các công thức với phép - thì lại biến thành định dạng ngày tháng ( các phép tính khác vẫn bình thường)
Làm sao để làm được như anh ạ?

tranhoe gửi lúc 17/11/2015 11:08
Để dử dụng code cho file khác và tùy biến theo số hiệu cột trên file mới, các Bạn l ...

Tiện ích này hay thật. Cảm ơn tác giả đã chia sẻ cho anh em.
Tác giả có thể thêm tính năng dưới đây, để anh em áp dụng không:
     Ở mỗi hạng mục công việc.  Làm sao để cột E tự động tính và cập nhật kết quả sau khi chúng ta nhập xong số liệu ở cột C.       
     Vì nếu, với rất nhiều công việc. Mà làm thủ công: =TinhKL(c:c). Chắc là sẽ mất nhiều thời gian và có thể có nhầm lẫn sai sót       
Cảm ơn tác giả ./.

demdamsay gửi lúc 19/11/2015 16:16
Tiện ích này hay thật. Cảm ơn tác giả đã chia sẻ cho anh em.
Tác giả có thể thêm t ...

Hiểu ý của Bạn.
Việc đó giống như trong chương trình Dự toán. Muốn vậy phải có Form để chọn (và nhập vào File) công việc, chọn xong sẽ đưa vào file với 2,3,... dòng trống để tự ghi diễn giải, ... và có sẳn công thức tính KL tổng cộng.
Và như vậy là 1 chương trình lập Dự toán rồi.

Chào anh!
anh có thể chỉnh sử code để làm tròn ba số sau dấu phẩy đc không

duytrung45c3 gửi lúc 25/5/2016 17:19
Chào anh!
anh có thể chỉnh sử code để làm tròn ba số sau dấu phẩy đc không

Để làm tròn ba số sau dấu phẩy thì ngay tại phần cuối tính KL của 1 công việc ta cho làm tròn.
Tức là thay thế câu lệnh

[Visual Basic] 纯文本查看 复制代码

result = Evaluate(expression)

bằng câu lệnh:

[Visual Basic] 纯文本查看 复制代码

result = Round(Evaluate(expression), 3)

là xong.

Phần tính tổng khối lượng bị sai rồi anh ơi. Tổng bị nhân thêm 1000 rồi

anh cho em hỏi em muốn chạy được code của anh bảng cell của em thì làm thế nào, em mới dùng nền chưa rõ nhờ cao thủ giúp em.

hoangdongnhi gửi lúc 11/3/2018 23:03
anh cho em hỏi em muốn chạy được code của anh bảng cell của em thì làm thế nào, em mới ...

Đây là file có sử dụng macro nên phải cài đặt Excel cho phép mở macro. Đọc trong giáo trình nhé.
Sau đó nhập bình thường thôi.

tranhoe gửi lúc 12/3/2018 08:36
Đây là file có sử dụng macro nên phải cài đặt Excel cho phép mở macro. Đọc trong gi ...

em có bảng excell cần tính trên cột B làm cách nào copy đoạn mã của anh vào sheet em đang làm được ạ. em copy đoạn mã của anh rồi em vào sheet của em ấn chuột phải view code paste đoạn mã của anh mà nó không chạy, nhờ cao thủ chỉ cho em cách làm.

hoangdongnhi gửi lúc 15/3/2018 21:39
em có bảng excell cần tính trên cột B làm cách nào copy đoạn mã của anh vào sheet em ...

Nói tóm lại: phải có sự hiểu biết chút ít về VBA thì mới đọc để hểu code và tùy biến theo ý mình.
Biết đọc code sẽ biết sửa chổ nào để VBA chạy được. Chưa biết đi thì chưa thể tập nhảy được.

Anh tranhue ơi, cái này không tính được kết quả âm ạ

Miccpro gửi lúc 18/4/2018 20:49
Anh tranhue ơi, cái này không tính được kết quả âm ạ

Không hiểu sao máy em khi kết quả là số âm nó thay dấu - đằng trường thành dấu ,

alo cái này bị lỗi đánh số 8 nó không nhảy anh ah

Tuk45bn gửi lúc 6/9/2021 09:31
alo cái này bị lỗi đánh số 8 nó không nhảy anh ah

Mẫu trong bài này khác với mẫu em đưa lên (Mẫu đó Tôi có lập, nhưng ở Topic khác Tôi không nhớ. Mẫu trong bài này không lỗi

Đăng nhập/Đăng ký mở rộng

Rất hữu ích. thanks !

Anh cho em hỏi khi em tính tinhkl thì bị lỗi kết quả như thế này ạ.

xdpttmQuangMinh gửi lúc 10/1/2022 16:36
Anh cho em hỏi khi em tính tinhkl thì bị lỗi kết quả như thế này ạ.

Phần khối lượng tổng cộng phải sửa lại vùng dữ liệu bằng tay, không tự động được

Nhờ anh viết thêm cho em đoạn code tính tổng diễn giải + nhiều hàng, nhiều cột với ạ (giống như hàm Sum)
Cảm ơn anh nhiều!

trung2510 gửi lúc 28/8/2025 11:05
Nhờ anh viết thêm cho em đoạn code tính tổng diễn giải + nhiều hàng, nhiều cột với ạ  ...

Đưa file lên nhé!

trung2510 gửi lúc 28/8/2025 11:05
Nhờ anh viết thêm cho em đoạn code tính tổng diễn giải + nhiều hàng, nhiều cột với ạ  ...

Bạn dùng thử code sau:
công thức là: =SUMEVAL("Chọn ô cần tính tổng")

Private Function EvalTextFormula(ByVal s As String) As Variant
    Dim t As String
    t = Trim(CStr(s))
    If t = "" Or t = "-" Then
        EvalTextFormula = CVErr(xlErrNA)
        Exit Function
    End If

    t = Replace(t, "×", "*")
    t = Replace(t, "÷", "/")
    t = Replace(t, "**", "^")
    t = Replace(t, " ", "")

    If InStr(t, ",") > 0 Then t = Replace(t, ",", ".")

    If Left$(t, 1) <> "=" Then t = "=" & t

    Dim oldUse As Boolean, oldDec As String, oldThou As String
    oldUse = Application.UseSystemSeparators
    oldDec = Application.DecimalSeparator
    oldThou = Application.ThousandsSeparator

    On Error GoTo SafeExit
    Application.UseSystemSeparators = False
    Application.DecimalSeparator = "."
    Application.ThousandsSeparator = ","

    EvalTextFormula = Application.Evaluate(t)

SafeExit:
    Application.DecimalSeparator = oldDec
    Application.ThousandsSeparator = oldThou
    Application.UseSystemSeparators = oldUse

    If IsError(EvalTextFormula) Then EvalTextFormula = CVErr(xlErrValue)
End Function

Public Function SUMEVAL(ParamArray args() As Variant) As Double
    Dim i As Long, v As Variant, c As Variant, total As Double, tmp As Variant
    total = 0
    For i = LBound(args) To UBound(args)
        v = args(i)
        If IsObject(v) Then GoTo NextArg
        Select Case True
        Case IsArray(v)
            For Each c In v
                If VarType(c) = vbString Then
                    tmp = EvalTextFormula(c)
                    If IsNumeric(tmp) Then total = total + CDbl(tmp)
                ElseIf IsNumeric(c) Then
                    total = total + CDbl(c)
                End If
            Next c
        Case VarType(v) = vbString
            tmp = EvalTextFormula(CStr(v))
            If IsNumeric(tmp) Then total = total + CDbl(tmp)
        Case IsNumeric(v)
            total = total + CDbl(v)
        End Select
NextArg:
    Next i
    SUMEVAL = total
End Function