Pick From List !

[anhtuan1066]

Mời các bạn xem file này... Nó phù hợp cho việc nhập liệu đây! Giả sử các bạn nhập liệu từ A1 đến A100... Đến cell A101 các bạn muốn lấy 1 tên nào đó nằm trong A1:A100 thì chỉ cần right click lên cell, 1 danh sách tự động hiện ra dưới dạng Data Validation cho bạn chọn... Nó gần giống chức năng Pick From List của Excel những dc cải tiến đi 1 tí
Nói thì dài dòng, các bạn mở file và thao tác sẽ hiểu rõ vấn đề
Mến
ANH TUẤN

 

[haukitty]

Tôi đang tìm bài về Pick up from list, thấy bài của Anh Tuấn thì thích quá nhưng khi load về thì nó lại là file attachment.php, không hiểu tại sao lại như vậy, có thể nào gởi lại được ko? Xin cám ơn

 

[TranThanhPhong]

Tôi đang tìm bài về Pick up from list, thấy bài của Anh Tuấn thì thích quá nhưng khi load về thì nó lại là file attachment.php, không hiểu tại sao lại như vậy, có thể nào gởi lại được ko? Xin cám ơn

Bạn đừng dùng chương trình hỗ trợ download là OK!

TP.

 

[SA_DQ]

Hay bạn thử xài cái DoublClick này xem sao?!

Tôi đang tìm bài về Pick up from list, thấy bài của Anh Tuấn thì thích quá nhưng khi load về thì nó lại là file attachment.php, không hiểu tại sao lại như vậy, có thể nào gởi lại được ko? Xin cám ơn

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 Dim iCol As Integer, lRow As Long
 On Error Resume Next
 iCol = Target.Column:              lRow = Target.Row - 1
 ActiveWorkbook.Names.Add Name:="MyName", RefersToR1C1:="=Sheet1!R2C" _
    & iCol & ":R" & lRow & "C" & iCol
    
 ValidationWhenDoublClick Target
 ValidationWhenDoublClick Range(Cells(1, iCol), Cells(lRow, iCol)), False
End Sub

Sub ValidationWhenDoublClick(Rng As Range, Optional List = True)
 Dim StrC As String
  If List Then StrC = "=MyName"
    Rng.Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=StrC
        .IgnoreBlank = True
        .InCellDropdown = True
        .ShowInput = True
    End With
End Sub

 

[anhtuan1066]

Ah.... ha... cái Pick From List này tôi nghĩ hiện giờ tôi có thễ làm nó hoàn toàn bằng công thức dc đấy... ko dùng tí macro nào...
he... he...
Xem thử file này thế nào nhé
ANH TUẤN

 

[levanduyet]

Ah.... ha... cái Pick From List này tôi nghĩ hiện giờ tôi có thễ làm nó hoàn toàn bằng công thức dc đấy... ko dùng tí macro nào...
he... he...
Xem thử file này thế nào nhé
ANH TUẤN

Anh Tuấn ơi,
Anh đâu có cần dùng công thức hay đặt tên gì đâu.
Anh cứ việc gõ vào danh sách và xuống ô ở dòng kế tiếp nhấn tổ hợp phím Alt + Mủi tên xuống là OK mà ! Đâu cần phải dùng Validation.

Mặc định của Excel đấy.

Lê Văn Duyệt

 

[tigertiger]

Hay bạn thử xài cái DoublClick này xem sao?!

hàm của bác SA_DQ rất hay. vì
+ Có Kết hợp Validation
+ Nhưng hay hơn là Double Click sẽ gíp ko nhầm lẫn với sự kiện khác

 

[anhtuan1066]

Anh Tuấn ơi,
Anh đâu có cần dùng công thức hay đặt tên gì đâu.
Anh cứ việc gõ vào danh sách và xuống ô ở dòng kế tiếp nhấn tổ hợp phím Alt + Mủi tên xuống là OK mà ! Đâu cần phải dùng Validation.

Mặc định của Excel đấy.

Lê Văn Duyệt

Uh... hay ghê... Đúng là chức năng có sẳn luôn luôn mạnh mẽ hơn cái mà ta cố gắng làm...
Nó có lọc dc ra 1 danh sách duy nhất và Sort luôn nữa chứ... Khiếp thật... Nếu làm dc giống thế e rằng tốn ko ít mồ hôi...
Cảm ơn Duyệt! Hic... thế thì công sức đỗ ra cho cái công thức mãng kia là công cốc rồi...
ANH TUẤN

 

[ti8pro]

Giải pháp của bác Duyệt tui đã biết từ lâu nhưng nó có cái dở:
1. Không hiện lên nút bấm để lựa chọn --> mỗi lần sử dụng phải Pick 1 lần
2. Chỉ sử dụng được trên 1 Sheet và ngay Row cuối cùng của list (Iist không bao gồm Blank cell. Nếu có Blank thì nó chỉ lấy danh sách Non-blank dưới cùng)

