文字を上付きに設定する【Superscriptプロパティ】【ExcelVBA】

構文

Range.Superscript= expression

Font.Superscriptプロパティのサンプルコード

Public Sub sample()

    '■セルA1の文字を上付きに設定/取得する
    Range("A1").Font.Superscript = True
    Debug.Print Range("A1").Font.Superscript 'True

    '■セルA1を含む表に対して文字を上付きに設定する
    Range("A1").CurrentRegion.Font.Superscript = True
    
    '■シート全体の文字を上付きに設定する
    Cells.Font.Superscript = True
    
    '■セルB2に対して、上付きが設定されていたら解除/解除されていたら上付きに設定する。
    Range("B2").Font.Superscript = Not Range("B2").Font.Superscript

End Sub

注意点

• 上付きが設定なら解除、解除されていたら設定は下記の記事を参考にしてください。
  Boolean型のフラグを反転させるコードを1行で書く(True→False/False→True)【ExcelVBA】
• 文字を上付き表示であり、セルの文字表示位置を変更(水平位置/垂直位置)ではありません。
  HorizontalAlignmentプロパティ
  VerticalAlignmentプロパティ

関連記事

• セルの文字のフォントを設定/取得する【Nameプロパティ】【ExcelVBA】
• セルのフォントサイズを設定/取得する【Sizeプロパティ】【ExcelVBA】
• セルの文字を太字に設定する【Boldプロパティ】【ExcelVBA】
• 文字に下線を設定する【Underlineプロパティ】【ExcelVBA】
• 文字に取り消し線を設定する【Strikethroughプロパティ】【ExcelVBA】
• 文字を下付きに設定する【Subscriptプロパティ】【ExcelVBA】