Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (98.27 KB, 1 trang )
Chiêu 42: Giảm danh sách xổ xuống của Validation, sau khi chọn 1.
Rất hữu ích cho người dùng Excel khi bạn cho họ 1 danh sách để chọn bằng Validation,
nhưng cái danh sách này tự động ngắn lại mỗi khi họ chọn 1 mục trong danh sách, để
khỏi phải lựa chọn trong 1 danh sách quá dài, đồng thời tránh việc nhập trùng dữ liệu
(đôi khi cần thiết).
Bước 1:
Trong 1 sheet bất kỳ (thí dụ sheet1) bạn có 1 danh sách trong vùng A1:A10. Bạn hy đặt
name cho danh sách này bằng cách tô chọn vùng danh sách, rồi gõ tên MyList trong hộp
namebox.
Bước 2:
Trong 1 sheet khác mà bạn muốn dùng validation dựa vào danh sách MyList nói trên, tô
chọn vùng bạn cần, mở menu Data – Validation, chọn Allow là List, source là =MyList,
rồi nhấn OK.
Bước 3: mở cửa sổ VBA của sheet đó, copy đoạn code sau:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim strVal As String
Dim strEntry As String
On Error Resume Next
strVal = Target.Validation.Formula1
If Not strVal = vbNullString Then
strEntry = Target
Application.EnableEvents = False
With Sheet1.Range("MyList")
.Replace What:=strEntry, _
Replacement:="", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False