Mẫu hồ sơ quản lý chất lượng công trình bằng VBA

Sau một thời gian đọc các bài viết và tìm các Code của các anh chị và các thầy trên Diễn đàn. Em đã lắp ghép xong file Lập Hồ sơ quản lý chất lượng. Hôm nay mạo muội đưa lên đây mong các anh (chị) xem và góp ý giúp.
Mã giải nén : 123
Bản 2018 (Không có biên bản kiểm tra)

Bản 5.2020 (bổ sung biên bản kiểm tra)​

​

Cảm ơn bạn đã share. tôi cũng đang tạo file hỗ trợ lập hồ sơ QLCL với cách bố trí công việc theo sơ đồ ngang cho dễ hình dung. hôm nào rảnh mình cùng bàn luận nhé!

Có gì nhờ Bác tư vấn cho em. File em mới làm nên còn nhiều cái cần phải bổ sung nữa

Góp ý nhỏ: - Bảng bố trí tiến độ nên để dạng bảng ngang cho mọi người dễ hình dung, bố trí. - Nên xuất biên bản qua word để chỉnh sửa dễ dàng hơn nhất là trường hợp ô excel có nội dung dài ngắn khác nhau.

Có tí dẫn chứng này nhé: https://youtu.be/K-9jORn-gDU.

Góp ý nhỏ: - Bảng bố trí tiến độ nên để dạng bảng ngang cho mọi người dễ hình dung, bố trí. - Nên xuất biên bản qua word để chỉnh sửa dễ dàng hơn nhất là trường hợp ô excel có nội dung dài ngắn khác nhau.

Có tí dẫn chứng này nhé: https://youtu.be/K-9jORn-gDU.

Thân gửi!

gửi 1 cái làm hồ sơ hoàn công lên chơi cho có vs ae.
vẫn chưa hoàn thiện, chờ đóng góp từ mọi người.

Code của anh khó quá. Hôm nào hoàn thiện cho bọn em chiêm ngưỡng với nha

langtuchungtinh360 đã viết:

giờ mới có thời gian xem. nhìn xuất biên bản nhanh "vãi chưởng". chắc phải học hỏi thêm. của mình chỉ in với xuất PDF được mà không nhanh bằng như thế. mà được cái muốn xuất biên bản nào là xuất biên bản đó. đợi xong công trình này ngồi rảnh đổi mẫu data lại cho linh hoạt hơn. bác có hứng thú thì teamview bàn luận chơi. định hướng là chỉ gõ cạch cạch nhật ký là xong biên bản hồ sơ luôn. ý thằng bạn nó thế mà chưa nghĩ ra ý tưởng.
vừa mới xong code xuất biên bản mẫu ra file để quản lý với load vào.

1). Em lại đang định trở về cách truyền thống là "Trộn văn bản". Vì làm trên Exel Cái Code căn dòng nó chạy chậm quá anh ạ
2). Anh phát triển biên bản nghiệm thu từ Nhật ký thi công thì dễ bị rối và sót nữa. Anh thử làm như kiểu (Lập Tiến độ thi công trong Projec) xong rồi cho ra cả biên bản và Nhật ký luôn

langtuchungtinh360 đã viết:

gửi 1 cái làm hồ sơ hoàn công lên chơi cho có vs ae.
vẫn chưa hoàn thiện, chờ đóng góp từ mọi người.

Bạn cho địa cho maijl mình gửi cho. Trình độ excel của mình abc nên tiện ích hơi lỉnh kỉnh ko gửi qua diễn đàn được!

Lâu rồi mới ghé qua diễn đàn. Tôi gửi file cho bạn rồi nhé.Mong được cùng xây dựng

Cho em hỏi em mở file lên báo lỗi như thế này là sao mấy anh.
The code in project must be updated for use on 64-bit systems. Please review and update declare statements and then mark them with the PtrSafe attribute

Help me !!!

Cho em hỏi em mở file lên báo lỗi như thế này là sao mấy anh.
The code in project must be updated for use on 64-bit systems. Please review and update declare statements and then mark them with the PtrSafe attribute

Help me !!!

Shavara36! Thư được gửi lức 7h59 ngày 24/2/2017. bạn xem lại vì tôi gửi cho nhiều người nên có thể Gmail cho thành thư rác hoặc trong mục xã hội ...

1). Em lại đang định trở về cách truyền thống là "Trộn văn bản". Vì làm trên Exel Cái Code căn dòng nó chạy chậm quá anh ạ
2). Anh phát triển biên bản nghiệm thu từ Nhật ký thi công thì dễ bị rối và sót nữa. Anh thử làm như kiểu (Lập Tiến độ thi công trong Projec) xong rồi cho ra cả biên bản và Nhật ký luôn

Hôm trước Langtuchungtinh360 có nhờ nhưng tôi chưa rảnh xem File vì nhiều biên bản quá, nếu làm sơ xuất sẽ là thảm họa (Langtuchungtinh360 thông cãm nhé).

Chờ khi nào rảnh có thời gian tập trung tôi sẽ làm giúp cho muốn bao nhiêu biên bản cũng được.

Hôm trước Langtuchungtinh360 có nhờ nhưng tôi chưa rảnh xem File vì nhiều biên bản quá, nếu làm sơ xuất sẽ là thảm họa (Langtuchungtinh360thông cãm nhé).

khi em mở file lên, nó hiện bảng như thế này, có ảnh hưởng gì không anh? và khi em xuất biên bản ra không thấy file nằm ở đâu hết?

cảm ơn anh Sharava36!

Mình mở máy lên báo mã code dùng cho máy 32 bít vậy máy mình 64 bit thì phải làm thế nào hả các bạn. Các bạn có thể giúp mình sửa để mình có thể dùng được nó không ạ. cảm ơn các bạn nhiều

mail của mình là:

Sau một thời gian đọc các bài viết và tìm các Code của các anh chị và các thầy trên Diễn đàn. Em đã lắp ghép xong file Lập Hồ sơ quản lý chất lượng. Hôm nay mạo muội đưa lên đây mong các anh (chị) xem và góp ý giúp.

Video làm chi tiết:

Có Bác nào hộ em cái biểu đồ nhân lực trong file tiến độ thi công với

Bạn ơi cái này dùng cho máy 32 bít vậy máy mình 64 bít thì phải làm sao để sử đụng được vậy bạn. Mong bạn giúp đỡ mình khoản mã code để máy mình có thể sử dụng. cảm ơn bạn nhiều có gì bạn gửi cho mình xin qua địa chỉ mail: Thank bạn nha

Sau một thời gian đọc các bài viết và tìm các Code của các anh chị và các thầy trên Diễn đàn. Em đã lắp ghép xong file Lập Hồ sơ quản lý chất lượng. Hôm nay mạo muội đưa lên đây mong các anh (chị) xem và góp ý giúp.

Video làm chi tiết:

Có Bác nào hộ em cái biểu đồ nhân lực trong file tiến độ thi công với

Sau một thời gian đọc các bài viết và tìm các Code của các anh chị và các thầy trên Diễn đàn. Em đã lắp ghép xong file Lập Hồ sơ quản lý chất lượng. Hôm nay mạo muội đưa lên đây mong các anh (chị) xem và góp ý giúp.

Video làm chi tiết:

Có Bác nào hộ em cái biểu đồ nhân lực trong file tiến độ thi công với

Mong Bạn thêm vào Hồ sơ quản lý chất lượng này.

Tôi có tìm mà chưa thấy Biên bản lấy mẫu thí nghiệm ở Sheet nào bạn nhỉ? Và cũng chưa có Nghiệm thu vật liệu đầu vào và Nghiệm thu hoàn thành công trình đưa vào sử dụng thì phải?

Mong Bạn thêm vào Hồ sơ quản lý chất lượng này.

Hiện tại thì em có 1 file cũng tương đối đầy đủ nhưng đang bị sự cố căn dòng tại các biên bản kiểm tra (Qua 1 số Topic trên diễn đàn trao đổi với anh langtuchungtinh360 nhưng chưa tìm ra hướng giải )

(P/s: Hiện em dùng Nick này thay cho Nick Sharava36)

Gửi Anh vale33 Hiện tại em mới làm xong file Hồ sơ này. Nhờ Anh và các bạn Test hộ. Hiện tại máy em đang dùng bản Office2014 32bit thì chưa thấy có vấn đề gì. Không biết trên các bản Office khác thì như thế nào nữa (Anh về đổi đuôi .Rar thành đuôi .exe cài đặt rồi Test hộ em với nha) Đây là file chỉ có biên bản nghiệm thu, biên bản hoàn thành và 1 số biên bản phụ khác ( Em đang muốn trở về dùng trộn văn bản anh ạ)

Hiện tại thì em có 1 file cũng tương đối đầy đủ nhưng đang bị sự cố căn dòng tại các biên bản kiểm tra (Qua 1 số Topic trên diễn đàn trao đổi với anh langtuchungtinh360 nhưng chưa tìm ra hướng giải )

Cám ơn Anh./

(P/s: Hiện em dùng Nick này thay cho Nick Sharava36)

to PacifficPR: -) Khi mở file thì báo lỗi: ... Do you want to recover the contents of this workbook? ... và báo lỗi như ở hình bài #29, sau đó file chạy ở chế độ [Repaired] -) File này cũng không có Biên bản lấy mẫu hiện trường và Nghiệm thu bàn giao công trình đưa vào sử dụng. Tôi thấy có xuất được List thí nghiệm mà không thấy Biên bản lấy mẫu?

Tôi cũng đã làm bộ ba (nội bộ, yêu cầu, công việc) bằng Mail merge ở dạng đơn giản thôi. Còn biên bản lấy mẫu thí nghiệm thì có lẽ làm thành 1 file riêng vì số lượng BB lấy mẫu cũng không nhiều.

to PacifficPR: -) Khi mở file thì báo lỗi: ... Do you want to recover the contents of this workbook? ... và báo lỗi như ở hình bài #29, sau đó file chạy ở chế độ [Repaired] -) File này cũng không có Biên bản lấy mẫu hiện trường và Nghiệm thu bàn giao công trình đưa vào sử dụng. Tôi thấy có xuất được List thí nghiệm mà không thấy Biên bản lấy mẫu?

Tôi cũng đã làm bộ ba (nội bộ, yêu cầu, công việc) bằng Mail merge ở dạng đơn giản thôi. Còn biên bản lấy mẫu thí nghiệm thì có lẽ làm thành 1 file riêng vì số lượng BB lấy mẫu cũng không nhiều.

Cám ơn anh nhiều./

- Lỗi trên có cách khắc phục nào không anh. Hiện em chưa biết khắc phục lỗi đó - Hiện tại thì ở file này em tách ra 2 List phục vụ cho Mail merge - Phần biên bản lấy mẫu cũng hơi phức tạp Chắc để xuất tự động thì phải tuân theo 1 quy tắc nhập liệu nhất định ( Khi chọn mã thí nghiệm xong thì hiện Form phụ bổ sung thông tin) + Bê tông và vữa gồm : (Mác thiết kế, cốt liệu, độ sụt, Kích thước mẫu,Số lượng mẫu, Cường độ yêu cầu) Ví dụ (BTXM M200, đá 1x2cm, 6-8cm, 15x15x15cm, 2 mẫu, R7&R28) + Kiểm tra độ chặt ( Phương pháp đo, độ chặt yêu cầu, số điểm ...) Ví dụ (Rót cát, 95, 6 điểm) - Nghiệm thu bàn giao công trình đưa vào sử dụng thì các thành phần khác phải điền thủ công anh ạ Anh nghiên cứu 2 lỗi trên hộ em với. Còn 2 cái kia em nghiên cứu bổ sung thêm

Cám ơn anh nhiều./

-) Mail Merge mà tôi làm thì cũng chỉ ở dạng đơn giản. Các biên bản nghiệm thu chỉ ngắn gọn trong 1 mặt giấy thôi.

-) Tôi chỉ thấy lỗi chứ để sửa thì tôi bó tay những gì liên quan đến lập trình. -) Đúng là làm Biên bản lấy mẫu thí nghiệm cho tất cả các vật liệu công trình một cách tự động thì khó thật.

-) Mail Merge mà tôi làm thì cũng chỉ ở dạng đơn giản. Các biên bản nghiệm thu chỉ ngắn gọn trong 1 mặt giấy thôi.

http://www.giaiphapexcel.com/diendan/threads/theo-dõi-và-truy-vấn-đơn-thuốc-nơi-phòng-khám-bệnh.126073/

Do chưa có thời gian rảnh để thiết kế lại tất cả các Biên bản nên tôi chưa giúp và cũng không có ý kiến gì khác (ngoài ý kiến trên).

Anh ơi cho em hỏi cách khắc phục 2 lỗi như anh vanle33 đã nêu như thế nào ạ. Cám ơn anh nhiều

- Lỗi trên có cách khắc phục nào không anh. Hiện em chưa biết khắc phục lỗi đó - Hiện tại thì ở file này em tách ra 2 List phục vụ cho Mail merge - Phần biên bản lấy mẫu cũng hơi phức tạp Chắc để xuất tự động thì phải tuân theo 1 quy tắc nhập liệu nhất định ( Khi chọn mã thí nghiệm xong thì hiện Form phụ bổ sung thông tin) + Bê tông và vữa gồm : (Mác thiết kế, cốt liệu, độ sụt, Kích thước mẫu,Số lượng mẫu, Cường độ yêu cầu) Ví dụ (BTXM M200, đá 1x2cm, 6-8cm, 15x15x15cm, 2 mẫu, R7&R28) + Kiểm tra độ chặt ( Phương pháp đo, độ chặt yêu cầu, số điểm ...) Ví dụ (Rót cát, 95, 6 điểm) - Nghiệm thu bàn giao công trình đưa vào sử dụng thì các thành phần khác phải điền thủ công anh ạ Anh nghiên cứu 2 lỗi trên hộ em với. Còn 2 cái kia em nghiên cứu bổ sung thêm

Cám ơn anh nhiều./

mà hình như bạn đã có tải file như tôi nói bên trên rồi thì phải, thử tham khảo trong đó xem.

phần biên bản lấy mẫu thế nào mà phức tạp bạn nhỉ theo tôi nghĩ tại những công tác nào có thi công bê tông bạn có thể thêm 1 cột là mác bê tông và điền tương ứng qua công tác đó rồi bạn tạo 1 sheet để điền những thông tin cấp phối mà bạn cần như tỷ lệ xi măng, cát, đá, nước, phụ gia, độ xụt khi đó biên bản thi công bê tông bạn có thể lấy dữ liệu từ đó mà có thể tính ra khối lượng cần để thi công được bao nhiêu đó khối bê tông tại biên bản lấy mẫu thì bạn tạo 1 sheet tên mẫu làm data rồi lấy dữ liệu từ đó điền vào vấn đề làm sao để có khối lượng bê tông để tính được khối lượng vật liệu thì còn tùy vào dữ liệu bạn bố trí thế nào để có thể lấy ra được khối lượng để tính thì đó còn tùy vào dữ liệu của bạn ra sao hiện tại tôi đang làm theo hướng trên thì tôi chỉ cần chọn công tác, rồi chạy macro là xong, sẽ in ra những biên bản lấy mẫu thí nghiệm, thi công bê tông, nghiệm thu vật liệu cho công tác đó.

mà hình như bạn đã có tải file như tôi nói bên trên rồi thì phải, thử tham khảo trong đó xem.

Anh ơi biên bản lấy mẫu có nhiều vấn đề lắm anh ạ. Hiện em đã làm tạm ổn rồi nhưng mất khoảng 5 Form phụ kèm theo nữa anh à . Đâu chỉ có bê tông đâu anh mà còn kiểm tra dung trọng, kiểm tra k hiện trường, Đo modul đàn hồi, đo phẳng ... Mà nếu chỉ có bê tông thì cũng có 3 nựa chọn TCVN thì theo cốt liệu đi kèm kích thước khuôn mẫu (VD đá 4x6cm kích thước mẫu là 20x20x20cm còn lại 15x15x15cm). Chưa kể theo ASTM còn có khuôn mẫu 15x30 cm hoặc vữa KT khuôn 7.07x7.07x7.07 hoặc 4x4x16 nữa anh à

