用VBA实现1到56索引值对应颜色表示出来
来源:互联网 发布:拿破仑 狮子 知乎 编辑:程序博客网 时间:2024/06/05 00:41
Sub 作业题方法一()
'
' 作业题方法一 Macro
'
'
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 ’继续循环
'
' 作业题方法一 Macro
'
'
Dim iCol As Integer, iColor As Integer '定义变量
Columns(2).Interior.ColorIndex = 2 '将第2列的颜色设置为白色
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
1 0
- 用VBA实现1到56索引值对应颜色表示出来
- css3中颜色值用HSLA表示
- 颜色值的表示
- android 颜色对应值
- 颜色值对应表
- android对应颜色值
- 颜色透明度对应值
- UML表示以及对应的实现代码
- ARGB,RGB颜色值表示
- RGB颜色及对应值
- android 颜色及其对应值
- YUV值对应的颜色
- 常用颜色对应RGB值
- VBA对象表示方法
- 常用RGB颜色与数值对应表(取值0到255)
- CAD颜色索引表到RGB颜色的转换
- DirectX 3D_基础之顶点缓存 索引缓存 访问缓存 颜色表示 顶点颜色 着色
- VBA 应用实例索引
- Java定时调度 Timer类和TimerTask类
- 了解盒模型
- HttpClient警告“Going to buffer response body of large or unknown size. Using getResponseBodyAsStream i
- JANA-11.1-Set、HashSet与TreeSet;Map、HashMap与TreeMap讲解
- 回文子串 manarcher算法
- 用VBA实现1到56索引值对应颜色表示出来
- SOCKET API和TCP STATE的对应关系__三次握手(listen,accept,connect)__四次挥手close及TCP延迟确认(调用一次setsockopt函数,设置TCP_QUI
- [LeetCode]437. Path Sum III
- Handler与多线程
- 自定义歌词视图
- NEERC 2014, Eastern subregional contest(汇总)
- 机器学习中的特征空间
- jsp页面中js和css引用相关
- redis安装与部署