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学习笔记之单元格格式实例的主要内容,如果未能解决你的问题,请参考以下文章