-
11-17-2011, 07:22 AM #1
Junior 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:
- Sửa lỗi code giúp mình
- Phát hiện ngày tháng không đúng dd/mm/yyyy
- Macro định dạng ngày tháng năm
- Nhờ mấy pro chỉ giùm mình cái này
- Sách Kinh nghiệm thực hành kế toán trên Excel
- làm dự toán
- Lớp học VBA căn bản tại Hà Nội
- bài tập Excel nâng cao
- Ai biết làm ơn chỉ giúp mình làm phiếu thu chi trên excel với
- Lỗi khi sử dụng macro,addin
Hội y khoa giới tính thế giới định nghĩa xuất tinh sớm là tình trạng rối loạn xuất tinh của nam giới với đặc trưng luôn xuất tinh sớm hơn hoặc trong vòng một phút quan hệ. Bệnh nhân không có khả năng...
Tìm hiểu về loại thuốc dứt điểm bệnh "ra nhanh"