「エクセル スペースにだけ下線を引きたい」
という検索が行われていました。
Excelでスペース・空白にだけ下線を引く方法を探している方による検索です。
一つのセルにスペースと何らかの文字列が入力されているときに、スペースにだけ下線を引くには、スペースのみを選択して、下線を引く操作を繰り返す必要があります。
それをもっと簡単に行う方法を探している方による検索です。
空白にだけ下線を引くサンプルマクロ
VBA（Visual Basic for Applications）で、そんなマクロを作成してみました。
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
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マクロ
