Excel VBA - 构建一个功能以突出显示超出字符限制的单元格

时间：2015-12-23 13:10:17

标签： excel vba excel-vba character counting

我在excel表中有一个具有字符限制的列。我希望能够按下Active X Command按钮并使该功能突出显示超出字符限制的所有单元格。例如，如果字符限制为3，则名称Mark将突出显示，但名称Joe不会突出显示。有谁知道如何解决这个问题？

这就是我现在所拥有的，但它不起作用。我对此很陌生。

Private Sub CommandButton1_Click()


For i = 2 To 5
If Len(Cells(i, 1).Value) > 2 Then
Cells(1, 1).Interior.ColorIndex = 200
End If
Next i

End Sub

2 个答案:

答案 0 :(得分：7)

您可以在没有VBA的情况下执行此操作，只需使用Excel的内置Conditional Formatting

即可
  1. 选择范围
  2. 单击Alt + O，D以显示条件格式规则管理器 enter image description here
  3. 点击新规则
  4. 选择Use a formulato determine which cells to format
  5. 输入公式=LEN(E4)>2（基于以下示例的公式），然后点击Format以使用您选择的颜色填充单元格。

    6. enter image description here

    1. 最终结果将如下图所示，除了您需要的范围。

      2. enter image description here

答案 1 :(得分：1)

这对我有用。我认为问题可能是你的代码行：

Cells(1, 1).Interior.ColorIndex = 200

应该是

Cells(i, 1).Interior.ColorIndex = 200

见下文：

For i = 2 To 5
If Len(Sheet1.Cells(i, 1).Value) > 2 Then
Sheet1.Cells(i, 1).Interior.ColorIndex = 37
End If
Next i
相关问题
最新问题