Add-in Input From List - Hỗ trợ nhập liệu từ danh mục có sẵn

[thuongsykxps]

Bạn gửi file bị lỗi và add in bạn đang dùng lên tôi xem thử.

Mình đang test thử file này, và add-in đang dùng, bạn xem giúp mình với. Cảm ơn nhiều.

 

[Drghost]

Em dùng office 2016 bản 64bits bị lỗi như bài 199. Anh Thắng fix lỗi giúp

 

[Gà Công Nghệ]

Mình đang test thử file này, và add-in đang dùng, bạn xem giúp mình với. Cảm ơn nhiều.

Mình Test rồi. Đâu có bị lỗi gì đâu.

 

[huuthang_bd]

Có lẽ có vấn đề với office 64bit. Tôi không có điều kiện kiểm tra nhưng sẽ thử sửa. Các bạn bị lỗi chạy thử giúp tôi nhé.

 

[huuthang_bd]

Bạn nào dùng Office 64 bit chạy thử file này giùm tôi xem còn lỗi không nhé.

 

[ketxu]

Đôi khi lòng muốn yêu em thật nhiều ...
Mà ân tình đó trả lại bao nhiêu ^^

 

[batman1]

Bạn nào dùng Office 64 bit chạy thử file này giùm tôi xem còn lỗi không nhé.

Theo tôi thì bạn không sửa nhiều chỗ nên chắc còn lỗi. Sau đây là vài ví dụ, không phải là tất cả. Code lấy từ module l_l_l_I_l_l_I_l_l_l_l_I_I
1. Bạn có

Private Type l_l_I_I_l_l_I_l_I_I_I_l_I
l_l_l_I_l_l_I_l_I_I_l_I_I_I As l_I_I_I_l_l_I_I_I_l_l_I_l_l
l_l_l_I_l_l_I_l_l_I_l_l_l_l As Long
l_I_l_I_I_l_l_l_l_I_I_l_I As Long
Time As Long
dwExtraInfo As Long
End Type

Đơn giản đây là cấu trúc MSLLHOOKSTRUCT. Không rõ là tất cả các trường có kiểu Long hay không. Tôi nghĩ Time chắc là Long. Nếu 3 cái còn lại phải là LongPtr thì phải cho cấu trúc vào #If ... #Else ... #End If

2.

Function l_I_I_l_I_I_l_I_I_l_I_I_I_l(ByVal nCode As Long, ByVal wParam As Long, lParam As l_l_I_I_l_l_I_l_I_I_I_l_I) As Long

Theo tôi bạn phải cho hook procedure này vào #If ... #Else ... #End If. Tức đại loại

#If hichic Then
Function l_I_I_l_I_I_l_I_I_l_I_I_I_l(ByVal nCode As Long, ByVal wParam As LongPtr, lParam As l_l_I_I_l_l_I_l_I_I_I_l_I) As LongPtr
#Else
Function l_I_I_l_I_I_l_I_I_l_I_I_I_l(ByVal nCode As Long, ByVal wParam As Long, lParam As l_l_I_I_l_l_I_l_I_I_I_l_I) As Long
#End If

3.

Private l_l_l_I_I_I_l_I_I_I_I_l_l_l As Long

Đây là biến lưu trữ giá trị trả về bởi hàm SetWindowsHookEx (hook handle), vậy nó là Long hoặc LongPtr. Theo tôi phải cho khai báo vào #If ... #Else ... #End If

4. Bạn có

Sub l_l_I_I_I_I_I_l_I_l_l_I_l(ByVal l_I_l_I_I_I_l_I_I_I_I_l_l As Object)
Dim l_l_l_I_I_l_l_l_l_I_I_I_l As Long
...
l_l_l_I_I_l_l_l_l_I_I_I_l = GetWindowLong(FindWindow(l_I_l_l_l_l_I_I_I_I_l_l_l_l & l_I_l_I_I_I_I_I_I_l_I_I_I & l_l_l_l_l_I_l_l_I_I_l_l_l & l_I_I_I_I_l_I_I_l_l_I_I_l_I & l_l_I_l_I_I_l_l_I_I_l_I_I_I & l_I_I_I_I_I_I_I_I_l_l_I_l_I, Application.Caption), l_I_l_I_I_I_I_I_l_I)
...
End Sub

Biến l_l_l_I_I_l_l_l_l_I_I_I_l lưu giá trị trả về bởi GetWindowLong nên là Long hoặc LongPtr. Tức theo tôi phải cho vào #If ... #Else ... #End If

#If hichic Then
Dim l_l_l_I_I_l_l_l_l_I_I_I_l As LongPtr
#Else
Dim l_l_l_I_I_l_l_l_l_I_I_I_l As Long
#End If

Đây chỉ là ý kiến chủ quan thôi vì tôi không có Office 64 bit để kiểm nghiệm

 

