EXCEL VBA填充多种颜色
发布网友
发布时间：2022-04-20 06:46
我来回答
共1个回答
热心网友
时间：2023-07-06 11:31
Sub s()
n = Cells(Rows.Count, 11).End(3).Row - 1
For i = 11 To 353
k = 0
While Cells(n - k, i) < Cells(n - k - 1, i)
k = k + 1
Wend
If k > 3 Then
Cells(1, i).Interior.ColorIndex = 50
Cells(n - k, i).Resize(k + 1).Interior.ColorIndex = 50
ElseIf k = 3 Then
Cells(2, i).Interior.ColorIndex = 12
Cells(n - k, i).Resize(k + 1).Interior.ColorIndex = 12
ElseIf k = 2 Then
Cells(3, i).Interior.ColorIndex = 37
Cells(n - k, i).Resize(k + 1).Interior.ColorIndex = 37
End If
k = 0
While Cells(n - k, i) > Cells(n - k - 1, i)
k = k + 1
Wend
If k > 3 Then
Cells(1, i).Interior.ColorIndex = 7
Cells(n - k, i).Resize(k + 1).Interior.ColorIndex = 7
ElseIf k = 3 Then
Cells(2, i).Interior.ColorIndex = 6
Cells(n - k, i).Resize(k + 1).Interior.ColorIndex = 6
ElseIf k = 2 Then
Cells(3, i).Interior.ColorIndex = 38
Cells(n - k, i).Resize(k + 1).Interior.ColorIndex = 38
End If
Next
End Sub
如何用VBA自动填充满足条件的行的颜色?
4、在Excel表格上面的【开始】、【填充颜色】、【其他颜色】，在”颜色“对话框的【自定义】里面就可以找到，改变数值就可以看到新增的颜色。5、在VBA编辑器的工具栏里面点击“运行”图标即可运行程序，条件满足的行将会自动填充所设置的颜色。6、VBA自动填充满足条件的行的颜色完成。
Excel VBA怎么找到有颜色充填的单元格,有很多颜色!
将A1的填充颜色设置为无 Range("A1").Interior.Pattern = xlNone录制宏就可以查看代码了，不需要问吧
EXCEL中如何用VBA将某个单元格填充颜色?
方法三：如果你的Excel版本是2003版，那么你只能用系统预设的56色。用VBA代码实现的其他填充色会被转换为和这56色最接近的一种。如果你的Excel版本是2007及以上，那么单元格填充色几乎不受限制，你完全可以通过单元格填充的命令实现自定义颜色填充，支持RGB、HSL两种模式，无需借助VBA。如果使用VBA,代码如...
EXCEL同时为多个单元格的不同内容填充颜色,如何用VBA语言
首先在VBA中要选中你所要填充颜色的单元格,方法很多,你可以这样:Range("A1").Select '选中a1单元格 Range("D5:E8").Select '选中D5:E8 Cells(2, 5).Select '选中E2单元格,即第2行第5列 然后填充颜色,可以用下面语段:With Selection.Interior .ColorIndex = 4 '4号颜色即鲜绿...
excel vba填充多种颜色
i + 2)) Then Exit Do Loop If j <= Len(Cells(k, i + 2)) Then If Cells(k, i + 2).Characters(j, 1).Font.Color <> vbBlue Then Cells(k, i + 2).Characters(j, 1).Font.Color = vbBlue Do While IsNumeric(Mid(Cells(k, i + 2), j, 1)) j...
EXCEL如何用VBA判断一部分单元格内容相同的单元格并填充不同的颜色?懂...
Sub 宏1()Dim rga, rgb As RangeDim i As IntegerDim arrarr = Array(3, 4, 6, 7, 8)For Each rga In Range("b2:k2") If Application.WorksheetFunction.CountIf(Range(Cells(2, 2), Cells(2, rga.Column)), rga) = 1 And Application.WorksheetFunction.CountIf(Range("b2:k2")...
excel vba填充单元颜色(按红绿蓝AAAA表)
If InStr(1, s, t, vbTextCompare) > 0 Then Cells(i, j).Interior.ColorIndex = 3 If Cells(i + 1, j).Interior.ColorIndex <> 3 Then Cells(i + 1, j).Interior.ColorIndex = 4 If Cells(
excel vba列值相同或差5时填充不同颜色(自动填充不须执行代码)
x = Cells(Rows.Count, "j").End(xlUp).Row For i = x - 2 To x - 8 Step -1 If Range("j" & x - 1) = Range("j" & i) Then Range("j" & i).Interior.ColorIndex = 3 Range("j" & x - 1).Interior.ColorIndex = 3 ElseIf Range("j" & x - 1) - Range("...
excel如何批量查找填充颜色
可以用两种方式批量查找填充颜色：（假设是查找分数是小于60分的填充红色）1、条件格式的方法：选中数据区域，在 开始-条件格式 里选择"新建规则...“，选”使用公式确定...“，输入相应公式，如 =D2<60，再选择格式，选择相应的格式即可 2、用vba进行批量修改：在表格模块里输入下列代码：Sub 填充...
在EXCEL里怎样用VBA实现颜色自动修改?
Excel中对颜色处理，或者批量删除行列、更改行列大小等操作，用VBA处理最方便。对不同颜色赋值，可以用VBA快速处理。操作系统：Win10；软件版本：Office2007 举例说明如下；1.将A1:D4区域的颜色为红色的单元格显示为1，颜色为绿色的单元格显示为2：2.Alt+F11，插入代码及代码注释如下：3.F5选择执行代码...
