[Share] Bảng tính khối lượng giống các Chương trình Dự toán

Vừa rồi trên Diễn đàn cũng có vài topic hỏi về vấn đề tính diễn giải khối lượng giống các Chương trình Dự toán.
Trước đây Tôi có viết 1 bài tương tự để nhờ ACE test giúp. Sau khi rút kinh nghiệm Tôi hình thành một bảng tính cho phép nhập khối lượng theo kiểu Diễn giải chi tiết trong Cell và (hoặc) theo kiểu Dài, Rộng, Cao  - tức là kiểu nào cũng đều được; nếu chỉ nhập khối lượng theo kiểu Diễn giải chi tiết trong Cell thì ẩn các cột không cần dùng là xong.
Khi nhập khối lượng theo kiểu Diễn giải chi tiết trong Cell thì chấp nhận các phép tính +,-,*,/,^,SQRT; chấp nhận dấu nhân kiểu "x"; chấp nhận dấu phân cách thập phân là dấu chấm hay dấu phẩy đều được.
Có hướng dẫn trong File.
Code nằm trong sheet "Khoi Luong", Pass để mở code VBA là 123 nhé (khóa tạm để khỏi hỏng code thôi).
Các Bạn test giúp và cho ý kiến (kể cả trục trặc hoặc lỗi hoặc thay đổi/tối ưu code) để hoàn thiện cho chúng ta cùng dùng.
Chú ý: Dòng công việc (là dòng có mã hiệu) thì không được ghi chi tiết khối lượng vì sẽ không có Công Thức KL từng phần dẫn đến Công Thức KL toàn bộ không nhập được và máy báo lỗi.
Tinh Dien Giai Khoi Luong.xls (64 KB, Lượt tải về: 2662)

10/12/2018 11:46 Tải lên

Click to download

suzukitadayoshi gửi lúc 22/5/2018 13:11
Em đã sửa lại, thêm 1 dòng ở dưới dòng mã hiệu để ghi chi tiết khối lượng như t ...

Dòng cuối cùng không có Dữ liệu nên "Lặp" không nghĩ.
Đã sửa Code bổ sung trường hợp này ở File bài #1.
File của Em cũng đã sửa code và chạy tốt. KTRA KHOI LUONG_XD360_L2.xlsm (1.44 MB, Lượt tải về: 1763)

22/5/2018 16:00 Tải lên

Click to download

File của anh hay quá anh ạ:
Một bảng tính cho phép nhập khối lượng theo kiểu Diễn giải chi tiết trong Cell và (hoặc) theo kiểu Dài, Rộng, Cao  - tức là kiểu nào cũng đều được (chương trình dự toán bình thường cũng chào thua vì chỉ được 1 trong 2 cách mà thôi).

Góp ý anh Cả tí:
1. Button [Định Dạng] nên gộp chung tính năng này với button [Tính Lại KL], vì đăng nào bấm nút tính lại cũng là công đoạn cuối cùng mà thôi, bấm thêm nút kia nữa thì lại mất thêm 1 bước. Mà nếu không thì anh dùng code VBA đế xác định khi người dùng nhấn Enter thì kiểm tra dòng cuối chưa định dạng thì định dạng luôn cho gọn.
2. Nút [Tính Lại KL] nếu có thể thì dẹp nó đi rồi, xong thì gán cho nó một phím nóng nào đó thì đẹp và gọn hơn, chuyên nghiệp hơn.

Mới chỉ nhiêu đó thôi, có thời gian em test tiếp rồi cho anh hay.

