作者：绿色风
分类：
时间：2022-08-18
浏览：137
楼主
zzmxy |
Q：用VBA如何全选红色单元格？
A：我们可以对UsedRange使用循环，判断各个单元格的Interior.Color是否为vbRed，但这样循环次数太多，耗费资源。
下面，我们用Find（查找）的方法，来实现快速全选红色单元格。具体代码如下：- Sub FindColor() Dim StartAdd As String, Rng As Range, Arr As Range
- Application.FindFormat.Clear
- Application.FindFormat.Interior.Color = vbRed '具体查找格式（颜色值）
- Set Rng = Sheet1.UsedRange.Find("", Searchformat:=True)
- If Rng Is Nothing Then Exit Sub
- Set Arr = Rng
- StartAdd = Rng.Address
- Do
- Set Arr = Union(Arr, Rng) '使用Union()将每次查找到的单元格组合在一起
- Set Rng = Sheet1.UsedRange.Find("", After:=Rng, Searchformat:=True)
- Loop While StartAdd <> Rng.Address
- Arr.Select
- End Sub
 FindColor.rar
|
2楼
zzmxy |
改进一点点，就是增加交互，让操作者可以自己选取具有相同背景颜色的单元格……
主要是增加了一句：
- Set orCell = Application.InputBox("请选取有相同背景颜色的单元格！", "提示", , , , , , 8)
全部代码如下：
- Sub FindColor()
- Dim StartAdd As String, Rng As Range, Arr As Range
- Dim orCell As Range
- Set orCell = Application.InputBox("请选取有相同背景颜色的单元格！", "提示", , , , , , 8)
- Application.FindFormat.Clear
- Application.FindFormat.Interior.Color = orCell.Interior.Color
- Set Rng = Sheet1.UsedRange.Find("", Searchformat:=True)
- If Rng Is Nothing Then Exit Sub
- Set Arr = Rng
- StartAdd = Rng.Address
- Do
- Set Arr = Union(Arr, Rng)
- Set Rng = Sheet1.UsedRange.Find("", After:=Rng, Searchformat:=True)
- Loop While StartAdd <> Rng.Address
- Arr.Select
- End Sub
|
3楼
心痛神伤 |
这个，收藏 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一