Nhờ các anh chị lập form truy tìm mặt hàng trong kho (1 người xem)

[adua29]

Em có một file excel quản lý xuất nhập kho với trên 2000 mặt hàng khác nhau.
Tên loại mặt hàng nằm trong cột B
Mỗi lần xuất nhập, sử dụng một cột trong sheet
Việc truy tìm mặt hàng rất khó khăn do không xếp theo vần và tên có thể chỉ khác nhau 1 đến 2 ký tự
Được sự giúp đỡ của donasa em đã tìm được form gần với yêu cầu công việc của mình nhờ các anh chị chỉnh sửa thêm một chút
Các yêu cầu nằm trong file excel em gửi kèm theo, hết dung lượng tải lên diễn đàn nên em gửi qua 4shared.com
http://www.4shared.com/document/NO8huSD8/FIND_AND_GO.html
Nhờ các anh chị giúp đỡ, em xin cảm ơn

 

[dattayho]

Mình đã dowload file của ban rồi, để xem rồi mình hướng dẫn nhé

 

[dattayho]

Ủa sao File của bạn không có, minh dowload về nhưng đâu phải là file Excel đau

 

[adua29]

Ủa sao File của bạn không có, minh dowload về nhưng đâu phải là file Excel đau

Anh mở đường dẫn em gửi,
Sau đó kích vào nút tải xuống ngay bây giờ
Anh chờ đếm ngược 20 giây
Phía trên đồng hồ đếm ngược hiện nút tải tập tin xuống ngay
anh kích vào nút đó là tải được

 

[donasa]

Em có một file excel quản lý xuất nhập kho với trên 2000 mặt hàng khác nhau.
Tên loại mặt hàng nằm trong cột B
Mỗi lần xuất nhập, sử dụng một cột trong sheet
Việc truy tìm mặt hàng rất khó khăn do không xếp theo vần và tên có thể chỉ khác nhau 1 đến 2 ký tự
Để tăng khả năng tìm đến mặt hàng một cách nhanh chóng em nhờ các anh chị lập form truy tìm mặt hàng với các yêu cầu nằm trong file excel em gửi kèm theo.
Em hết dung lượng tải lên diễn đàn nên gửi qua 4shared.com
http://www.4shared.com/document/ieiOx8g9/TIM_KIEM_TRUY_NHAP_THONG_MINH_.html
Nhờ các anh chị giúp đỡ, em xin cảm ơn

Bạn vào đây http://www.giaiphapexcel.com/forum/showthread.php?48402-Ứng-dụng-Hàm-Filter-với-ListBox-2-cột truy tìm mặt hàng của thầy Ndu cực nhanh.

 

[viehoai]

Em có một file excel quản lý xuất nhập kho với trên 2000 mặt hàng khác nhau.
Tên loại mặt hàng nằm trong cột B
Mỗi lần xuất nhập, sử dụng một cột trong sheet
Việc truy tìm mặt hàng rất khó khăn do không xếp theo vần và tên có thể chỉ khác nhau 1 đến 2 ký tự
Để tăng khả năng tìm đến mặt hàng một cách nhanh chóng em nhờ các anh chị lập form truy tìm mặt hàng với

Được sự giúp đỡ của donasa em đã tìm được form gần với yêu cầu công việc của mình nhờ các anh chị chỉnh sửa thêm một chút
Các yêu cầu nằm trong file excel em gửi kèm theo, hết dung lượng tải lên diễn đàn nên em gửi qua 4shared.com
http://www.4shared.com/document/NO8huSD8/FIND_AND_GO.html
Nhờ các anh chị giúp đỡ, em xin cảm ơn

Bạn xem File thử nhé
Ủa, File này của bạn phải không vậy ???

 

[adua29]

Bạn xem File thử nhé Ủa, File này của bạn phải không vậy ???

Em đã xem file anh gửi, rất đúng với yêu cầu công việc của em.
Em nhờ anh chỉnh sửa một chút như sau: Khi kích đúp vào tên mặt hàng cần tìm trong danh mục thì tự động đóng form lại Không cần sử dụng nút chọn và thoát (nhằm giảm các thao tác lựa chọn). em xin cảm ơn

 

[viehoai]

Em đã xem file anh gửi, rất đúng với yêu cầu công việc của em.
Em nhờ anh chỉnh sửa một chút như sau: Khi kích đúp vào tên mặt hàng cần tìm trong danh mục thì tự động đóng form lại Không cần sử dụng nút chọn và thoát (nhằm giảm các thao tác lựa chọn). em xin cảm ơn

