1 打开代码界面：--打开Excel，右击当前sheet页名字，在弹出界面中，点击“查看代码（V）”，打开VBA代码编辑界面 2 粘贴代码（注意不用编写）：--将如下代码直接Copy到打开的代码编写空白页，代码小白不要慌，按照批注说明修改2个参数，代码就编写完成了，代码如下：Private Sub CommandButton1_Click()Cells.Font.C...
1 打开代码界面：--打开Excel--右击当前sheet页名字--在弹出界面中，点击“查看代码（V）”，打开VBA代码编辑界面 2 粘贴代码（注意不用编写）：--将如下代码直接Copy到打开的代码编写空白页--代码小白不要慌哦，按照批注说明修改2个参数，代码就编写完成了--代码如下：Private Sub CommandButton1_Click()Cells.F...
右击点击名称为“公众号 Excel情报局”工作表名称标签，点击“查看代码”按钮，调出VBA代码编辑窗口，将下面的一段VBA代码复制粘贴进去，然后点击上方的“运行-运行子过程/用户窗体”按钮，这时候会弹出一个“宏”的提示对话框，我们在这个界面中，随意输入一个“宏名称”，本例中输入的是一个字母“A”，然后点击“...
1 Excel中有数据如下图所示，将单元格中的文字设置为红色：2 Alt+F11，打开VBE界面，并双击左侧文字所在工作表，如下图所示：3 输入代码如下图所示：Sub 鱼木混猪()Range("A1:A4").Font.Color = vbRedEnd Sub 4 然后点击三角形的“运行子程序”按钮，如下图所示：5 关闭此界面，返回Excel，可以看到文字颜...
'3代表红色,1代表黑色,2代表白色,4代表鲜绿色,5代表蓝色,6代表黄色,7代表粉红色,8代表青绿色,9代表深红色,10代表绿色 Dim T AsStringDim C AsIntegerForEach rngInSelectionFors =0ToUBound(Strs) T = Strs(s)'T是要批量替换颜色的目标文字
单元格部分字体颜色设置 代码窗口 用到instr函数(find函数不方便)。 于2023.6.2 VBA学习笔记。 ——— 拓展:判断两列不一致的字符串,并标红。 用到正则表达式与动态数组。 如果用到字典,结果应该更准确!待研究。 2023.6.5更新
Cells(1, 1).Font.Color
rang("a1").font.ThemeColor = xlThemeColorAccent2
PublicSubChgTxtColor()SetmyRange=Range("A1:A100")'设置单元格范围'substr="Good"'待修改颜色的文字'txtColor=3'修改后的颜色,3代表红色''第一层循环遍历所有单元格'ForEachmyStringInmyRange'myString是单元格中的字符串'lenstr=Len(myString)lensubstr=Len(substr)'第二层循环遍历单元格内的字符串'Fori=...