Add-in Input From List - Hỗ trợ nhập liệu từ danh mục có sẵn (1 người xem)

Liên hệ QC

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

Em dùng office 2016 bản 64bits bị lỗi như bài 199. Anh Thắng fix lỗi giúp
 
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é.
 
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é.
 

File đính kèm

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

File đính kèm

  • Capture8-12-2017-3.20.28 PM.jpg
    Capture8-12-2017-3.20.28 PM.jpg
    26.9 KB · Đọc: 26
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ó
Mã:
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.
Mã:
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
Mã:
#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.
Mã:
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

Mã:
#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
 
Lần chỉnh sửa cuối:
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.
 
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!
 
Biết ngay thể nào cũng hốt gạch mà --=0
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
 
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?
 
Office 2007 dùng được.
Link download chình ình ở bài 1 đó.
 
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.
 
NÓ BÁO LỖI KO ADD IN ĐƯỢC LUÔN BẠN ƠI
 

File đính kèm

  • Untitled.jpg
    Untitled.jpg
    48.2 KB · Đọc: 35
Sao nhiều người thích đặt tên file, tên thư mục bằng tiếng Việt có dấu thế nhỉ.
 
Viết 1 khúc Code ép người dùng phải nhét nó vào đường dẫn sau ...... Ok ............ Khác nghỉ xài ..............Khỏi rắc rối..............:D

PHP:
Sub AppPath()
MsgBox Application.UserLibraryPath
End Sub
 
Cho mình hỏi cái name dsxa, huyen tạo như thế nào?
 
Bạn search google với từ khóa name động site:giaiphapexcel.com rồi từ từ nghiên cứu nhé.
 
sao ko mình cài add in rồi mà file ko có hiệu ứng gì bạn nhỉ? xem dùm mình với
 

File đính kèm

bác Hữu Thắng cho e hỏi là bật chế độ ấy như nào ạ?
 
Nhưng mà máy của e vẫn đang ở trong chế độ nhập liệu bình thường mà bác ơi
 

File đính kèm

  • 2017-10-12_16-39-59.jpg
    2017-10-12_16-39-59.jpg
    36.2 KB · Đọc: 20
Anh huuthang_bd ơi !
Khi em add-in vào bị tình trạng lỗi như thế này nè anh, mong anh kiểm tra dùm.
Em đang dùng Office 2010 hoặc 2016 bản update mới nhất từ Tool hỗ trợ download trực tiếp từ Microsoft.
Em cám ơn !
 

File đính kèm

  • LOI.png
    LOI.png
    40.4 KB · Đọc: 22
Anh huuthang_bd ơi !
Khi em add-in vào bị tình trạng lỗi như thế này nè anh, mong anh kiểm tra dùm.
Em đang dùng Office 2010 hoặc 2016 bản update mới nhất từ Tool hỗ trợ download trực tiếp từ Microsoft.
Em cám ơn !
Form thiết lập cho Combobox chứ lỗi gì đâu bạn.
 
Anh huuthang_bd !
Form thiết lập cho Combobox ẩn đi vùng áp dụng và dữ liệu nguồn.
Anh hướng dẫn em cách khắc phục với, em cám ơn !
 
Anh huuthang_bd !
Form thiết lập cho Combobox ẩn đi vùng áp dụng và dữ liệu nguồn.
Anh hướng dẫn em cách khắc phục với, em cám ơn !
Bạn xem hướng dẫn và làm theo. Không được thì quay lại quá trình thao tác tôi xem thử chứ nói không vậy ai biết đâu mà lần.
 
anh huuthang_bd ơi, anh cho em hỏi chút ạ.
khi em cài add in vào máy thì chạy vẫn ổn. Nhưng khi tắt excel, khởi động lại excel là add in bị mất, phải cài lại.
Không biết lỗi này là lỗi gì vậy anh? em đang dùng office 2010 bản 32 bit
Em cảm ơn anh trước!
 