Hic.... Hic.....

Code của anh 1 rừng xà lu ai mà chả nhận ra chứ .... Đọc Code là đoán được 80% cộng thêm 20% cái vụ chèn hình vào biên bản nữa

chứ code tôi sao bằng ổng được. lính mới cần học hỏi thêm nhiều lắm.

có gì hay sao bạn. ý nói langtuchungtinh360 sao, ổng đi hồi tháng trước rồi bạn. tôi chỉ đang vọc lại cái di sản ổng để lại thôi.

chứ code tôi sao bằng ổng được. lính mới cần học hỏi thêm nhiều lắm.

rừng gì không quan trọng bạn ạ, quan trọng chạy đúng ý, nhanh là được rồi.

Gửi Anh vale33 Hiện tại em mới làm xong file Hồ sơ này. Nhờ Anh và các bạn Test hộ. Hiện tại máy em đang dùng bản Office2016 32bit thì chưa thấy có vấn đề gì. Không biết trên các bản Office khác thì như thế nào nữa (Anh về đổi đuôi .Rar thành đuôi .exe cài đặt rồi Test hộ em với nha)

Đây là file chỉ có biên bản nghiệm thu, biên bản hoàn thành và 1 số biên bản phụ khác ( Em đang muốn trở về dùng trộn văn bản anh ạ)
Hiện tại thì em có 1 file cũng tương đối đầy đủ nhưng đang bị sự cố căn dòng tại các biên bản kiểm tra (Qua 1 số Topic trên diễn đàn trao đổi với anh langtuchungtinh360 nhưng chưa tìm ra hướng giải ) Cám ơn Anh./

(P/s: Hiện em dùng Nick này thay cho Nick Sharava36)

Cái đó không phải nến đâu. Bạn đổi đuôi .Rar thành đuôi .exe rồi cài đặt thử

Em cũng đang mò nghịch cái này, thấy xu hướng giờ mọi người thường làm list để trộn BB luôn bác nhỉ
P/s: Cái form của bác hay quá, có thể cho em xem tham khảo được không ạ, cảm ơn bác

File sưu tầm nhưng E chẳng biết tí tiếng Anh nào

Bạn mới có 1 gờ mà biên bản có giờ bắt đầu và giợ kết thúc nữa mà. Cái này mình cũng chưa lập được

Em chỉ lấy ví du thế thôi, giờ kết thúc chỉ cần cộng thêm 30 hoặc 100 là được bác ạ. Với lại bác xem xét việc bỏ BBNT nội bộ bác ạ, lâu lắm rồi không ai bảo em làm NTNB cả

Cái đó phải xem lại nếu nó lọt vào khung 11h30 đến 13h30 hoặ quá 17h thì sao. Còn BBNB Chỗ mình họ vẫn đòi cái thứ đó. Mấy hôm rồi lười bảo làm thêm cho nó hoàn thiện tí. Nhưng dạo này độ lười hơi cao nên thôi

Các Sư Huynh có file Hồ Sơ Chất Lượng CỌC KHOAN NHỒI cho em xin với? em cảm ơn ạ.

Sau một thời gian đọc các bài viết và tìm các Code của các anh chị và các thầy trên Diễn đàn. Em đã lắp ghép xong file Lập Hồ sơ quản lý chất lượng. Hôm nay mạo muội đưa lên đây mong các anh (chị) xem và góp ý giúp.

Video làm chi tiết:

Có Bác nào hộ em cái biểu đồ nhân lực trong file tiến độ thi công với

Gửi Anh vale33 Hiện tại em mới làm xong file Hồ sơ này. Nhờ Anh và các bạn Test hộ. Hiện tại máy em đang dùng bản Office2016 32bit thì chưa thấy có vấn đề gì. Không biết trên các bản Office khác thì như thế nào nữa (Anh về đổi đuôi .Rar thành đuôi .exe cài đặt rồi Test hộ em với nha)

Đây là file chỉ có biên bản nghiệm thu, biên bản hoàn thành và 1 số biên bản phụ khác ( Em đang muốn trở về dùng trộn văn bản anh ạ)
Hiện tại thì em có 1 file cũng tương đối đầy đủ nhưng đang bị sự cố căn dòng tại các biên bản kiểm tra (Qua 1 số Topic trên diễn đàn trao đổi với anh langtuchungtinh360 nhưng chưa tìm ra hướng giải ) Cám ơn Anh./

(P/s: Hiện em dùng Nick này thay cho Nick Sharava36)

Lúc đó bên Sheet GhiNhatky. Không thể hiện được công việc thi công.

3. Hoặc là: Xử lý lại Sheet GhiNhatky. Tách các công việc thành các cột riêng biệt:

Góp ý nhỏ: - Bảng bố trí tiến độ nên để dạng bảng ngang cho mọi người dễ hình dung, bố trí. - Nên xuất biên bản qua word để chỉnh sửa dễ dàng hơn nhất là trường hợp ô excel có nội dung dài ngắn khác nhau.

Có tí dẫn chứng này nhé:

.
Thân gửi!

Lời đầu tiên xin cám ơn các anh chị em trên diễn đàn đã share file. Hiện mình có tải về chạy thử nhưng bị báo lỗi như sau (có hình ảnh đính kèm). Nhờ các cao nhân hướng dẫn cách xử lý ạ.

Lỗi xuất hiện khi mình bấm vào xuất biên bản ạ

Lời đầu tiên xin cám ơn các anh chị em trên diễn đàn đã share file. Hiện mình có tải về chạy thử nhưng bị báo lỗi như sau (có hình ảnh đính kèm). Nhờ các cao nhân hướng dẫn cách xử lý ạ.

Lỗi xuất hiện khi mình bấm vào xuất biên bản ạ

Cảm ơn các bác đã chia sẻ, cách làm hồ sơ chất lượng hay quá.

Nên có phương án áp dụng BBNB hoặc không và đưa tiêu chuẩn áp dụng vào phần căn cứ nghiệm thu của biên bản ạ, đồng thời độ cao dòng cũng phải tự động đề phòng tên CĐT, TV, NT, Công việc ... quá dài thì cần phải xuống dòng. Không thì lúc in ra cả đống biên bản rồi mà không đọc được thì uổng lắm ạ.

Sau một thời gian đọc các bài viết và tìm các Code của các anh chị và các thầy trên Diễn đàn. Em đã lắp ghép xong file Lập Hồ sơ quản lý chất lượng. Hôm nay mạo muội đưa lên đây mong các anh (chị) xem và góp ý giúp.

Video làm chi tiết (QLCL Pro190816)​

​

Bản mới (Setup HSQLCL.rar) Mã giải nén : 123

​

Nên có phương án áp dụng BBNB hoặc không và đưa tiêu chuẩn áp dụng vào phần căn cứ nghiệm thu của biên bản ạ, đồng thời độ cao dòng cũng phải tự động đề phòng tên CĐT, TV, NT, Công việc ... quá dài thì cần phải xuống dòng. Không thì lúc in ra cả đống biên bản rồi mà không đọc được thì uổng lắm ạ.

Cái này Setup HSQLCL.rar Bị lổi rồi hay sao ấy ko giải nén đc bạn oi

Sau một thời gian đọc các bài viết và tìm các Code của các anh chị và các thầy trên Diễn đàn. Em đã lắp ghép xong file Lập Hồ sơ quản lý chất lượng. Hôm nay mạo muội đưa lên đây mong các anh (chị) xem và góp ý giúp.

Video làm chi tiết (QLCL Pro190816)​

​

Bản mới (Setup HSQLCL.rar) Mã giải nén : 123

​

Cảm ơn bạn rất nhiều, mình tải được rồi nhưng win mình 64bit lại không chạy được bạn ạ. Nó báo " The code in project must be updated for use on 64-bit systems. Please review and update Declare statements and then mark them with the PtrSafe attribute". Có cách nào xử lý được không hả bạn?

Thôi em cứ thấy cái nào có Form hoặc Module là em cho cái Code dưới vào đầu. Không biết có đúng không nữa

#If VBA7 And Win64 Then 'Office 64-bit Private Declare PtrSafe Function GetCurrentThreadId Lib "kernel32" () As Long Private Declare PtrSafe Function SetDlgItemText Lib "user32" Alias "SetDlgItemTextW" (ByVal hDlg As LongPtr, ByVal nIDDlgItem As LongPtr, ByVal lpString As String) As Long Private Declare PtrSafe Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As LongPtr, ByVal lpfn As LongPtr, ByVal hmod As LongPtr, ByVal dwThreadId As LongPtr) As Long Private Declare PtrSafe Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As LongPtr) As Long #Else ' Office 32-bit Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long Private Declare Function SetDlgItemText Lib "user32" Alias "SetDlgItemTextW" (ByVal hDlg As Long, ByVal nIDDlgItem As Long, ByVal lpString As String) As Long Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long #End If

Bạn thử chạy xem nó có lỗi không. Mình không có Office 64-bit để thử

Cảm ơn bạn nhé! Mình past vào thì mở lên không bị lỗi nữa nhưng mỗi lần xuất dữ liệu nó lại không được. Mình thấy nó bị lỗi từ dòng lệnh này "Function MsgboxUni(ByVal PromptUni As Variant, Optional ByVal Buttons As VbMsgBoxStyle = vbOKOnly, Optional ByVal TitleUni As Variant = vbNullString) As VbMsgBoxResult" . Nó báo " Sub or Function not defined"
VBA mình không nắm rõ nên mong bạn chỉ giáo

Private Declare Function GetActiveWindow Lib "user32" () As Long Private Declare Function MessageBoxW Lib "user32" (ByVal HWnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long

Có phải Bạn thay cái dòng

Private Declare Function GetActiveWindow Lib "user32" () As Long Private Declare Function MessageBoxW Lib "user32" (ByVal HWnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long

trong Module MsgUnicode bằng cái đoạn Code ở bài 95 không. Riêng cái MsgUnicode đừng đả động gì đến nó cứ để nguyên như cũ xem sao

Cho mình hỏi, đơn vị mình không cần nghiệm thu nội bộ. Vậy tách nó ra như thế nào? Trong bản cài của mình không có list biên bản kiểm tra đổ bê tông, biên bản lấy mẫu vật liệu?

Cho mình hỏi, đơn vị mình không cần nghiệm thu nội bộ. Vậy tách nó ra như thế nào? Cho hỏi, biên bản lấy mẫu vật liệu nằm ở đâu?

Cái này cũng định làm từ lâu rồi mà độ lười nó hơi cao Để 1 ngày đẹp trời mình sẽ làm lại cái Form in (Đang tính kết kết hợp cả chức năng in và xuất pdf và đi cùng đó là chọn loại biên bản cần in ...) Còn hiện tại thì bạn dùng chức năng giới hạn vùng in trong Excel để chữa cháy cái nha

View attachment 198085

Trong file cài của mình, thì chỉ có 3 biên bản, NGhiệm thu nội bộ, Phiếu yêu cầu nghiệm thu và Nghiệm thu công việc. Không có biên bản lấy mẫu vật liệu. Hay nó ở 1 file cài khác hả bạn

Biên bản lấy mẫu vật liệu không có Bạn à vì ở khu vực mình đang làm cái mẫu đó Đơn vị thí nghiệm họ làm (Bên mình chuyển list thí nghiệm sang thôi )

Bài đã được tự động gộp: 25/6/18

Tại mình thấy cái bộ cài Setup HSQLCL.rar khá nhẹ. dùng tốt để làm các biên bản không yêu cầu nhiều biên bản. Bên mình chỉ cần làm 3 biên bản thôi. Phiếu yêu cầu, Biên bản nghiệm thu và lấy mẫu vật liệu (nếu có). Cảm ơn bạn đã nhiệt tình hướng dẫn

Bài đã được tự động gộp: 25/6/18

Mình thấy trong mẫu biên bản của file Setup HSQLCL.rar khi khai báo ở Nhật trình công việc có cả phần lấy mẫu thí nghiệm bê tông và vữa. Tại sao không chèn thêm vào một biên bản lấy mẫu bê tông ở những công việc có phần khai báo lấy mẫu vật liệu

Hôm nay bị các sếp bắt làm bộ hồ sơ fake hoàn công nhưng không có mục TVGS có cách nào bỏ được không các bác.

Nhờ bạn xem lại dùm, ở file QLCL Pro 190816 phần List Bê tông, Kiểm tra CPCT và List khác nó trống không. Không link qua từ Nhật trình như trong video.

Thêm vào đó không có Biên bản lấy mẫu vật liệu Bê tông và vữa.

biên bản ntcv mình thêm 1 người giám sát nữa hoặc chèn thêm hàng thì biên bản sẽ bị mất mục b của phần 4 căn cứ nt đó bạn. khặc phục sao bạn

biên bản ntcv mình thêm 1 người giám sát nữa hoặc chèn thêm hàng thì biên bản sẽ bị mất mục b của phần 4 căn cứ nt đó bạn. khặc phục sao bạn

Bạn có thể share mình phần mềm phân lớp được không? Cảm ơn bạn nhiều. Mail mình:
Mình có đóng góp nữa là hình như phần mềm của bạn chưa có môt sheet riêng cho các biên bản như Kiểm tra hiện trường trước khi thi công, Kiểm tra máy móc trước khi thi công,... những cái nhập ở Công tác chuẩn bị ở Sheet Nhật trình ý.

Bạn có thể share mình phần mềm phân lớp được không? Cảm ơn bạn nhiều. Mail mình:
Mình có đóng góp nữa là hình như phần mềm của bạn chưa có môt sheet riêng cho các biên bản như Kiểm tra hiện trường trước khi thi công, Kiểm tra máy móc trước khi thi công,... những cái nhập ở Công tác chuẩn bị ở Sheet Nhật trình ý.

Cái này chạy với Cad 2007 và Excel 2003. Còn các phiên bản Excel lớn hơn thì thất bại
Có điều kiện thì bạn mua bản mới dùng nha. Nhớ chia sẻ cho mình dùng ké với. Vì dạo nạy đang bị bênh "Viêm mang túi" mãn tính

Mình chỉnh lại code trong sheet Biên Bản nhưng khổ nỗi trong List BB bạn lập trình thế nào mà, những ô nằm ngoài vùng nhập từ Số đếm CV sang bên phải nó cũng tự bị xóa khi cập nhật. Làm mình bó tay. Thêm nữa, mình đã đánh dấu x vào ô xuất biên bản kiểm tra kích thước hình học. Nhưng ở ListBB Kiểm tra nó vẫn trống không?

Mình chỉnh lại code trong sheet Biên Bản nhưng khổ nỗi trong List BB bạn lập trình thế nào mà, những ô nằm ngoài vùng nhập từ Số đếm CV sang bên phải nó cũng tự bị xóa khi cập nhật. Làm mình bó tay. Thêm nữa, mình đã đánh dấu x vào ô xuất biên bản kiểm tra kích thước hình học. Nhưng ở ListBB Kiểm tra nó vẫn trống không?

View attachment 198856

View attachment 198857

P/s: Bạn có mẫu biên bản lấy mẫu bê tông, đo K ... và mẫu biên bản hoàn thành hạng mục công trình cho mình xin để tham khảo để sắp tới đưa vào file mới nhé

Cái mình cần kiểm tra kích thước hình học là phần đào nền mã AB.1 thì sao? Hiện tại mình đang dùng phần mềm của bạn để vừa làm ctrinh của mình vừa test phần mềm. Thấy cũng rất ổn rồi. Tại mình gà VBA nên không biết tùy chỉnh lại thôi. Cảm ơn bạn. Nhân tiện hỏi luôn. Sao tự dưng hôm nay nó gặp lỗi này khi mình bấm chuyển qua biên bản khác.

Bài đã được tự động gộp: 5/7/18

Cái mình cần kiểm tra kích thước hình học là phần đào nền mã AB.1 thì sao? Hiện tại mình đang dùng phần mềm của bạn để vừa làm ctrinh của mình vừa test phần mềm. Thấy cũng rất ổn rồi. Tại mình gà VBA nên không biết tùy chỉnh lại thôi. Cảm ơn bạn. Nhân tiện hỏi luôn. Sao tự dưng hôm nay nó gặp lỗi này khi mình bấm chuyển qua biên bản khác.

View attachment 198877

Bài đã được tự động gộp: 5/7/18

Biểu mẫu nghiệm thu công trình bên mình đây bạn nhé.

Sau một thời gian đọc các bài viết và tìm các Code của các anh chị và các thầy trên Diễn đàn. Em đã lắp ghép xong file Lập Hồ sơ quản lý chất lượng. Hôm nay mạo muội đưa lên đây mong các anh (chị) xem và góp ý giúp.

Video làm chi tiết (QLCL Pro190816)​

​

Bản mới đã chỉnh lại cho 32bit & 64bit (Setup HSQLCL.rar) Mã giải nén : 123

​

Cám ơn bạn! Mình bình thường làm HSQLCL bằng phương pháp trộn, giờ muốn tìm hiểu thêm xem có cách nào làm nhanh và quản lý dễ hơn ko? Bạn ơi cho mình hỏi: 1) Dùng Setup HSQLCL có cách nào xuất biên bản ra file word được ko ạ? 2) Nội dung biểu mẫu biên bản nghiệm thu có thay đổi hay sửa cho phù hợp với mẫu của CĐT được ko ạ? Ko muốn dùng BBNT nội bộ thì bỏ đi bằng cách nào ạ? Cám ơn bạn đã lắng nghe

