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

Liên hệ QC
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à!
Bạn đính kèm mẫu biên bản của Bạn lên mình sửa cho nha
 
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 ạ.
 

File đính kèm

  • QLCLXD.png
    QLCLXD.png
    165.7 KB · Đọc: 70
  • QLCLXD2.png
    QLCLXD2.png
    197.4 KB · Đọc: 88
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
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:

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 -\\/.
Sao thế bác ạ
 

File đính kèm

  • KCS-CaBon-BanChinh.xlsm
    1.3 MB · Đọc: 49
  • bbcvxd.JPG
    bbcvxd.JPG
    89.2 KB · Đọc: 81
Lần chỉnh sửa cuối:
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:


Sao thế bác ạ
Bạn thử dùng File này xem sao
 

File đính kèm

  • HS QLCL -GIAO THONG(in).rar
    5.5 MB · Đọc: 219
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
lngAppInst = GetWindowLong(mControlHwnd, GWL_HINSTANCE)
If Not mbHook Then
mLngMouseHook = _
SetWindowsHookEx(WH_MOUSE_LL, _
AddressOf MouseProc, _
lngAppInst, 0)
mbHook = mLngMouseHook <> 0
End If
End If
End Sub
 

File đính kèm

  • 1.png
    1.png
    106 KB · Đọc: 73
  • 2.png
    2.png
    163 KB · Đọc: 63
  • Road_Vr2018 xxxx.xlsm
    480.1 KB · Đọc: 60
Web KT
Back
Top Bottom