如何使用VBA代码判断单元格是什么颜色

2025-03-15 04:03:28

1、打开一个我们设置好单元格颜色的文件

如何使用VBA代码判断单元格是什么颜色

2、然后我们按AIL+F11进入VBA编辑页面

如何使用VBA代码判断单元格是什么颜色

3、选择模块,如图

如何使用VBA代码判断单元格是什么颜色

4、单击鼠标右键,选择插入选项在选择模块,如图

如何使用VBA代码判断单元格是什么颜色

5、得到如图效果

如何使用VBA代码判断单元格是什么颜色

6、在右侧将如下代码写入:Sub text() Dim arr, i%, d, j Dim brr() Set d = CreateObject("s艘早祓胂cripting.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

如何使用VBA代码判断单元格是什么颜色

7、按F5键是的代码运行,再回表格页面得到如图效果

如何使用VBA代码判断单元格是什么颜色

8、说明: 在使用代码前,一定要启用宏才行,

声明:本网站引用、摘录或转载内容仅供网站访问者交流或参考,不代表本站立场,如存在版权或非法内容,请联系站长删除,联系邮箱:site.kefu@qq.com。
猜你喜欢