[huuthang_bd]

Theo tôi thì bạn không sửa nhiều chỗ nên chắc còn lỗi.
...
Đây chỉ là ý kiến chủ quan thôi vì tôi không có Office 64 bit để kiểm nghiệm

Cảm ơn anh. Để em sửa lại thử có được không.
Em cũng không có office 64 bit để thử nên chỉ sửa cầu may.
Em đọc một số bài thấy bảo office 64 bit dùng LongPtr cũng có thể lỗi nên chỉ sửa từ LongPtr thành LongLong xem thử được không chứ chưa kiểm tra lại toàn bộ code.

 

[thanthai]

Cảm ơn anh. Để em sửa lại thử có được không.
Em cũng không có office 64 bit để thử nên chỉ sửa cầu may.
Em đọc một số bài thấy bảo office 64 bit dùng LongPtr cũng có thể lỗi nên chỉ sửa từ LongPtr thành LongLong xem thử được không chứ chưa kiểm tra lại toàn bộ code.

Bác ơi! Bác sửa xong cho bản 64 bit chưa. Em tải bản gần nhất chạy vẫn bị lỗi. Cảm ơn bác nhiều!

 

[huuthang_bd]

Bác ơi! Bác sửa xong cho bản 64 bit chưa. Em tải bản gần nhất chạy vẫn bị lỗi. Cảm ơn bác nhiều!

Tôi chưa có điều kiện sửa bạn ơi (chưa có office 64 bit để thử).

 

[vuonghongkhanhst]

Biết ngay thể nào cũng hốt gạch mà

Chào bạn, vấn đề bạn post lên rất đúng nhu cầu sử dụng của mình, nhưng do mình không rành lắm về excel nên việc không biết việc lập ra hai
bảng tính đó có đòi hỏi gì thêm không?. mình muốn hỏi thêm là bên phần chi tiết tổng hợp mình có thể làm thêm cột tồn kho trừ dân theo các phiếu xuất hàng được không ban
Nếu có cần code gì để hổ trợ cho hai bản tính trên được chạy tốt bạn cứ cho biết mình sẽ gởi thêm phần phí cho bạn? thank

 

[huuthang_bd]

Chào bạn, vấn đề bạn post lên rất đúng nhu cầu sử dụng của mình, nhưng do mình không rành lắm về excel nên việc không biết việc lập ra hai
bảng tính đó có đòi hỏi gì thêm không?. mình muốn hỏi thêm là bên phần chi tiết tổng hợp mình có thể làm thêm cột tồn kho trừ dân theo các phiếu xuất hàng được không ban
Nếu có cần code gì để hổ trợ cho hai bản tính trên được chạy tốt bạn cứ cho biết mình sẽ gởi thêm phần phí cho bạn? thank

Bạn đang nói gì vậy? Đăng bài nhầm chỗ chăng?

 

[vuonghongkhanhst]

Bạn đang nói gì vậy? Đăng bài nhầm chỗ chăng?

không mình đang nói cái này nè http://www.giaiphapexcel.com/diendan/threads/add-in-input-from-list-hỗ-trợ-nhập-liệu-từ-danh-mục-có-sẵn.116711/
máy mình Win7 64bit, office 2007 có dùng dược không vậy?, không không biết dowload add in của bạn về như thế nào?

 

[huuthang_bd]

Office 2007 dùng được.
Link download chình ình ở bài 1 đó.

 

[thanthai]

không mình đang nói cái này nè http://www.giaiphapexcel.com/diendan/threads/add-in-input-from-list-hỗ-trợ-nhập-liệu-từ-danh-mục-có-sẵn.116711/
máy mình Win7 64bit, office 2007 có dùng dược không vậy?, không không biết dowload add in của bạn về như thế nào?

Win 64 bit không chạy được bạn ơi.

 

[huuthang_bd]

Win 64 bit không chạy được bạn ơi.

Ai bảo không được.

 

[Rùa Con 1080]

Chỉ Office 64bit là còn lỗi, vì anh huuthang_bd không có Office 64bit để thử chứ Win 64bit đâu ảnh hưởng.

 

[vuonghongkhanhst]

Office 2007 dùng được.
Link download chình ình ở bài 1 đó.

Mình dowload về add in rồi chọn thiết lập rồi nhưng khi nhập liệu nó không hiện cái list kia ra bạn giúp mình với. cám ơn bạn nhiều

 

[huuthang_bd]

Mình dowload về add in rồi chọn thiết lập rồi nhưng khi nhập liệu nó không hiện cái list kia ra bạn giúp mình với. cám ơn bạn nhiều

Có cái gì trong file bạn đâu?

 

[vuonghongkhanhst]

Có cái gì trong file bạn đâu?

Mình ko biết nữa, cái này chỉ vài thông tin món hàng, tiệm mình bán tạp hóa khoảng 500 loại hàng