Range("a1").Characters(4, 6).Font.Color = vbRed End Sub 关键内容是Characters,类似MID的使用,测试代码运行前的工作表:执行后的工作表:程序代码:如果需要4、6可以变,使用变量、或者从工作表中读取即可。
代码如下:Sub ts()Dim rg As Range Dim r As Long r = Columns("A:C").SpecialCells(xlLastCell).Row For Each rg In Range("A1:C" & r)If rg < Range("E" & rg.Row) Then rg.Interior.Color = RGB(255, 0, 0)Else rg.Interior.Color ...
Excel中用VBA实现把单元格中后四个字符修改颜色,其实就是一个Font的Color参数的修改。代码如下:Sub FontColor()For i = 3 To 14SStr = Len(Range("J" & i)) - 3Range("J" & i).Characters(Start:=SStr, Length:=4).Font.Color = -16776961Next iEnd Sub代码原图:这里用了一个For循...
在 Excel VBA 中,您可以使用 Worksheet_SelectionChange 事件来监测单元格字体颜色的改变。以下是示例代码:Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim selCell As Range For Each selCell In Target If selCell.Font.ColorIndex <> xlAutomatic Then '此处是您自定义的代码 MsgBo...
在工作表按Alt+F11,或者工作表名称处右键查看代码 在弹出的VBA界面,对应工作表名称处双击或查看代码 在VBA界面右侧空白处粘贴以下代码 Private Sub Worksheet_SelectionChange(ByVal Target As Range)Set mRange = [A1:G7] ' [A1:G7] 改为你需要的范围 If Not Intersect(Target, mRange) Is...
Sub 按钮1_Click() Dim strF As String '查找字符 strF = InputBox("请输入更改颜色的所有字符:", "输入") Sheets(1).Range("A1").Characters.Font.Color = 0 '先把字体全部变成默认黑色 For i = 1 To Len(Sheets(1).Range("A1").Text) If InStr(strF, Mid...
cells(x,y).Interior.ColorIndex = 3 'red
1,使用定位功能:使用快捷键CTRL+G调出定位菜单,选择“常量”(如果是公式得到的数字,则需要在公式下进行选择),去掉常量下除了数值外的其他所有选项,然后点确定。这时候你可以看到,只有数值区域已被选中。这时候就可以设置单元格格式了。例如字体和颜色。2.使用条件格式。条件为: and(单元格位置>=...
2、点击VBA编辑器菜单栏上面的【插入】、【模块】,也可以在编辑器上面使用【Alt+I+M】组合快捷键插入“模块”。3、在VBA编辑器代码框里面输入以下代码:4、在Excel表格上面的【开始】、【填充颜色】、【其他颜色】,在”颜色“对话框的【自定义】里面就可以找到,改变数值就可以看到新增的颜色。5、...
Length:=2).Font .ColorIndex = 3 End With With ActiveCell.Characters(Start:=7, Length:=4).Font .ColorIndex = xlAutomatic End With Range("E7").SelectEnd Sub注:如果单元格内是数字需先设置成文本格式,因为否则VBA更改的格式会被数字格式化就看不到结果了.