gpt4 book ai didi

vba - 如果整列颜色为红色,则在 VBA 中查找列号

转载 作者:行者123 更新时间:2023-12-03 01:32:03 27 4
gpt4 key购买 nike

如上所述。

我想用这个:

colnum = ws.UsedRange.Find(what:=Sheet11.Range("B1"), lookat:=xlWhole).Column

不是找到 Sheet11.Range("B1") 而是找到颜色,并且只有当整个列都被着色为红色时。

有什么建议吗?

最佳答案

例如,您可以使用 if Range("B:B").Interior.Color = RGB(255, 0, 0)

有关更多详细信息,请参阅此问题 VBA to identify cells in red

编辑:

我不确定usedRange指的是什么,但希望这个例子能给你你所需要的。我们循环遍历各列来查找匹配项 - 我不知道有更好的方法

Sub Macro1()
clr = Sheets("Sheet11").Range("B1").Interior.Color

For c = 1 To 100 'however many columns you may need to search ...
If ActiveSheet.Columns(c).Interior.Color = clr Then
' set whichever cell you want = c
End If
Next c
End Sub

关于vba - 如果整列颜色为红色,则在 VBA 中查找列号,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/51197329/

27 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com