订阅如何使用VBA代码判断excel单元格颜色
来源：网络收集 点击： 时间：2024-02-24【导读】：
今天看到个帖子，有朋友想对不同底色的单元格进行数据计算，今天分享一个判断单元格底色的方法工具/原料moreexcel2010方法/步骤1/8分步阅读
2/8
3/8
4/8
5/8
6/8
7/8
8/8
打开一个我们设置好单元格颜色的文件
2/8然后我们按AIL+F11进入VBA编辑页面
3/8选择模块，如图
4/8单击鼠标右键，选择插入选项在选择模块，如图
5/8得到如图效果
6/8在右侧将如下代码写入：
Sub text()
Dim arr, i%, d, j
Dim brr()
Set d = CreateObject(scripting.dictionary)
arr = Sheet3.Range(A1).CurrentRegion
For i = 1 To UBound(arr)
j = Sheet3.Cells(i, 1).Interior.ColorIndex
d(j) = arr(i, 2)
Next
For i = 1 To 56
ReDim Preserve brr(i - 1)
j = Cells(i, 1).Interior.ColorIndex
brr(i - 1) = d(j)
Next
Range(B1).Resize(56, 1) = Application.Transpose(brr)
End Sub
7/8按F5键是的代码运行，再回表格页面得到如图效果
8/8说明：
在使用代码前，一定要启用宏才行，
EXCEL底纹颜色版权声明：
1、本文系转载，版权归原作者所有，旨在传递信息，不代表看本站的观点和立场。
2、本站仅提供信息发布平台，不承担相关法律责任。
3、若侵犯您的版权或隐私，请联系本站管理员删除。
4、文章链接：http://www.1haoku.cn/art_136850.html
上一篇：华为手表系统如何进行更新？
下一篇：用字母y画小鱼的方法