File Setup HSQLCL có chức năng tách ra 1 file để dùng phương pháp trộn văn bản. Bạn vào HSQLCL ---> Tách list biên bản ---> Tách list biên bản CVXD

Mình thấy bạn xuất ra file PDF, ko có cách nào xuất trực tiếp qua word luôn ạ? Nếu xuất ra PDF như bạn hướng dẫn trong video thì các BBNT có thay đổi hay sửa được theo mẫu của CĐT ko bạn? cám ơn bạn

Xuất ra Pdf nó gần như bản in rồi bạn. Sửa được nhưng nhọc công lắm

Mình thấy bạn xuất ra file PDF, ko có cách nào xuất trực tiếp qua word luôn ạ? Nếu xuất ra PDF như bạn hướng dẫn trong video thì các BBNT có thay đổi hay sửa được theo mẫu của CĐT ko bạn? cám ơn bạn

Thực tế không cần xuất ra Word đâu bạn. Kể cả mấy phần mềm như QLCL GXD cũng không xuất được ra Word trực tiếp mà. Mà phải từ PDF rồi xuất qua Word. Bạn có thể tạo thêm một sheet cho các biên bản kiềm tra máy móc hiện trường, biên bản kiểm tra điều kiện trước khi thi công được không? Trong file của mình, phần kiểm tra kích thước hình học, mình muốn chuyển qua in ngang. Không biết sao nó bị lỗi khung in nữa.

Trong excel đã có thể tùy chỉnh lại gần như giống 95% biểu mẫu của CĐT rồi bạn. NHững cái 5% còn lại là hoa lá cành thôi. Không quan trọng lắm.

Bài đã được tự động gộp: 5/7/18

Xuất ra Pdf nó gần như bản in rồi bạn. Sửa được nhưng nhọc công lắm

Tức là mình vẫn sửa được trực tiếp biểu mẫu BBNT đó đúng ko bạn? Cám ơn bạn!

Bài đã được tự động gộp: 5/7/18

Bạn ơi! bạn đã setup HSQLCL hoàn chỉnh chưa ạ? Có thể gửi cho mình bản đầy đủ nhất của bạn được ko ạ? Cám ơn bạn nhiều?

P/s Mình cũng lang thang qua một số phần mềm lập hồ sơ nghiệm thu để ăn trôm ý tưởng của họ nhưng đến bây giờ thì chưa được cái gì cả

Bài đã được tự động gộp: 5/7/18

file setup HSQLCL không có các biên bản kiểm tra, lấy mẫu. Còn những phần khác theo mình cũng tạm ổn. Hiện nay minh đang dùng bản có các biên bản kiểm tra để làm hồ sơ riêng mình nhưng nó còn một số lỗi phát sinh. Hi vọng một thời gian ngắn nữa mua được key chương trình phân lớp nền đường mình sẽ đưa nó vào và hoàn thiện một số cái còn thiếu mà các thành viên đã góp ý trong topic. Khi nào tạm ổn mình đưa lên các bạn test thử xem sao

P/s Mình cũng lang thang qua một số phần mềm lập hồ sơ nghiệm thu để ăn trôm ý tưởng của họ nhưng đến bây giờ thì chưa được cái gì cả

Bài đã được tự động gộp: 5/7/18

Bạn kiểm tra lại xem sao. Nó còn 1 chút ở cái biên bản nghiệm thu. Vì bạn đang bố trí gọn vào 1 trang do vậy khi tên nội dung công nghiệm thu dài nó sẽ đẩy thêm 1 trang nữa. Cái này loay hoai mãi mà không làm được

File mình gửi nó cho trộn biên bản rất hay. Có thể tùy chọn in hay không in cái nào. Bạn làm được vậy thì hay quá.

File bạn gửi lại mình, mình cop code qua bản mình đang làm nhưng nó vẫn bị vậy. Mình phải cop là vì đang làm tương đối nhiều rồi không chuyển qua bản của bạn được

Hôm nay làm đến biên bản nghiệm thu hạng mục mới thấy, Phần Sheet Thông tin bạn thiếu mất đại diện Chủ đầu tư để nghiệm thu ba bên rồi rồi. Nhưng cái này nhỏ, nhớ update phiên bản sau nhé.

file setup HSQLCL không có các biên bản kiểm tra, lấy mẫu. Còn những phần khác theo mình cũng tạm ổn. Hiện nay minh đang dùng bản có các biên bản kiểm tra để làm hồ sơ riêng mình nhưng nó còn một số lỗi phát sinh. Hi vọng một thời gian ngắn nữa mua được key chương trình phân lớp nền đường mình sẽ đưa nó vào và hoàn thiện một số cái còn thiếu mà các thành viên đã góp ý trong topic. Khi nào tạm ổn mình đưa lên các bạn test thử xem sao

P/s Mình cũng lang thang qua một số phần mềm lập hồ sơ nghiệm thu để ăn trôm ý tưởng của họ nhưng đến bây giờ thì chưa được cái gì cả

Bài đã được tự động gộp: 5/7/18

Bạn kiểm tra lại xem sao. Nó còn 1 chút ở cái biên bản nghiệm thu. Vì bạn đang bố trí gọn vào 1 trang do vậy khi tên nội dung công nghiệm thu dài nó sẽ đẩy thêm 1 trang nữa. Cái này loay hoai mãi mà không làm được

Xuất ra Pdf nó gần như bản in rồi bạn. Sửa được nhưng nhọc công lắm

file bản chạy trên 64bit. t thấy phần nhật ký và công việc không tự update hả bạn.

Ở phần công tác bê tông. Đáng nhẽ ra khi đã chọn vào lấy biên bản kiểm tra bê tông, kiểm tra bê tông sau khi tháo ván khuôn thì công tác này phải không xuất hiện trong list biên bản nữa khi đã có trong list bê tông rồi mới đúng chứ. Hơn nữa, list kiểm tra cốt thép ván khuôn file của mình nó đưa luôn cả bê tông vô.

Biên bản kiểm tra bê tông sau khi tháo ván khuôn đang bị mặc định là sau 7 ngày. Nhưng bên mình kiểm tra sau 3 ngày. Bạn chỉnh lại dùm nhé.

Ở phần công tác bê tông. Đáng nhẽ ra khi đã chọn vào lấy biên bản kiểm tra bê tông, kiểm tra bê tông sau khi tháo ván khuôn thì công tác này phải không xuất hiện trong list biên bản nữa khi đã có trong list bê tông rồi mới đúng chứ. Hơn nữa, list kiểm tra cốt thép ván khuôn file của mình nó đưa luôn cả bê tông vô.

View attachment 199090

Biên bản kiểm tra bê tông sau khi tháo ván khuôn đang bị mặc định là sau 7 ngày. Nhưng bên mình kiểm tra sau 3 ngày. Bạn chỉnh lại dùm nhé.

Ngày xưa mới biết VBA viết mấy Code bây giờ nhìn thấy nó thật là kinh khủng. Tìm Code trong Modul cũng đỏ cả mắt
Bạn trót làm theo cái file này thì gắng gượng một tý nha
Các biên bản kiểm tra hoặc biên bản lấy mẫu thì nó không có ngày nội bộ và ngày phiếu YCNT. Nếu bạn điền đủ ngày NB, PYV, NTCV thì nó hiểu là cái đó là BBNTCVXD (Nó không biết đọc cái chữ ở cột D đâu

)
Mình sửa lại mấy cái. Bạn tham khảo

Chờ tin vui nhất từ bạn. Chúc bạn nhiều sức khỏe và thành đạt.

Cảm ơn bạn nhiều. Mong các phiên bản sau sẽ càng hoàn thiện hơn. Mình cũng đang cố học một chút về Vlookup với VBA để sống chung với lũ chờ bạn hoàn thiện phần mềm. Hiện tại mình cũng đã có thể tự tạo một số sheet biên bản đơn giản với lệnh Vlookup. Chỉ có một số biên bản nó gắn với modul lệnh của bạn mình không chỉnh được lệnh. Thí dụ như cái kiểm tra bê tông sau bao nhiêu ngày ý. Thực tế bên mình, như cống sẽ là 3 ngày nhưng bê tông khối đổ phần đập thủy điện sẽ là 7 ngày, nên sẽ không cố định phần này. Bạn nên chỉnh sửa lại cho linh hoạt. Như để trống nó để người dùng tự nhập vào thay vì cố định ngày là 3 hay 7. Vì có khi đơn vị còn yêu cầu nghiệm thu thêm 1 thí nghiệm 28 ngày nữa.

Chờ tin vui nhất từ bạn. Chúc bạn nhiều sức khỏe và thành đạt.

Thực tế không cần xuất ra Word đâu bạn. Kể cả mấy phần mềm như QLCL GXD cũng không xuất được ra Word trực tiếp mà. Mà phải từ PDF rồi xuất qua Word.

Sau một thời gian đọc các bài viết và tìm các Code của các anh chị và các thầy trên Diễn đàn. Em đã lắp ghép xong file Lập Hồ sơ quản lý chất lượng. Hôm nay mạo muội đưa lên đây mong các anh (chị) xem và góp ý giúp.

Video làm chi tiết (QLCL Pro190816)​

​

Bản mới đã chỉnh lại cho 32bit & 64bit (Setup HSQLCL.rar) Mã giải nén : 123

​

File Setup HSQLCL có chức năng tách ra 1 file để dùng phương pháp trộn văn bản. Bạn vào HSQLCL ---> Tách list biên bản ---> Tách list biên bản CVXD

Nghiệm thu vật liệu đầu vào thì có. Nhưng không có biên bản lấy mẫu bê tông.

Bài đã được tự động gộp: 13/7/18

Mình có nói Exel không xuất được ra Word đâu. Mình chỉ nói là khó thôi mà.

Bản HSCL rất hay nhưng không hiểu sao tác giả lại bỏ tính năng xuất các BBKT, BBLM đi. Mong sớm có bản update

Em bị báo lỗi thế này, bác giúp em với

Sau một thời gian đọc các bài viết và tìm các Code của các anh chị và các thầy trên Diễn đàn. Em đã lắp ghép xong file Lập Hồ sơ quản lý chất lượng. Hôm nay mạo muội đưa lên đây mong các anh (chị) xem và góp ý giúp.

Video làm chi tiết (QLCL Pro190816)​

​

Bản mới đã chỉnh lại cho 32bit & 64bit (Setup HSQLCL.rar) Mã giải nén : 123

​

anh ơi cho em xin file với. thanks Anh!

PacificPR Hồ sơ bác đắt khách quá :v mới nhấn vài cái sửa lại với bổ xung vài chỗ nha. file tải từ #1