Cách của bác Anh Tuấn rất hay. Cảm ơn rất nhiều.

Tuy nhiên, có cách nào để khắc phục lỗi nếu list có Blank cell giữa chừng kô?

Mình cũng mày mò mãi mà chưa ra được.

Thanks in advanced

 

[anhtuan1066]

Giải pháp của bác Duyệt tui đã biết từ lâu nhưng nó có cái dở:
1. Không hiện lên nút bấm để lựa chọn --> mỗi lần sử dụng phải Pick 1 lần
2. Chỉ sử dụng được trên 1 Sheet và ngay Row cuối cùng của list (Iist không bao gồm Blank cell. Nếu có Blank thì nó chỉ lấy danh sách Non-blank dưới cùng)

Cách của bác Anh Tuấn rất hay. Cảm ơn rất nhiều.

Tuy nhiên, có cách nào để khắc phục lỗi nếu list có Blank cell giữa chừng kô?

Mình cũng mày mò mãi mà chưa ra được.

Thanks in advanced

Nếu bạn muốn làm nó bằng công thức thì nói chung vẫn dc... Sử dụng bài toán trích lọc danh sách duy nhất.. Bạn có thể search trên diển đàn về bài toán này nhé... Dòng rổng hay ko rổng gì cũng chơi tuốt dc hết.. chế biến thêm thôi...
Chú ý công thức tìm vị trị cell cuối cùng có dử liệu:

=MATCH(REPT("Z",255),$A:$A)

ANH TUẤN

 

[kimvodanh]

Ah.... ha... cái Pick From List này tôi nghĩ hiện giờ tôi có thễ làm nó hoàn toàn bằng công thức dc đấy... ko dùng tí macro nào...
he... he...
Xem thử file này thế nào nhé
ANH TUẤN

Anh ơi, chiêu của anh hay quá, anh có thể chỉ em làm cách nào để được như vậy không? cám ơn anh nhìu nhá... ka ka. em hơi gà

 

[levanduyet]

Hy vọng khi có thời gian, chúng ta sẽ tập hợp các vấn đề về Pick list và làm eBook.

Lê Văn Duyệt
Ps: Hy vọng sau khi hòan tất một số eBook hiện nay, chúng ta sẽ quay lại vấn đề này.

 

[vinhnh]

Anh Tuấn ơi,
Anh đâu có cần dùng công thức hay đặt tên gì đâu.
Anh cứ việc gõ vào danh sách và xuống ô ở dòng kế tiếp nhấn tổ hợp phím Alt + Mủi tên xuống là OK mà ! Đâu cần phải dùng Validation.

Mặc định của Excel đấy.

Lê Văn Duyệt

Hình như cái này của anh duyệt không dùng được với Number
Thánk!

 

[Po_Pikachu]

Ý em là muốn cải thiện nó bằng Class theo như mấy bác nói rằng nó có thể dùng được mọi nơi trong VBA ấy! Tức là ta nhấn Alt+mũi tên xuống thì nó cho phép cả số vào luôn kia. Kiểu như là nâng cấp Excel lên luôn cơ?!?! hihihi
Thân.

 

[anhtuan1066]

Ý em là muốn cải thiện nó bằng Class theo như mấy bác nói rằng nó có thể dùng được mọi nơi trong VBA ấy! Tức là ta nhấn Alt+mũi tên xuống thì nó cho phép cả số vào luôn kia. Kiểu như là nâng cấp Excel lên luôn cơ?!?! hihihi
Thân.

Sorry! Mình ko đủ khả năng để làm điều này (vì thực chất mình vẫn chưa hiểu nổi Class là cái gì cả)
------------------------

Cách của bác Anh Tuấn rất hay. Cảm ơn rất nhiều.
Tuy nhiên, có cách nào để khắc phục lỗi nếu list có Blank cell giữa chừng kô?
Mình cũng mày mò mãi mà chưa ra được.
Thanks in advanced

Hôm nay quay lại topic này mới thấy rằng ngày xưa ta "ngu ngơ" đến thế nào!
Nhân tiện xin cải tiến lại cái Pick Form list trên (theo hướng công thức) như bạn ti8pro đã góp ý
Các bạn xem file và cải tiến thêm (nếu thấy có gì chưa ổn)

 

[ongvang_968]

E chào tất cả anh chi em!
file anh Tuấn gửi rất hay! Nhưng khi em đánh tên mới vào danh sách không thấy trong list xuất hiện??? trình độ excel của em còn non mong anh Tuấn có thể trình bày kỹ hơn cách lập Pick From list được không ah?

Thanks