1
If Selection.Font.Bold = False Then
Selection.Font.Bold = True
Else
Selection.Font.Bold = False
End If

如果选择了范围,则此方法有效。
如果单元格处于编辑模式,并且只选择了部分内容,如何创建相同的内容?

4

1 回答 1

3

这是您用来格式化部分单元格的方法,但您只能在编辑完成后执行此操作 - 正如 Tim Williams 所说。

With ActiveCell.Characters(Start:=3, Length:=2).Font
    .Name = "Calibri"
    .Size = 11
    .Strikethrough = False
    .Superscript = False
    .Subscript = False
    .OutlineFont = False
    .Shadow = False
    .Underline = xlUnderlineStyleNone
    .ThemeColor = xlThemeColorLight1
    .TintAndShade = 0
    .ThemeFont = xlThemeFontMinor
End With
于 2012-09-26T16:05:33.830 回答