Excel VBA – build立一个函数来突出显示超出字符数限制的单元格

我有一个Excel表中有一个字符限制的列。 我希望能够按下一个Active X Commandbutton，并使该function突出显示所有超出字符数限制的单元格。 例如，如果字符数限制为3，名称标记将突出显示，但名称乔不会。 任何人都知道如何去做这个？

这是我现在所拥有的，但不起作用。 我是全新的。

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 

结束小组

Answer 1

您可以在不使用VBA的情况下执行此操作，只需使用Excel内置的条件格式

1. select你的范围
2. 点击Alt + O，D调出条件格式规则pipe理器
3. 点击新build规则
4. selectUse a formulato determine which cells to format
5. input公式=LEN(E4)>2 （公式基于下面的示例），然后单击“ Format以使用您select的颜色填充单元格。

6. 最终结果看起来像下面的截图，除了你需要的范围。

Answer 2

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

 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