フォント編-エクセルのＶＢＡ集

---

フォント編

セルにフォントの色を設定するには？

'A1のセルを青色に設定する例です。
Sub 青色に設定()
　　　　Range("A1").Font.ColorIndex = 5
End Sub

セルに太字を設定するには？

'A1のセルを太字に設定する例です。
Sub 太字に設定()
　　　　Range("A1").Font.Bold = True
End Sub

セルにフォントのサイズを設定するには？

'A1のセルのフォントのサイズを12にする例です。
Sub サイズ設定()
　　　　Range("A1").Font.Size = 12
End Sub

セルの文字列の2番目の文字のみ色を変更するには？

'A1のセルの二番目の文字だけを赤色に設定する例です。
Sub 二番目の文字だけを赤色に設定()
　　　　Range("A1").Characters(Start:=2, Length:=1).Font.ColorIndex = 3
End Sub

セルの文字列の特定の文字のみ色を変更するには？

'A1のセルの『A』という文字だけを赤色に設定する例です。
Sub 特定の文字だけを赤色に設定()
　　　　Dim I As Integer
　　　　With Range("A1")
　　　　　　　　For I = 1 To .Characters.Count
　　　　　　　　　　　　With .Characters(I, 1)
　　　　　　　　　　　　　　　　If .Text = "A" Then .Font.ColorIndex = 3
　　　　　　　　　　　　End With
　　　　　　　　Next I
　　　　End With
End Sub

ページトップ

---