如何根据颜色筛选已完成商品的清单列表？

作者：绿色风分类：时间：2022-08-17 浏览：134

楼主 Zaezhong	Q："齐色信息"工作表是一张已经完成的商品清单列表(不重复)，其中部分添加有特殊的单元格背景颜色，那么如何按照颜色筛选需要的商品清单数据到汇总表？ A： Sub Zae() Dim d, X#, cell As Range On Error GoTo 1 Set d = CreateObject("scripting.dictionary") '弹出对话框用于用户选择单元格，讲记录该单元格的背景颜色用于后面的筛选 X = Application.InputBox("请选择一个单元格，将筛选该单元格相同背景色的单元格", , , , , , , 8)(1).Interior.Color For Each cell In Sheets("齐色信息").UsedRange '在数据区域开始循环 If cell.Interior.Color = X Then '如果单元格的背景色与记录的颜色相同 d.Add cell, "" '该单元格添加入字典 End If Next If d.Count > 0 Then '如果存在与筛选颜色背景色的单元格 With Sheets("汇总") .Rows("2:" & Rows.Count).Clear '清空原来的数据 With .[A2].Resize(d.Count) '重置单元格区域的大小 .Value = Application.Transpose(d.keys) '赋值到单元格区域 .Interior.Color = X '设置单元格背景颜色 End With End With End If Set d = Nothing '清空对象 1: End Sub 颜色筛选.zip
2楼千年一梦遥	学习了,谢谢分享!
3楼老糊涂	学习了,谢谢分享!
4楼白开水02	过来学习一下
5楼 yytax2010	学习了,谢谢分享!

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表