如何通过VBA根据其他单元格值更改单元格的背景颜色
菲奥赫莱
我在excel表中有两列A和B。列是包含“是”和“否”的下拉列表。我想根据下拉列表中 A 单元格的文本值更改 B 单元格的颜色。例如，如果我在 A1 单元格中选择“是”，那么 B1 单元格应该显示绿色。A2、A3...等
我不是程序员，所以我在 VBA 编码方面真的很菜。对于这种情况，条件形成也有问题。
如果有人对此有答案，那将是我的荣幸。
米格
对您的代码进行了一些更改。
Sub RowFormat()
Dim A As Range
For Each A In Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)
If Not IsError(A) Then
If A.Value = "Yes" Then
A.Offset(0, 1).Interior.ColorIndex = 6
ElseIf A.Value = "No" Then
A.Offset(0, 1).Interior.ColorIndex = 3
Else
A.Offset(0, 1).Interior.ColorIndex = xlNone
End If
End If
Next A
End Sub
使用条件格式。
对于“是”使用=A1="Yes"，
对于“否”使用=A1="No"和格式相应地应用格式。
编辑 ：
如果您使用Worksheet_Change事件，请使用以下代码。
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub 'check for range
If Target.Value = "Yes" Then 'check if yes
Target.Offset(0, 1).Interior.ColorIndex = 6
ElseIf Target.Value = "No" Then 'check if no
Target.Offset(0, 1).Interior.ColorIndex = 3
Else
Target.Offset(0, 1).Interior.ColorIndex = xlNone
End If
End Sub
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
编辑于
相关文章
Related 相关文章
- 1
Excel-VBA：根据相邻单元格的文本颜色更改单元格的文本颜色
- 2
extjs根据值更改网格单元格背景
- 3
如何根据单元格值更改DataGrid单元格背景色
- 4
Google Apps脚本-使用其他单元格中的十六进制值更改单元格的背景颜色
- 5
如何根据单元格值更改php中的单元格表颜色？
- 6
复制并粘贴新表中的行，并根据其他单元格值更改单元格值（月）
- 7
根据不同列中的值更改单元格背景
- 8
VBA-根据特定单元格的值更改单元格的颜色
- 9
如何根据表格单元格中的值更改表格行的背景颜色？
- 10
React：如何根据React表中的单元格值更改表单元格背景
- 11
根据单元格值更改字体和颜色大小
- 12
根据值更改单元格颜色-VueJs和Vuetify
- 13
Excel-VBA：根据相邻单元格的文本颜色更改单元格的文本颜色
- 14
extjs根据值更改网格单元格背景
- 15
如何根据单元格值更改php中的单元格表颜色？
- 16
SSRS根据SUM值更改单元格颜色
- 17
Excel VBA-根据其他工作表中的事件更改单元格颜色
- 18
如何在Excel中制作一个单元格以根据其他单元格的值更改颜色？
- 19
数据表...如何根据表的单元格值更改单元格的颜色
- 20
根据其他单元格数据更改单元格颜色，但如果数据再次更改，则保持这种方式
- 21
根据单元格值更改行背景颜色
- 22
根据单元格值更改饼图上颜色的颜色
- 23
尝试根据多单元格值更改数据网格中行的背景颜色
- 24
根据值更快地更改单元格颜色
- 25
根据颜色常量的单元格值更改内部颜色
- 26
根据表格单元格值更改行的颜色
- 27
根据单元格值更改图表颜色
- 28
根据下拉列表值更改 HTML 表格单元格的背景颜色？
- 29
如何根据项目值更改列表视图项目的单元格（背景色或前景色）的颜色
我来说两句