Excel VBA講座 セルの操作：フォントとフォント色の変更

プログラムを入力する

Option Explicit

'フォント大
Private Sub CommandButton1_Click()
    With ActiveCell.Characters(2, 3).Font
        .Size = 20
        .Name = "MS P明朝"
        .Italic = True
        .Underline = False
        .ColorIndex = 3
    End With
End Sub

'フォント小
Private Sub CommandButton2_Click()
    With ActiveCell.Characters(2, 3).Font
        .Size = 9
        .Name = "MS Pゴシック"
        .Italic = False
        .Underline = True
        .ColorIndex = 5
    End With
End Sub

プログラム説明

文字列の一部のフォントを変更するには、Charactersプロパティを使用します。
構文：
Characters（開始位置　,　文字数）

■フォント大ボタンをクリックすると、2文字目から3文字を下のように変更します。
　・文字サイズを20
　・フォントをMS P明朝
　・斜体
　・フォント色を赤

■フォント小ボタンをクリックすると、2文字目から3文字を下のように変更します。
　・文字サイズを9
　・フォントをMS Pゴシック
　・下線
　・フォント色を青

実行結果

■変更前


■フォント大に変更


■フォント小に変更