vba 如何将符合条件的单元格表上颜色?
发布网友
发布时间：2022-04-23 16:15
我来回答
共2个回答
热心网友
时间：2023-07-07 02:38
代码：
Sub 标色()
Dim nR As Long, iR As Range, S As String, C As String
Dim B As Boolean, i, j
nR = Range("A65535").End(xlUp).Row
Range("A1:A" & nR).Interior.ColorIndex = 0
For Each iR In Range("A1:A" & nR)
S = iR.Value
C = Mid(S, 2, 1)
If Len(Replace(S, C, "")) = Len(S) - 3 Then
'先判断第二个数出现了三次，再确定间隔是否符合要求
B = False
j = 3
For i = 1 To 2
If InStr(j, S, C) - j > 4 Then
j = InStr(j, S, C) + 1
Else
B = True
End If
Next i
If Not B Then iR.Interior.Color = RGB(255, 0, 0)
End If
Next
End Sub
热心网友
时间：2023-07-07 02:38
符合条件的单元格上颜色是很简单的，你可以直接用一个判断语句就可以完成。
EXCEL如何用VBA设置符合条件的单元格填充颜色为红色?
1、打开Excel表格，按下【Alt+F11】组合快捷键打开VBA编辑器，也可以点击菜单栏上面的【开发工具】，【Visual Basic】打开VBA编辑器。2、点击VBA编辑器菜单栏上面的【插入】、【模块】，也可以在编辑器上面使用【Alt+I+M】组合快捷键插入“模块”。3、在VBA编辑器代码框里面输入以下代码：4、在Excel表...
vba 如何将符合条件的单元格表上颜色?
Sub 标色()Dim nR As Long, iR As Range, S As String, C As String Dim B As Boolean, i, j nR = Range("A65535").End(xlUp).Row Range("A1:A" & nR).Interior.ColorIndex = 0 For Each iR In Range("A1:A" & nR)S = iR.Value C = Mid(S, 2, 1)If Len(Replace(...
excel中如何用VBA让满足几个条件的单元格显色?
条件格式公式：=OR(AND(NOT(ISERROR(FIND(MID(A$9,1,1),INDEX(B$1:B$10,ROW())),NOT(ISERROR(FIND(MID(A$9,2,1),INDEX(B$1:B$10,ROW())),NOT(ISERROR(FIND(MID(A$9,3,1),INDEX(B$1:B$10,ROW())),AND(NOT(ISERROR(FIND(MID(A$10,1,1),INDEX(B$1:B$10,ROW()))...
如何在vba中实现满足条件的单元格填充相应的颜色
选择A列，条件格式公式输入=AND(A1=MAX($A1:$D1),A1<>"")，填充选择红色 选择B列，条件格式公式输入=AND(B1=MAX($A1:$D1),B1<>"")，填充选择绿色 选择C列，条件格式公式输入=AND(C1=MAX($A1:$D1),C1<>"")，填充选择蓝色 选择D列，条件格式公式输入=AND(D1=MAX($A1:$D1),D1...
EXCEL中如何用VBA将某个单元格填充颜色?
如你的数据在A列，代码如下。\x0d\x0asubaa()\x0d\x0aforx=1torange("A65536").end(xlup).row'建立循环\x0d\x0aifcells(x,1)=6then'判断单元格值\x0d\x0acells(x,1).interior.colorIndex=3'单元格值等于6时，该单元格填充红色\x0d\x0aendif\x0d\x0anextx\x0d\x0a...
如何使用VBA设置单元格颜色! 随便问下Excel 里是否可以使用函数设置单 ...
通过条件格式即可 选中A1:A4→条件格式→ 输入公式=A1="关"，然后格式→填充→选择“蓝色”；同理：输入公式=A1="开"，然后格式→填充→选择“红色”；
Excel VBA条件格式 满足条件将对应的单元格字体变色
条件格式 —— 新建规—— 使用公式确定要设置格式的单元格 为符合此公式的值设置格式：点击选中的单元格 点击后会出现 =$K2 接着在后面输入 <>""然后设置 格式(F) 选一个填充色 点确定 再点条件格式—— 管理规则 —— 选择新建的那个规 应用于 下面 选中 数据区域 点确定就行了 填完后，...
如何在vba中用控件模块实现满足条件的单元格填充相应的颜色
'把下面代码，复制到对应的工作表下。仅当A至D列发生改变时，E至H列自动填充颜色。'本来想用Find函数,但容易出问题，它随着查找功能的默认值会发生变化。'代码中，也考虑了最大值发生改变的情况，不会重复填充颜色。 Private Sub Worksheet_Change(ByVal Target As Range) lb = Asc(Split(Target...
用vba对表格中带有背景颜色的单元格锁定
您好，在使用excel处理数据的时候，为了能更清晰的标示出满足特定条件的单元格，对单元格添加背景色是不错的选择。手工处理的方式简单快捷，但是当遇到大批量数据，就会特别的费时费力，而且不讨好（容易出错）。通过代码来处理是个不错的选择，excel可以通过VBA编程来处理内部数据，在打开excel页面后，可以...
如何用vba 设置单元格颜色(变化的)?
cells(x,y).Interior.ColorIndex = 3 'red
