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...
'修改单元格中特定文字的颜色' Public Sub ChgTxtColor() Set myRange = Range("A1:A100") '设置单元格范围' substr = "Good" '待修改颜色的文字' txtColor = 3 '修…
1 Excel中有数据如下图所示，将单元格中的文字设置为红色：2 Alt+F11，打开VBE界面，并双击左侧文字所在工作表，如下图所示：3 输入代码如下图所示：Sub 鱼木混猪()Range("A1:A4").Font.Color = vbRedEnd Sub 4 然后点击三角形的“运行子程序”按钮，如下图所示：5 关闭此界面，返回Excel，可以看到文字颜...
单元格部分字体颜色设置 代码窗口 用到instr函数(find函数不方便)。 于2023.6.2 VBA学习笔记。 ——— 拓展:判断两列不一致的字符串,并标红。 用到正则表达式与动态数组。 如果用到字典,结果应该更准确!待研究。 2023.6.5更新
rang("a1").font.ThemeColor = xlThemeColorAccent2
通常方法就是,选中要设置的字符,然后在工具栏上找到相应的格式选项。很简单,但是一项比较无趣的事情。 本节就将这一功能,用VBA代码来解释一下,其工作原理是怎样进行的。 首先看下图,本示例实现对文本字体、颜色、字号大小进行设置。根据自己需要可简单修改一下实现一键完成。
Cells(1, 1).Font.Color
1 VBA程序思路解读：1、使用Mid截取字符串时，需要先判断红色字符的位置，之后才好判断截取字符的起始位置，截取字符的长度。2、Len函数是获取单元格里面字符串的长度。3、VBA程序里边，其执行顺序是由上而下，应该先判断拼接的字符“Str2”和截取的字符“Str1”是否都不为空白，再判断拼接的字符“Str2”为空白和...
Sub 加粗变红()Dim j, i As Integer For j = 1 To ActiveSheet.UsedRange.Count Cells.Find(What:="设计", After:=ActiveCell).Activate i = WorksheetFunction.Find("设计", ActiveCell)With ActiveCell.Characters(Start:=i, Length:=2).Font .Name = "宋体".FontStyle = "常规".FontStyle ...