anh huuthang_bd ơi, anh cho em hỏi chút ạ.
khi em cài add in vào máy thì chạy vẫn ổn. Nhưng khi tắt excel, khởi động lại excel là add in bị mất, phải cài lại.
Không biết lỗi này là lỗi gì vậy anh? em đang dùng office 2010 bản 32 bit
Em cảm ơn anh trước!
Bạn kiểm tra xem đường dẫn file add in có tiếng Việt có dấu hay ký tự lạ không?
 
Dạ không anh, đường dẫn không có vấn đề gì cả. Em có gửi ID và pass Teamviewer, khi nào anh rỗi a có thể vào kiểm tra giúp e với được không ạ! Em cảm ơn.
Bạn kiểm tra xem đường dẫn file add in có tiếng Việt có dấu hay ký tự lạ không?
 

File đính kèm

  • Capture.PNG
    Capture.PNG
    21.6 KB · Đọc: 14
Em bị lỗi không sử dụng được. Đang rất cần một công cụ kiểu như thế này, và sẵn sàng chi phí để cảm ơn người tạo tool.
Nhưng gửi email không được, có bác có cách contact với bác chủ topic không ạ, em có email cho bác chủ topic nhưng chưa thấy phản hồi :D
 
Em bị lỗi không sử dụng được. Đang rất cần một công cụ kiểu như thế này, và sẵn sàng chi phí để cảm ơn người tạo tool.
Nhưng gửi email không được, có bác có cách contact với bác chủ topic không ạ, em có email cho bác chủ topic nhưng chưa thấy phản hồi :D
Địa chỉ email của bạn là gì, bạn gửi mail lúc nào?
 
Của mình dung win7 64bit và Office 2010 64bit thì bị lỗi sau; Help me!
l%E1%BB%97i-jpg.163142
 
Máy em dùng excel 32bit vẫn bị lổi có cách nào khắc phục không anh
 

File đính kèm

  • 3.jpg
    3.jpg
    246.9 KB · Đọc: 25
  • 2.jpg
    2.jpg
    117.7 KB · Đọc: 24
  • 1.jpg
    1.jpg
    102.2 KB · Đọc: 18
Hữu Thắng có thể cho mình hỏi: Khi click cài add-in của bạn thì trong Data tab xuất hiện thêm 2 button, khi bỏ click thì cũng mất theo. Mình xin hỏi cách cài đặt này. Cảm ơn bạn.
 
Em muốn dùng trên office 64bit phải làm sao hả A. Em đng xài wi10 64bit, em cài 32bit thì win ko cho cài.
Em cảm ơn
 
Em muốn dùng trên office 64bit phải làm sao hả A. Em đng xài wi10 64bit, em cài 32bit thì win ko cho cài.
Em cảm ơn
Office 32bit cài trên win 64bit bình thường nha bạn.
Tôi không có office 64bit nên không sửa cho office 64bit được.
 
Bạn up source không obfuscated đi, tui sữa cho. Tui thấy nó cũng hay.
 
Chào Bạn HuuThang_bd
Video clip rất hay và hữu ích cho mọi người , mình làm theo cách bạn chỉ dẫn nhưng ko sử dụng được , nhờ bản chia sẽ và hổ trợ thêm
Đang sử dụng win 8 và office 2013 là 64bit
 

File đính kèm

  • Hinh 1.jpg
    Hinh 1.jpg
    249 KB · Đọc: 35
Lần chỉnh sửa cuối:
Chào Bạn HuuThang_bd
Video clip rất hay và hữu ích cho mọi người , mình làm theo cách bạn chỉ dẫn nhưng ko sử dụng được , nhờ bản chia sẽ và hổ trợ thêm
Đang sử dụng win 8 và office 2013 là 64bit
Không hỗ trợ office 64 bit nha bạn.
 
Chào HuuThang
Có cách nào chỉnh để hổ trợ trên 64bit sử dụng được ko
 
