Hướng dẫn này sẽ trình bày cách sử dụng VBA để đánh dấu một ô hoặc một Phạm vi ô.
Định dạng có điều kiện là một cách để đánh dấu các ô trong Excel. Chúng tôi cũng có thể sử dụng VBA để thực hiện tô sáng ô.
Đánh dấu một ô
Để đánh dấu một ô trong VBA, chúng ta có thể sử dụng quy trình đơn giản như hình dưới đây.
| 123 | Sub HighlightCell ()ActiveCell.Interior.Color = vbRedKết thúc Sub |
Đánh dấu một loạt các ô
Tương tự, chúng ta có thể chọn một Dải ô và đánh dấu tất cả các ô trong Dải ô.
| 1234 | Sub HighlightRange ()Phạm vi ("A1: A10"). ChọnSelection.Interior.Color = vbRedKết thúc Sub |
Đánh dấu các ô dựa trên Giá trị ô
Để thêm điều kiện đánh dấu ô, chúng ta có thể sử dụng câu lệnh IF để đánh dấu ô nếu giá trị của ô lớn hơn một giá trị nào đó, trong trường hợp này là lớn hơn 10.
| 12345 | Sub HightlightCell_1Nếu ActiveCell.Value> 10 thìActiveCell.Interior.Color = vbRedKết thúc nếuKết thúc Sub |
Đánh dấu một phạm vi ô dựa trên giá trị ô
Để kiểm tra các giá trị trong một Dải ô, chúng ta sẽ cần lặp qua từng ô, thiết lập giá trị của nó và sau đó đánh dấu ô cho phù hợp. Trong ví dụ dưới đây, trước tiên chúng ta sẽ xác định rằng giá trị được giữ trong phạm vi là một số và sau đó kiểm tra xem số đó có lớn hơn 10 hay không.
| 12345678910 | Sub HighlightRangeOfCells ()Dim rng As RangeĐối với mỗi rng trong phạm vi ("A1: A10")If IsNumeric (rng.Value) ThìNếu rng.Value> 10 Thìrng.Interior.Color = vbRedKết thúc nếuKết thúc nếuRng tiếp theoKết thúc Sub |
Đánh dấu một ô với định dạng có điều kiện
Chúng ta cũng có thể sử dụng VBA để áp dụng định dạng có điều kiện cho một ô để làm nổi bật ô. Trong ví dụ dưới đây, định dạng có điều kiện sẽ được áp dụng cho từng ô trong phạm vi. Như trong ví dụ trên, trước tiên, chúng tôi kiểm tra xem ô có giá trị số trong đó hay không, sau đó áp dụng định dạng có điều kiện.
| 12345678910 | Sub SetConditionalFormatting ()Dim rng As RangeĐối với mỗi rng trong phạm vi ("A1: A10")If IsNumeric (rng.Value) Thìrng.FormatConditions.Add Type: = xlCellValue, Operator: = xlGreater, Formula1: = "= 10"rng.FormatConditions (1) .Interior.Color = vbRedrng.FormatConditions (1) .StopIfTrue = SaiKết thúc nếuRng tiếp theoKết thúc Sub |
Đánh dấu một ô khi Lựa chọn thay đổi
Chúng ta có thể làm nổi bật ô động khi con trỏ ô di chuyển trong trang tính hiện tại bằng cách sử dụng Sự kiện Worksheet_Change. Trong ví dụ dưới đây, tất cả các phần đánh dấu trong trang tính sẽ bị xóa (ngoại trừ những phần được thực hiện bằng định dạng có điều kiện) và ô hoạt động sẽ được đánh dấu màu đỏ (ColorIndex = 3).
| 1234 | Private Sub Worksheet_SelectionChange (ByVal Target As Range)ActiveSheet.Cells.Interior.ColorIndex = xlColorIndexNoneTarget.Interior.ColorIndex = 3Kết thúc Sub |