Private Declare Function MessageBoxW Lib "USER32" (ByVal hWnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long -> #If VBA7 Or Win64 Then Private Declare PtrSafe Function MessageBoxW Lib "USER32" (ByVal hWnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long #Else Private Declare Function MessageBoxW Lib "USER32" (ByVal hWnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long #End If tại Sub Dontrangbia() khai báo Dim Rng As Range tại Sub FixRow(ByVal Rng As Range) khai báo Dim Ma As Range

Mình cũng đang làm hồ sơ chất lượng. cho mình xin 1 bản với. Mail mình: . Cám ơn bạn nhiều!

Bài đã được tự động gộp: 8/11/18

Sau một thời gian đọc các bài viết và tìm các Code của các anh chị và các thầy trên Diễn đàn. Em đã lắp ghép xong file Lập Hồ sơ quản lý chất lượng. Hôm nay mạo muội đưa lên đây mong các anh (chị) xem và góp ý giúp.

Video làm chi tiết (QLCL Pro190816)​

​

Bản mới đã chỉnh lại cho 32bit & 64bit (Setup HSQLCL.rar) Mã giải nén : 123

​

Sau một thời gian đọc các bài viết và tìm các Code của các anh chị và các thầy trên Diễn đàn. Em đã lắp ghép xong file Lập Hồ sơ quản lý chất lượng. Hôm nay mạo muội đưa lên đây mong các anh (chị) xem và góp ý giúp.

Bản mới đã chỉnh lại cho 32bit & 64bit (Setup HSQLCL.rar) Mã giải nén : 123

​

Góp ý nhỏ: - Bảng bố trí tiến độ nên để dạng bảng ngang cho mọi người dễ hình dung, bố trí. - Nên xuất biên bản qua word để chỉnh sửa dễ dàng hơn nhất là trường hợp ô excel có nội dung dài ngắn khác nhau.

Có tí dẫn chứng này nhé:

.
Thân gửi!

Có ai giúp mình hướng dẫn cài đặt với... Dốt công nghệ quá... Tải về mà chưa có biết dùng vì mở không được

Sau một thời gian đọc các bài viết và tìm các Code của các anh chị và các thầy trên Diễn đàn. Em đã lắp ghép xong file Lập Hồ sơ quản lý chất lượng. Hôm nay mạo muội đưa lên đây mong các anh (chị) xem và góp ý giúp.

Bản mới đã chỉnh lại cho 32bit & 64bit (Setup HSQLCL.rar) Mã giải nén : 123

​

Em bị lỗi này thì phải làm sao vậy các anh.

File rất hay cho mình xin với mail :

Sau một thời gian đọc các bài viết và tìm các Code của các anh chị và các thầy trên Diễn đàn. Em đã lắp ghép xong file Lập Hồ sơ quản lý chất lượng. Hôm nay mạo muội đưa lên đây mong các anh (chị) xem và góp ý giúp.

Mã giải nén : 123

​

Bác chủ thớt có file QLCL Pro phần thi công đường không ạ, nếu có up lên cho mọi người tham khảo với ạ. Phần kiểm tra kích thước HH dùng mã AB.102 xuất sang list rồi, nhưng phần BB nó không tự động thêm vào bảng tính? Đấy là lỗi hay là phải nhập tay cao độ ạ?

Sửa NameFile thành FileName (Thử xem sao).

Chắc chắn được vì FileName có khai báo còn NameFile chưa khai báo.
Mà ngộ quá, nhiều người muốn trả lời mà không nhấn nút Reply, cứ nhấn nút Report là sao? Cụ thể trong chủ đề này bạn lemauga nhấn report 2 lần. Các chủ đề khác cũng có. Ban quản trị thấy report cứ tưởng báo cáo vi phạm, ai dè là 1 câu hỏi liên quan chủ đề

em vào marco mà tìm ko ra. hướng dẫn em với.

Cho em xin lỗi. Luôn tiện cho em hỏi tý. cách sửa lỗi không list được danh mục hồ biên bản mà các bác chỉ cách sửa NameFile sang FileName là sửa ở đâu vậy.

em vào marco mà tìm ko ra. hướng dẫn em với.

Nhờ ban xem cho minh với. nếu dựa vào công trinh củ thi danh muc ho so vẫn chạy.

Tạo công trình mới thì nó không chạy bao gồm (danh mục cong viec, hoan thanh cong viec)

Minh load file bạn mới gửi vẩn bị lỗi như vậy tạo công trình mới không xuất ra file DANH MỤC HỒ SƠ NGHIỆM THU CÔNG VIỆC XÂY DỰNG được.
Không biết có do lỗi máy tính mình ko?

1. Mã thi công mã TC (Chỉ nhập tại ô ngày bắt đầu, ngày kết thúc)

- Các công lấy mẫu (Chỉ nhập tại ô ngày bắt đầu, ngày kết thúc)

3. Mã NT nghiệm thu ( Chỉ nhập tại ô ngày NB, PYC, NTCVXD)

Bạn xem lại. Hôm trước không để ý cái mảng chứa dữ liệu

Theo thông tư 26/2016 thì không cần biên bản nghiệm thu nội bộ nửa thì minh có thể cắt bỏ BBNT nội bộ ko. và kết xuất sang danh mục hồ sơ cũng ko có BBNT nội bộ được ko

File này được rồi cám ơn bạn nhiều nhá. Luôn tiện ở đây cho minh hỏi tý.

Theo thông tư 26/2016 thì không cần biên bản nghiệm thu nội bộ nửa thì minh có thể cắt bỏ BBNT nội bộ ko. và kết xuất sang danh mục hồ sơ cũng ko có BBNT nội bộ được ko

Thành thật cám ơn bạn rất nhiều. có file hồ sơ này sẽ tạo cho minh tiết kiệm được rất nhiều thời gian cũng như quản lý hồ sơ thi công.. Năm mới chúc bạn và gia đình vui vẽ, an khang thịnh vượng nhá.

Happy new year.

Mỗi nơi sẽ có biểu mẫu khác nhau. Khi nào bạn cần sửa gì thì nói mình chỉnh lại mẫu mã cho phù hợp
Hi vong sang năm sẽ có nhiều thời gian để hoàn thành cái file mới đang dở dang . Lúc đó lại làm phiền mọi người Test thử
Sang năm mới chúc Bạn và Gia đình vui vẻ, Hạnh phúc, An khang thịnh vượng

Cái file mới mình làm mãi mới được có chừng này. Qua tết hoàn thiện tiếp. Hiện tại mới có bộ khung thôi. Dạo này lười quá

Bạn có thể tạo macro tùy chọn in vào file Ho so nghiem thu 2019 cho minh với được ko.(à mà sao file này mình không có sheet biên bản lấy mẫu hiện trường, biên bản lấy mẫu bê tông) có gì bạn giúp mình với nhá. Thanks

Bạn ơi giúp cho minh file này với. Mình thấy file biên bản này (biên bản nghiệm thu) có macro tùy chọn in rất hay không giống như bên mình xuất ra file PDF rồi mới in.

Bạn có thể tạo macro tùy chọn in vào file Ho so nghiem thu 2019 cho minh với được ko.(à mà sao file này mình không có sheet biên bản lấy mẫu hiện trường, biên bản lấy mẫu bê tông) có gì bạn giúp mình với nhá. Cảm ơn

Bạn ơi giúp cho minh file này với. Mình thấy file biên bản này (biên bản nghiệm thu) có macro tùy chọn in rất hay không giống như bên mình xuất ra file PDF rồi mới in.

Bạn có thể tạo macro tùy chọn in vào file Ho so nghiem thu 2019 cho minh với được ko.(à mà sao file này mình không có sheet biên bản lấy mẫu hiện trường, biên bản lấy mẫu bê tông) có gì bạn giúp mình với nhá. Cảm ơn

cám ơn bạn đã chia sẽ File (HS QLCL New) nhưng phần các sheet bị ẩn, phần danh mục biên bản vần còn biên bản nghiệm thu nội bộ). bạn giup minh them marco tuy chon in vào file ho so nghiệm thu 2019 cho minh vơi.

cám ơn bạn

cám ơn bạn đã chia sẽ File (HS QLCL New) nhưng phần các sheet bị ẩn, phần danh mục biên bản vần còn biên bản nghiệm thu nội bộ). bạn giup minh them marco tuy chon in vào file ho so nghiệm thu 2019 cho minh vơi.

cám ơn bạn

Nhờ ADmin giúp em voi

@lemauga Xem thử có được không

nhờ ban xem lại giúp minh với. file tao mới cong trinh phan danh mục khong chạy bạn ơi

Sau một thời gian đọc các bài viết và tìm các Code của các anh chị và các thầy trên Diễn đàn. Em đã lắp ghép xong file Lập Hồ sơ quản lý chất lượng. Hôm nay mạo muội đưa lên đây mong các anh (chị) xem và góp ý giúp.

Mã giải nén : 123

​

Add cho mình hỏi. Trong file QLCL Pro 190816 phần sheet List_BB (List biên bản CVXD) thì giờ NTNB và NTCVXD nó chỉ chạy đến 14h30-15h10 và dừng, ví dụ 1 ngày có 23 BB thì nó để trống nên có List khác liên quan đến giờ NT này sẽ bị lỗi. Add chỉ cách sửa giúp với ạ. Thanks

lỗi không hiển thị khi mình ghi nhật trình sử dụng dấu (...).
ví dụ mình ghi: ép cọc từ trục (1-3) thì khi xuất hồ sơ chỉ hiển thị là ép cọc từ trục.bạn xem lại khắc phục lỗi này xem

Chổ mình làm có nơi vẫn sử dụng biên bản nghiệm thu nội bộ bạn ơi. Các bác gửi cho mình xin file hồ sơ QLCL mới nhất có mục tùy chọn in và làm cho mình thêm mục tùy chọn sử dụng hoặc không sử dụng biên bản nghiệm thu nội bộ được không ah.
Rất mong nhận được sự quan tâm của các bác. Xin chân thành cảm ơn ah!

Bạn xem được chưa. Mình thên 1 mục "Thời tiết" nữa. Bạn để ý cột B "Mối quan hệ" trong Sheets("Nhattrinh") nha
View attachment 212403

AD có thể thêm sheet viết nhật ký cho từng trang vao bản mới nhất có thời tiết, biên bản lấy mẫu thí nghiệm được không (chỗ mình hiện cho viết nhật ký bằng máy)

file setup HSQLCL không có các biên bản kiểm tra, lấy mẫu. Còn những phần khác theo mình cũng tạm ổn. Hiện nay minh đang dùng bản có các biên bản kiểm tra để làm hồ sơ riêng mình nhưng nó còn một số lỗi phát sinh. Hi vọng một thời gian ngắn nữa mua được key chương trình phân lớp nền đường mình sẽ đưa nó vào và hoàn thiện một số cái còn thiếu mà các thành viên đã góp ý trong topic. Khi nào tạm ổn mình đưa lên các bạn test thử xem sao

P/s Mình cũng lang thang qua một số phần mềm lập hồ sơ nghiệm thu để ăn trôm ý tưởng của họ nhưng đến bây giờ thì chưa được cái gì cả

Bài đã được tự động gộp: 5/7/18

Bạn kiểm tra lại xem sao. Nó còn 1 chút ở cái biên bản nghiệm thu. Vì bạn đang bố trí gọn vào 1 trang do vậy khi tên nội dung công nghiệm thu dài nó sẽ đẩy thêm 1 trang nữa. Cái này loay hoai mãi mà không làm được

Ngày xưa mới biết VBA viết mấy Code bây giờ nhìn thấy nó thật là kinh khủng. Tìm Code trong Modul cũng đỏ cả mắt
Bạn trót làm theo cái file này thì gắng gượng một tý nha
Các biên bản kiểm tra hoặc biên bản lấy mẫu thì nó không có ngày nội bộ và ngày phiếu YCNT. Nếu bạn điền đủ ngày NB, PYV, NTCV thì nó hiểu là cái đó là BBNTCVXD (Nó không biết đọc cái chữ ở cột D đâu

)
Mình sửa lại mấy cái. Bạn tham khảo

Chào các anh chị trong diễn đàn!!!! e là kỹ sư mới ra trường cách đây k lâu. hiện tại đang làm hồ sơ QLCL cho 1 công trình cấp 1 trong tp.hcm. nay vô tình e biết tới diễn đàn.vào xem mấy tài liệu của các anh chị mà phải nói là mắt chữ A miệng chữ O.

Rất mong có thể học hỏi từ những anh chị đi trước.

Hiện tại mình có 1 file excel QLCL của riêng mình do mình làm bằng các hàm nên file khá cồng kềnh và tính toán chậm 1 chút khoảng 15- 17MB do không biết VBA nên rất khó khăn khi thu nhỏ file lại ai có cách nào không

Chào các anh chị trong diễn đàn!!!! e là kỹ sư mới ra trường cách đây k lâu. hiện tại đang làm hồ sơ QLCL cho 1 công trình cấp 1 trong tp.hcm. nay vô tình e biết tới diễn đàn.vào xem mấy tài liệu của các anh chị mà phải nói là mắt chữ A miệng chữ O.

Rất mong có thể học hỏi từ những anh chị đi trước.

Bạn xem xét sủa lại file nhá. Thanhk

Sau một thời gian đọc các bài viết và tìm các Code của các anh chị và các thầy trên Diễn đàn. Em đã lắp ghép xong file Lập Hồ sơ quản lý chất lượng. Hôm nay mạo muội đưa lên đây mong các anh (chị) xem và góp ý giúp.

Mã giải nén : 123

​

Sau một thời gian đọc các bài viết và tìm các Code của các anh chị và các thầy trên Diễn đàn. Em đã lắp ghép xong file Lập Hồ sơ quản lý chất lượng. Hôm nay mạo muội đưa lên đây mong các anh (chị) xem và góp ý giúp.

Mã giải nén : 123

​