Thì bạn thay đoạn code

Private Sub CommandButton2_Click()
....... 
End Sub

Thành

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
....... 
End Sub

 

[adua29]

Thì bạn thay đoạn code

Private Sub CommandButton2_Click()
....... 
End Sub

Thành

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
....... 
End Sub

anh cho em hỏi nếu đổi tên sheet thì phải thay đổi tên ở đâu trong form

 

[viehoai]

anh cho em hỏi nếu đổi tên sheet thì phải thay đổi tên ở đâu trong form

Bạn đổi code trong Form

ListBox1.RowSource = "'Sheet1'!B22:B" & EndR

thành

ListBox1.RowSource = "'NX KHO'!B22:B" & EndR

(Lưu ý bạn hỏi trong E-mail mình đã trả lời và kèm theo file rồi)
Nhân đây xin hỏi các anh chị có cách nào dùng ListBox1.RowSource mà khi thay đổi tên Sheet bảng tình mà code không cần thay đổi
Xin cảm ơn

 

[Ếch Xanh]

Nhân đây xin hỏi các anh chị có cách nào dùng ListBox1.RowSource mà khi thay đổi tên Sheet bảng tình mà code không cần thay đổi
Xin cảm ơn

Thì như vầy:

Giả sử tên ngoài là NX_KHO, bên trong tên là SheetNK chẳng hạn. Thay vì như vầy:

ListBox1.RowSource = "'NX KHO'!B22:B" & EndR

Bạn ghi như vầy:

  With SheetNK 
    Set Rng = Range(.[B22], .[B65536].End(xlUp))
    ListBox1.RowSource = .Name & "!" & Rng.Address
  End With

 

[viehoai]

Thì như vầy:

Giả sử tên ngoài là NX_KHO, bên trong tên là SheetNK chẳng hạn. Thay vì như vầy:

ListBox1.RowSource = "'NX KHO'!B22:B" & EndR

Bạn ghi như vầy:

 With SheetNK 
Set Rng = Range(.[B22], .[B65536].End(xlUp))
ListBox1.RowSource = .Name & "!" & Rng.Address
End With

Mình sửa lại vầy mới được

 With SheetNK 
Set Rng = Range(.[B22], .[B65536].End(xlUp))
    ListBox1.RowSource = "'" & .Name & "'!" & Rng.Address
End With

[/QUOTE]

 

[Ếch Xanh]

Mình sửa lại vầy mới được

 With SheetNK 
Set Rng = Range(.[B22], .[B65536].End(xlUp))
    ListBox1.RowSource = "'" & .Name & "'" & "!" & Rng.Address
End With

Ừ thì đại loại là như vậy đó, tùy nghi chỉnh sửa, đối với Combobox cũng vậy, nhưng tôi cứ làm như thế chẳng sao hết không cần thêm 2 dấu nháy ở 2 đầu, nó vẫn chạy tốt! Chắc cái Listbox nó khó chịu hơn chăng???

P/s: Tôi cũng chẳng hiểu sao, trong 1 form tôi làm trước đây, không có 2 dấu nháy (giờ vẫn đang sử dụng) vẫn tạo Rowsource cho Combobox bình thường, nhưng giờ thử lại trên File mới nó lại bắt 2 dấu nháy!!! Chả hiểu nổi, tôi đang so sánh và tìm hiểu tại sao như vậy đây!

 

[Ếch Xanh]

Bạn Viehoai xem nhé, tôi sử dụng Form không có dấu nháy nè, thật kỳ lạ là làm cái file mới nó không cho!

=> chắc ăn là để thêm dấu nháy!

Thử nghiên cứu xem tại sao???

 

[viehoai]

Bạn Viehoai xem nhé, tôi sử dụng Form không có dấu nháy nè, thật kỳ lạ là làm cái file mới nó không cho!

=> chắc ăn là để thêm dấu nháy!

Thử nghiên cứu xem tại sao???

Nhưng ở đây anh đang làm Combobox, không phải ListBox
Mà không biết vì sao cái này có sự khác nhau đó nhỉ ???

 

[Ếch Xanh]

Nhưng ở đây anh đang làm Combobox, không phải ListBox
Mà không biết vì sao cái này có sự khác nhau đó nhỉ ???

Muốn Listbox thì có Listbox, trên form này chơi ráo trọi!

Điên đầu không biết tại sao nè!

 

