For Each cell In rng ' 根据条件更改字体颜色 If cell.Value > 100 Then cell.Font.Color = RGB(255, 0, 0) ' 红色 Else cell.Font.Color = RGB(0, 0, 0) ' 黑色 End If Next cell End Sub 步骤四:运行VBA代码 编写代码后,关闭VBA编辑器并返回Excel。在Excel菜单栏中,点击“开发工具”选项卡,...
For Each cell In rng If cell.Value > 100 Then cell.Font.Color = RGB(255, 0, 0) ' 红色 Else cell.Font.Color = RGB(0, 0, 0) ' 黑色 End If Next cell End Sub 运行代码:关闭VBA编辑器,回到Excel表格,选择需要更改颜色的单元格,然后按Alt + F8,选择刚刚编写的ChangeFontColor宏,点击“运行...
然后点击上方的“运行-运行子过程/用户窗体”。运行完毕后,关闭VBA代码窗口,返回到Excel表格时,我们惊喜的发现:所有单元格中“省”字后面的内容字体颜色都变为了红色。非常的给力! 代码如下: Sub FormatCell() Dim color As Long Dim target As String Dim source As Range Dim current As Range Set source = ...
1 Ctrl+A将Excel单元格全选（如果只需要设置部分区域实现选择单元格行列变色的效果，那么这里就选择这个“部分区域”），点击“开始”选项卡中的“条件格式”，选择“新建规则”，如下图所示：2 “选择规则类型”中选择“使用公式确定要设置格式的单元格”,并在下面的文本框中输入公式：=(CELL("row")=ROW())+(...
Sub test()On Error Resume Next For Each cell In Sheet1.UsedRange a = cell.Interior.ColorIndex cell.Select Selection.Font.ColorIndex = a cell.Interior.ColorIndex = -4142 Next end sub
VBA:根据另一个单元格中的填充颜色填充单元格 Function GetRangeColor(xRg As Range) UpdatebyKutools20191125 If (xRg.Count > 1) Then GetRangeColor = "Only work for single cell" End If Select Case xRg.Interior.Color Case RGB(255, 0, 0) GetRangeColor = "Play" Case RGB(0, 255, 0) Get...
在Excel VBA 中,您可以使用 Worksheet_SelectionChange 事件来监测单元格字体颜色的改变。以下是示例代码:Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim selCell As RangeFor Each selCell In TargetIf selCell.Font.ColorIndex <> xlAutomatic Then'此处是您自定义的代码MsgBox "字体颜色已更改!
方法2:使用VBA自定义函数 按Alt+F11组合键打开VBE编辑器,插入一个标准模块,在代码窗口输入: FunctionFillTextBaseOnColor(rng As Range)Ifrng.Count > 1 ThenFillTextBaseOnColor="仅处理单个单元格"EndIfSelectCase rng.Interior.ColorCaseRGB(255, 0, 0...
1 首先需要新建一张EXCEL表格，这样在说明Cell.EntireRow属性的时候可以显示结果，如下图所示：2 Cell.EntireRow说明需要进入到vba的project项目中，可以右键sheet1找到查看代码，点击进入，如下图所示：3 在vba的编程中，需要在下拉菜单中找到Worksheet_BeforeDoubleClick，这样双击鼠标左键后就可以运行代码，如下图所示：...
1、首先选中B1单元格，需要设置在A1单元格中输入数字“2”，B1单元格就变成蓝色。2、点击工具栏中的“条件格式”选项，并选择“突出显示单元格规则”。3、然后打开其下拉菜单，选择“其他规则”。4、选中“使用公式确定要设置格式的单元格”，在公式栏输入：=$A1=2，并将格式设置为蓝色，点击确定。5...