[/QUOT

Cho em hỏi em mở file lên báo lỗi như thế này là sao mấy anh.
The code in project must be updated for use on 64-bit systems. Please review and update declare statements and then mark them with the PtrSafe attribute

Help me !!!

Sau một thời gian đọc các bài viết và tìm các Code của các anh chị và các thầy trên Diễn đàn. Em đã lắp ghép xong file Lập Hồ sơ quản lý chất lượng. Hôm nay mạo muội đưa lên đây mong các anh (chị) xem và góp ý giúp.

Mã giải nén : 123

​

mình thấy bài rất tốt nhưng cho mình hỏi chút! sau khi xuất ra PDF thì file nằm ở đâu bạn?

Góp ý nhỏ: - Bảng bố trí tiến độ nên để dạng bảng ngang cho mọi người dễ hình dung, bố trí. - Nên xuất biên bản qua word để chỉnh sửa dễ dàng hơn nhất là trường hợp ô excel có nội dung dài ngắn khác nhau.

Có tí dẫn chứng này nhé:

.
Thân gửi!

Bác nào có bản đầy đủ chạy trên Win 64b cho em xin 1 bản ạ. Em dowload bản Setup v1.1 về nhưng ko chạy mã công việc.
Thanks all!

Nhờ bác PacificPR và các bác trên đây giúp em giải đáp 2 thắc mắc này với ạ. Bên em công trình còi còi và thường nghiệm thu 1 ngày vài đầu tên nên cần "Mục đối tượng nghiệm thu tự động điều chỉnh được" và "chèn bảng khối lượng vào biên bản nghiệm thu". Em cảm ơn cả nhà!

Nên có phương án áp dụng BBNB hoặc không và đưa tiêu chuẩn áp dụng vào phần căn cứ nghiệm thu của biên bản ạ, đồng thời độ cao dòng cũng phải tự động đề phòng tên CĐT, TV, NT, Công việc ... quá dài thì cần phải xuống dòng. Không thì lúc in ra cả đống biên bản rồi mà không đọc được thì uổng lắm ạ.

Anh ơi cho em hỏi có nghiệm thu vật liệu đầu vào theo dạng bảng thì có thể đưa vào được không ạ! Em cám ơn ạ!

View attachment 207749

Nhờ bác PacificPR và các bác trên đây giúp em giải đáp 2 thắc mắc này với ạ. Bên em công trình còi còi và thường nghiệm thu 1 ngày vài đầu tên nên cần "Mục đối tượng nghiệm thu tự động điều chỉnh được" và "chèn bảng khối lượng vào biên bản nghiệm thu".
Em cảm ơn cả nhà!

Chào bác @PacificPR Nhờ bác kiểm tra lại giúp em sao lại báo : Cannot run the maccro... khi bấm vào các mục như tạo mới, xuất nhật ký, kiểm tra ngày,...

Và nhờ bác chỉ giúp em cách điều chỉnh giờ nghiệm thu được không ạ.

không có code nó báo Cannot run the maccro

Bác Vova2209 cho hỏi có code tách riêng các biên bản con không ạ, như biên bản kiểm tra ván khuôn, kiểm tra cao độ ...... có tách biên bản nghiệm thu mà không tách biên bản con cũng hơi bất tiện, cám ơn bác ạ

Chưa hiểu rõ ý bạn lắm. Mỗi biên bản là 1 sheets, biên bản con cần những biên bản nào thì in kèm vào biên bản thôi

Gửi file lên xem như nào, ghi chú rõ ra.. mình vẫn chưa hiểu lắm

Bài đã được tự động gộp: 7/11/19

Biên bản ít thì còn tạm được. Nhưng khoảng 500 đến 1000 biên bản thì khặc khặc

Mình có xuất ra sheet BBCVXD đó bác, trong đó thống kê cả các biên bản con ( các biển bản không phải biên bản nghiệm thu) mình muốn xuất ra 1 sheet riêng để dễ quản lý, vì mấy biên bản này hay làm trong file word. với nữa là xuất nhật kí hay bị trùng nhau quá ạ. Cảm ơn bác nhiều ạ

Bài đã được tự động gộp: 7/11/19

Sao thế bác ạ

Lỗi không chạy được sử lý sao giúp mình với Sub HookControlScroll(ByVal Ctl As MSForms.control) Dim lngAppInst As Long Dim hwndUnderCursor As LongPtr Dim tPT As PointAPI GetCursorPos tPT hwndUnderCursor = WindowFromPoint(tPT.X, tPT.Y) If mControlHwnd <> hwndUnderCursor Then UnhookControlScroll Set mCtl = Ctl

mControlHwnd = hwndUnderCursor

End Sub

Nghiệm thu vật liệu và muốn có bảng khối lượng vật liệu vào biên bản nghiệm thu thì làm thế nào anh?
Nhật ký mà có thể xuất được theo hạng mục thì hay quá anh nhỉ?

Bạn muốn nó như ở video này á

Bạn muốn nó như ở video này á

Bài đã được tự động gộp: 28/11/19

Bạn muốn nó như ở video này á

Nghiệm thu vật liệu và muốn có bảng khối lượng vật liệu vào biên bản nghiệm thu thì làm thế nào anh?
Nhật ký mà có thể xuất được theo hạng mục thì hay quá anh nhỉ?

#258 có bạn tham khảo xem, xuất ra biển bản chi tiết luôn

Bạn muốn nó như ở video này á

Rất tuyệt, nhưng phần xuất sang nhật ký bị ghi liền hàng ngày không hợp với mẫu của mình. Bên mình phải ghi mỗi ngày 1 trang, bao gồm cả máy móc và thời tiết... Mình không chuyên nhưng thấy thật cần thiết để học tập làm món này

Mình mở chương trình lên bị lỗi này luôn. Win 10 64 bit

Mình mở chương trình lên bị lỗi này luôn. Win 10 64 bit

View attachment 232566

'**************************************** 'Tac gia: Nguyen Duy Tuan 'Tel : 0904.210.337 'E.Mail : tuanktcdcn@ yahoo.com 'Website: www.bluesofts.net '**************************************** 'Khai bao cac ham API trong thu vien User32.DLL. Ch?y trong môi tru?ng Office 32 ho?c 64-bit #If VBA7 Then Private Declare PtrSafe Function GetActiveWindow Lib "user32" () As LongPtr Private Declare PtrSafe Function MessageBoxW Lib "user32" (ByVal HWnd As LongPtr, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long #Else Private Declare Function GetActiveWindow Lib "user32" () As Long Private Declare Function MessageBoxW Lib "user32" (ByVal HWnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long #End If

Cho mình hỏi bị lỗi tìm kiếm mã công việc như hình với

Chủ tốp xem bị lỗi gì với ạ. Win 7 64bit

Vẫn báo lỗi như cũ bạn ạ. chắc nên quay về bản office 32 bit cho lành

#IF VBA7 then Declare PtrSafe Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As LongPtr, ByVal hmod As LongPtr, ByVal dwThreadId As Long) As LongPtr #Else Declare PtrSafe Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As LongPtr, ByVal dwThreadId As Long) As Long #End If

#If Win64 then Dim HWnd as LongPtr 'Hoặc LongLong #Else Dim HWnd as Long #End If

#If Win64 then Dim lngMouseHook as LongPtr 'Hoặc LongLong Dim lngAppInst as LongPtr 'Hoặc LongLong #Else Dim lngMouseHook as Long Dim lngAppInst as Long #End If lngAppInst =GetWindowLong(...) lngMouseHook = SetWindowsHookEx(..., AddressOf MouseHook ,lngAppInst ,... ) #If Win64 then Function MouseHook(...,...,...,...) As LongPtr #Else Function MouseHook(...,...,...,...) As Long #End If End Function

Bạn chụp cho mình cái lỗi đó nhé

Bài đã được tự động gộp: 26/3/20

------------------------ type mismatch Lỗi này xuất hiện ở đây vì đối số truyền vào Hàm WinAPI không tương thích với Nền tảng Office hoặc nền tảng Window đang xử dụng. Tham số trong hàm API là As Long thì khai báo đối số truyền vào là: Dim HWnd as Long Tham số trong hàm API là As LongPtr Hoặc LongLong thì khai báo đối số truyền vào là: Dim HWnd as LongPtr Hoặc LongLong (Chỉ có trên Win64 bit) Click vào OK sẽ có vùng code được tô, so sánh vị trí tham số trong hàm API để sửa đổi. Ví dụ lỗi ở hàm SetWindowsHookEx, chuột phải vào tên hàm, chọn Definition để đi đến nơi khởi tạo hàm để sửa đổi. Ví dụ Khai báo tương thích nền tảng hàm WinAPI:

#IF VBA7 then Declare PtrSafe Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As LongPtr, ByVal hmod As LongPtr, ByVal dwThreadId As Long) As LongPtr #Else Declare PtrSafe Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As LongPtr, ByVal dwThreadId As Long) As Long #End If

Ví dụ Khai báo biến tương thích nền tảng:

#If Win64 then Dim HWnd as LongPtr 'Hoặc LongLong #Else Dim HWnd as Long #End If

Ví dụ vận dụng:

#If Win64 then Dim lngMouseHook as LongPtr 'Hoặc LongLong Dim lngAppInst as LongPtr 'Hoặc LongLong #Else Dim lngMouseHook as Long Dim lngAppInst as Long #End If lngAppInst =GetWindowLong(...) lngMouseHook = SetWindowsHookEx(..., AddressOf MouseHook ,lngAppInst ,... ) #If Win64 then Function MouseHook(...,...,...,...) As LongPtr #Else Function MouseHook(...,...,...,...) As Long #End If End Function

A/c nào có bản chạy ổn định cho e xin bản với.

Mình có theo dõi tất cả các bản từ bản đầu tiên chủ top up năm 2016 đến 05/2020. Ko biết hiện giờ đã hoàn thiện hoặc bản nào ổn định gần nhất cho minh xin để tham khảo sử dụng với nhé. Mail: có thể up lên cho mọi người thảm khảo được ko.

Cảm ơn chủ bạn.

Bạn thử File này xem có lỗi nữa không nhé (Máy mình dùng phiên bản x86. Không biết nó như thế nào)

4 - Ở đây in nhật ký mới được khoảng 700 dòng, nếu mình muốn tăng số dòng tùy ý thì phải làm sao? vì có công trình của mình khoảng 300 tỷ thì 700 dòng là chưa đủ.

1 - Phiên bản này đã nâng cấp rất nhiều so với bản F1, tuy nhiên phần chọn in Biên Bản bạn đang để chọn tất cả hoặc chọn riêng từng mục chưa tiện lắm mà cho thêm lựa chọn in các văn bản tùy ý ( bên mình làm bỏ BBNT nội bộ rồi) dduocj k? 2 - Bên mình gọi vốn và hoàn thiện từ A-Z ( từ phê duyệt chủ trương đầu tư - quyết toán của chủ đầu tư) nên muốn lập 1 file quản lý dự án đầy đủ. Chỉ cần nhập 1 trang khai báo thông tin đầu vào và in tất cả cả tờ trình, thương thảo, QĐ phê duyệt, Hồ sơ thanh toán, quyết toán các gói tư vấn, nhà thầu. Bạn có thể giúp mình được k? 3 - Bản này mình chạy thử trên 64 bit ko lỗi j cả

4 - Ở đây in nhật ký mới được khoảng 700 dòng, nếu mình muốn tăng số dòng tùy ý thì phải làm sao? vì có công trình của mình khoảng 300 tỷ thì 700 dòng là chưa đủ.

(Hình dạng em nó sẽ như thế này)

Bản mới sẽ thêm nghiệm thu Vật liệu và các biên bản kiểm tra: Hố móng, đắp đất, bê tông, điều kiện đổ bê tông, bề mặt bê tông sau tháo VK, phiếu công tác bê tông và một số biên bản về phần công tác chuẩn bị 1. Phần in sẽ chuyển sang in từ ListBox cho tiện hơn (Có tuỳ chọn vùng in: Thích in vùng nào thì chọn vùng đó. Vì nhiều chỗ còn sử dụng NTNB)

(Hình dạng em nó sẽ như thế này)
View attachment 237305​

2. Hoàn thiện từ A đến Z làm mệt lắm. Cái này chỉ dừng ở HS QLCL thôi 4. Nhật ký thi công thì cần bao nhiêu dòng thì cứ chèn vào. Nó chỉ không cho chèn cột thôi Mình sẽ test sơ sơ xem có ổn không sau đó nhờ các Bạn Test giúp thêm nhé[/QUOT

Bản mới sẽ thêm nghiệm thu Vật liệu và các biên bản kiểm tra: Hố móng, đắp đất, bê tông, điều kiện đổ bê tông, bề mặt bê tông sau tháo VK, phiếu công tác bê tông và một số biên bản về phần công tác chuẩn bị 1. Phần in sẽ chuyển sang in từ ListBox cho tiện hơn (Có tuỳ chọn vùng in: Thích in vùng nào thì chọn vùng đó. Vì nhiều chỗ còn sử dụng NTNB)

(Hình dạng em nó sẽ như thế này)
View attachment 237305​

2. Hoàn thiện từ A đến Z làm mệt lắm. Cái này chỉ dừng ở HS QLCL thôi 4. Nhật ký thi công thì cần bao nhiêu dòng thì cứ chèn vào. Nó chỉ không cho chèn cột thôi Mình sẽ test sơ sơ xem có ổn không sau đó nhờ các Bạn Test giúp thêm nhé

bấy nhiêu đó là tuyệt lắm rồi, mình đã xài thử qua bản của F360 nhưng vẫn còn nhiều thứ chưa hoàn thiện, đơn giản nhất là Nhật trình thi công không cho cộng ngày công tác mà phải nhập tay rất bất tiện. Rất mong được test bản hoàn thiện của bạn. Chúc sức khỏe !

đã test cơ bản xong hết, mình chạy Win10 và office 2010 bản 64 bit k lỗi j cả, riêng phần xuất kết quả ra file PDF của nhật ký và biên bản nghiệm thu chưa xuất ra được. Trong file chưa có các biên bản lấy mẫu hiện trường nhỉ?

đã test cơ bản xong hết, mình chạy Win10 và office 2010 bản 64 bit k lỗi j cả, riêng phần xuất kết quả ra file PDF của nhật ký và biên bản nghiệm thu chưa xuất ra được. Trong file chưa có các biên bản lấy mẫu hiện trường nhỉ?

Bài đã được tự động gộp: 21/5/20

Mình Win x64, Office 365 x64. Lỗi không chạy được gì giống bài #301

Khi bấm vào xuất biên bản nó có hiện cái Form giống ảnh ở bài 298 không bạn

Bài đã được tự động gộp: 21/5/20

Có hiện đầy đủ như bài 298 nhé, ấn in trực tiếp thì in tất cả được, xuất qua PDF thì chưa. Bạn thêm Sheet biên bản lấy mẫu và xuất được ra PDF nữa là ngon. Hình như bạn cũng làm công trình vốn ODA hay sao mà kỹ vậy?

Thông thường biên bản lấy mẫu bên đơn vị thí nghiệm họ làm. Hơn nưa nó nhiều loại như bê tông, đo K, đo e, hàm lượng nhựa, độ chặt nhựa, đo phẳng ... rất khó gom vào 1 form nẫu

Bạn xem sao nhé, mình chạy Win 10 bản quyền và office 10 bản 64 bit. Máy mình mặc định chạy Win 10-64 không cài 32 bít được

Thông thường biên bản lấy mẫu bên đơn vị thí nghiệm họ làm. Hơn nưa nó nhiều loại như bê tông, đo K, đo e, hàm lượng nhựa, độ chặt nhựa, đo phẳng ... rất khó gom vào 1 form nẫu

Đã test sang office bản 32 bít chạy khá ổn, xuất hết được ra PDF, chỉ còn một lỗi khi xuất Biên bản nghiệm thu không có giờ (file đính kèm)

Đã test sang office bản 32 bít chạy khá ổn, xuất hết được ra PDF, chỉ còn một lỗi khi xuất Biên bản nghiệm thu không có giờ (file đính kèm)

Nếu thêm công tác mới thì tại Sheets("MaCV") phait nhập tiêu chuẩn hoặc KQTN cho nó. và Copy mã đó vào Sheets("tbTHmay") và nhập máy thi công nữa

Bạn test hộ mình thử xem có lỗi không nhé. Ngày hôm qua đã chỉnh được Code lấy thời tiết https://www.accuweather.com
Pass giải nén là: 123

Cái này quên chưa sửa lại Sao lại có cái mã TC.10001 kia vậy.

Nếu thêm công tác mới thì tại Sheets("MaCV") phait nhập tiêu chuẩn hoặc KQTN cho nó. và Copy mã đó vào Sheets("tbTHmay") và nhập máy thi công nữa

Nguyễn Hoàng Oanh Thơ đã viết:

Hôm trước OT có xem ở chủ đề nào, có ai nói file này của vị anh hùng nào.. hóa ra là bạn .
Bạn có thể up file excel hoặc cho OT xin file Excel qua mail đc không ạ... chỉ là tò mò muốn tham khảo học hỏi khi có thời gian thôi.. (mà cũng có khi thấy hoành tráng cứ đùa đòi xin nhưng chẳng bao giờ mở ra để xem )

Bài đã được tự động gộp: 21/5/20

Mình làm đơn giản và tùy biến ko cần lấy đúng mã công việc nên để tất cả là mã TC.0001 ( tức là thi công) và nội dung mình viết lại theo công việc hiện trường, sau đó vào cột tiêu chuẩn nghiệm thi mình tick những tiêu chuẩn liên quan công tác nghiệm thu. Chỉ có lấy lết quả thí nghiệm mới cần đúng mã CP, hoàn thành hạng mục lấy mã HT thôi.

File ở bài 300 đó Bạn. Code trong file chủ yếu là lụm của các Anh, các thầy trên diễn đàn thôi
Pass mở VBA là gialockhang4500575187

Bài đã được tự động gộp: 21/5/20

tác giả quay cái video hướng dẫn sử dụng với.Bản mới này khác hoàn toàn so với bản video nêu ở trang 1, nhiều cái mới quá chả biết dùng sao

Em có lấy code thời tiết để cho vào file của em bị báo lỗi. Mong các anh chị giúp đỡ

Bài đã được tự động gộp: 21/5/20

Em có lấy code thời tiết để cho vào file của em bị báo lỗi. Mong các anh chị giúp đỡ

Em phát sinh nỗi khi nhập ngày vào ô từ ngày đến ngày trong form nhập liệu thì báo lỗi ở code Private Sub Ngaydau_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean). Bác xem giúp em với ạ

Bài đã được tự động gộp: 21/5/20

Em phát sinh nỗi khi nhập ngày vào ô từ ngày đến ngày trong form nhập liệu thì báo lỗi ở code Private Sub Ngaydau_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean). Bác xem giúp em với ạ

Em phát sinh nỗi khi nhập ngày vào ô từ ngày đến ngày trong form nhập liệu thì báo lỗi ở code Private Sub Ngaydau_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean). Bác xem giúp em với ạ

Bài đã được tự động gộp: 21/5/20

Bác xem giúp ạ

Mình đoán thể nào cũng có người thích cái lấy thời tiết mà

Bạn thêm cho mình Sheet Biên bản lấy mẫu hiện trường này nhé, vì bên mình chủ động hết công việc, phòng LAS chỉ xuất mỗi kqtn thôi. Mình đặt hàng mua phần mềm này của bạn, ý bạn thế nào?

Sao nhà họ làm thí nghiệm sướng vậy trời. Hay mình làm luôn kết quả thí nghiệm nữa nha

Mình đã thêm các biên bản lấy mẫu thí nghiệm và chỉnh sửa lại một số lỗi so với file trước. Nhờ các Bạn Test hộ nhé
Chú ý.
Vào các Sheets(“TbKTHH_HM”); Sheets(“TbKTHH_Dap”) ; Sheets(“TbKTHH_Cp”); Sheets(“TbKTHH_BT”) để cập nhật lại đường Link dẫn tới Folder chứa hình ảnh minh hoạ

Mình đã thêm các biên bản lấy mẫu thí nghiệm và chỉnh sửa lại một số lỗi so với file trước. Nhờ các Bạn Test hộ nhé
Chú ý.
Vào các Sheets(“TbKTHH_HM”); Sheets(“TbKTHH_Dap”) ; Sheets(“TbKTHH_Cp”); Sheets(“TbKTHH_BT”) để cập nhật lại đường Link dẫn tới Folder chứa hình ảnh minh hoạ

File của bạn có chỉnh sửa giao diện đẹp hơn nhưng năng quá nhiều khi chạy nhanh qua các sheet nhiều khi excel khởi động lại và máy mình window 10 và office x64 bị lỗi. Mong bạn hoàn thiện để mọi người có công cụ để sử dụng "File bạn làm công phu và rất tuyệt rồi". Cám ơn bạn đã chia sẽ cho mọi người

Chiều cuối tuần rảnh em quay lại mà hình sử dụng file HSQLCL. Mọi người xem hộ nhe

Sau một thời gian đọc các bài viết và tìm các Code của các anh chị và các thầy trên Diễn đàn. Em đã lắp ghép xong file Lập Hồ sơ quản lý chất lượng. Hôm nay mạo muội đưa lên đây mong các anh (chị) xem và góp ý giúp.

