用VBA实现1到56索引值对应颜色表示出来

最新推荐文章于 2024-07-31 12:13:43 发布

ainideren52088

最新推荐文章于 2024-07-31 12:13:43 发布

阅读量1.9k

点赞数 1

分类专栏： VBA

本文链接：https://blog.csdn.net/ainideren52088/article/details/71077624

版权

这段VBA代码演示了如何创建一个新工作表，将1到56的索引值对应不同的颜色显示在单元格中。通过For循环，将颜色索引值填入A列，同时将相应的颜色设置到B列对应的单元格内，从而直观地展示颜色和索引的关系。

摘要由CSDN通过智能技术生成

Sub 作业题方法一()
'
' 作业题方法一 Macro
'
'

Dim iCol As Integer, iColor As Integer '定义变量

Columns(2).Interior.ColorIndex = 2 '将第2列的颜色设置为白色

iColor = 1 '设置颜色索引值的初始值
For iCol = 2 To 57
If Cells(iCol, 1) >= 0 Then '如果当前单元格的值>=0
Cells(iCol, 2).Interior.ColorIndex = iColor '将当前单元格的颜色设置为iColor对应的值
iColor = iColor + 1 '将颜色索引值递加1
End If '结束if判断
Next ’继续循环

End Sub

------------------------------------------------------------------------------------------------------------------------------------

Sub 作业题方法二()
'
' 作业题方法二 Macro
'
Dim i% '定义变量
Sheets.Add After:=Sheets(Sheets.Count) '新增加一个工作表，放在所以工作表最后
Range("A1") = "颜色索引值"

Range("B1") = "颜色"
For i = 2 To 57
Cells(i, 1) = i - 1 '添加颜色索引值
Cells(i, 2).Interior.ColorIndex = i - 1 '设置单元格填充色
Next
ActiveSheet.Delete
End Sub