5,140
社区成员
发帖
与我相关
我的任务
分享
Sub Macro1()
'
' Macro1 Macro
'
'
Range("B3").Select '选中单元格b3
'设置被选中区域的格式...
With Selection.Font
.ThemeColor = xlThemeColorAccent6 '设置颜色..
.TintAndShade = 0.249977111117893
End With
End Sub
Sub Macro2()
'
' lqnoway 记录的宏 2009-8-2
'
'
'改变D4A单元格的字体颜色为红色
With Sheet1.Range("D4")
.Value = "This is a test to change font color"
.Font.ColorIndex = 3
End With
'将D5单元格中若干字符比如test的字体颜色变为蓝色
With Sheet1.Range("D5")
.Value = "This is a test to change part text font color"
.Characters(Start:=11, Length:=4).Font.ColorIndex = 5
End With
End Sub