Excel文档利用开发工具VBA实现特定单元格标记颜色

Excel文档利用开发工具VBA实现特定单元格标记颜色

举例：用VBA代码，把当前工作表里含有 "a", "b", "c", "d"字符的单元格底色填充为黄色。

最后两行代码功能：在其它工作簿引用此代码模块。

以下代码部分：

---------------------------------------------------

Sub FillCells()

Dim c As Range

For Each c In ActiveSheet.UsedRange

If c.Value Like "*a*" Or c.Value Like "*b*" Or c.Value Like "*c*" Or c.Value Like "*d*" Then

c.Interior.Color = vbYellow

End If

Next c

End Sub

Private Sub Workbook_Open()

FillCells

End Sub

------------------------------------------------------------------

如果想在其他文档中使用当前文档中生成的 VBA 模块，可以这样做：

在当前文档中打开 VBA 编辑器。你可以通过在菜单栏中点击 "开发工具" 来打开它，或者按下 Alt + F11 快捷键。

在 VBA 编辑器中，找到你要保存的模块并选中它。

在菜单栏中点击 "文件"，然后选择 "导出文件"。

在弹出的对话框中，选择要保存的文件的位置并输入文件名。

点击 "保存" 按钮。

然后你就可以在其他文档中使用这个模块了。要使用模块，你可以在其他文档中打开 VBA 编辑器，然后在菜单栏中点击 "文件"，选择 "导入文件"，然后选择你保存的模块文件。这样就可以在其他文档中使用这个模块了。