vba 如何将符合条件的单元格表上颜色？(如何在vba中实现满足条件的单元格填充相应的颜色)
- 如何在vba中实现满足条件的单元格填充相应的颜色
- 如何用VBA把符合条件的某一单元格所在行填充颜色
- Excel VBA条件格式 满足条件将对应的单元格字体变色
- 如何在vba中用控件模块实现满足条件的单元格填充相应的颜色
如何在vba中实现满足条件的单元格填充相应的颜色
条件格式，设置四个条件
1. 选择A列，条件格式公式输入=AND(A1=MAX($A1:$D1),A1<>"")，填充选择红色
2. 选择B列，条件格式公式输入=AND(B1=MAX($A1:$D1),B1<>"")，填充选择绿色
3. 选择C列，条件格式公式输入=AND(C1=MAX($A1:$D1),C1<>"")，填充选择蓝色
4. 选择D列，条件格式公式输入=AND(D1=MAX($A1:$D1),D1<>"")，填充选择紫红色
如何用VBA把符合条件的某一单元格所在行填充颜色
Sub Wenwen()
Dim objSheet As Worksheet
Dim i As Integer
For i = 1 To Application.Worksheets.Count MyTask (i)
Next
Debug.Print "end..."
End Sub
Sub MyTask(index As Integer)
Dim objSheet As Worksheet
Dim iRow As Integer
Dim sRange As String
Set objSheet = Application.Worksheets(index)
objSheet.Activate
For iRow = 1 To 500 If Cells(iRow, 5).Value > 150 Then sRange = "A" & CStr(iRow) & ":F" & CStr(iRow) Range(sRange).Select With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 65535 .TintAndShade = 0 .PatternTintAndShade = 0 End With End If
Next
Excel VBA条件格式 满足条件将对应的单元格字体变色
比如你要在A列是等于10的单元格字体红色，代码如下
Sub aa()
Dim c As Range
For Each c In Range("A1:A5")
If c.Value = 10 Then c.Font.ColorIndex = 3
Next c
End Sub
根据你的补充代码修改如下
Sub aa()
Dim c As Range
For Each c In Range("k1:k100")
If c.Value <> "" Then c.Offset(, -9).Resize(1, 8).Interior.ColorIndex = 6
Next c
End Sub
如何在vba中用控件模块实现满足条件的单元格填充相应的颜色
'把下面代码，复制到对应的工作表下。仅当A至D列发生改变时，E至H列自动填充颜色。
'本来想用Find函数,但容易出问题，它随着查找功能的默认值会发生变化。
'代码中，也考虑了最大值发生改变的情况，不会重复填充颜色。
Private Sub Worksheet_Change(ByVal Target As Range)
lb = Asc(Split(Target.Address, "$")(1))
Dim rng As Range
Colors = Array(3, 4, 41, 39)
If 65 <= lb And lb <= 68 Then
For i = 1 To [E65536].End(xlUp).Row
c = 0
Max = Application.Max(Range("E" & i & ":H" & i))
For Each rng In Range("E" & i & ":H" & i).Cells
If rng.Value = Max Then
Range("E" & i & ":H" & i).Interior.ColorIndex = 0
rng.Interior.ColorIndex = Colors(c)
Exit For
End If
c = c + 1
Next
Next
End If
End Sub
'我人一直在，哪不符合要求，可以Hi我，或回复也行。