EXCEL VBA Fontの使い方（フォント サイズ 太字 斜体 下線）

EXCEL VBA Fontの使い方（フォント サイズ 太字 斜体 下線）

Fontの使い方（フォント サイズ 太字 斜体 下線）

Sub Font_Sample()

    Range("A1") = "設定前"
    Range("B1") = "設定後"

    
    Range("A2") = "フォントサイズ"
    Range("B2") = "フォントサイズ"
    Range("B2").font.Size = 14 'フォントサイズ１４に設定
    
    
    Range("A3") = "フォントを太字"
    Range("B3") = "フォントを太字"
    Range("B3").font.Bold = True 'フォントの文字を太字に設定
    
    
    Range("A4") = "フォントを斜体"
    Range("B4") = "フォントを斜体"
    Range("B4").font.Italic = True 'フォントの文字と斜体に設定
    
    
    Range("A5") = "フォントに下線"
    Range("B5") = "フォントに下線"
    Range("B5").font.Underline = True 'フォントの文字に下線を設定

    Range("A6") = "フォントの種類変更"
    Range("B6") = "フォントの種類変更"
    Range("B6").font.Name = "HGP創英角ﾎﾟｯﾌﾟ体" 'フォントの文字に下線を設定
    

End Sub

Fontの使い方 With ～ With Endでまとめて設定（フォント サイズ 太字 斜体 下線）

Sub Font_Sample2()

  Range("A1") = "設定前"
  Range("B1") = "設定後"

  With Range("B1:B8")　　’B１～B8までの範囲指定します。
    
    .font.Size = 14 'フォントサイズ１４に設定
    .font.Bold = True 'フォントの文字を太字に設定
    .font.Italic = True 'フォントの文字と斜体に設定
    .font.Underline = True 'フォントの文字に下線を設定
    .font.Name = "HGP創英角ﾎﾟｯﾌﾟ体" 'フォントの文字に下線を設定
  
  End With　
  
End Sub

Fontの使い方（下線の種類）

●Fontで取り扱いできる下線は、「 Range(“A1”).Font.Underline = True 」を設定した場合は、１本の下線が引かれます。他にも下線の種類があるので下表にまとめました。

Sub Font_Underline()

    Range("A1") = "設定前"
    Range("B1") = "設定後"
  
  
    Range("A2:B6") = "ここが重要です！"  'A2~B5の範囲に文字を表示させます。
    Range("A2:A6").font.Underline = True 'A列に罫線を引きます。
    
    Range("B2").font.Underline = xlUnderlineStyleSingle 'B2に下線を引きます（A2と同じ）
    Range("B3").font.Underline = xlUnderlineStyleDouble 'B3に２重下線を引きます
    Range("B4").font.Underline = xlUnderlineStyleSingleAccounting 'B4に下線（会計)を引きます
    Range("B5").font.Underline = xlUnderlineStyleDoubleAccounting 'B5に二重下線（会計)を引きます
    Range("B6").font.Underline = xlUnderlineStyleNone 'B6の下線を消します
    
    
End Sub

Fontの使い方 登録されているフォント名を表示する（フォント 一覧）

Sub font_Name()
    
    Dim I As Long
    Dim Moji As String
    Dim FontObj As Object

    Set FontObj = Application.CommandBars("Formatting").Controls.Item(1) 'フォント名をオブジェトして設定します。
    
    Moji = "ABCDEFG"
    
    Cells(1, "A") = "フォント名"
    Cells(1, "B") = "フォント見本"
    
        For I = 1 To FontObj.ListCount                      '登録されている最大数まで繰り返す
            Cells(I + 1, "A") = FontObj.List(I)             'フォント名を表示します。
            Cells(I + 1, "B") = Moji                        '文字を転記します。
            Cells(I + 1, "B").font.Name = FontObj.List(I)   '文字を指定したフォントに変換します。
        
        Next I
    
End Sub

Fontの使い方 フォント文字の大きさを指定する。（フォント 文字大きさ一覧）

（注意）下記のプログラムを実行する前に、A列（A2～A18）にフォントサイズを記入してください。

Sub Font_Size()

    Dim I As Long
    Dim Moji As String
        
    Cells(1, "A") = "フォントサイズ"
    Cells(1, "B") = "フォント見本"
    
        For I = 2 To 18               '文字サイズが入力されている行２~１８までループ
            Cells(I, "B") = "ABCDEFG"  'B列に指定した文字を入力
            Cells(I, "B").font.Size = Cells(I, "A").Value
       
        Next I
    
End Sub