Mã giải nén : 123

​

Đã chỉnh lại theo góp ý của @quoctoanhud4. Mình đã đưa căn dòng cố định của các biên bản vào nút bấm tại Sheets("Thongtin"). Bạn Test hộ xem có lỗi không nhé

Mình đã thử trên máy mình office 2019 giống bạn. Đầu tiên là file đã chạy nhanh và mượt hơn (cố chuyển qua các sheet thật nhanh có thể để bắt lỗi mà không được, hii), tiếp là vẫn xảy ra lỗi, thứ 3 là nếu được bạn làm code tìm kiếm để đánh định mức là ra công việc luôn không cần qua bản để chọn nữa (vẫn có thông báo NT hay TC) còn nếu tìm kiếm từng từ 1 (ví dụ AF.12....) thì ra bảng sổ xuống thì tiện hơn, mình có vài ý kiến vậy. Thân

Biên bản lấy mẫu có ổn không Bạn

Chiều cuối tuần rảnh em quay lại mà hình sử dụng file HSQLCL. Mọi người xem hộ nhe

Chiều cuối tuần rảnh em quay lại mà hình sử dụng file HSQLCL. Mọi người xem hộ nhe

Cái đoạn đó là để lăn chuột giữa trong listbox thôi. Mấy bạn trước test trên bản 64 sao kg thấy gì mà

Biên bản lấy mẫu có ổn không Bạn

Các anh 360 độ là đủ bộ cả hồ sơ chất lượng, tiến độ, thanh quyết toán

Chiều cuối tuần rảnh em quay lại mà hình sử dụng file HSQLCL. Mọi người xem hộ nhe

anh ơi bị lỗi ở sheet này, khi chạy nếu để nội bộ thì ngày tháng đúng, còn bỏ nội bộ thì ngày tháng nghiệm thu lại sai anh ạ

anh ơi bị lỗi ở sheet này, khi chạy nếu để nội bộ thì ngày tháng đúng, còn bỏ nội bộ thì ngày tháng nghiệm thu lại sai anh ạ

Bạn qua đấy tải về xem có dùng được không LinK

PacificPR làm giúp mình định mức như file này có các ca máy và nhân công với nhé

Bài đã được tự động gộp: 22/6/20

Bài đã được tự động gộp: 22/6/20

Tại mình ko biết làm thế nào

PacificPR làm giúp mình định mức như file này có các ca máy và nhân công với nhé

Bài đã được tự động gộp: 22/6/20

File mình đang chạy tiến độ

Bài đã được tự động gộp: 22/6/20

Đưa luôn hộ mình cả biên bản nghiệm thu công việc và vật liệu như mẫu của mình vào file mới của bạn với nhé.

Tại mình ko biết làm thế nào

bản QLCL là bản cũ của tác giả PacificPR . còn bản tiến độn này sơ sài quá. Bạn hay chờ tác giả PacificPR sẽ có bản hay hơn.

Cảm ơn bạn nhé

Bài đã được tự động gộp: 23/6/20

Mình cũng đã tham khảo file này nhưng khi vẽ biểu đồ nhân lực khó hơn file của mình. Mình sẽ nghiên cứu thêm xem thế nào

Sao khó hơn nhỉ con người thì đã chia ra theo khối lượng và định mức còn sắp xếp thời gian sử dụng con người (cho công việc đó) là do tiến độ triển khai công việc đó theo thời gian thi công. Mình cũng dùng nhiều phần mềm rồi nhưng thấy file này hay và làm rất nhanh nên vẫn dùng, thân

2 - Quá trình chạy đã phát sinh lỗi tự căn dòng, ví dụ trước khi Preview thì vẫn đủ 1 dòng, sau khi Preview để in thì nó thành 2 dòng và không tự giãn dòng. Bạn Pacific xem sao nhé

Ý bạn này phù hợp. 1 - Theo mình thì việc lập tiến độ chỉ là hình thức (dự kiến), còn hồi ký là để hoàn thiện hồ sơ. Tiến độ lập trước khi triển khai thi công và hồi ký là sau thi công nên không thể giống nhau được. Không nên đưa vào cùng File HSQLCL này gây nặng thêm. Về cơ bản phần mềm chạy khá tốt, tuy nhiên còn một số lỗi nhỏ mình nên tập trung vào khắc phục cho tối ưu hơn.

2 - Quá trình chạy đã phát sinh lỗi tự căn dòng, ví dụ trước khi Preview thì vẫn đủ 1 dòng, sau khi Preview để in thì nó thành 2 dòng và không tự giãn dòng. Bạn Pacific xem sao nhé

Mình đã sửa lại và thêm cái tuỳ chon bên xuất nhật ký thi công. Bạn Test lại giúp mình nhé
Cái Code lấy thời tiết của Anh HeSanbi chạy rất nhanh. Mai mốt rảnh mình sẽ ép vào thay cái cũ trong File này

chờ mãi tác giả cho bản tiến độ vào để dùng tiện thể

Xem lại hộ mình cái này với nhé danh mục nghiẹm thu chạy bị thế này

Sau một thời gian đọc các bài viết và tìm các Code của các anh chị và các thầy trên Diễn đàn. Em đã lắp ghép xong file Lập Hồ sơ quản lý chất lượng. Hôm nay mạo muội đưa lên đây mong các anh (chị) xem và góp ý giúp.
Mã giải nén : 123
Bản 2018 (Không có biên bản kiểm tra)

Link tải file: https://www.fshare.vn/file/N36BQH1BA7VI​

Bản 5.2020 (bổ sung biên bản kiểm tra)​

Link tải file: https://www.fshare.vn/file/NMYPFMKQQ7GF?token=1592627216​

Bạn làm 1 cái cơ bản thôi, còn các hạng mục lấy mẫu khác nhau thì người dùng tùy biến, miễn là có xuất được ra file PDF như Biên bản nghiệm thu công việc hoặc nhật ký ấy. Có một số lỗi mình gặp như sau: (file đính kèm). 1 - Khi mở file lên thông báo; 2 - Sau khi cọn Yes có thông báo; 3 - Chọn xuất biên bản ra PDF có thông báo; ( không xuất được) 4 - Chọn xuất nhật ký có thông báo ( Nhưng không tìm thấy file PDF ở đâu)

Bạn xem sao nhé, mình chạy Win 10 bản quyền và office 10 bản 64 bit. Máy mình mặc định chạy Win 10-64 không cài 32 bít được

Mọi người cho e hỏi làm cách nào để tìm kiếm mà kết quả trả vể mảng giá trị như thế này

File QL HSCL này rất hay. Xin chân thành cảm ơn tác giả. Mình đang sử dụng thử thấy rất ổn. Chỉ thắc mắc là mình tìm không thấy mã lấy mẫu bê tông M250 và M300. Phần lấy mẫu độ bền nén bê tông chỉ có M75 và M200. Mình có down thử 1 số file đưa lên trong topic này nhưng không có ai thi công M250 và M300 cả. Có ai biết chỉ giáo mình với. Cảm ơn trước.

File QL HSCL này rất hay. Xin chân thành cảm ơn tác giả. Mình đang sử dụng thử thấy rất ổn. Chỉ thắc mắc là mình tìm không thấy mã lấy mẫu bê tông M250 và M300. Phần lấy mẫu độ bền nén bê tông chỉ có M75 và M200. Mình có down thử 1 số file đưa lên trong topic này nhưng không có ai thi công M250 và M300 cả. Có ai biết chỉ giáo mình với. Cảm ơn trước.

File QL HSCL này rất hay. Xin chân thành cảm ơn tác giả. Mình đang sử dụng thử thấy rất ổn. Chỉ thắc mắc là mình tìm không thấy mã lấy mẫu bê tông M250 và M300. Phần lấy mẫu độ bền nén bê tông chỉ có M75 và M200. Mình có down thử 1 số file đưa lên trong topic này nhưng không có ai thi công M250 và M300 cả. Có ai biết chỉ giáo mình với. Cảm ơn trước.

Chào bác @PacificPR Em dân không chuyên nên có chút thắc mắc muốn hỏi bác, em muốn thay đổi số cột ở Biên bản NTCV xây dựng để căn chỉnh cho đẹp. Nhưng khi thêm cột, em không rõ thay đổi các biến số nào để macro về tự động co dãn dòng và tách TCNT không bị thay đổi. Hiện giờ em thêm cột là các chức năng đó không hoạt động. Em có thay đổi biến số cột AD1 hiện tại nhưng không được.

Em cảm ơn bác!

Bạn vào "Dữ liệu công trình" ----> "Dữ liệu cấp phối". Tại đây bạn khai báo dữ liệu thành phần cấp phối sử dụng cho công trình như: Mác thiết kế; Cốt liệu lớn; số phiếu TKCP; Ngày phiếu TKCP; Thành phần cấp phối XM/C/D/N/PG1/PG2 và độ sụt Các thông tin này sẽ đưa vào các biên bản kiểm tra điều kiện đổ bê tông; Phiếu công tác bê tông và BBLM thí nghiệm

Chào bác @PacificPR . Tôi dùng phiên bản này rất hay. mò mẫm dùng thấy ok. mong bác cho cái tiến độ vào nữa. để anh em dùng sái. đỡ phải dùng bản ngoài. xin cảm ơn

Cái này do Bạn không gọi công việc từ Form mà copy dữ liệu vào do vậy mà mấy công thức đếm nó bị lệch cột

Em cứ ấn vào đá 1x2 là nó hiện lên như hình thì xử lý thế nào vậy các anh

Chào bác @PacificPR Em dân không chuyên nên có chút thắc mắc muốn hỏi bác, em muốn thay đổi số cột ở Biên bản NTCV xây dựng để căn chỉnh cho đẹp. Nhưng khi thêm cột, em không rõ thay đổi các biến số nào để macro về tự động co dãn dòng và tách TCNT không bị thay đổi. Hiện giờ em thêm cột là các chức năng đó không hoạt động. Em có thay đổi biến số cột AD1 hiện tại nhưng không được.

Em cảm ơn bác!

Chào bạn! Xin được hỏi bạn 2 ý: 1/ Bạn cho mình hỏi sao bảng vật liệu và các bảng khác trong phần dữ liệu công trình có thể chèn thêm cột và thêm nội dung vào cột đó được không? Mình chèn thêm cột thấy dữ liệu bảng vật liệu lấy sang biên bản nghiệm thu vật liệu bị lỗi. Vậy vào đâu để có thể sửa và chèn thêm cột trong bảng vật liệu mà khi dữ liệu bảng khi đó lấy sang biên bản nghiệm thu vật liệu không bị lỗi.' 2/ Nếu không muốn hiện tiêu chuẩn trong biên bản nghiệm thu thì vào đâu để ẩn nó đi.

Xin cảm ơn!

Anh/chị cho em hỏi giờ biên bản nghiệm thu công việc xây dựng thì mình điền thủ công vào trong List bien bản CV ạ?
Hay có quy luật hoặc cách nào điền nhanh hơn ạ?

Em cứ ấn vào đá 1x2 là nó hiện lên như hình thì xử lý thế nào vậy các anh

Thân gửi đến các bạn!

Cái chép tay đó ở dạng dòng không trộn được thư, xoay lại chiều cho nó vào cột để trộn thư được, các dòng nội dung cho vào 1 ô trong cột (tương ứng với mỗi gạch đầu dòng trong ô đó là một dòng nội dung khi để ở dạng chép tay) Như vậy in ra Word chủ động được, thêm bớt và căn chỉnh, in sẽ đẹp, mẫu mã tùy chỉnh tốt mà vẫn đảm bảo nội dung yêu cầu.

Cái chép tay đó ở dạng dòng không trộn được thư, xoay lại chiều cho nó vào cột để trộn thư được, các dòng nội dung cho vào 1 ô trong cột (tương ứng với mỗi gạch đầu dòng trong ô đó là một dòng nội dung khi để ở dạng chép tay) Như vậy in ra Word chủ động được, thêm bớt và căn chỉnh, in sẽ đẹp, mẫu mã tùy chỉnh tốt mà vẫn đảm bảo nội dung yêu cầu.

Bài đã được tự động gộp: 11/8/20

thêm cột sẽ bị lỗi bạn nhé, ví dụ tại sheet BienbanCVXD bạn có thấy ô P2 là gí trị để dò không? như bạn chèn 1 cột thì nó sẽ qua Q2 => xuất biên bản sẽ điền sai ô (điền vào đây P2) và sẽ ko dò được, còn cột U là để fix chiều cao dòng lúc điền thông tin công trình. sẽ nhảy sang cột V và sẽ ko fix được nữa., tạm thời bạn có thể chèn thêm 2 cột do còn dư cột N,O, chèn 2 cột rồi xóa 2 cột đó đi code có thể ko lỗi nữa + chèn vào sẽ lấy dữ liệu điền vào bị lệch bạn nhé, tui chưa thử nhưng xem ra có thể là vậy + để không lỗi bạn có thể vào đọc code tác giả share miễn phí đâu có giấu đâu bạn, và sửa lại cũng tốn cơm lắm, nhờ người khác thì hên xui người đó rảnh mà đọc code sửa cho bạn, thôi thì tự học mà sửa + để ko hiện thì 1 là bạn đạt đc trình độ như bên trên là đọc hiểu, còn không muốn điền TCNT thì xóa dữ liệu tại cột tiêu chuẩn tại sheet NhatTrinh đi, thì nó sẽ ko điền nữa (tui chưa thử nhưng thấy nội dung chương trình nó như vậy) ý 1: điền thử công đúng rồi bạn ý 2: điền nhanh hơn 1 công việc lặp đi lặp lại bạn có thể copy dòng rồi chèn dòng lại, chú ý không Ctrl +C rồi Ctrl +V (để ý dòng tô màu có chữ End) còn muốn nhanh hơn thì chắc đợi Update từ tác giả thôi bạn. bạn ko cần phải lấy nhiều mẫu vậy đâu, cứ chèn 1 biên bản lấy mẫu rồi thêm tất cả mẫu vào là được, có nút thêm đó. Tui chỉ xem thôi chứ chưa dùng thử nên có gì sai sót mong tác giả bổ xung và bỏ quá cho.

Thân gửi đến các bạn!

Cái chép tay đó ở dạng dòng không trộn được thư, xoay lại chiều cho nó vào cột để trộn thư được, các dòng nội dung cho vào 1 ô trong cột (tương ứng với mỗi gạch đầu dòng trong ô đó là một dòng nội dung khi để ở dạng chép tay) Như vậy in ra Word chủ động được, thêm bớt và căn chỉnh, in sẽ đẹp, mẫu mã tùy chỉnh tốt mà vẫn đảm bảo nội dung yêu cầu.

Cái chép tay đó ở dạng dòng không trộn được thư, xoay lại chiều cho nó vào cột để trộn thư được, các dòng nội dung cho vào 1 ô trong cột (tương ứng với mỗi gạch đầu dòng trong ô đó là một dòng nội dung khi để ở dạng chép tay) Như vậy in ra Word chủ động được, thêm bớt và căn chỉnh, in sẽ đẹp, mẫu mã tùy chỉnh tốt mà vẫn đảm bảo nội dung yêu cầu.

