Tinh Dien Giai Khoi Luong.xls
(64 KB, Lượt tải về: 3950)
10/12/2018 11:46 Tải lên
Click to download
Tác giả: duan1993 Thời gian: 18/8/2016 16:03
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).
Tác giả: M@trixs Thời gian: 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ạ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.
Tác giả: tranhoe Thời gian: 18/8/2016 19:25
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ứ?.
Tác giả: M@trixs Thời gian: 19/8/2016 18:08
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ì
Tác giả: thanhhieuhp Thời gian: 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ô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ả)
Tác giả: thanhhieuhp Thời gian: 17/4/2018 15:23
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ả
-
-
17/4/2018 15:42 Tải lên
Click to download
69 KB, Lượt tải về: 2597
[xls]
Tác giả: suzukitadayoshi Thời gian: 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 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ề: 3483)
21/5/2018 18:39 Tải lên
Click to download
Screenshot (4).png (120.45 KB, Lượt tải về: 166)
Lỗi Code
21/5/2018 18:24 Tải lên
Tác giả: tranhoe Thời gian: 21/5/2018 22:47
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.
Tác giả: suzukitadayoshi Thời gian: 22/5/2018 13:11
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ề: 2969)
22/5/2018 13:10 Tải lên
Click to download
Tác giả: tranhoe Thời gian: 22/5/2018 16:00
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ề: 3189)
22/5/2018 16:00 Tải lên
Click to download
Tác giả: suzukitadayoshi Thời gian: 23/5/2018 14:14
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
Tác giả: suzukitadayoshi Thời gian: 26/6/2018 12:02
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
Tác giả: tranhoe Thời gian: 27/6/2018 15:58
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,......
Tác giả: suzukitadayoshi Thời gian: 29/6/2018 12:19
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 ạ?
Tác giả: Duongthuy37 Thời gian: 2/7/2018 17:29
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!
Tác giả: tranhoe Thời gian: 10/12/2018 20:39
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.
Tác giả: MrThanhXDHD Thời gian: 18/1/2020 18:13
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.
Tác giả: vtthanyeu Thời gian: 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 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 ạ.
Tác giả: baobao87qn Thời gian: 24/1/2022 08:34
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
Tác giả: vtthanyeu Thời gian: 7/9/2022 15:23
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.
-
-
Tinh dien giai khoi luong New.xls
7/9/2022 15:25 Tải lên
Click to download
71 KB, Lượt tải về: 1799
| Chào mừng ghé thăm Phần mềm ôn thi sát hạch chứng chỉ hành nghề xây dựng (https://xaydung360.vn/diendan/) | Powered by Discuz! X3.2 |