Question

我试图使用以下内容使单元格的最后一位变小和上标（对于脚注）。我正在尝试测试单元格中的倒数第三个字符是否为开括号（因此脚注是一位数）并相应地格式化，但以下似乎不起作用：

Sub Footnoter()
'
' Footnote Macro
' Keyboard Shortcut = Ctrl + Shift + Q
'
    If (Len(ActiveCell) - 2) = "(" Then
    With ActiveCell.Characters(Start:=Len(ActiveCell) - 2, Length:=3).Font
        .Size = (ActiveCell.Characters(Start:=Len(ActiveCell) - 3, Length:=1).Font.Size - 2)
        .Superscript = True
    End With
    Else
    With ActiveCell.Characters(Start:=Len(ActiveCell) - 3, Length:=4).Font
    .Size = (ActiveCell.Characters(Start:=Len(ActiveCell) - 3, Length:=1).Font.Size - 2)
    .Superscript = True
    End With
    End If

End Sub

Answer 1

此条件中您想要的是

If Mid(ActiveCell, Len(ActiveCell) - 2, 1) = "(" Then

有条件地格式化字符串的一部分

1 个答案: