![如何快速学习：[1]Swift编程语言](https://exp-picture.cdn.bcebos.com/fb738d9c2cf7dfb2f57a949fd01b1edef5dc13fa.jpg)
如何快速学习：[1]Swift编程语言,Swift，苹果于2014年WWDC（苹果开发者大会）发布的新开发语言，可与Ojective-C*共同运行于MacOS和iOS平台，用于搭建基于苹果平台的应用程......
2023-03-17 349 编程语言
如何使用VBA代码判断单元格是什么颜色
来源：互联网
2023-03-17 00:16:05 244
今天看到个帖子，有朋友想对不同底色的单元格进行数据计算，今天分享一个判断单元格底色的方法
工具/原料
- excel2010
方法/步骤
打开一个我们设置好单元格颜色的文件
然后我们按AIL F11进入VBA编辑页面
选择模块，如图
单击鼠标右键，选择插入选项在选择模块，如图
得到如图效果
在右侧将如下代码写入：
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
按F5键是的代码运行，再回表格页面得到如图效果
说明：
在使用代码前，一定要启用宏才行，
以上方法由办公区教程网编辑摘抄自百度经验可供大家参考！
相关文章
- 详细阅读
-
web图表开发工具FineReport：[11]连续分组详细阅读
![web图表开发工具FineReport：[11]连续分组](https://exp-picture.cdn.bcebos.com/6002c9d4483104eb360a59bb092b74ee1d324e01.jpg)
web图表开发工具FineReport：[11]连续分组,数据库表数据是按照时间先后录入的，查询的时候希望按照时间先后，某个字段连续相同的话就合并起来显示，这样的报表可以通过相邻连续分组来实现。......
2023-03-17 575 编程语言
- 详细阅读