Chào HuuThang_bd
mình cài đạt qua máy có office 32bit thì sử dụng được , nhưng ko chọn từng ô theo mà xuất hiện giống hình ảnh gởi kèm , vậy do nguyên nhân và khắc phục để giống cách chọn trong video clip của bạn ,
Xin cảm ơn
 

File đính kèm

  • Untitled.jpg
    Untitled.jpg
    303.3 KB · Đọc: 39
Chào HuuThang_bd
mình cài đạt qua máy có office 32bit thì sử dụng được , nhưng ko chọn từng ô theo mà xuất hiện giống hình ảnh gởi kèm , vậy do nguyên nhân và khắc phục để giống cách chọn trong video clip của bạn ,
Xin cảm ơn
Tôi không hiểu sao một số máy (rất ít, bạn là trường hợp thứ 2 phản hồi) có tỷ lệ quy đổi giữa các đơn vị độ rộng khác với thông thường. Bạn thử sử dụng file này xem có khắc phục được không.
File này tôi sửa riêng cho một bạn có phản hồi giống bạn.
 

File đính kèm

Chào HuuThang_bd
mình cho chạy thử thì vẫn chưa trùng ô được
 

File đính kèm

  • Untitled (1).jpg
    Untitled (1).jpg
    207.3 KB · Đọc: 34
  • Untitled (2).jpg
    Untitled (2).jpg
    241.8 KB · Đọc: 34
Chào HuuThang_bd
có cách nào xử lý chạy được trên office 64bit
 
Vậy là máy bạn cũng khác luôn.

Được nhưng tôi không có môi trường Office 64bit nên chưa sửa được.
Tôi thấy trong code của bạn có cái này mà không dùng được cho Excel 64bit sao ta.
Mã:
#If VBA7 And Win64 Then
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As LongPtr) As LongPtr
Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As LongPtr, ByVal dwNewLong As LongPtr) As LongPtr
Private Declare PtrSafe Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As LongPtr, ByVal hwnd As LongPtr, ByVal msg As LongPtr, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr
#Else
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function CallWindowProc Lib "user32.dll" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
#End If
 
Kính gửi anh Hữu Thắng

Trong quá trình cài đặt và sử dụng addin thì em thấy hệ thống báo lỗi như file đính kèm. Kính nhờ anh xem giúp nhé

Tks
 

File đính kèm

  • Capture.PNG
    Capture.PNG
    24.2 KB · Đọc: 22
Tôi thấy trong code của bạn có cái này mà không dùng được cho Excel 64bit sao ta.
Mã:
#If VBA7 And Win64 Then
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As LongPtr) As LongPtr
Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As LongPtr, ByVal dwNewLong As LongPtr) As LongPtr
Private Declare PtrSafe Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As LongPtr, ByVal hwnd As LongPtr, ByVal msg As LongPtr, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr
#Else
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function CallWindowProc Lib "user32.dll" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
#End If

Ồ trong code có mấy cái này thật sao bạn ? Sao mình chỉ nhìn thấy giun và dế bò loằng ngoằng mỗi khi có lỗi Hidden Module gì đó thôi vậy ? +-+-+-++-+-+-+
Bạn đọc cách gì để ra được mấy dòng ở trên vậy chỉ mình với . Hi
 
Ồ trong code có mấy cái này thật sao bạn ? Sao mình chỉ nhìn thấy giun và dế bò loằng ngoằng mỗi khi có lỗi Hidden Module gì đó thôi vậy ? +-+-+-++-+-+-+
Bạn đọc cách gì để ra được mấy dòng ở trên vậy chỉ mình với . Hi
Thì bác giải mã sẽ xem được thôi mà, không tin hỏi tác giả @huuthang_bd sẽ biết :D :D :D .
 
Cám ơn bác huuthang_bd rất nhiều. e sử dụng addin này được hơn 1 năm rồi. rất tiện lợi. công việc nhập liệu rồi làm các báo cáo rất nhanh.
 
