Question

Excel VBA条件格式 满足条件将对应的单元格字体变色

当K1列有数据时，B1-I1行的单元格变黄色
可以理解成K列有数据时，B-I行的单元格变黄色

Answer 1

选中K列B行单元格
条件格式 —— 新建规—— 使用公式确定要设置格式的单元格
为符合此公式的值设置格式：
点击选中的单元格 点击后会出现 =$K2
接着在后面输入 <>""
然后设置 格式(F) 选一个填充色
点确定
再点条件格式—— 管理规则 —— 选择新建的那个规
应用于 下面 选中 数据区域
点确定就行了

填完后，单元格往下拉就出来效果了

Answer 2

选择B:I列
点击菜单---格式---条件格式---公式
=$K1<>""
点击"格式"设置字体颜色为黄色
确定.

别迷信神马VBA.

Answer 3

比如你要在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

追问

试了，没反应啊

追答

运行了吗？

Answer 4

for i=1 to acitvesheet.usedrange.count
if cells(11,i).value<>"" then
range(cells(2,i),cells(9,i).Interior.color=65535
end if
next

追问

你的有问题代码有红色的