Hồ sơ quản lý chất lượng công trình

Liên hệ QC
Các bác ở trên có ai làm hồ sơ QLCL làm cả nhật ký an toàn lao động không cho e xin mẫu nhật ký với ạ! Tiện có bác nào có đề cương giám sát công trình hạ tầng kỹ thuật không cho e xin tham khảo cho công trình sắp tới e GS với ạ (dự án khu tái định cư gồm đường, điện, cấp thoát nước, mặt bằng chia lô,...) em xin cám ơn ạ!
 
Lần chỉnh sửa cuối:
cám ơn bác nhiều nhé! diễn đàn rất cần những người có tâm huyết như bác!
 
Nhờ ae sửa hộ lỗi khi xuất nhật ký ra file PDF phần mềm xuất thiếu một số ngày, mặc dù trong nhật trình vẫn có ngày đó thi công bình thường. Cảm ơn tất cả.
Ví dụ:
1/ Từ ngày 6.1.1 . NKTC đến 6.1.3 . NKTC -> thiếu ngày 6.1.2 . NKTC
2/ Từ ngày 6.1.47 . NKTC đến 6.1.50 . NKTC -> thiếu ngày 6.1.48-49 . NKTC
 

File đính kèm

  • 2.0 HSQLCL BBBGSD La Son.Sửa 14-11-21.xlsm
    1.7 MB · Đọc: 59
Lần chỉnh sửa cuối:
Em cài phần mềm khi dùng cứ chọn vào kiểm tra kích thước hình học thì bị lỗi như này là sao ạ, có ai biết lỗi ở đâu bảo em với, em cảm ơn
 

File đính kèm

  • 1.jpg
    1.jpg
    161 KB · Đọc: 55
Em cài phần mềm khi dùng cứ chọn vào kiểm tra kích thước hình học thì bị lỗi như này là sao ạ, có ai biết lỗi ở đâu bảo em với, em cảm ơn
cái này bạn sửa lại link hình ảnh trên thanh công cụ Dữ liệu công trình/Dữ liệu kích thước hình học đào đất hố móng/ link picture cho đúng rồi thử lại
 
e chào ad, ad cho e hỏi, sao cái sheet thời tiết của e nó nhảy ngày loạn lung tung vậy ạ. Có cách nào sửa lại không ạ, mong ad giúp e Untitled.pngUntitled.png
 

File đính kèm

  • Untitled1.png
    Untitled1.png
    104.2 KB · Đọc: 10
Bác Tân ơi giúp em làm sao để một số biên bản cập nhật được giờ không ạ. VD biên bản kiểm tra điều kiện đổ bê tông, biên bản theo dõi bê tông,... e đang mắc vấn đề này quá. e cám ơn
 

File đính kèm

  • HSQLCL GLK.Ltd.xlsm
    1.5 MB · Đọc: 66
Bác Tân ơi giúp em làm sao để một số biên bản cập nhật được giờ không ạ. VD biên bản kiểm tra điều kiện đổ bê tông, biên bản theo dõi bê tông,... e đang mắc vấn đề này quá. e cám ơn
file của bạn ở mấy List biên bản cơ bản cũng không thể hiện giờ rồi bạn, làm sao mà điền vào được, với ở biên bản thì cũng là "......giờ ......phút" chứ đâu có phải là công thức đâu
thêm cái nữa là trong file thực chất phần giờ kiểm tra đó cũng không có code để xử lý nó.
bạn mở code lên xem tại module SubBB, tìm đến Sub List_BBKT()
tại đây
Mã:
                If sArr(I, 3) = Ma Then
                    K = K + 1
                    dArr(K, 1) = K
                    dArr(K, 2) = sArr(I, 2)
                    dArr(K, 3) = sArr(I, 3)
                    dArr(K, 4) = sArr(I, 4)
                    dArr(K, 5) = sArr(I, 5)
                    dArr(K, 6) = Application.Max(Sheets("Nhattrinh").Range("F" & I & ":K" & I))
                    dArr(K, 8) = sArr(I, 12)
                End If
