求助VBA代码

[qq_20320947]

如何同时选中第一列和第二列所有填充色为黑色的单元格

[qq_20320947]

引用 1 楼 >_<s的回复:

Sub Test() Dim cel As Range, aa As Range For Each cel In Range("A:B") If cel.Interior.ColorIndex = 1 Then If aa Is Nothing Then Set aa = cel Else Set aa = Union(aa, cel) End If Next If Not aa Is Nothing Then aa.Select End Sub

运行后一个单元格都没选中。而且代码运行后很卡。 问题补充下，如A1至B10中每个单元格都有数字值，几个单元格为黑色，几个为黄色，目前想用代码实现，选中填充色为黑色的单元格。你的代码实现不了

[>_<s]

[quote=引用 2 楼 qq_20320947 的回复:] 有具体的区域限制把RANGE里的范围改了就不卡了，如下： Sub Test() Dim cel As Range, aa As Range For Each cel In Range("A1:B10") If cel.Interior.ColorIndex = 1 Then If aa Is Nothing Then Set aa = cel Else Set aa = Union(aa, cel) End If Next If Not aa Is Nothing Then aa.Select End Sub 是能选择中的，除非你单元格的填充色不是纯黑色要选哪个区改ColorIndex 对应颜色的数字就行，颜色对照表和运行结果可以看图片

[>_<s]

楼上倒数第一张是运行前，倒数第二张是运行后，仔细看是有选中单元格的

[qq_20320947]

不好意思，我运行代码后，还是实现不了。仔细看了才发现，我是先用条件格式获取单元格的颜色为黑色，A1:B10 之间的单元格数值根据条件格式已经设置好了单元格的填充色为黑色，现在主要是要选中条件格式设置后的黑色。运行您的代码后发现单元格通过条件格式设置后的黑色没法选中，如果是用自己手动填充的单元格黑色的，用了您的代码确实能实现。 这个问题困扰很久了，还麻烦您帮忙处理下，谢谢！补充的问题 应该改为 条件格式设置后的单元格为黑色 用VBA代码如何实现选中。

[>_<s]

Sub Test() Dim cel As Range, aa As Range For Each cel In Range("A:B") If cel.Interior.ColorIndex = 1 Then If aa Is Nothing Then Set aa = cel Else Set aa = Union(aa, cel) End If Next If Not aa Is Nothing Then aa.Select End Sub

[milaoshu1020]

试试看,看看颜色对不对:

Sub test()
    Dim objRange As Range
    For Each objRange In Sheet1.Range("A1:B10")
        Debug.Print objRange.Interior.Color
    Next
End Sub

[jieru_liu]

引用 5 楼 qq_20320947 的回复：

不好意思，我运行代码后，还是实现不了。仔细看了才发现，我是先用条件格式获取单元格的颜色为黑色，A1:B10 之间的单元格数值根据条件格式已经设置好了单元格的填充色为黑色，现在主要是要选中条件格式设置后的黑色。运行您的代码后发现单元格通过条件格式设置后的黑色没法选中，如果是用自己手动填充的单元格黑色的，用了您的代码确实能实现。 这个问题困扰很久了，还麻烦您帮忙处理下，谢谢！补充的问题 应该改为 条件格式设置后的单元格为黑色 用VBA代码如何实现选中。

方上传附件吗

[qq_20320947]

引用 7 楼 milaoshu1020的回复:

试试看,看看颜色对不对:

Sub test()
    Dim objRange As Range
    For Each objRange In Sheet1.Range("A1:B10")
        Debug.Print objRange.Interior.Color
    Next
End Sub

你这个代码？？？怎么会对呢？

[milaoshu1020]

你可以通过这个代码查看自动生成的颜色和你自己填充的颜色是否一致;

[米老鼠yeah]

首先，建议楼主把问题描述完整：A:B列用条件格式根据 数据 设置了不同的颜色，需要代码实现 选中A:B列中 所有相同颜色的单元格

[脆皮大雪糕]

引用 8 楼 qq_20320947 的回复:

[quote=引用 7 楼 milaoshu1020的回复:]试试看,看看颜色对不对:

Sub test()
    Dim objRange As Range
    For Each objRange In Sheet1.Range("A1:B10")
        Debug.Print objRange.Interior.Color
    Next
End Sub

你这个代码？？？怎么会对呢？[/quote] 这是让你检查所有格子的颜色是不是都是一样的。 比如 rgb(0,0,0）是黑色， rgb(5,5,5) 看上去也是挺黑的，但程序就不认为这是同一种颜色

[米老鼠yeah]

引用 11 楼 脆皮大雪糕 的回复:

[quote=引用 8 楼 qq_20320947 的回复:] [quote=引用 7 楼 milaoshu1020的回复:]试试看,看看颜色对不对:

Sub test()
    Dim objRange As Range
    For Each objRange In Sheet1.Range("A1:B10")
        Debug.Print objRange.Interior.Color
    Next
End Sub

你这个代码？？？怎么会对呢？[/quote] 这是让你检查所有格子的颜色是不是都是一样的。 比如 rgb(0,0,0）是黑色， rgb(5,5,5) 看上去也是挺黑的，但程序就不认为这是同一种颜色[/quote] 楼主说了是用条件格式标记的颜色，这个用代码读不出来

[qq_20320947]

引用 9 楼 milaoshu1020的回复:

你可以通过这个代码查看自动生成的颜色和你自己填充的颜色是否一致;

这个颜色没错。就是黑色。感谢大家的帮助，目前还是没有研究出来，就是用条件格式设置好的单元格颜色怎么选中，这个问题好难！

[qq_20320947]

引用 12 楼 米老鼠yeah的回复:

[quote=引用 11 楼 脆皮大雪糕 的回复:] [quote=引用 8 楼 qq_20320947 的回复:] [quote=引用 7 楼 milaoshu1020的回复:]试试看,看看颜色对不对:

Sub test()
    Dim objRange As Range
    For Each objRange In Sheet1.Range("A1:B10")
        Debug.Print objRange.Interior.Color
    Next
End Sub

你这个代码？？？怎么会对呢？[/quote] 这是让你检查所有格子的颜色是不是都是一样的。 比如 rgb(0,0,0）是黑色， rgb(5,5,5) 看上去也是挺黑的，但程序就不认为这是同一种颜色[/quote] 楼主说了是用条件格式标记的颜色，这个用代码读不出来[/quote] 谢谢您补充好我的问题，其实换句话中就是选中用条件格式设置好的单元格，例如黑色，这样怎么选中呢？ 如果手动填充的黑色用二三楼朋友的回复代码是可以执行的。但实际上还是没处理好我想要的结果。

[>_<s]

[quote=引用 14 楼 qq_20320947 的回复:] 如果是条件格式的话你没必要纠结于颜色啊，你不是设置有条件么，你把我二三楼代码里IF里的条件换成你条件格式的条件就可以了。