如果我们要对A1单元格的字体进行设置,可以用以下程序代码:
Sub FontSet() Worksheets("sheet1").Range("A1").Font.Name = "宋体" Worksheets("sheet1").Range("A1").Font.Size = 12 Worksheets("sheet1").Range("A1").Font.Bold = True Worksheets("sheet1").Range("A1").Font.ColorIndex = 7 End Sub
上面有很多重复的字段,我们可以改用With语句进行编写:
Sub FontSet() With Worksheets("sheet1").Range("A1").Font .Name = "宋体" .Size = 12 .Bold = True .ColorIndex = 10 End With End Sub合理合用With语句,可以减少代码的输入量,节省时间,提高编程效率。
欢迎关注公众号:黑白鱼001
已有 0/18680 人参与