Home » エクセルマクロ・Excel VBAの使い方 » Charactersオブジェクト » セルの一文字目だけ大きくするExcelマクロ

セルの一文字目だけ大きくするExcelマクロ

対象:Excel2003, Excel2007, Excel2010

「エクセル 一文字だけ大きく」
「excel 一番目の文字だけ」
「エクセル vba 1文字目」
という検索がこのサイト・インストラクターのネタ帳で行われていました。

セルの一文字目だけを大きくするVBA(Visual Basic for Applications)マクロを探している方による検索です。

[スポンサードリンク]

以下のようなマクロはいかがでしょうか。

Sub 一文字目だけを大きくする()
 If TypeName(Selection) <> "Range" Then Exit Sub

 Dim rng As Range
 For Each rng In Selection
  With rng.Characters(1, 1).Font
   .Size = .Size + 1
  End With
 Next
End Sub

文字列の入力されているセルを選択した状態で上記のマクロを実行すると、選択されたセルの一文字目だけが1ポイント大きくなります。

まずセル範囲が選択されていない場合、このSubプロシージャを終了します。
 If TypeName(Selection) <> "Range" Then Exit Sub

セル範囲が選択されているときに、選択されているセル範囲に対してループを回して
 For Each rng In Selection

先頭の一文字目のFontオブジェクトのSizeプロパティに「1」を加算しています。
  With rng.Characters(1, 1).Font
   .Size = .Size + 1

[スポンサードリンク]

Home » エクセルマクロ・Excel VBAの使い方 » Charactersオブジェクト » セルの一文字目だけ大きくするExcelマクロ

Copyright © インストラクターのネタ帳 All Rights Reserved.

.