Hồ sơ quản lý chất lượng công trình (3 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 3 (Thành viên: 0, Khách: 3)
lemauga đã viết:
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
Nhấp chuột vào đây để mở rộng...
Bạn xem thử
1547564673766.png
1547564760493.png
 

File đính kèm

File đính kèm

lemauga đã viết:
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ấp chuột vào đây để mở rộng...
Bạn kiểm tra lại chỗ loại mẫu trong BBLM
1547613451784.png​
 
lemauga đã viết:
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ấp chuột vào đây để mở rộng...
Bạn kiểm tra thử. Chỗ BBLM Bạn về sửa lại 1 tẹo là được
 

File đính kèm

lemauga đã viết:
Cảm ơn bạn nha
Nhấp chuột vào đây để mở rộng...
Chúc admin năm mới thành công
luôn tiện nhờ admin giúp sửa lại file danh mục hồ sơ biên bản công việc cho em với.
sau khi đánh ngày tháng giáy yêu cầu nghiệm thu ngày 24/11/2018 và ngày NTCV thì ngày 25/11/2018 nhưng khi xuất ra list danh mục hồ sơ thì GYCNT van ngay 24/11/2018 và NTCV cung là ngày 24/11/2018 (đúng là ngày 25/11/2018)
Nhờ ADmin giúp em voi
 

File đính kèm

File đính kèm

Lần chỉnh sửa cuối:
Sharava36 đã viết:
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
​
​
Nhấp chuột vào đây để mở rộng...
Cho mình xin bộ cài mới nhất có cả thời tiết và biên bản lấy mẫu thí nghiệm,... nhé. Xin chân thành cảm ơn: minhluong2386@gmail.com
 
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!
 
Nhất Chi Lan đã viết:
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
Nhấp chuột vào đây để mở rộng...
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. Bạn gửi cho mình xin file hồ sơ QLCL mới nhất và làm 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ạn. Xin chân thành cảm ơn!
 
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 đính kèm

File đính kèm

PacificPR đã viết:
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ả :p:p:p
Bài đã được tự động gộp:


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
Nhấp chuột vào đây để mở rộng...
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
 
PacificPR đã viết:
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 :p:p:p
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
Nhấp chuột vào đây để mở rộng...
Bạn ơi bạn xem lại chỗ xuất Biên Bản ở mục BBNT xem không xuất đc
 
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
Nhấp chuột vào đây để mở rộng...
Bạn có thể mô tả vài trang tính chủ yếu được không, file giả lập ý?
 
Duongkimmanh đã viết:
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.
Nhấp chuột vào đây để mở rộng...
Một ngày bạn bỏ ra 2 giờ tham gia thảo luận. Khoảng hai tháng
 
lemauga đã viết:
♫ђöล♥ßล†♥†µ♫ đã viết:
Ban xem file này thử nha
Nhấp chuột vào đây để mở rộng...
Nhờ bạn xem lại file nay. phần danh mục hồ sơ công việc chạy không đúng so với Nhật trình.
Ngày yêu cầu nghiệm thu: 06/08/2018 ngày nghiệm thu công việc: 07/08/2018
Nhưng khi xuất ra danh mục thì ngày PYC NT trùng với ngày NTCV.
Bạn xem xét sủa lại file nhá. Thanhk
Nhấp chuột vào đây để mở rộng...
 
Sharava36 đã viết:
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
​
​
Nhấp chuột vào đây để mở rộng...
Sharava36 đã viết:
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
Hiệp Trịnh đã viết:
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 !!!
Nhấp chuột vào đây để mở rộng...
Sharava36 đã viết:
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
​
​
Nhấp chuột vào đây để mở rộng...
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?
Nhấp chuột vào đây để mở rộng...
 
khang2303 đã viế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!
Nhấp chuột vào đây để mở rộng...
Bác cho em xin file excel của bác được không ạ? em muốn tham khảo thêm để làm hồ sơ.
 
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!
 
viethung_ksxd đã viết:
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.
Cảm ơn all!
Nhấp chuột vào đây để mở rộng...
Mình đã làm được, cám ơn chủ thớt rất nhiều. Mong bạn hoàn thiện, cập nhật thường xuyên phần mềm và chia sẻ cùng mọi người nhé. Thanks!
 
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à!

constructxda đã viết:
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 ạ.
Nhấp chuột vào đây để mở rộng...

Bùi Thúy Thúy đã viết:
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ấp chuột vào đây để mở rộng...
 
DucTT47 đã viết:
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à!
Nhấp chuột vào đây để mở rộng...
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: 74
  • QLCLXD2.png
    QLCLXD2.png
    197.4 KB · Đọc: 93
jayoo002 đã viết:
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 ạ.
Nhấp chuột vào đây để mở rộng...
không có code nó báo Cannot run the maccro
 
Phamvanchat đã viết:
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 ạ
Nhấp chuột vào đây để mở rộng...
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
 
vova2209 đã viết:
Gửi file lên xem như nào, ghi chú rõ ra.. mình vẫn chưa hiểu lắm
Nhấp chuột vào đây để mở rộng...
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:

Nhất Chi Lan đã viết:
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 -\\/.
Nhấp chuột vào đây để mở rộng...
Sao thế bác ạ
 

File đính kèm

Lần chỉnh sửa cuối:
Phamvanchat đã viết:
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 ạ
Nhấp chuột vào đây để mở rộng...
Bạn thử dùng File này xem sao
 

File đính kèm

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

Nhất Chi Lan đã viết:
Hiện tại cái File đó vẫn còn 1 số cái chưa hoàn thiện được. Khoảng một thời gian đẹp trời nào đó mình làm xong rồi nhờ các Bạn Test thử nhé
Nhấp chuột vào đây để mở rộng...
Trước tết dương lịch đi bạn ơi, cần gì anh em sẽ hỗ trợ để có thêm sức khoẻ . ⛷
 
Nhất Chi Lan đã viết:
Hiện tại cái File đó vẫn còn 1 số cái chưa hoàn thiện được. Khoảng một thời gian đẹp trời nào đó mình làm xong rồi nhờ các Bạn Test thử nhé
Nhấp chuột vào đây để mở rộng...
Tung lên đi bạn, anh em test thử, có gì nhờ các bậc cao nhân giúp và hoàn thiện, mỗi người cho thêm ý kiến để đóng góp.
 
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
 
Nhất Chi Lan đã viết:
Bạn thử dùng File này xem sao
Nhấp chuột vào đây để mở rộng...
Nhất Chi Lan
Cho em hỏi giả sử thêm một hạng mục mới trong công trình thì cần tách riêng ra một file mới à?
Có thể để chung các hạng mục của công trình trong cùng một file không?
Muốn thêm thành phần tham gia nghiệm thu công việc được chứ anh?
Em xin cảm ơn!
 
Mình mở chương trình lên bị lỗi này luôn. Win 10 64 bit



1582795963995.png
 
tinhdam đã viết:
Mình mở chương trình lên bị lỗi này luôn. Win 10 64 bit



View attachment 232566
Nhấp chuột vào đây để mở rộng...
Bạn thử thay thế đến hết dòng màu đỏ bằng cái này thử
Mã: 
'****************************************
'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
 

File đính kèm

  • Loi.jpg
    Loi.jpg
    331.1 KB · Đọc: 15
Phamvanchat đã viết:
Vẫn báo lỗi như cũ bạn ạ. chắc nên quay về bản office 32 bit cho lành
Nhấp chuột vào đây để mở rộng...
------------------------


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:

JavaScript: 
#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:
JavaScript: 
#If Win64 then
Dim HWnd as LongPtr 'Hoặc LongLong
#Else
Dim HWnd as Long
#End If
Ví dụ vận dụng:
JavaScript: 
#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
 
PacificPR đã viết:
Bạn chụp cho mình cái lỗi đó nhé
Nhấp chuột vào đây để mở rộng...

Mình xóa bản office 64 bit vài bản office 32 bit ( có 10 phút) và chạy lại ổn định rồi. Tất cả là do bản office 64bit.

Lỗi khi xài office 64 bit đây bạn

2f6e25845c50a70efe41.png
Bài đã được tự động gộp:

HeSanbi đã viết:
------------------------


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:

JavaScript: 
#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:
JavaScript: 
#If Win64 then
Dim HWnd as LongPtr 'Hoặc LongLong
#Else
Dim HWnd as Long
#End If
Ví dụ vận dụng:
JavaScript: 
#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
Nhấp chuột vào đây để mở rộng...

Em về bản office 32bit chạy được rồi anh ạ. Thanks anh. Mong chủ top có time sửa đổi để chạy được cả 2 môi trường 32bit và 64bit ạ.
 
Phamvanchat đã viết:
Em về bản office 32bit chạy được rồi anh ạ. Cảm ơn anh. Mong chủ top có time sửa đổi để chạy được cả 2 môi trường 32bit và 64bit ạ.
Nhấp chuột vào đây để mở rộng...
Để mai hi sinh cái bản 32bit này. Ghost lại bản 64 xem nó bị làm sao mới được :D:D:D
 
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: Mr.tlam90@gmail.com
có thể up lên cho mọi người thảm khảo được ko.
Cảm ơn chủ bạn.
 
PacificPR đã viết:
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)
Nhấp chuột vào đây để mở rộng...
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 đủ.
 
