Home » エクセルマクロ・Excel VBAの使い方 » Charactersオブジェクト » 空白・スペースにだけ下線を引くExcelマクロ

空白・スペースにだけ下線を引くExcelマクロ

対象:Excel2003, Excel2007, Excel2010

「エクセル スペースにだけ下線を引きたい」
という検索が行われていました。

Excelでスペース・空白にだけ下線を引く方法を探している方による検索です。

一つのセルにスペースと何らかの文字列が入力されているときに、スペースにだけ下線を引くには、スペースのみを選択して、下線を引く操作を繰り返す必要があります。

それをもっと簡単に行う方法を探している方による検索です。

[スポンサードリンク]

空白にだけ下線を引くサンプルマクロ

VBA(Visual Basic for Applications)で、そんなマクロを作成してみました。

Sub スペースにだけ下線を引く()
 Dim rng As Range
 For Each rng In Selection.Cells
  With rng

   Dim i As Long
   For i = 1 To .Characters.Count
    With .Characters(i, 1)
     If .Text = " " Or .Text = " " Then
      .Font.Underline = xlUnderlineStyleSingle
      .Font.Color = RGB(255, 0, 0)
     End If
    End With
   Next i

  End With
 Next rng
End Sub

セルを選択しておいて上記のマクロを実行すると、半角スペース・全角スペースに、赤色の下線が設定されます。

サンプルマクロの解説

選択されているセルにFor Each~Nextループを回して、
 For Each rng In Selection.Cells
  With rng

セルに入力されている、一つ一つの文字列をFor~Nextループの中でチェックして、
  For i = 1 To .Characters.Count
   With .Characters(i, 1)

もし、半角スペースか全角スペースだったら、
   If .Text = " " Or .Text = " " Then

フォントの色を赤色にして、下線を引いています。
    .Font.Color = RGB(255, 0, 0)
    .Font.Underline = xlUnderlineStyleSingle

[スポンサードリンク]

Home » エクセルマクロ・Excel VBAの使い方 » Charactersオブジェクト » 空白・スペースにだけ下線を引くExcelマクロ

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

.