1、打开代码界面:--打开Excel,右击当前sheet页名字,在弹出界面中,点击“查看代码(V)”,打开VBA代码编辑界面
2、粘贴代码(注意不用编写):--将如下代码直接Cop鲻戟缒男y到打开的代码编写空白页,代码小白不要慌,按照批注说明修改2个参数,代码就编写完成了,代码如下:Private Sub CommandButton1_Click()Cells.Font.ColorIndex = 1End SubSub Worksheet_SelectionChange(ByVal Target As Range)Dim rng As Range, i As IntegerDim T As String 'T是要批量替换颜色的目标文字Dim C As Integer 'C是颜色,通过设定不同的值,代表对应的颜色For Each rng In SelectionT = "版本" '重点,重点,重点,在使用该程序时只需要修改双引号中的内容即可C = 3 '3代表红色,1代表黑色,2代表白色,4代表鲜绿色,5代表蓝色,6代表黄色,7代表粉红色,8代表青绿色,9代表深红色,10代表绿色i = 1Do While InStr(i, rng, T) > 0rng.Characters(InStr(i, rng, T), Len(T)).Font.ColorIndex = 3i = InStr(i, rng, T) + 1LoopNextEnd Sub
3、开始运行代码:--选中代码,点击绿色小三角--在弹出的对话框中输入荏半吨蛸名称“批量修改Excel单元格内部分文字颜色”,给程序起个砘捃坑聒名字--关闭弹出的界面--选中代码,点击小三角运行,开始运行代码--然后打开表格界面,选中目标区域,就可实现字体颜色的替换
4、保存复用:如果想重复使用,则可以将Excel文件保存为宏文件:--点击“开始”,“另存为”,在格式中选择“Excel启用宏的工作簿”,点击保存,即可
5、文件复用:--找到保存的宏文件,打开后,右击sheet页名称,点击“查看代码(V)”,我们就可以看到之前编写的VBA程序了,修改参数,点击运行就可以重复使用了