VBA学习笔记之单元格格式实例

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了VBA学习笔记之单元格格式实例相关的知识,希望对你有一定的参考价值。

 1 Sub 格式化工资条()
 2 Dim i%
 3 i = Cells(Rows.Count, 1).End(xlUp).Row
 4 For j = 1 To i
 5     If j Mod 2 Then
 6     If j Mod 2 =1 Then     与上一句等效,因为1相当于Ture这个逻辑值,0相当于False
 7     这一句是对奇数行进行操作
 8         With Cells(j, 1).EntireRow.Range("a1:g1").Font
 9         EntireRow  选取到整行
10             .Bold = True
11             .Size = 8
12             .ColorIndex = 56
13         End With
14     Else 对偶数行进行操作
15         With Cells(j, 1).EntireRow.Range("a1:g1").Interior
16         为什么偶数行(不是第一行)还是用A1:G1?因为相对区域引用(Range.Range)
17             .ColorIndex = 40
18         End With
19     End If
20 Next j
21 End Sub
22 
23 Sub 清除格式化()
24 Selection.ClearFormats
25 End Sub

效果图:

技术分享

 

以上是关于VBA学习笔记之单元格格式实例的主要内容,如果未能解决你的问题,请参考以下文章

VBA学习笔记之合并单元格

VBA学习笔记之单元格查询系统制作

VBA学习笔记之End属性&查找最后的单元格方法总结

用于替换单元格值并保持格式化的VBA脚本

VBA:单元格实例(格式化工资条),拾取的颜色求平均

VBA学习笔记之添加批注