如何使用VBA代码判断单元格是什么颜色
1、打开一个我们设置好单元格颜色的文件
2、然后我们按AIL+F11进入VBA编辑页面
3、选择模块,如图
4、单击鼠标右键,选择插入选项在选择模块,如图
5、得到如图效果
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
7、按F5键是的代码运行,再回表格页面得到如图效果
8、说明: 在使用代码前,一定要启用宏才行,
声明:本网站引用、摘录或转载内容仅供网站访问者交流或参考,不代表本站立场,如存在版权或非法内容,请联系站长删除,联系邮箱:site.kefu@qq.com。
阅读量:52
阅读量:40
阅读量:28
阅读量:90
阅读量:27