không có
Mã:
 dArr(K, 7) =
tức là mặc định tác giả đã không xử lý nó rồi nên sẽ không có bạn nhé
 
Lần chỉnh sửa cuối:
file của bạn ở mấy List biên bản cơ bản cũng không thể hiện giờ rồi bạn, làm sao mà điền vào được, với ở biên bản thì cũng là "......giờ ......phút" chứ đâu có phải là công thức đâu
thêm cái nữa là trong file thực chất phần giờ kiểm tra đó cũng không có code để xử lý nó.
bạn mở code lên xem tại module SubBB, tìm đến Sub List_BBKT()
tại đây
Mã:
                If sArr(I, 3) = Ma Then
                    K = K + 1
                    dArr(K, 1) = K
                    dArr(K, 2) = sArr(I, 2)
                    dArr(K, 3) = sArr(I, 3)
                    dArr(K, 4) = sArr(I, 4)
                    dArr(K, 5) = sArr(I, 5)
                    dArr(K, 6) = Application.Max(Sheets("Nhattrinh").Range("F" & I & ":K" & I))
                    dArr(K, 8) = sArr(I, 12)
                End If
không có
Mã:
 dArr(K, 7) =
tức là mặc định tác giả đã không xử lý nó rồi nên sẽ không có bạn nhé
vậy sửa thế nào bạn
 
vậy sửa thế nào bạn
bạn nhấn Alt++ F11 lên để mở cửa sổ soạn code
tìm đến Module SubBB

1655206378345.png

thêm 2 đoạn code này vào nội dung code Sub List_BBKT
Mã:
        Dim Rn As Range
        With Sheets("ListBBCV")
            Set Rn = .Range("B6:P" & .Range("C65000").End(3).Row)
        End With
Mã:
dArr(K, 7) = Application.WorksheetFunction.VLookup(dArr(K, 2), Rn, 8, False)
1655206437454.png
và đây là kết quả
1655206551483.png
 
Lần chỉnh sửa cuối:
Các bác có mã và tiêu chuẩn về hạng mục cơ điện ko e xin với, e ép vào nó hay báo lỗi
 
Tác giả cho hỏi sao chọn hết biên bản mà nó không nhảy. ví dụ: có 19 biên bản nhưng nó in chỉ 19 biên bản giống nhau
Xử lý được chưa bạn. Mình cũng bị y vậy. Nhưng xuất thủ công từng biên bản thì lại được. Biên bản lấy mẫu vật liệu đầu vào xuất PDF bị lỗi, đành chọn mục IN BIÊN BẢN rồi sửa tên.
 
Bác @Mutants Men cho hỏi cách sửa lỗi phần máy thi công trước ngày nghỉ bị mất ạ
1657511373917.png
 
Em mới ngâm cứu phần mềm. Khi xuất nhật ký có 2 lựa chọn. Xuất có nội bộ va không có nội bộ. Xuất nhật ký có nội bộ thì đúng. Xuất không nội bộ nhật ký bị sai. Nhờ các bác xử ký giúp với
Bài đã được tự động gộp:

Em mới ngâm cứu phần mềm. Khi xuất nhật ký có 2 lựa chọn. Xuất có nội bộ va không có nội bộ. Xuất nhật ký có nội bộ thì đúng. Xuất không nội bộ nhật ký bị sai. Nhờ các bác xử ký giúp với
 

File đính kèm

  • IMG_20220927_211742.png
    IMG_20220927_211742.png
    17.1 KB · Đọc: 37
  • IMG_20220927_211802.jpg
    IMG_20220927_211802.jpg
    141.5 KB · Đọc: 38
  • IMG_20220927_211757.jpg
    IMG_20220927_211757.jpg
    106.1 KB · Đọc: 38
Web KT
Back
Top Bottom