Tiện ích hỗ trợ làm hồ sơ nghiệm thu xây dựng cầu đường (2 người xem)

[langtuchungtinh360]

Hiện tại mình mới hoàn thành được 1 phần nhỏ của tiện ích này.
gửi lên cho anh em nào làm xây dựng cầu đường (các ngành xây dựng khác có thể tham khảo)
do mã nguôn mở nên anh em có thể sửa chữa lại- sau khi sửa lại nếu chạy sai mình không chịu trách nhiệm
(Mình không chắc file mình có làm đúng không, nếu sai mong được các bạn trợ giúp để mình hoàn thành tiện ích này hơn)
Do thời gian không cho phép nên mình chưa thể kiểm soát được các lỗi phát sinh khi chạy code
Mọi người chạy nếu có thấy lỗi gì thì phản hồi lại giúp mình.
hi vọng file này sẽ giúp ích được các bạn tối ưu được thời gian làm hồ sơ

 

[giaiphap]

Hiện tại mình mới hoàn thành được 1 phần nhỏ của tiện ích này.
gửi lên cho anh em nào làm xây dựng cầu đường (các ngành xây dựng khác có thể tham khảo)
do mã nguôn mở nên anh em có thể sửa chữa lại- sau khi sửa lại nếu chạy sai mình không chịu trách nhiệm
(Mình không chắc file mình có làm đúng không, nếu sai mong được các bạn trợ giúp để mình hoàn thành tiện ích này hơn)
Do thời gian không cho phép nên mình chưa thể kiểm soát được các lỗi phát sinh khi chạy code
Mọi người chạy nếu có thấy lỗi gì thì phản hồi lại giúp mình.
hi vọng file này sẽ giúp ích được các bạn tối ưu được thời gian làm hồ sơ

Chúc mừng đã hoàn thành sản phẩm nghe! nhưng nó còn lỗi em ơi! Ví dụ khi chọn tạo mới và sau đó chọn Có nó báo lỗi ngay sub ChangeVBOM tại dòng màu đỏ.

Private Sub ChangeVBOM()
    Dim regKey As String
    regKey = "HKEY_LOCAL_MACHINE\Software\Microsoft\Office\" & _
             Application.Version & "\Excel\Security\AccessVBOM"
[COLOR=#ff0000]    CreateObject("WScript.Shell").RegWrite regKey, 1, "REG_DWORD"[/COLOR]
End Sub

Em nên có file hướng dẫn người dùng chứ thế này ai biết sử dụng ra sao.

 

[langtuchungtinh360]

Chúc mừng đã hoàn thành sản phẩm nghe! nhưng nó còn lỗi em ơi! Ví dụ khi chọn tạo mới và sau đó chọn Có nó báo lỗi ngay sub ChangeVBOM tại dòng màu đỏ.

Private Sub ChangeVBOM()
    Dim regKey As String
    regKey = "HKEY_LOCAL_MACHINE\Software\Microsoft\Office\" & _
             Application.Version & "\Excel\Security\AccessVBOM"
[COLOR=#ff0000]    CreateObject("WScript.Shell").RegWrite regKey, 1, "REG_DWORD"[/COLOR]
End Sub

Em nên có file hướng dẫn người dùng chứ thế này ai biết sử dụng ra sao.

thầy sửa HKEY_LOCAL_MACHINE thành HKEY_CURRENT_USER xem còn báo lỗi không
cả 2 đường dẫn đó trên máy em đều chạy được và đều chèn được code vào hết

 

[boda9999]

Bác có thể hướng dẫn cách sử dụng được không ạ