thuangsxd đã viết:
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 đủ.
Nhấp chuột vào đây để mở rộng...
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)
1589366771594.png​
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é
​
 
PacificPR đã viết:
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
Nhấp chuột vào đây để mở rộng...
PacificPR đã viết:
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é
​
Nhấp chuột vào đây để mở rộng...
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 !
 
thuangsxd đã viết:
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 !
Nhấp chuột vào đây để mở rộng...
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
 

File đính kèm

Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

S
cần xử lý dữ liệu trùng nhau bằng VBA (4 người xem)
    • Cười
Trả lời
2
Đọc
16
SA_DQ
SA_DQ
N
Tạo file lưu trữ dữ liệu tự động trên excel.
Trả lời
7
Đọc
100
le_vis
L
N
  • Question Question
Tạo file lưu trữ dự liệu tự động (1 người xem)
Trả lời
6
Đọc
119
Hoàng Tuấn 868
H
ongke0711
  • Question Question
Tra cứu thông tin mã số thuế (cập nhật lại code cũ) (1 người xem)
    • Thích
    • Cảm ơn
    • Yêu thích
Trả lời
9
Đọc
505
ongke0711
ongke0711
Ả
Cách tạo list Data validation không qua trung gian (1 người xem)
Trả lời
45
Đọc
7K
HOADINH84
H
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (1 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
2 3 4
Trả lời
395
Đọc
47K
phamvanquoc.hanamninh
P
V
  • Question Question
Tạo dữ liệu random cho từng sheet dựa theo dữ liệu có sẵn
Trả lời
3
Đọc
132
HieuCD
H
hieuxd
  • Question Question
Khi nhập dữ liệu tự động chèn thêm dòng khi số dòng trong bảng mẫu sắp hết
Trả lời
26
Đọc
25K
dungpham01
D
D
in ra bị thiếu chữ
Trả lời
4
Đọc
96
dankedun
D
Momominh
Hỏi công thức tìm tuần thiếu hàng
Trả lời
1
Đọc
75
hoangtuaotrang_hp_vn
H
2
EM MUỐN TẠO MA TRẬN BIẾN ĐỔI GIÁ TRỊ PHẦN TỬ NGẪU NHIÊN
Trả lời
2
Đọc
72
ptm0412
ptm0412
Emyeuexcel
Cộng 4 tuần theo 1 qui luật qui định
Trả lời
34
Đọc
2K
Emyeuexcel
Emyeuexcel
Gà Con yêu VBA
Mở Pass file excel phiên bản .xlsx , xlsm, xlsb
Trả lời
6
Đọc
294
YêuCN
Y
S
Mở 2 cửa sổ riêng biệt
Trả lời
31
Đọc
24K
ThanhNgan240723
T
vn81206
TRA CỨU MÃ SỐ THUẾ CÁ NHÂN QUA EXCEL
    • Buồn
Trả lời
57
Đọc
20K
vovietdung261016
V
PhanTuHuong
CHỌN VÀ SỬ DỤNG MÁY LỌC KHÔNG KHÍ
    • Thích
    • Cảm ơn
Trả lời
7
Đọc
1K
PhanTuHuong
PhanTuHuong
huuthang_bd
Add in SwitchSheet: Quay lại các sheet đã xem trước đó bằng phím tắt (1 người xem)
    • Thích
    • Yêu thích
2
Trả lời
146
Đọc
43K
phong_codon
P
N
  • Question Question
Hỗ trợ tiếng việt trong macro
Trả lời
14
Đọc
613
Quang_Hải
Quang_Hải
N
Cài phần mềm đọc số ra chữ
Trả lời
2
Đọc
147
Nguyễn Duy Tuân
Nguyễn Duy Tuân
T
Em cần hỗ trợ tách nhiều file và đặt tên theo quy ước chung từ bảng 01 excel có sẳng (2 người xem)
Trả lời
1
Đọc
127
HUONGHCKT
H
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Thời gian đếm ngược.

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom