Excel 为单元格着色动态选择行的一部分
我想根据单元格的值更改单元格的背景色，但不是整行。我有一些代码可以满足我的需要，但我相信有一种更有效的方法，我希望能得到一些帮助，使我的代码更高效。下面列出了执行该任务的代码片段Excel 为单元格着色动态选择行的一部分,excel,vba,format,Excel,Vba,Format,我想根据单元格的值更改单元格的背景色，但不是整行。我有一些代码可以满足我的需要，但我相信有一种更有效的方法，我希望能得到一些帮助，使我的代码更高效。下面列出了执行该任务的代码片段 Sub chg_bkgrnd_Color() Dim rng As Range Dim row As Range Dim cell As Range Dim counter As Long Set rng = Range("k2:k23") Range("k2").Select For Each cell In
Sub chg_bkgrnd_Color()
Dim rng As Range
Dim row As Range
Dim cell As Range
Dim counter As Long
Set rng = Range("k2:k23")
Range("k2").Select
For Each cell In rng
Select Case cell.Value
Case Is = "Closed"
ActiveCell.Offset(counter, -10).Interior.ThemeColor = xlThemeColorDark1
ActiveCell.Offset(counter, -10).Interior.TintAndShade = -0.249977111117893
ActiveCell.Offset(counter, -9).Interior.ThemeColor = xlThemeColorDark1
ActiveCell.Offset(counter, -9).Interior.TintAndShade = -0.249977111117893
ActiveCell.Offset(counter, -8).Interior.ThemeColor = xlThemeColorDark1
ActiveCell.Offset(counter, -8).Interior.TintAndShade = -0.249977111117893
ActiveCell.Offset(counter, -7).Interior.ThemeColor = xlThemeColorDark1
ActiveCell.Offset(counter, -7).Interior.TintAndShade = -0.249977111117893
End Select
counter = counter + 1
Next
End Sub
条件格式最好，但如果您希望使用普通格式，这是代码的简化版本：
Sub chg_bkgrnd_Color()
Dim i&
For i = 2 To 23
If Cells(i, 11) = "Closed" Then
With Range(Cells(i, 1), Cells(i, 4)).Interior
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.249977111117893
End With
End If
Next
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
RangeAutoBackFill "Closed", 11, 2, 23, 1, 4, xlThemeColorDark1, -0.249977111117893
End Sub
Public Sub RangeAutoBackFill(Key$, KeyCol&, KeyRowLow&, KeyRowHigh&, FillColLow&, FillColHigh&, FillTheme&, FillTint#)
Dim i&
For i = KeyRowLow To KeyRowHigh
If Cells(i, KeyCol) = Key Then
With Range(Cells(i, FillColLow), Cells(i, FillColHigh)).Interior
.ThemeColor = FillTheme
.TintAndShade = FillTint
End With
End If
Next
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
RangeAutoBackFill "Closed", 11, 2, 23, 1, 4, xlThemeColorDark1, -0.249977111117893
End Sub
Public Sub RangeAutoBackFill(Key$, KeyCol&, KeyRowLow&, KeyRowHigh&, FillColLow&, FillColHigh&, FillTheme&, FillTint#)
Dim i&
For i = KeyRowLow To KeyRowHigh
If Cells(i, KeyCol) = Key Then
With Range(Cells(i, FillColLow), Cells(i, FillColHigh)).Interior
.ThemeColor = FillTheme
.TintAndShade = FillTint
End With
End If
Next
End Sub
您正在询问如何根据列K中的相应值是否为“闭合”来获取列A:D中的单元格以具有高亮显示。是一个更好的解决方案，因为它可以立即对K列中的更改进行自动背景反应
Sub Create_Conditional_Formatting_for_AD_based_on_K_Closed()
Dim v As Long, vSTATEs As Variant, vCOLOURs As Variant
vSTATEs = Array("Open", "Closed", "Pending")
vCOLOURs = Array(3, 10, 5)
With ActiveSheet.Columns("A:D")
.FormatConditions.Delete
For v = LBound(vSTATEs) To UBound(vSTATEs)
With .FormatConditions.Add(Type:=xlExpression, _
Formula1:="=$K1=" & Chr(34) & vSTATEs(v) & Chr(34))
With .Interior
.ColorIndex = vCOLOURs(v)
End With
.StopIfTrue = True
End With
Next v
End With
End Sub
.ColorIndex=$K1=“closed为什么不使用？我只需要一系列突出显示的单元格，而不是整行。正如Jeeped所问，您可以有条件地格式化少数单元格，而无需有条件地格式化整行或整列。这似乎比绑定重新创建现有单元格要简单得多。寻址的额外积分不管方法的适用性如何，实际的问题都会出现。我有时会忘记解决这个问题。Excel Hero，我回复了上面的Jeeped，并感谢他提供的示例。我对如何继续使用这个问题有一些想法。我能够接受您的代码建议并使其适用于我的示例，正如我在上面解释的，我问得不好我的问题。您的示例提供了一个很好的例子，说明了我试图在代码中优化的内容。由于我不熟悉这一点，我还有两个额外的问题：在“Dim I”之后，符号和做什么&“你能推荐一些用vba教授细胞方法的Excel编程书吗？”？再次感谢您在这方面的帮助。这可以充实到一个事件宏中，为您提供一个真正伟大的答案，提供一个自动响应的回填。@Aaron John Walkenbach的任何一本书都不会出错。喜欢此外，有许多方法可以从VBA引用单元格和范围。多年前，我在我的网站上发表了一篇文章，展示了使用大多数常用方法访问范围的相对速度@Aaron关于
尺寸i&#$