Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

上付き文字・下付き文字（Superscript,Subscript）

2015/07/29

上付き文字（Superscript プロパティ）

Superscript プロパティに、True を設定すると対象となるフォントが上付き文字になります。値の取得および設定が可能です。

【書式】

＜取得＞
object.Superscript

＜設定＞
object.Superscript = boolean

引数・戻り値

object ・・・対象となる Font オブジェクトを指定します。
boolean ・・・ブール型（Boolean）の値を使用します。True を設定すると対象のフォントが上付き文字になります。

下付き文字（Subscript プロパティ）

Subscript プロパティに、True を設定すると対象となるフォントが下付き文字になります。値の取得および設定が可能です。

【書式】

＜取得＞
object.Subscript

＜設定＞
object.Subscript = boolean

引数・戻り値

object ・・・対象となる Font オブジェクトを指定します。
boolean ・・・ブール型（Boolean）の値を使用します。True を設定すると対象のフォントが下付き文字になります。

上付き文字・下付き文字（Superscript,Subscript）使用例

サンプルVBAソース

　
Sub Sample_Font05()


    Range("B3").Value = "CO2"
    Range("B3").Characters(3, 1).Font.Subscript = True
    
    Range("B5").Value = "H2O"
    Range("B5").Characters(2, 1).Font.Subscript = True
    
    Range("B7").Value = "255m2"
    Range("B7").Characters(5, 1).Font.Superscript = True


End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

　

Sub Sample_Font05()

Range("B3").Value = "CO2"

Range("B3").Characters(3, 1).Font.Subscript = True

Range("B5").Value = "H2O"

Range("B5").Characters(2, 1).Font.Subscript = True

Range("B7").Value = "255m2"

Range("B7").Characters(5, 1).Font.Superscript = True

End Sub

　

実行結果

- VBA基本 Font オブジェクト, Subscript プロパティ, Superscript プロパティ, VBA基本, エクセルVBA, 上付き文字, 下付き文字

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: エラー（CVErr 関数・IsError 関数・Error 関数）

CVErr 関数（エラー番号をエラー値に変換する）の使い方【書式】 retur …

: 日付時刻：日付から曜日を取得（ Weekday 関数、WeekdayName 関数）

Weekday 関数（日付から曜日を表す数値を返す）の使い方【書式】 week …

: 文字列：文字列変数の値を右詰めまたは左詰めにする（RSet ステートメント・LSet ステートメント）

RSet ステートメント・LSet ステートメント【書式】＜ RSet ステ …

: 指定した数値に対応する選択肢の値・数式を返す（Choose 関数）

Choose 関数の使い方 Choose 関数は、指定されたインデックス値（１ …

: データ型を調べてそのデータ型を示す文字列を返す（TypeName 関数）

TypeName 関数の使い方 TypeName 関数は、引数に、データ型を調 …

: 取り消し線を設定する（Strikethrough プロパティ)

取り消し線を設定する（Strikethrough プロパティ) Striketh …

: 変数が数値型かどうかをチェックする（ IsNumeric 関数）

IsNumeric 関数の使い方【書式】 result = IsNumeric …

: 日付時刻：文字列から日付・時刻データを取得（ DateValue 関数、TimeValue 関数）

DateValue 関数（文字列から日付データを取得）【書式】 date_va …

: VBA で正規表現を使う（RegExp オブジェクト）

RegExp オブジェクト VBA で正規表現を使うには、VBScript のR …

: Math 関数（ Abs,Atn,Cos,Exp,Log,Rnd,Sgn,Sin,Sqr,Tan ）

Abs 関数【書式】 value = Abs ( number ) 【引数・戻 …

PREV: 取り消し線を設定する（Strikethrough プロパティ)
NEXT: 文字に下線を設定する（Underline プロパティ）