excel中VBA的这段代码，要添加什么能让字体不加粗，这是别人给我写的
myendrow=Cells(6500,1).End(xlUp).RowRows("4:"&myendrow).SelectWithSelection.Font.Name...
myendrow = Cells(6500, 1).End(xlUp).Row
Rows("4:" & myendrow).Select
With Selection.Font
.Name = "宋体"
.Size = 11
' .Strikethrough = False
' .Superscript = False
' .Subscript = False
' .OutlineFont = False
' .Shadow = False
' .Underline = xlUnderlineStyleNone
' .ColorIndex = xlAutomatic
' .TintAndShade = 0
' .ThemeFont = xlThemeFontNone 展开
Rows("4:" & myendrow).Select
With Selection.Font
.Name = "宋体"
.Size = 11
' .Strikethrough = False
' .Superscript = False
' .Subscript = False
' .OutlineFont = False
' .Shadow = False
' .Underline = xlUnderlineStyleNone
' .ColorIndex = xlAutomatic
' .TintAndShade = 0
' .ThemeFont = xlThemeFontNone 展开
1个回答
展开全部
With Selection.Font
.Name = "宋体"
.Size = 11
.Bold = False
' .Strikethrough = False
' .Superscript = False
' .Subscript = False
' .OutlineFont = False
' .Shadow = False
' .Underline = xlUnderlineStyleNone
' .ColorIndex = xlAutomatic
' .TintAndShade = 0
' .ThemeFont = xlThemeFontNone
End With
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
