tạo list chọn mặt hàng (1 người xem)

[kimboiquetoi]

em đã tạo một list chọn bằng validation ở cột D5 rồi nhưng nếu dữ liệu có nhiều đến 1000 thì cứ phải kéo từ đầu list đến chỗ mình muốn chọn thì hoa mắt lắm
bây giờ có cách nào mà khi ấn chữ cái đầu tiên VD: Chữ C thì sẽ hiện lên từ bắt đầu bằng từ Cáp dây loa chẳng hạn để chọn cho nó nhanh
thì có cách nào không ạ

 

[dhn46]

Bạn làm như sau:

Đặt chuột tại D5 và đặt Name - Pname:

=OFFSET(kho!$L$4,MATCH(kho!D5&"*",kho!$L$5:$L$100,0),,COUNTIF(kho!$L$5:$L$100,kho!D5&"*"))

2/ Data Validation với công thức trong custom:

=Pname

3/ Data validation phần Error Alert bỏ chọn Show error alert after invalid data is entered

4/ Nhấn Ok và sử dụng.

 

[kimboiquetoi]

đc rồi anh có cách nào dễ hiểu hơn không đặt Name với Pname thế nào ạ, xong là nó cứ hiện bên cột F vậy ạ,
có cách nào hay hơn hay code nào dễ làm hơn không ạ

 

[langtuchungtinh360]

đc rồi anh có cách nào dễ hiểu hơn không đặt Name với Pname thế nào ạ, xong là nó cứ hiện bên cột F vậy ạ,
có cách nào hay hơn hay code nào dễ làm hơn không ạ

xem đúng ý không bạn

 

[kimboiquetoi]

đúng rồi ạ, nhưng muốn chọn xong kích đúp chuột có phải nhanh hơn ấn Enter không ạ, giờ làm xong cứ phải ấn enter ạ, kể ra khi đưa chuột vào ô đó thì sẽ hiện tât cả list lên sau đó ấn chữ cái mới nhảy tới được ko ạ, hì.

 

[kimboiquetoi]

ai giúp em với ạ, à mà có cách nào cho sheet nó mờ hay ẩn đi không thấy, em thấy một số anh làm vẫn chuyển sheet nhưng ko biết tên sheet đó là gì, thấy hay hay, chứ không phải chọn fomat -> sheet - hide đâu nhé

 

[giaiphap]

đúng rồi ạ, nhưng muốn chọn xong kích đúp chuột có phải nhanh hơn ấn Enter không ạ, giờ làm xong cứ phải ấn enter ạ, kể ra khi đưa chuột vào ô đó thì sẽ hiện tât cả list lên sau đó ấn chữ cái mới nhảy tới được ko ạ, hì.

Có phải ý bạn thế này không?

 

[kimboiquetoi]

đúng rồi anh, nhưng code dài vậy, để em tìm hiểu dần, có gì anh bảo em với nhé, kể ra có ghi chú giải thích ở mỗi code thì sẽ áp dụng được nhiều bài nữa ạ

 

[giaiphap]

ai giúp em với ạ, à mà có cách nào cho sheet nó mờ hay ẩn đi không thấy, em thấy một số anh làm vẫn chuyển sheet nhưng ko biết tên sheet đó là gì, thấy hay hay, chứ không phải chọn fomat -> sheet - hide đâu nhé

Của bạn phải thế này không?

 

[kimboiquetoi]

đúng rồi anh giaiphap nhưng làm thế nào được thế ạ, ko cần user form chỉ cần nó mất đi là được, còn lại tự chuyển ấy ạ,
chi cần Option Explicit ở mỗi s hả anh

 

[giaiphap]

đúng rồi anh giaiphap nhưng làm thế nào được thế ạ, ko cần user form chỉ cần nó mất đi là được, còn lại tự chuyển ấy ạ,
chi cần Option Explicit ở mỗi s hả anh

trong file có luôn rồi mà bạn, tự tìm hiểu đi (rất dễ mà).

 

[kimboiquetoi]

khó hiểu code của các anh quá, các anh có cách nào làm như #2 dễ hiểu hơn không ạ, toàn code dài à, khó áp dụng lắm ạ

 

[kimboiquetoi]

khoan khoan cái này để lại sau cũng được công ty em mới nhận được gói hàng tạo list này giúp em trước đã ạ, gấp quá, cái này thì em hơi bị mù tịt tí tạo validation thì đơn giản nhưng chọn chữ cái đầu tiên để hiện này hơn khó hì.

 

[giaiphap]

khoan khoan cái này để lại sau cũng được công ty em mới nhận được gói hàng tạo list này giúp em trước đã ạ, gấp quá, cái này thì em hơi bị mù tịt tí tạo validation thì đơn giản nhưng chọn chữ cái đầu tiên để hiện này hơn khó hì.

Nhưng bạn muốn yêu cầu gì trong file này vậy?

 

[langtuchungtinh360]

haha. Chúc mừng chú đã ứng dụng thành công.... Rất là tiện lợi phải hok nào???

có áp dụng được đâu bác. Copy code bác qua file khác nó báo lỗi.
Bởi vậy file đó .xlmb đó

 

[kimboiquetoi]

tao list kiểu validation ấy bác chọn sao ấn chữ cái đầu tiên thì sẽ hiện lên các tên bắt đầu bằng chữ cái đó, cho tiện chọn ấy ạ, ko dài quá cứ hoa cả mắt

 

[n0thing1988]

tao list kiểu validation ấy bác chọn sao ấn chữ cái đầu tiên thì sẽ hiện lên các tên bắt đầu bằng chữ cái đó, cho tiện chọn ấy ạ, ko dài quá cứ hoa cả mắt

Tạo kiểu Validition thì xem lại bài 2 của topic này mà làm theo bạn à

 

[langtuchungtinh360]

tao list kiểu validation ấy bác chọn sao ấn chữ cái đầu tiên thì sẽ hiện lên các tên bắt đầu bằng chữ cái đó, cho tiện chọn ấy ạ, ko dài quá cứ hoa cả mắt

Sub LocListBox()
....................
      If TV(DanhSach(i, c)) Like TV([COLOR=#ff0000][B]"*" & [/B][/COLOR]ActiveSheet.TextBox1.Value & "*") Then
................
End Sub[

Bỏ chỗ màu đỏ đi
lần sau nói với ai tì trích dẫn ra nha bạn. không người ta chả biết bạn nói chuyện với ai nên chả biết mà trả lời đâu

 

[langtuchungtinh360]

Tại bạn chưa hiểu hết mấy cái code sự kiện trong đó nên đôi khi ứng dụng nó lỗi thôi. Lúc đầu tôi cũng vậy mà. Dập hoài thì nó ra thôi...

nó báo lỗi ngay dòng này bác ơi
đó là lúc em copy code qua 1 file excel mới
cấu trúc dữ liệu cũng y chang

Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

 

[kimboiquetoi]

anh langtuchungtinh360 ơi anh có thể làm vào file của em ý gửi lại cho em được không file book1.xls ấy ạ.