Làm thế nào để chèn danh sách thả xuống được mã hóa màu trong bảng Word?
Giả sử, tôi có một bảng trong tài liệu Word của mình và bây giờ, tôi muốn chèn danh sách thả xuống được mã hóa màu vào một cột của bảng. Điều đó có nghĩa là khi tôi chọn một tùy chọn từ menu thả xuống, màu ô sẽ trở thành màu đỏ và khi tôi chọn một tùy chọn khác trong menu thả xuống, màu ô sẽ trở thành màu xanh lục như hình minh họa sau. Làm thế nào bạn có thể giải quyết công việc này trong tài liệu Word?
Chèn danh sách thả xuống được mã hóa màu trong tài liệu Word với mã VBA
Chèn danh sách thả xuống được mã hóa màu trong tài liệu Word với mã VBA
Các bước sau có thể giúp bạn hoàn thành tác vụ này khi cần, trước tiên, hãy chèn danh sách thả xuống, sau đó áp dụng màu cho danh sách thả xuống. Vui lòng làm như sau:
1. Chọn một ô trong bảng mà bạn muốn chèn trình đơn thả xuống, sau đó bấm Nhà phát triển > Kiểm soát nội dung danh sách thả xuống biểu tượng, xem ảnh chụp màn hình:
2. Trình đơn thả xuống được chèn vào ô cụ thể, sau đó nhấp vào Nhà phát triển > Bất động sản, xem ảnh chụp màn hình:
3. Trong Thuộc tính kiểm soát nội dung hộp thoại, vui lòng thực hiện các thao tác sau:
(1.) Nhập tên tiêu đề vào Yêu sách hộp văn bản;
(2.) Nhấp vào Thêm nút đi đến Thêm lựa chọn hộp thoại;
(3.) Trong Thêm lựa chọn , nhập mục danh sách thả xuống vào Tên hiển thị hộp văn bản.
4. Lặp lại Bước 3 để chèn các mục danh sách thả xuống khác khi bạn cần.
5. Sau khi tạo danh sách thả xuống đầu tiên, bạn có thể sao chép và dán nó vào các ô khác khi cần. Xem ảnh chụp màn hình:
6. Sau đó, bạn nên áp dụng mã VBA, vui lòng giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
7. Trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp đúp Tài liệu này từ Dự án-Dự án để mở chế độ, sau đó sao chép và dán mã sau vào mô-đun trống.
Mã VBA: Chèn danh sách thả xuống được mã hóa màu vào bảng của tài liệu Word:
Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
With ContentControl.Range
If ContentControl.Title = "Status" Then
Select Case .Text
Case "Complete"
.Cells(1).Shading.BackgroundPatternColor = wdColorRed
Case "In Progress"
.Cells(1).Shading.BackgroundPatternColor = wdColorGreen
Case "Not Start"
.Cells(1).Shading.BackgroundPatternColor = wdColorBlue
Case Else
.Cells(1).Shading.BackgroundPatternColor = wdColorAutomatic
End Select
End If
End With
End Sub
Chú thích: Trong đoạn mã trên, Trạng thái là tên tiêu đề khi bạn tạo danh sách thả xuống và Hoàn thành, Đang diễn ra, Không bắt đầu là các mục của danh sách thả xuống, bạn có thể thay đổi chúng thành của riêng bạn. Và bạn cũng có thể thay đổi màu sắc theo nhu cầu của bạn.
8. Sau đó, lưu và đóng cửa sổ mã, bây giờ, khi bạn chọn một mục từ danh sách thả xuống, màu tương đối của nó sẽ được tô đầy ô, xem ảnh chụp màn hình:
Công cụ năng suất văn phòng tốt nhất
Kutools cho Word - Nâng cao trải nghiệm sử dụng từ của bạn với Over 100 Các tính năng đáng chú ý!
🤖 Trợ lý AI của Kutools: Biến đổi bài viết của bạn bằng AI - Tạo nội dung / Viết lại văn bản / Tóm tắt tài liệu / Hỏi thông tin dựa trên tài liệu, tất cả đều có trong Word
📘 Làm chủ tài liệu: Chia trang / Hợp nhất tài liệu / Lựa chọn xuất khẩu ở nhiều định dạng khác nhau (PDF/TXT/DOC/HTML...) / Chuyển đổi hàng loạt sang PDF / Xuất trang dưới dạng hình ảnh / In nhiều tập tin cùng một lúchữu ích. Cảm ơn !
✏ Chỉnh sửa nội dung: Tìm và thay thế hàng loạt trên nhiều tệp / Thay đổi kích thước tất cả hình ảnh / Hoán đổi hàng và cột của bảng / Chuyển bảng thành văn bảnhữu ích. Cảm ơn !
🧹 Dễ dàng làm sạch: Quét đi Không gian bổ sung / Phần ngắt / Tất cả các tiêu đề / Hộp văn bản / Các siêu liên kết / Để biết thêm các công cụ xóa, hãy truy cập Xóa nhómhữu ích. Cảm ơn !
➕ Phụ trang quảng cáo: Chèn Ngàn dấu phân cách / Hộp kiểm tra / Nút radio / Mã QR / Mã vạch / Bảng đường chéo / Chú thích phương trình / Hình ảnh Caption / Bảng chú thích / Nhiều Hình Ảnh / Khám phá thêm trong Chèn nhómhữu ích. Cảm ơn !
???? Lựa chọn chính xác: Xác định trang cụ thể / bảng / hình dạng / đoạn văn tiêu đề / Tăng cường điều hướng với chi tiết Chọn tính nănghữu ích. Cảm ơn !
⭐ Cải tiến sao: Điều hướng nhanh chóng đến bất kỳ vị trí nào / tự động chèn văn bản lặp đi lặp lại / chuyển đổi liền mạch giữa các cửa sổ tài liệu / 11 công cụ chuyển đổihữu ích. Cảm ơn !