VBA Excel - 为包含基于另一个单元格值的值的行中的每个单元格着色
D.托多
我目前正在研究一个可以做一些不同事情的宏，现在我被困在这个过程的最后一部分。
我有一个表格和该表格旁边的一列，表示表格值应该采用的颜色。为了清楚我的意思，我附上了这张图片：
现在，如您所见，O 列中有条目指示 B:N 中的条目应采用哪种颜色。例如：O3 的值为 r。这意味着 C3:E3 应为红色。这是宏完成工作后的样子：
如您所见，宏只为行中实际具有值/任何值的单元格着色至关重要。空单元格不应着色。
在这方面的任何帮助将不胜感激！
提前致谢。
Subodh Tiwari sktneer
你可以试试这样的...
Sub ApplyInteriorColor()
Dim rng As Range
Dim lr As Long, i As Long
Dim clr As Long
clr = vbRed
lr = Cells(Rows.Count, 1).End(xlUp).Row
Range("B3:N" & lr).Interior.ColorIndex = xlNone
If lr > 2 Then
For i = 3 To lr
Set rng = Range(Cells(i, 2), Cells(i, "N"))
If Application.CountA(rng) > 0 And Cells(i, "O") <> "" Then
Select Case Cells(i, "O").Value
Case "r'"
clr = vbRed
Case "b"
clr = vbBlue
Case "y"
clr = vbYellow
End Select
rng.SpecialCells(xlCellTypeConstants, 3).Interior.Color = clr
End If
Next i
End If
End Sub
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
编辑于
相关文章
Related 相关文章
- 1
Excel VBA - 通过另一个单元格更改单元格值？
- 2
根据 VBA Excel 2010 中另一个单元格的值设置单元格的值
- 3
Excel VBA - 使用单元格中的值作为地址来定位另一个单元格
- 4
excel vba：找到具有特定值的单元格的行并将该行号放在另一个单元格中
- 5
Excel VBA代码根据另一个单元格值清除一个单元格中的数据
- 6
Excel VBA：动态更改工作表中其名称在另一个单元格中引用的单元格值
- 7
另一个工作簿上的单元格中的VBA Excel增量数字值？
- 8
Excel宏（VBA）对照另一个工作簿中的列表检查单元格值
- 9
VBA Excel-复制单元格值并将值粘贴在另一个单元格的字符之间
- 10
Excel VBA 宏 - 找到两列中的单元格与另一个工作簿中的行和列匹配的单元格位置，然后粘贴一个值
- 11
VBA-Excel根据单元格值将数据导出到另一个工作簿
- 12
在另一个单元格VBA Excel中执行用户定义的函数
- 13
在另一个工作表中粘贴单元格的位置 - Excel VBA
- 14
基于Excel VBA中单元格颜色的值计算
- 15
Excel –基于间隔中的另一个单元格值在列中设置单元格值
- 16
Excel-VBA 宏将单元格内容转换为另一个单元格的注释
- 17
如何根据值excel VBA将多行复制到特定单元格中的另一个工作表
- 18
Excel Macro VBA基于活动单元格内容创建到另一个工作表的超链接
- 19
Excel VBA在单元格A中放置一个值，单元格B将自动更改
- 20
Excel VBA在单元格A中放置一个值，单元格B将自动更改
- 21
根据Excel中的另一个单元格计算单元格的值
- 22
Excel VBA-将每个单元格分别复制和粘贴到另一个程序
- 23
EXCEL VBA：根据另一个单元格的值更改NUMBER格式
- 24
Excel VBA宏复制单元格并粘贴到另一个
- 25
Excel VBA在A行中的每个可见单元格，在H行中插入值？
- 26
为范围VBA Excel中的每个单元格设置偏移值
- 27
如何在Excel中基于另一个单元格的值将值重复到行中
- 28
Excel VBA重现单元格的值
- 29
VBA Excel单元格值是“ not” NULL
我来说两句