thêm cột sẽ bị lỗi bạn nhé, ví dụ tại sheet BienbanCVXD bạn có thấy ô P2 là gí trị để dò không? như bạn chèn 1 cột thì nó sẽ qua Q2 => xuất biên bản sẽ điền sai ô (điền vào đây P2) và sẽ ko dò được, còn cột U là để fix chiều cao dòng lúc điền thông tin công trình. sẽ nhảy sang cột V và sẽ ko fix được nữa., tạm thời bạn có thể chèn thêm 2 cột do còn dư cột N,O, chèn 2 cột rồi xóa 2 cột đó đi code có thể ko lỗi nữa + chèn vào sẽ lấy dữ liệu điền vào bị lệch bạn nhé, tui chưa thử nhưng xem ra có thể là vậy + để không lỗi bạn có thể vào đọc code tác giả share miễn phí đâu có giấu đâu bạn, và sửa lại cũng tốn cơm lắm, nhờ người khác thì hên xui người đó rảnh mà đọc code sửa cho bạn, thôi thì tự học mà sửa + để ko hiện thì 1 là bạn đạt đc trình độ như bên trên là đọc hiểu, còn không muốn điền TCNT thì xóa dữ liệu tại cột tiêu chuẩn tại sheet NhatTrinh đi, thì nó sẽ ko điền nữa (tui chưa thử nhưng thấy nội dung chương trình nó như vậy) ý 1: điền thử công đúng rồi bạn ý 2: điền nhanh hơn 1 công việc lặp đi lặp lại bạn có thể copy dòng rồi chèn dòng lại, chú ý không Ctrl +C rồi Ctrl +V (để ý dòng tô màu có chữ End) còn muốn nhanh hơn thì chắc đợi Update từ tác giả thôi bạn. bạn ko cần phải lấy nhiều mẫu vậy đâu, cứ chèn 1 biên bản lấy mẫu rồi thêm tất cả mẫu vào là được, có nút thêm đó. Tui chỉ xem thôi chứ chưa dùng thử nên có gì sai sót mong tác giả bổ xung và bỏ quá cho.

Thân gửi đến các bạn!

Cái chép tay đó ở dạng dòng không trộn được thư, xoay lại chiều cho nó vào cột để trộn thư được, các dòng nội dung cho vào 1 ô trong cột (tương ứng với mỗi gạch đầu dòng trong ô đó là một dòng nội dung khi để ở dạng chép tay) Như vậy in ra Word chủ động được, thêm bớt và căn chỉnh, in sẽ đẹp, mẫu mã tùy chỉnh tốt mà vẫn đảm bảo nội dung yêu cầu.

Nếu mà nhiều hạng mục thì mỗi hàng mục là một file đúng không Mutants Men ơi?

Vậy mỗi lần sửa lại bên nhật trình thì lại phải sửa giờ lại từ đầu bên List dúng không admin?

xin cái mẫu bạn muốn xuất ra như thế nào đi, nào tác giả cho phép thì tui sửa lại cho :v, chứ của ngta mà lao vô sửa như của mình thì chết, cướp công ăn việc làm của tác giả. mục này thì có sheet InNKTC không đáp ứng được sao? Đúng rồi bạn! theo tôi thấy thì khi bạn chọn mã công việc và chọn "Thi công" là bắt đầu 1 công việc mới (dòng màu tím), "Nghiệm thu" là kết thúc 1 công việc (dòng màu đen), những biên bản kèm theo ở giữa 2 dòng màu tím và đen đó gom chung lại là thành 1 bộ nghiệm thu 1 hạng mục công việc theo giai đoạn. ví dụ như thi công bê tông mố thì thi công bệ mố rồi thân mố, tường cánh, vậy là cần 3 biên bản nghiệm thu công việc

ý bạn là sửa ở đâu, theo tôi thấy là giờ sẽ tự chỉnh cho bạn. còn bạn muốn chỉnh tay thì chỉnh bên sheet ListBBCV

xin cái mẫu bạn muốn xuất ra như thế nào đi, nào tác giả cho phép thì tui sửa lại cho :v, chứ của ngta mà lao vô sửa như của mình thì chết, cướp công ăn việc làm của tác giả. mục này thì có sheet InNKTC không đáp ứng được sao? Đúng rồi bạn! theo tôi thấy thì khi bạn chọn mã công việc và chọn "Thi công" là bắt đầu 1 công việc mới (dòng màu tím), "Nghiệm thu" là kết thúc 1 công việc (dòng màu đen), những biên bản kèm theo ở giữa 2 dòng màu tím và đen đó gom chung lại là thành 1 bộ nghiệm thu 1 hạng mục công việc theo giai đoạn. ví dụ như thi công bê tông mố thì thi công bệ mố rồi thân mố, tường cánh, vậy là cần 3 biên bản nghiệm thu công việc

ý bạn là sửa ở đâu, theo tôi thấy là giờ sẽ tự chỉnh cho bạn. còn bạn muốn chỉnh tay thì chỉnh bên sheet ListBBCV

Mong bạn giúp xin cảm ơn!

Bạn rảnh thì sửa cho nhà họ đi. Dạo này mình bận quá không nghịch ngợm được gì. Mình đã nhận được File Bạn gửi rồi. Có gì mình sẽ phản hồi lại sớm nhé. Cám ơn Bạn nhiều

Ý mình là ở sheet (Nhattrinh) sẽ điền ngày thi công, ngày nghiệm thu và sau đó xuất sang List thì mới điền được giờ vào. Giờ sẽ tự chỉnh thì vào đâu để chỉnh vậy bạn? mình chưa biết mục này.

Mong bạn giúp xin cảm ơn!

xin cái mẫu bạn muốn xuất ra như thế nào đi, nào tác giả cho phép thì tui sửa lại cho :v, chứ của ngta mà lao vô sửa như của mình thì chết, cướp công ăn việc làm của tác giả. mục này thì có sheet InNKTC không đáp ứng được sao? Đúng rồi bạn! theo tôi thấy thì khi bạn chọn mã công việc và chọn "Thi công" là bắt đầu 1 công việc mới (dòng màu tím), "Nghiệm thu" là kết thúc 1 công việc (dòng màu đen), những biên bản kèm theo ở giữa 2 dòng màu tím và đen đó gom chung lại là thành 1 bộ nghiệm thu 1 hạng mục công việc theo giai đoạn. ví dụ như thi công bê tông mố thì thi công bệ mố rồi thân mố, tường cánh, vậy là cần 3 biên bản nghiệm thu công việc

ý bạn là sửa ở đâu, theo tôi thấy là giờ sẽ tự chỉnh cho bạn. còn bạn muốn chỉnh tay thì chỉnh bên sheet ListBBCV

Để xem đã, hiện tại đã bỏ được kha khác biến trong code để người dùng có thể thêm biên bản của mình vào. thấy hình như thiếu vụ đóng cọc, cừ tràm, vải địa này kia he.
bạn biết chỉnh thì vào sheet Config mà chỉnh, còn tui thì thua, thấy hình như là 1 ngày đc 8 biên bản ở 8 khung giờ đó đó, còn hơn thì bị trống giờ.

Nếu mỗi lần cần phải chỉnh sửa vậy lại phiền bạn, có lẽ sẽ hơi bất cập.
Để các anh/em có thể chủ động được khi in nhật ký và thêm mắm thêm muối thì thay bằng bạn giúp sửa mẫu nhật ký đã sẵn có xin được nhờ bạn giúp xuất nội dung nhật ký ra thêm một sheet (Nhatky_dangcot) để trộn thư khi in.

Sub TronNhatKy() Dim nArr As Variant, kArr As Variant, i As Long, k As Long, Er As Long Dim NoidungCV As String, Thoitiet As String, NL As String, ThietbiTC As String NoidungCV = "N" & ChrW$(7897) & "i c" & ChrW$(244) & "ng vi" & ChrW$(7879) & "c thi c" & ChrW$(244) & "ng trong ng" & ChrW$(224) & "y:" Thoitiet = "Th" & ChrW$(7901) & "i ti" & ChrW$(7871) & "t:" NL = "Nh" & ChrW$(226) & "n l" & ChrW$(7921) & "c: " ThietbiTC = "Thi" & ChrW$(7871) & "t b" & ChrW$(7883) & " thi c" & ChrW$(244) & "ng: " With Sheets("GhiNhatKy") 'lay du lieu NK chi tiet nArr = .Range("A6:B" & .Range("B65535").End(3).Row).value End With ReDim kArr(1 To UBound(nArr), 1 To 6) k = 1 kArr(k, 1) = "Ngày" kArr(k, 2) = Thoitiet kArr(k, 3) = NL kArr(k, 4) = ThietbiTC kArr(k, 5) = NoidungCV For i = 1 To UBound(nArr) If nArr(i, 1) <> Empty Then k = k + 1 kArr(k, 1) = nArr(i, 1) ' kArr(k, 2) = Replace(nArr(i, 2), Thoitiet, "") Else If Left(nArr(i, 2), Len(NL)) = NL Then kArr(k, 3) = Replace(nArr(i, 2), NL, "") ElseIf Left(nArr(i, 2), Len(ThietbiTC)) = ThietbiTC Then kArr(k, 4) = Replace(nArr(i, 2), ThietbiTC, "") ElseIf Left(nArr(i, 2), Len(NoidungCV)) = NoidungCV Then Else If kArr(k, 5) = Empty Then kArr(k, 5) = nArr(i, 2) Else If nArr(i, 2) <> Empty Then kArr(k, 5) = kArr(k, 5) & ChrW(10) & nArr(i, 2) End If End If End If Next i If k Then With Sheets("Nhatky_dangcot") Er = .Range("A65535").End(3).Row + 1 .Range("A1:E" & Er).ClearContents .Range("A1:E" & Er).Borders.LineStyle = xlNone With .Range("A1").Resize(k, 5) .value = kArr .WrapText = True .HorizontalAlignment = xlJustify End With End With End If End Sub

Sub Xuatdulieunhatky(control As IRibbonControl) On Error Resume Next Application.ScreenUpdating = False Call DMNhatky Call Phantichnhatky Call Ghinhatky Call TronNhatKy Application.ScreenUpdating = True MsgboxUni VNI("Ñaơ xuaát xong döơ lieäu nhaät kyù thi coâng"), vbInformation, VNI("Thoâng baùo") End Sub

ý bạn muốn như hình đúng không? Nội dung code

Sub TronNhatKy() Dim nArr As Variant, kArr As Variant, i As Long, k As Long, Er As Long Dim NoidungCV As String, Thoitiet As String, NL As String, ThietbiTC As String NoidungCV = "N" & ChrW$(7897) & "i c" & ChrW$(244) & "ng vi" & ChrW$(7879) & "c thi c" & ChrW$(244) & "ng trong ng" & ChrW$(224) & "y:" Thoitiet = "Th" & ChrW$(7901) & "i ti" & ChrW$(7871) & "t:" NL = "Nh" & ChrW$(226) & "n l" & ChrW$(7921) & "c: " ThietbiTC = "Thi" & ChrW$(7871) & "t b" & ChrW$(7883) & " thi c" & ChrW$(244) & "ng: " With Sheets("GhiNhatKy") 'lay du lieu NK chi tiet nArr = .Range("A6:B" & .Range("B65535").End(3).Row).value End With ReDim kArr(1 To UBound(nArr), 1 To 6) k = 1 kArr(k, 1) = "Ngày" kArr(k, 2) = Thoitiet kArr(k, 3) = NL kArr(k, 4) = ThietbiTC kArr(k, 5) = NoidungCV For i = 1 To UBound(nArr) If nArr(i, 1) <> Empty Then k = k + 1 kArr(k, 1) = nArr(i, 1) ' kArr(k, 2) = Replace(nArr(i, 2), Thoitiet, "") Else If Left(nArr(i, 2), Len(NL)) = NL Then kArr(k, 3) = Replace(nArr(i, 2), NL, "") ElseIf Left(nArr(i, 2), Len(ThietbiTC)) = ThietbiTC Then kArr(k, 4) = Replace(nArr(i, 2), ThietbiTC, "") ElseIf Left(nArr(i, 2), Len(NoidungCV)) = NoidungCV Then Else If kArr(k, 5) = Empty Then kArr(k, 5) = nArr(i, 2) Else If nArr(i, 2) <> Empty Then kArr(k, 5) = kArr(k, 5) & ChrW(10) & nArr(i, 2) End If End If End If Next i If k Then With Sheets("Nhatky_dangcot") Er = .Range("A65535").End(3).Row + 1 .Range("A1:E" & Er).ClearContents .Range("A1:E" & Er).Borders.LineStyle = xlNone With .Range("A1").Resize(k, 5) .value = kArr .WrapText = True .HorizontalAlignment = xlJustify End With End With End If End Sub

Nhấn Alt+ F11 lên để mở bảng soạn code Tìm đến module Ribbon\ Sub Xuatdulieunhatky(control As IRibbonControl) thay thế nguyên Sub đó luôn như này

Sub Xuatdulieunhatky(control As IRibbonControl) On Error Resume Next Application.ScreenUpdating = False Call DMNhatky Call Phantichnhatky Call Ghinhatky Call TronNhatKy Application.ScreenUpdating = True MsgboxUni VNI("Ñaơ xuaát xong döơ lieäu nhaät kyù thi coâng"), vbInformation, VNI("Thoâng baùo") End Sub

hoặc
thêm Call TronNhatKy ngay bên dưới Call Ghinhatky rồi ra ngoài trang tính nhấn Xuất Nhật Ký (nhớ tạo Sheet Nhatky_dangcot đã nha)

ý bạn muốn như hình đúng không? Nội dung code

Sub TronNhatKy() Dim nArr As Variant, kArr As Variant, i As Long, k As Long, Er As Long Dim NoidungCV As String, Thoitiet As String, NL As String, ThietbiTC As String NoidungCV = "N" & ChrW$(7897) & "i c" & ChrW$(244) & "ng vi" & ChrW$(7879) & "c thi c" & ChrW$(244) & "ng trong ng" & ChrW$(224) & "y:" Thoitiet = "Th" & ChrW$(7901) & "i ti" & ChrW$(7871) & "t:" NL = "Nh" & ChrW$(226) & "n l" & ChrW$(7921) & "c: " ThietbiTC = "Thi" & ChrW$(7871) & "t b" & ChrW$(7883) & " thi c" & ChrW$(244) & "ng: " With Sheets("GhiNhatKy") 'lay du lieu NK chi tiet nArr = .Range("A6:B" & .Range("B65535").End(3).Row).value End With ReDim kArr(1 To UBound(nArr), 1 To 6) k = 1 kArr(k, 1) = "Ngày" kArr(k, 2) = Thoitiet kArr(k, 3) = NL kArr(k, 4) = ThietbiTC kArr(k, 5) = NoidungCV For i = 1 To UBound(nArr) If nArr(i, 1) <> Empty Then k = k + 1 kArr(k, 1) = nArr(i, 1) ' kArr(k, 2) = Replace(nArr(i, 2), Thoitiet, "") Else If Left(nArr(i, 2), Len(NL)) = NL Then kArr(k, 3) = Replace(nArr(i, 2), NL, "") ElseIf Left(nArr(i, 2), Len(ThietbiTC)) = ThietbiTC Then kArr(k, 4) = Replace(nArr(i, 2), ThietbiTC, "") ElseIf Left(nArr(i, 2), Len(NoidungCV)) = NoidungCV Then Else If kArr(k, 5) = Empty Then kArr(k, 5) = nArr(i, 2) Else If nArr(i, 2) <> Empty Then kArr(k, 5) = kArr(k, 5) & ChrW(10) & nArr(i, 2) End If End If End If Next i If k Then With Sheets("Nhatky_dangcot") Er = .Range("A65535").End(3).Row + 1 .Range("A1:E" & Er).ClearContents .Range("A1:E" & Er).Borders.LineStyle = xlNone With .Range("A1").Resize(k, 5) .value = kArr .WrapText = True .HorizontalAlignment = xlJustify End With End With End If End Sub

Nhấn Alt+ F11 lên để mở bảng soạn code Tìm đến module Ribbon\ Sub Xuatdulieunhatky(control As IRibbonControl) thay thế nguyên Sub đó luôn như này

Sub Xuatdulieunhatky(control As IRibbonControl) On Error Resume Next Application.ScreenUpdating = False Call DMNhatky Call Phantichnhatky Call Ghinhatky Call TronNhatKy Application.ScreenUpdating = True MsgboxUni VNI("Ñaơ xuaát xong döơ lieäu nhaät kyù thi coâng"), vbInformation, VNI("Thoâng baùo") End Sub