M@trixs gửi lúc 18/8/2016 18:57
Góp ý anh Cả tí:
1. Button [Định Dạng] nên gộp chung tính năng này với button [Tính L ...

Một ý hay, vì một người không thể lường hết được.
Cảm ơn Thèng em (nói tiếng Quảng) đã xem và có ý kiến.  Sẽ gộp 2 nút thành 1 (vì tính lại có nghĩa làm mới cả Trang rồi).
Thực ra: nếu tính 1 trong 2 kiểu: Diễn giải chi tiết trong Cell và theo D,R,C có sự khác nhau vì thế Code không xử lý hết được; cũng cố gắng dung hòa cho vẹn đôi đường.
Khi viết thì chưa lường hết mọi việc nên mới nãy ra ý tưởng hai nút đó thôi. Bây giờ thấy có thể gộp còn 1 nút rồi.
Phương thức sẽ là thế này:
- Nếu tự nhập dữ liệu: sẽ tự định dạng hết từ khâu tính KL, đến định dạng (nghĩa là xong 1 chi tiết công việc thì tự động phân index, tự kẻ khung luôn.
- Nếu Copy dữ liệu từ file khác sang thì mới dùng nút "Tinh lai KL". Trong đây sẽ gộp 2 sub "Tinh lai KL" và "Dinh Dang" nghĩa là tính hết KL từng phần, đưa công thức tổng cộng 1 công việc,  index toàn dự toán và Kẻ khung; cái này thì OK luôn.

Lâu quá không tâm sự (vi phạm nội quy đó). Vẫn theo nghiệp XD chứ?.

Dạo này em cũng bận nên chỉ lướt XD360 được tí. Công việc em nói là làm chuyên về xây dựng thì không nhưng nó là một phần công việc bên em, nay em công tác tại Thanh tra Nhà nước Cà Mau rồi anh.

Em sẽ cố gắng giành ít thời gian để góp ý cho anh đến khi anh giận em thì thôi hì hì

Ở cột : dài, rộng, cao anh có thể chỉnh để hiển thị dạng chuỗi phép tính được không ạ ( VD:  cột Dài hiển thị : 1+1; cột Rộng hiển thị : 2,5+3 ...... mà vẫn tính ra được kết quả)

thanhhieuhp gửi lúc 17/4/2018 14:33
Ở cột : dài, rộng, cao anh có thể chỉnh để hiển thị dạng chuỗi phép tính được khô ...

Ý em muốn hỏi là : khi nhập dự liệu trực tiếp trong cột D, R, C : sẽ hiển thị như dạng chuỗi ký tự số (1+1+....) mà vẫn tính ra được kết quả

Chào anh tranhoe. Em đã copy sheet "khoi luong" qua file khác để tính diễn giải, nhưng khi bấm vào button "Tinh lai KL" thì bị lỗi vòng lặp  ( hình đính kèm)
Mong anh giúp đỡ ạ. Cám ơn anh!
KTRA KHOI LUONG_XD360.xlsm (1.25 MB, Lượt tải về: 1739)

21/5/2018 18:39 Tải lên

Click to download

Lỗi Code

suzukitadayoshi gửi lúc 21/5/2018 18:29
Chào anh  tranhoe. Em đã copy sheet "khoi luong" qua file khác để tính diễn giải, nhưng kh ...

Do nhập chi tiết Khối lượng cùng Dòng chứa mã hiệu định mức nên không chạy được.
Chi tiết Khối lượng nằm dưới Dòng chứa mã hiệu định mức như trong file mẫu.

tranhoe gửi lúc 21/5/2018 22:47
Do nhập chi tiết Khối lượng cùng Dòng chứa mã hiệu định mức nên không chạy được ...

Em đã sửa lại, thêm 1 dòng ở dưới dòng mã hiệu để ghi chi tiết khối lượng như trong mẫu nhưng vòng lặp vẫn chạy hoài ko có điểm dừng anh ạ. Xin anh giúp đỡ. KTRA KHOI LUONG_XD360.xlsm (1.26 MB, Lượt tải về: 1564)

22/5/2018 13:10 Tải lên

Click to download

tranhoe gửi lúc 22/5/2018 16:00
Dòng cuối cùng không có Dữ liệu nên "Lặp" không nghĩ.
Đã sửa Code bổ sung trường  ...

Cám ơn bác nhiều, nhờ có file này ae tính khối lượng cũng có hứng hơn

tranhoe gửi lúc 22/5/2018 16:00
Dòng cuối cùng không có Dữ liệu nên "Lặp" không nghĩ.
Đã sửa Code bổ sung trường  ...

Chào bác!
Em đang sử dụng bảng tính của bác để diễn giải rất tiện, tuy nhiên có một vấn đề là khi điền vào ô 'số phụ' (ví dụ e muốn chuyển đổi từ kg sang tấn nên điền vào ô số phụ là 0.001), thì hàm 'product' ở ô khối lượng vẫn không đổi (chỉ nhân tới cột I- Đúng ra phải nhân tới cột J chứa số phụ luôn).
Mong bác sửa thêm cho em chút xíu chỗ này.
Cám ơn bác

suzukitadayoshi gửi lúc 26/6/2018 12:02
Chào bác!
Em đang sử dụng bảng tính của bác để diễn giải rất tiện, tuy nhiên có m ...

Em đánh vào cột hệ số nhé!.
Cột số phụ để tính toán các số liệu phụ phục vụ cho công tác khác, ví dụ tính diện tích đáy để dùng cho BT lót, diện tích tường để dùng cho Trát,......

tranhoe gửi lúc 27/6/2018 15:58
Em đánh vào cột hệ số nhé!.
Cột số phụ để tính toán các số liệu phụ phục vụ c ...

Vâng em cũng có tính những mục này, và thường thì diện tích em không biết điền vào cột nào nên điền vào cột rộng, cao thì không hay lắm.
Khi nhập 1 giá trị vào cột số phụ thì kết quả lại không tự nhân số phụ ạ, chắc có lỗi gì ở macro.Hay là số phụ là ô không liên quan, ô này mình tự nhập công thức ạ?

Chào Anh/Chú TranHoe
Em có vài thắc mắc muốn hỏi sau ạ
Em thấy bản này vào năm 2016 là rất tiện cho công việc diễn giải khối lượng
Nhưng Em thấy hiện tại (năm 2018) phần mềm G8 bản 2016 cũng đã chạy được diễn giải kích thước và chuyển đổi diễn giải giữa 2 loại này (tuy vẫn còn vài thiếu sót nhỏ).
Vậy như file Anh/Chú làm vào năm 2016 này nó có điểm gì tối ưu hơn so với bản phần mềm G8 không ạ?
(p/s: Em không phải PR gì cho phần mềm cả)
Mong anh/chú giải đáp ạ.
Thank you for your time!

Lâu rồi chẳng ai góp ý!. Vửa rồi có @M@trixs góp ý sau khi test.
Cảm ơn Em nhé!, đã bổ sung (cập nhật) vào file tại bài #1.

Cứ gõ số 8 là không chịu nhảy. các file diễn dải tương tự cũng lỗi như này nếu insert thêm nút bấm (File của bạn là nút bấm tính lại KL). Thêm 1 nút bấm là mất 1 số không nhảy. Mình không hiểu tại sao. Nếu xóa nút bấm này đi thì ok nhưng lại mất tính tính năng.

Bên mã định mức có thể làm giống kiểu phần mềm dự toán, gõ dấu * hoặc bấm cách 2 lần ở ô Tên công việc và diễn giải thì chữ ở cột C trở nên đậm, màu khác để phân biệt hạng mục, phần tính toán nào đó được không ạ.

anh xem giúp code này.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Thoat
Application.EnableEvents = False
Dim pos, kq As Long, chuoi As String
Dim objReg As Object
Set objReg = CreateObject("vbscript.regexp")
    objReg.Pattern = "[^\d().^*/+-]"
   objReg.Global = True
If Not Intersect(Target, [B2:B70000]) Is Nothing Then
    vtc = InStr(1, Target, " = ", 0)
    vtd = InStr(1, Target, ":  ", 0)
    cd = Len(Target.Value)
    chuoi1 = Target.Value
    If vtc Then chuoi1 = Mid(Target.Value, 1, vtc - 1): cd = vtc - vtd
    If vtd Then chuoi = Mid(chuoi1, vtd, cd)
    chuoi = Replace(chuoi, ",", ".")
    chuoi = Format(Evaluate(objReg.Replace(chuoi, vbNullString)), "#,##0.00")
    Target.Value = chuoi1 & " = " & chuoi
With Target

        .Characters(InStr(.Value, ":  ") + 2, Len(.Value)).Font.ColorIndex = 5
        .Characters(InStr(.Value, " = ") + 2, Len(.Value)).Font.ColorIndex = 3
    End With
End If
Thoat:
Application.EnableEvents = True
Set objReg = Nothing
If Target.Cells.Count > 1 Then Exit Sub
If Target = "loi" Then Exit Sub
End Sub

vtthanyeu gửi lúc 19/1/2022 16:36
Bên mã định mức có thể làm giống kiểu phần mềm dự toán, gõ dấu * hoặc bấm cách 2  ...

Em làm thêm phần code như ý kiến trên. Mọi người cho ý kiến ạ.
Còn 1 lỗi là đánh số "1" thì chương trình không chạy được, em đang tìm hiểu thêm để sửa lại.