Home » ExcelVBA Rangeオブジェクト » Charactersオブジェクト » セルの一文字目だけ大きくするExcelマクロ

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

対象:Excel2003, Excel2007, Excel2010

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

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

[スポンサードリンク]

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


Sub 一文字目だけを大きくする()

 Dim rng As Range

 If TypeName(Selection) <> "Range" Then Exit Sub

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

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 » ExcelVBA Rangeオブジェクト » Charactersオブジェクト » セルの一文字目だけ大きくするExcelマクロ

TrackBack:0

TrackBack URL

Home » ExcelVBA Rangeオブジェクト » Charactersオブジェクト » セルの一文字目だけ大きくするExcelマクロ

「Charactersオブジェクト」の記事一覧

検索


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

.