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

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

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

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

推荐阅读

redis运行一段时间无法连接 redis频繁无响应

玻璃心动不动就掉眼泪怎么办？

湖北省地图湖北麻城地图

阳朔想玩十里画廊、银子岩、漓江和西街这几个地方，我是早上七点的火车到桂林，打算玩一天半第二天下午1

小孩子脚脱皮是什么原因脚脱皮是什么原因

郑州婚纱摄影店哪家最好

暖气锅炉显示e01 斯密锅炉显示E01

55

玩自由之战什么手机好用

小森生活氪金吗小森生活氪金吗解答

知母的功效与作用禁忌知母的功效与作用禁忌是什么

果汁什么时候喝比较好

天蝎座最难以抗拒的美食天蝎座食物

湖南股东大会、董事会要如何区分

redis缓存数据怎么更新 redis自动增加缓存

高笋怎么吃高笋的吃法全集

公司注册国外商标国外商标如何注册，个人如何注册商标

公关拍摄用途公关摄影具备时效性服务性

电脑如何安装xp系统如何在线装xp系统视频，安卓手机装win7系统

为什么手机的外壳会发烫，为什么手机的外壳会发烫呢