Làm cách nào để thêm dấu chọn và biểu tượng dấu chéo vào danh sách thả xuống trong Excel?
Thông thường, sau khi chèn các ký hiệu đánh dấu và dấu gạch chéo trong các ô có chức năng ký hiệu và sau đó tạo danh sách thả xuống với chúng làm nguồn dữ liệu, kết quả sẽ được hiển thị dưới dạng ü hoặc û trong các ô thả xuống. Cách hiển thị ✓ và ký hiệu trong các ô sau khi chọn các mục từ danh sách thả xuống? Phương pháp VBA dưới đây sẽ giúp tạo danh sách đánh dấu và sổ xuống chéo trong Excel.
Thêm các ký hiệu đánh dấu và gạch chéo vào danh sách thả xuống với mã VBA
Thêm các ký hiệu đánh dấu và gạch chéo vào danh sách thả xuống với mã VBA
Với mã VBA dưới đây, bạn có thể chèn đánh dấu và danh sách thả xuống chéo vào các ô được chỉ định trong Excel. Hãy làm như sau.
1. Trong trang tính, bạn sẽ tạo danh sách thả xuống đánh dấu và biểu tượng chéo, nhấp chuột phải vào tab trang tính và chọn Mã Chế độ xem từ trình đơn ngữ cảnh.
2. Sau đó Microsoft Visual Basic cho các ứng dụng cửa sổ mở ra, vui lòng sao chép mã VBA bên dưới vào cửa sổ Mã.
Mã VBA 1: Thêm biểu tượng đánh dấu và gạch chéo vào danh sách thả xuống
Private Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 20180703
If Intersect(Target, Range("B1:B10")) Is Nothing Then Exit Sub
If Target.Value = "Tick" Then
Target.Value = "P"
ElseIf Target.Value = "Cross" Then
Target.Value = "S"
End If
End Sub
3. Tiếp tục nhấp vào Chèn > Mô-đun, sau đó sao chép đoạn mã sau 2 vào cửa sổ Mô-đun.
Mã VBA 2: Thêm biểu tượng đánh dấu và gạch chéo vào danh sách thả xuống
Sub usingSymbols()
'Update by Extendoffice 20180703
Dim xRg As Range
Set xRg = Range("B1:B10")
xRg.Font.Name = "Wingdings 2"
xRg.Validation.Add xlValidateList, , , "Tick,Cross"
End Sub
Chú thích: Trong đoạn mã trên, B1: B10 là phạm vi ô bạn sẽ tạo đánh dấu và danh sách thả xuống chéo. Vui lòng thay đổi phạm vi khi bạn cần.
4. Nhấn nút F5 phím để chạy mã.
Bây giờ danh sách thả xuống đánh dấu và biểu tượng chéo được chèn vào phạm vi B1: B10. Chọn Đánh dấu từ menu thả xuống sẽ chèn ✓ vào ô, và chọn Chéo sẽ hiển thị Biểu tượng. Xem ảnh chụp màn hình:
Các bài liên quan:
- Làm cách nào để tự động điền các ô khác khi chọn giá trị trong danh sách thả xuống của Excel?
- Làm thế nào để tự động hoàn thành khi nhập trong danh sách thả xuống Excel?
- Làm cách nào để tạo lịch danh sách thả xuống trong Excel?
- Làm thế nào để tạo danh sách thả xuống với nhiều lựa chọn hoặc giá trị trong Excel?
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!