比如最后一列设置了数据条,颜色会根据填入的数据不同自动变化,如何让对应单元格左侧的一行单元格的颜色都与此单元格颜色相同呢?有没有VBA方面的大神帮助解决一下?其实问题可以简化为,读取AM列单元格的颜色,将A-AL对应行的颜色设置为一致。
实现效果如上,方法步骤(具体结合你的实际,调整下面的代码):
【第1步】:右键此表,在查看代码里 ,复制下面代码进去
Sub 自动填充颜色()
For Each Rng In [A2:A5]
Rng.Resize(1, 38).Interior.Color = Cells(Rng.Row, "AM").DisplayFormat.Interior.Color
Next
End Sub
【第2步】:在此表插入一个按钮,右右键它关联代码,大功告成。以后点按钮,即可按照AM列颜色自动更新A--AL列颜色。
追问请问可以做到颜色自动更新嘛,就是不用插入按钮,比如我按F9刷新什么的
如果一定要用函数来读取该单元格的颜色会比较麻烦,GET.CELL函数其实不是特别好用。
既然你设置了数据条,应该就有条件实现判断,使用这个判断来作为条件格式的条件即可实现单元格自动变色。
比较麻烦的是,因为数据条有多种状态和颜色,需要对同一行数据设置多次,然后使用格式刷来刷到其他行。