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

[Nhất Chi Lan]

phần cập nhật thời tiết bị lỗi ad oi

Đúng rồi Bạn ạ. Bệnh này vẫn chưa có thuốc chữa

 

[Phamvanchat]

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

 

[♫ђöล♥ßล†♥†µ♫]

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

Bạn qua đây xem thử nhé
Trình xem API Windows cho MS Excel

 

[Phamvanchat]

Bạn qua đây xem thử nhé
Trình xem API Windows cho MS Excel

Em cài theo hướng dẫn mà vẫn báo lỗi như cũ bác ạ.

 

[PacificPR]

Em cài theo hướng dẫn mà vẫn báo lỗi như cũ bác ạ.

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)

 

[Phamvanchat]

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)

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

 

[PacificPR]

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

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

 

[HeSanbi]

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

------------------------


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

 

[Phamvanchat]

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

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

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

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 ạ.

 

[PacificPR]

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 ạ.

Để 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

 

[truongvu317]

Để 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

Lúc nào update bản 46 bit xong thì cho mình xin một bản nhóe,

 

[PacificPR]

Lúc nào update bản 46 bit xong thì cho mình xin một bản nhóe,

Anh xin nó để làm gì đóa. Để em tìm bản 46 cái đã

 

[truongvu317]

Anh xin nó để làm gì đóa. Để em tìm bản 46 cái đã

à, để anh nối dây tờ hồng muội ơi. Thấy file xịn vậy chắc chắn áp dụng sẽ thành công.

 

[Phamvanchat]

Để 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

Chủ top tải bản office 64 bit trên mạng đầy ấy mà.

 

[lehungxd09]

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

 

[lamnguyenthanh]

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.

 

[thuangsxd]

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)

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 đủ.

 

[PacificPR]

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 đủ.

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)
​

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é

​

 

[thuangsxd]

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 !

 

[PacificPR]

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 !

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