Excel_VBA:批量替换单元格数据及颜色

2016-10-26 愤怒的山丘 

企业质量部门用很多检验计划，计划中会标注每道工序是等待点(Hold Point)还是见证点(Witness Point),还是其他点比如点检（Spot Check）、文件审核点（Review Point）、业主见证点（Client Point）.

每个点重要性不一样， 用颜色管理这些点显得更为直观。  

非制造业相关公司里面的小白不理解上的面的东西。 没关系！可以直接跳过见下面：

---

要求：

将工作表K列中值为

• “H”的单元格背景色改为红色，

• “W”修改为黄色，

• “SP”修改为淡绿色，

• “R”修改淡青色，

---

代码如下：

Sub 更改K列中符合要求单元格的背景色()

Application.ReplaceFormat.Interior.Color = vbRed      '预先定义替换格式

Columns("K").Replace What:="H", Replacement:="H", ReplaceFormat:=True     'H点背景色-红色

Application.ReplaceFormat.Interior.Color = RGB(255, 255, 0)

Columns("K").Replace What:="W", Replacement:="W", ReplaceFormat:=True     'W点背景色-黄色

Application.ReplaceFormat.Interior.Color = RGB(153, 255, 51)

Columns("K").Replace What:="SP", Replacement:="SP", ReplaceFormat:=True    'SP点背景色-淡绿色

Application.ReplaceFormat.Interior.Color = RGB(204, 236, 255)

Columns("K").Replace What:="R", Replacement:="R", ReplaceFormat:=True      'R点背景色-淡青色

End Sub

---

结果如图显示

---

当然上面的要求手动在表格中也能操作， 丘哥只是提供一个VBA方法，以后举一反三引用，如批量替换字体颜色，批量快速处理表格或者自动生成报表使用等等

---

如果有用，请在下方点赞哦！