セルについて

フォントのいろいろなプロパティ

 選択しているオブジェクトの文字に対して、いろいろなプロパティがあり、バラエティに富んだ書式設定ができます。

Fontオブジェクトのプロパティ

Sub フォント()

With Range(“B2:B5”).Font

  .Name = “MS UI Gothic” ‘①

  .FontStyle = “Bold Italic” ‘②

  .Size = 14 ‘③

  .Strikethrough = False ‘④

  .Underline = True ‘⑤

  .ColorIndex = 5 ‘⑥

End With

End Sub

① フォントの種類を「MS UI Gothic」に設定

② 太字に設定

③ フォントサイズを14に設定

④抹消線を付けない

⑤アンダーラインを引く

⑥色(パレット形式)をブルーに設定

主だった Fontプロパティは次のようなものがあります。

Fontオブジェクトのプロパティ(抜粋)

プロパティ意  味用  途
 Name フォント名 使用するフォント名
 FontStyle 太字・斜体の設定 太字・斜体にする
 Size 文字の大きさ 数値(ポイント)
 Superscript 上付き文字 True(上付き) / False(しない)
 Subscript 下付き文字 True(下付き) / False(しない)
 Strikethrough 抹消線 True(抹消線) / False(線無し)
 Shadow 影 True(影有り) / False(線無し)
 underline 下線 True(下線有り) / False(下線無し)
 Color 文字色 RGB形式で文字色を設定
 ColorIndex 文字色 パレット形式で文字色を設定

Font Name の設定

 指定したセルの Fontオブジェクトのフォント名の設定は文字列(例:HGS明朝B)で指定します。

Fontオブジェクト = “フォント名”

Sub フォント名()

  Range(“B3:E3”).Font.Name = _

Range(“B7”).Font.Name

End Sub

セルB7のフォント名を取得して、これをセルB3:E3に設定します。

 フォントには「日本語対応フォント」と「欧文対応フォント」があります。

任意のセルに対し

 ① Font.Name = 日本語対応フォント

 ② Font.Name = 欧文対応フォント

のように設定を行った場合は、日本語は①に指定したフォント、英数字は②に指定したフォント という設定になります。

Sub フォント2()

With Range(“B2:F7”).Font

  .Name = “メイリオ”

  .Name = “Arial”

End With

End Sub

Font Size の設定

 指定したセルの Fontオブジェクトのフォントサイズをポイント単位で取得・設定するには「Sizeプロパティ」を使います。

 Fontオブジェクト.Size = ポイント数

Sub フォントサイズ()

 Dim FF As Long

 FF = Range(“B3”).Font.Size ‘①

 Range(“C3”) = FF ‘②

 Range(“B7”).Font.Size = _

Range(“B3”).Font.Size ‘③

End Sub

① セルB3のフォントサイズを取得

② 取得したフォントサイズをセルC3に書き出す

③ セルB7のフォントサイズをセルB3のフォントサイズに合わせる

Fontスタイルの設定

 フォントスタイルで太字、斜体、下線の設定はそれぞれ Bold / Itakic / Underlineプロパティを使用します。

「True」で設定、「False」で解除となります。

Fontオブジェクト.Bold = True / False

Fontオブジェクト.Italic = True / False

Fontオブジェクト.Underline = True / False

Sub フォントStyle()

With Range(“B2:B3”).Font

 .Bold = True

 .Italic = True

 .Underline = True

End With

End Sub

表全体と使用済セル範囲  空白の行と列に囲まれた領域をアクティブ領域にするには「CurrentRegionプロパティ」を使用します。 データが増加したり...
セルの塗りつぶしと網掛け  セルの背景をいろいろな色で塗りつぶしたり、背景にいろいろな種類の網掛けをすることがります。  塗りつぶしはセルのInterio...