用VBA实现1到56索引值对应颜色表示出来
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索引值对应颜色表示出来】
推荐阅读
- Docker应用:容器间通信与Mariadb数据库主从复制
- JS中的各种宽高度定义及其应用
- 由浅入深理解AOP
- 【译】20个更有效地使用谷歌搜索的技巧
- 涉毒患者(新诗)
- 参保人员因患病来不及到指定的医疗机构就医，能否报销医疗费用（）
- 关于QueryWrapper|关于QueryWrapper,实现MybatisPlus多表关联查询方式
- mybatisplus如何在xml的连表查询中使用queryWrapper
- MybatisPlus|MybatisPlus LambdaQueryWrapper使用int默认值的坑及解决
- MybatisPlus使用queryWrapper如何实现复杂查询