-
11-17-2011, 07:22 AM #1Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Tạo một danh sách thả xuống trong cell bất kỳ
Nếu bạn muốn tạo 1 List (danh sách bất kỳ) để chọn nhập vào 1 cell. Giả sử bạn có 1 sheet nào đó đã chứa sẳn dữ liệu và muốn tạo 1 danh sách bất kỳ để chọn và nhập dữ liệu vào ô cần nhập, thực hiện như sau:
Click chuột phải vào tên bảng tính cần tạo List, chọn ViewCode cửa sổ Code mở ra và bạn gõ nhập đoạn Code sau vào:
Option Explicit
Dim strRange As String
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim cBar As CommandBarPopup
If Target.Row = 1 Then End
If Target.Cells.Count > 1 Then Exit Sub
strRange = Target.EntireColumn.Cells(1, 1).Address & _
":" & Target.Offset(-1, 0).Address
‘Sử dụng validation để chọn phạm vi và thêm vào danh sách
With Target.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=" & strRange
.IgnoreBlank = True
.InCellDropdown = True
.ShowInput = False
.ShowError = False
End With
On Error Resume Next
If Not Cancel Then _
Application.CommandBars("Cell").ShowPopup x:=Target.Offset(0, 3).Left
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If strRange <> vbNullString Then Range(strRange).EntireColumn.Validation.Delete
strRange = vbNullString
End Sub
Để lựa chọn danh sách, bạn click phải chuột vào ô bất kỳ và click vào mũi tên sổ xuống để chọn (hoặc nhấn tổ hợp phím Alt + phím↓) bây giờ bạn có thể lựa chọn bất kỳ 1 danh sách để nhập.
Chúc các bạn thực hiện thành công.
---------- Post added 17-11-2011 at 12:22 ---------- Previous post was 16-11-2011 at 11:56 ----------
Các bạn có thể tải File để xem theo Link sau:
Tao Form va List.xls - File Shared from Box - Free Online File StorageView more random threads:
- Vba tài chính.cả nhà giúp em với.
- Xin mọi người giúp đỡ em về liệt kê số hóa đơn
- ADO toàn tập
- Hàm SumPower nhiều tính năng mới
- viết code cho excel tự động nonblank
- VBA Copy file và đổi tên file từ thư mục này qua thư mục khác
- Xử lý giúp Lỗi 40040 trong Excel 2003
- Các bác hướng dẫn cho e làm sao làm được file như thế này ak.
- Xác nhận hàm khi ghõ công thức
- Đưa bài lên dùm 1 bạn
Liệu pháp ô xy cao áp Liệu pháp ô xy cao áp đã được chứng minh là giúp đảo ngược quá trình lão hóa, kéo dài telomere (đối với những người chưa bắt đầu, chiều dài telomere là dấu hiệu của sự lão hóa...
Một số mẹo làm đẹp tốt nhất phụ nữ nên thử ngay