[ndu96081631]

Ừ thì đại loại là như vậy đó, tùy nghi chỉnh sửa, đối với Combobox cũng vậy, nhưng tôi cứ làm như thế chẳng sao hết không cần thêm 2 dấu nháy ở 2 đầu, nó vẫn chạy tốt! Chắc cái Listbox nó khó chịu hơn chăng???

Có dấu nháy hay không là phụ thuộc vào tên sheet, chuyện này nói hoài rồi mà ---> Thử với tên sheet có khoảng trắng xem, ví dụ tên sheet là n d u

 

[viehoai]

Có dấu nháy hay không là phụ thuộc vào tên sheet, chuyện này nói hoài rồi mà ---> Thử với tên sheet có khoảng trắng xem, ví dụ tên sheet là n d u

Xin sư phụ nói rõ hơn cũ thể vì sao tên sheet có ký tự trống hay không có ký tự trống lại khác nhau? phạm vi áp dụng (listbox, combobox...)
...................................................................................
Nhân đây Xin các anh chị giải thích vụ này
http://www.giaiphapexcel.com/forum/showthread.php?48639-L%E1%BB%91i-l%E1%BB%87nh-If-r%E1%BA%A5t-%C4%91%C6%A1n-gi%E1%BA%A3n-m%C3%A0-kh%C3%B4ng-bi%E1%BA%BFt-t%E1%BA%A1i-sao&p=307876#post307876

 

[ndu96081631]

Xin sư phụ nói rõ hơn cũ thể vì sao tên sheet có ký tự trống hay không có ký tự trống lại khác nhau? phạm vi áp dụng (listbox, combobox...)

Cái vụ khoảng trắng này không riêng gì Excel mà hầu như bất cứ ngôn ngữ lập trình nào cũng bị "dính". Nó thường có liên quan đến việc lấy TÊN như tên File, Folder, Sheet vân vân... (có lẽ có sai sót gì đó trong bộ nhớ)
Tôi nhờ ngày xưa học DOS, mỗi lần thấy TÊN nào có khoảng trắng là ngán ---> Đương nhiên sau này người ta cũng có cách khắc phục cho từng trường hợp cụ thể nhưng các cao thủ vẫn khuyên chúng ta nên đặt các TÊN file, folder, sheet vân vân... là các ký tự liền nhau không có khoảng trắng, không có dấu tiếng Việt
Với ListBox, ComboBox vì bạn dùng RowSource properties, đương nhiên có liên quan đến tên sheet, và lỗi gặp phải khi tên sheet có khoảng trắng là điều không tránh khỏi
----> Thôi thì dùng List properties đi cho khỏe
-----------------------

Nhân đây Xin các anh chị giải thích vụ này
http://www.giaiphapexcel.com/forum/showthread.php?48639-L%E1%BB%91i-l%E1%BB%87nh-If-r%E1%BA%A5t-%C4%91%C6%A1n-gi%E1%BA%A3n-m%C3%A0-kh%C3%B4ng-bi%E1%BA%BFt-t%E1%BA%A1i-sao&p=307876#post307876

Đây là sai số khi thực thi tính toán của bác Bill, khỏi cần bàn làm gì

 

[Ếch Xanh]

Xin sư phụ nói rõ hơn cũ thể vì sao tên sheet có ký tự trống hay không có ký tự trống lại khác nhau? phạm vi áp dụng (listbox, combobox...)
...................................................................................
Nhân đây Xin các anh chị giải thích vụ này
http://www.giaiphapexcel.com/forum/showthread.php?48639-L%E1%BB%91i-l%E1%BB%87nh-If-r%E1%BA%A5t-%C4%91%C6%A1n-gi%E1%BA%A3n-m%C3%A0-kh%C3%B4ng-bi%E1%BA%BFt-t%E1%BA%A1i-sao&p=307876#post307876

Với cách thêm 2 dấu ở 2 đầu tên sheet, thì mình đã thử với tên sheet có dấu tiếng Việt và có khoảng cách đều thành công, Listbox hay Combobox đều OK. Vì vậy để tránh trường hợp bị lỗi, cố ý hay vô ý sửa tên sheet (hoặc người khác sử dụng file của mình và họ muốn cá nhân hóa tên sheet) thì nên đặt 2 dấu nháy này. Cũng nhờ bạn hỏi và tôi đã trả lời tiếp theo là bạn phát hiện phải thêm 2 dấu nháy mà nhờ vậy tôi có kinh nghiệm này.