hoặc
thêm Call TronNhatKy ngay bên dưới Call Ghinhatky rồi ra ngoài trang tính nhấn Xuất Nhật Ký (nhớ tạo Sheet Nhatky_dangcot đã nha)

Xin được PacificPR được nhờ Mutants Men và các anh/chị trên GPE bổ sung thêm nhiệt độ đã có ở cột C trong Sheet(Tb_Thoitiet) để cho vào nhật ký sẵn có và xuất ra Sheet(Nhatky_dangcot) gồm cả cột nhiệt độ được không ạ?

ý bạn muốn như hình đúng không? Nội dung code

Sub TronNhatKy() Dim nArr As Variant, kArr As Variant, i As Long, k As Long, Er As Long Dim NoidungCV As String, Thoitiet As String, NL As String, ThietbiTC As String NoidungCV = "N" & ChrW$(7897) & "i c" & ChrW$(244) & "ng vi" & ChrW$(7879) & "c thi c" & ChrW$(244) & "ng trong ng" & ChrW$(224) & "y:" Thoitiet = "Th" & ChrW$(7901) & "i ti" & ChrW$(7871) & "t:" NL = "Nh" & ChrW$(226) & "n l" & ChrW$(7921) & "c: " ThietbiTC = "Thi" & ChrW$(7871) & "t b" & ChrW$(7883) & " thi c" & ChrW$(244) & "ng: " With Sheets("GhiNhatKy") 'lay du lieu NK chi tiet nArr = .Range("A6:B" & .Range("B65535").End(3).Row).value End With ReDim kArr(1 To UBound(nArr), 1 To 6) k = 1 kArr(k, 1) = "Ngày" kArr(k, 2) = Thoitiet kArr(k, 3) = NL kArr(k, 4) = ThietbiTC kArr(k, 5) = NoidungCV For i = 1 To UBound(nArr) If nArr(i, 1) <> Empty Then k = k + 1 kArr(k, 1) = nArr(i, 1) ' kArr(k, 2) = Replace(nArr(i, 2), Thoitiet, "") Else If Left(nArr(i, 2), Len(NL)) = NL Then kArr(k, 3) = Replace(nArr(i, 2), NL, "") ElseIf Left(nArr(i, 2), Len(ThietbiTC)) = ThietbiTC Then kArr(k, 4) = Replace(nArr(i, 2), ThietbiTC, "") ElseIf Left(nArr(i, 2), Len(NoidungCV)) = NoidungCV Then Else If kArr(k, 5) = Empty Then kArr(k, 5) = nArr(i, 2) Else If nArr(i, 2) <> Empty Then kArr(k, 5) = kArr(k, 5) & ChrW(10) & nArr(i, 2) End If End If End If Next i If k Then With Sheets("Nhatky_dangcot") Er = .Range("A65535").End(3).Row + 1 .Range("A1:E" & Er).ClearContents .Range("A1:E" & Er).Borders.LineStyle = xlNone With .Range("A1").Resize(k, 5) .value = kArr .WrapText = True .HorizontalAlignment = xlJustify End With End With End If End Sub

Nhấn Alt+ F11 lên để mở bảng soạn code Tìm đến module Ribbon\ Sub Xuatdulieunhatky(control As IRibbonControl) thay thế nguyên Sub đó luôn như này

Sub Xuatdulieunhatky(control As IRibbonControl) On Error Resume Next Application.ScreenUpdating = False Call DMNhatky Call Phantichnhatky Call Ghinhatky Call TronNhatKy Application.ScreenUpdating = True MsgboxUni VNI("Ñaơ xuaát xong döơ lieäu nhaät kyù thi coâng"), vbInformation, VNI("Thoâng baùo") End Sub

hoặc
thêm Call TronNhatKy ngay bên dưới Call Ghinhatky rồi ra ngoài trang tính nhấn Xuất Nhật Ký (nhớ tạo Sheet Nhatky_dangcot đã nha)

Chứ không chỉ xuất được Sheet (Nhatky_dangcot) mà Sheet(InNKTC) lại không sử dụng được nữa!

Ý mình là ở sheet (Nhattrinh) sẽ điền ngày thi công, ngày nghiệm thu và sau đó xuất sang List thì mới điền được giờ vào. Giờ sẽ tự chỉnh thì vào đâu để chỉnh vậy bạn? mình chưa biết mục này.

Mong bạn giúp xin cảm ơn!

Mong anh chỉ giúp!

Đã làm thành công theo chỉ dẫn của bạn, giờ lại thêm một phần tuỳ chọn nữa để xuất nhật ký, file hiện vẫn còn vài hạn chế như: phần số đếm BB (không copy công trình khác vào được mà phải đánh mã CV mới đếm được), tuỳ chọn mã CV chưa linh hoạt, chưa xuất ra ngày mưa ... nhưng nếu có người như bạn thì sẽ được hoàn thiện hơn. Cám ơn bạn nhiều.

Ý bạn là sao để linh hoạt, copy vào như dự toán hitosoft hả bạn, tui xem qua file của PacificPR thì cũng thấy như thế. vì vậy tui định sửa đổi bổ sung thêm để copy mã bên dự toán qua và hoàn thành luôn hồ sơ, công việc còn lại là điền ngày. nếu PacificPR cho phép thì tui mới làm, hiện file Demo tui đã gửi cho PacificPR, chờ tác giả cho phép thì sẽ bung lụa thôi.

Xin phép PacificPR được nhờ Mutants Men và các anh/chị trên GPE: Theo Điều 10 Thông tư 26/2016/TT-BXD thì nhật ký thi công cần có diễn biến điều kiện thi công (nhiệt độ, thời tiết và các thông tin liên quan)

Xin được PacificPR được nhờ Mutants Men và các anh/chị trên GPE bổ sung thêm nhiệt độ đã có ở cột C trong Sheet(Tb_Thoitiet) để cho vào nhật ký sẵn có và xuất ra Sheet(Nhatky_dangcot) gồm cả cột nhiệt độ được không ạ?

Cảm ơn bạn! Bạn cho mình hỏi: Làmcách nào để xừa xuất ra được Sheet (Nhatky_dangcot) mà vừa vẫn có thể giữ lại Sheet(InNKTC) Mình làm như bạn hướng dẫn thì xuất ra được Sheet (Nhatky_dangcot) nhưng khi Spin dữ liệu trên Sheet(InNKTC) lại không chạy. Ý mình muốn vừa có thể sử dụng Sheet(InNKTC) như ban đầu và xuất được dữ liệu Sheet (Nhatky_dangcot)

Chứ không chỉ xuất được Sheet (Nhatky_dangcot) mà Sheet(InNKTC) lại không sử dụng được nữa!

Bài đã được tự động gộp: 15/8/20

Cái đó dùng để đếm có bao nhiêu biên bản trong ngày và điền giờ nghiệm thu cho biên bản

cảm ơn cô trước.

1. Nhiệt độ: Tui cũng có thắc mắc như bạn, phần nhiệt độ tui sẽ chỉnh sửa và bổ sung lại sau. 2. Chọn mã công việc:

Ý bạn là sao để linh hoạt, copy vào như dự toán hitosoft hả bạn, tui xem qua file của PacificPR thì cũng thấy như thế. vì vậy tui định sửa đổi bổ sung thêm để copy mã bên dự toán qua và hoàn thành luôn hồ sơ, công việc còn lại là điền ngày. nếu PacificPR cho phép thì tui mới làm, hiện file Demo tui đã gửi cho PacificPR, chờ tác giả cho phép thì sẽ bung lụa thôi.

tôi chưa sử dụng mấy chương trình Quản lý chất lượng bên ngoài nên không biết có gì hay, ai thấy có gì hay mà muốn thêm vào chương trình của PacificPR nếu giúp được tui sẽ giúp, và tất nhiên phải được PacificPR cho phép. xem lại ý 1 tui trả lời bên trên nha là thế nào bạn, code hoàn toàn không động chạm gì đến InNKTC cả, bạn thử Xuất nhật ký lại xem.

bạn có thêm sheet và đổi tên lại như #436 hướng dẫn chứ không phải đổi tên sheet InNKTC thành Nhatky_dangcot

Bài đã được tự động gộp: 15/8/20

sao cô lại trả lời người khác còn tôi hỏi cô không trả lời, muốn giận cô luôn không! 1. Mã công việc tui thêm mã của dự toán vào được không hay là mã công việc đó cô đã Cắt giảm cho ít đi rồi 2. tbDinhmuc, tbGiaCamay, tbTHmay, Config sửa lại được không cô? 3. hiện tại thấy thiếu biên bản đóng cọc, cô có thể bổ xung cho anh em được không? 4. hiện tại thấy chưa in, xuất hàng loạt theo công việc nghiệm thu (toàn bộ biên bản có liên quan) mong cô bổ xung để in ra xếp bằng cơm hơi đuối 5. dãy số lúc xuất pdf có ý nghĩ gì thế cô giải thích 1 chút được không? <số thứ 1>.<số thứ 2>.<số thứ 3>....<số thứ n>_<tên sheet>.PDF <số thứ 1>, ý nghĩa, ở đâu ra <số thứ 2>, ý nghĩa, ở đâu ra <số thứ 3>, ý nghĩa, ở đâu ra ...... <số thứ n>, ý nghĩa, ở đâu ra

cảm ơn cô trước.

1. Nhiệt độ: Tui cũng có thắc mắc như bạn, phần nhiệt độ tui sẽ chỉnh sửa và bổ sung lại sau. 2. Chọn mã công việc:

Ý bạn là sao để linh hoạt, copy vào như dự toán hitosoft hả bạn, tui xem qua file của PacificPR thì cũng thấy như thế. vì vậy tui định sửa đổi bổ sung thêm để copy mã bên dự toán qua và hoàn thành luôn hồ sơ, công việc còn lại là điền ngày. nếu PacificPR cho phép thì tui mới làm, hiện file Demo tui đã gửi cho PacificPR, chờ tác giả cho phép thì sẽ bung lụa thôi.

tôi chưa sử dụng mấy chương trình Quản lý chất lượng bên ngoài nên không biết có gì hay, ai thấy có gì hay mà muốn thêm vào chương trình của PacificPR nếu giúp được tui sẽ giúp, và tất nhiên phải được PacificPR cho phép. xem lại ý 1 tui trả lời bên trên nha là thế nào bạn, code hoàn toàn không động chạm gì đến InNKTC cả, bạn thử Xuất nhật ký lại xem.

bạn có thêm sheet và đổi tên lại như #436 hướng dẫn chứ không phải đổi tên sheet InNKTC thành Nhatky_dangcot

Bài đã được tự động gộp: 15/8/20

sao cô lại trả lời người khác còn tôi hỏi cô không trả lời, muốn giận cô luôn không! 1. Mã công việc tui thêm mã của dự toán vào được không hay là mã công việc đó cô đã Cắt giảm cho ít đi rồi 2. tbDinhmuc, tbGiaCamay, tbTHmay, Config sửa lại được không cô? 3. hiện tại thấy thiếu biên bản đóng cọc, cô có thể bổ xung cho anh em được không? 4. hiện tại thấy chưa in, xuất hàng loạt theo công việc nghiệm thu (toàn bộ biên bản có liên quan) mong cô bổ xung để in ra xếp bằng cơm hơi đuối 5. dãy số lúc xuất pdf có ý nghĩ gì thế cô giải thích 1 chút được không? <số thứ 1>.<số thứ 2>.<số thứ 3>....<số thứ n>_<tên sheet>.PDF <số thứ 1>, ý nghĩa, ở đâu ra <số thứ 2>, ý nghĩa, ở đâu ra <số thứ 3>, ý nghĩa, ở đâu ra ...... <số thứ n>, ý nghĩa, ở đâu ra

cảm ơn cô trước.

Mình cũng xem qua file Bạn gửi thấy các chức năng bổ sung và những phần sửa lại rất ổn. Bạn có thời gian sửa lại Code lấy thời tiết thi công. Code trong file chậy chậm rất nhiều so với code của HeSanbi

Cảm ơn admin, phiền admin chút xíu: Cho mình hỏi có thể chỉnh được cái nhiệt độ đó xa xa ra chút xíu như hình này không? Mình chỉnh bằng tay nhưng khi spin nó lại về như cũ.

Bài đã được tự động gộp: 15/8/20

Nếu khi nào có thời gian xin được nhờ tác giả bổ sung xuất Sheet(Nhatky_dangcot) gồm cả cột nhiệt độ để có thể trộn thư khi in.

1. Về mã công việc nếu đưa nguyên mã của bộ dự toán vào thì file nó nặng lắm. Mình chỉ cần mã hiệu chính thôi (Trong file đã lược bỏ đi nhiều chỉ còn khoảng 400 mã thôi) 2. tbDinhmuc, tbGiaCamay, tbTHmay là lấy theo định mức dự toán. Trong file chỉ lấy tên máy thôi 3. Về biên bản đóng (ép) cọc mình nghĩ thêm các nhật ký đóng (ép) cọc là ổn. Thấy họ làm mẫu riêng rồi đóng tập như nhật ký thi công í 4. Trong file ưu tiên xuất ra file Pdf. Lúc xuất ra thì các biên bản đính kèm theo sẽ ở dưới BBNT (Số 1: là các biên bản khác; 2 là biên bản vật liệu, 3 là biên bản NTCV, 4 là biên bản HTHM, 5 là KQTN, 6 là NKTC, 7 là NKGS)

Mình cũng xem qua file Bạn gửi thấy các chức năng bổ sung và những phần sửa lại rất ổn. Bạn có thời gian sửa lại Code lấy thời tiết thi công. Code trong file chậy chậm rất nhiều so với code của HeSanbi

Bạn qua Topic này xem thử nhé

tui đã xem bài lấy thời tiết, đã tải toàn bộ file trên đó, khi nhấn vào code có chạy nhưng không ra kết quả gì cả. (chạy rất nhanh do exit sub) thân gửi tác giả 1 video "đề mô", xuất được PDF như vầy, in cũng y chang. có điều số của file hình như bị sai thì phải.

tui đã xem bài lấy thời tiết, đã tải toàn bộ file trên đó, khi nhấn vào code có chạy nhưng không ra kết quả gì cả. (chạy rất nhanh do exit sub) thân gửi tác giả 1 video "đề mô", xuất được PDF như vầy, in cũng y chang. có điều số của

tui đã xem bài lấy thời tiết, đã tải toàn bộ file trên đó, khi nhấn vào code có chạy nhưng không ra kết quả gì cả. (chạy rất nhanh do exit sub) thân gửi tác giả 1 video "đề mô", xuất được PDF như vầy, in cũng y chang. có điều số của file hình như bị sai thì phải.

Còn đây là nhập công việc

Thấy vụ in và chọn mã công việc của bạn là thấy ưng cái bụng rồi đấy, nhưng đòi hỏi hơn chút nếu trong phần chọn mã công việc có thêm phần tuỳ chọn tick nhiều việc trong phần chọn mã công việc thì hay hơn "cái nào tick trước lấy trước", như vậy làm sẽ nhanh hơn.

tích được nhiều mà, demo thì tích 1 cái coi chơi thôi bạn. cái nào bên trên sẽ làm trước chứ tui không biết bạn tích cái nào trước để mà nhớ thứ tự đó mà làm theo, tui nghĩ là vẫn được nhưng code hơi rối. hiện trong đó là 1 mớ bòng bong rồi. tác giả xem xong chán chả trả lời luôn giờ.

tích được nhiều mà, demo thì tích 1 cái coi chơi thôi bạn. cái nào bên trên sẽ làm trước chứ tui không biết bạn tích cái nào trước để mà nhớ thứ tự đó mà làm theo, tui nghĩ là vẫn được nhưng code hơi rối. hiện trong đó là 1 mớ bòng bong rồi. tác giả xem xong chán chả trả lời luôn giờ.