excel vba字体格式
答案:1 悬赏:0
解决时间 2021-01-07 21:35
- 提问者网友：记得曾经
- 2021-01-06 20:58
excel vba字体格式
最佳答案
- 二级知识专家网友：夜余生
- 2021-01-06 21:05
Sub s()
With [a6:u2000]
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
With .Font
.Name = "宋体"
.Size = 11
.Bold = True
.ColorIndex = 8
End With
.FormatConditions.Delete
.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""√"""
.FormatConditions(.FormatConditions.Count).Font.ColorIndex = 5
.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""X"""
.FormatConditions(.FormatConditions.Count).Font.ColorIndex = 3
End With
End Sub来自：求助得到的回答
With [a6:u2000]
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
With .Font
.Name = "宋体"
.Size = 11
.Bold = True
.ColorIndex = 8
End With
.FormatConditions.Delete
.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""√"""
.FormatConditions(.FormatConditions.Count).Font.ColorIndex = 5
.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""X"""
.FormatConditions(.FormatConditions.Count).Font.ColorIndex = 3
End With
End Sub来自：求助得到的回答
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