Win 10 64 bit dùng office 2010 bản 32 bit có sd được không vậy mọi người. Cài xong không thấy thực thi. Nên post hỏi mọi người
 
Ồ trong code có mấy cái này thật sao bạn ? Sao mình chỉ nhìn thấy giun và dế bò loằng ngoằng mỗi khi có lỗi Hidden Module gì đó thôi vậy ? +-+-+-++-+-+-+
Bạn đọc cách gì để ra được mấy dòng ở trên vậy chỉ mình với . Hi
Tắc gỉa đã không chia sẻ thì tự tìm trên GiaiPhap là có hết
 
Lần chỉnh sửa cuối:
ý mình là khỏi cần xem code tác giả lượm lặt code trong diễn đàn vẫn có thể làm được như tác giả :p:p:p (mà có muốn xem cũng có được đâu)
 
Lần chỉnh sửa cuối:
Mình đâu có khả năng đó. Mình chỉ thích xem giun dế bò loằng ngoằng thôi à.
 
Cảm ơn pác cái này rất hay, nhưng cho Em hỏi là tại sao khi đặt lệnh rồi Em gõ lại không tìm kiếm theo ký tự bất kỳ được là lỗi gì vậy?
 
Cảm ơn pác cái này rất hay, nhưng cho Em hỏi là tại sao khi đặt lệnh rồi Em gõ lại không tìm kiếm theo ký tự bất kỳ được là lỗi gì vậy?
Không tìm kiếm theo ký tự bất kỳ là sao? Bạn mô tả cụ thể đi.
 
Mình bị lỗi thế này bạn nào giúp mình với
 

File đính kèm

  • Untitled.png
    Untitled.png
    19.9 KB · Đọc: 30
Đã có bản có thể dùng cho Excel 32 bit và 64 bit, link được cập nhật ở bài #1 nha các bạn.
 
rất hay e dùng hơn 1 năm rồi, nhưng e gặp 1 vấn đề là add in ko tìm được ký tự tiếng việt có dấu. Ví dụ e sử dụng dữ liệu ko có dấu :"tuan anh" thì ok, nhưng nếu gõ "tuấn anh" thì đến chữ ấ là ô trả về trống, ko biết có sửa đc ko bác?
 
rất hay e dùng hơn 1 năm rồi, nhưng e gặp 1 vấn đề là add in ko tìm được ký tự tiếng việt có dấu. Ví dụ e sử dụng dữ liệu ko có dấu :"tuan anh" thì ok, nhưng nếu gõ "tuấn anh" thì đến chữ ấ là ô trả về trống, ko biết có sửa đc ko bác?
Bạn xem lại bảng mã của dữ liệu và bảng mã sử dụng khi tìm kiếm. Chúng phải giống nhau thì mới tìm được.
Hơn 1 năm rồi mà vấn đề như thế bây giờ bạn mới phản hồi :D
 
Sử dụng tiện ích add in ở 1 số máy thì thực hiện được (các máy đều cài office 2010, 32bit), 1 số máy thì đánh không ra từ gợi ý mặc dù không thấy báo lỗi gì add ạ, nhờ add chỉ giùm
 
Sử dụng tiện ích add in ở 1 số máy thì thực hiện được (các máy đều cài office 2010, 32bit), 1 số máy thì đánh không ra từ gợi ý mặc dù không thấy báo lỗi gì add ạ, nhờ add chỉ giùm
Nhiều bạn thao tác không đúng nên add in không hoạt động đúng. Một số lỗi phổ biến là: Thiết lập không đúng, bảng mã dữ liệu và bảng mã dùng khi nhập liệu không đồng nhất, chưa bật chế độ nhập liệu...
Bạn chụp hình hoặc quay video quá trình thao tác tôi xem xem có thao tác sai không.
 

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

Back
Top Bottom