「エクセル スペースにだけ下線を引きたい」
という検索が行われていました。
Excelでスペース・空白にだけ下線を引く方法を探している方による検索です。
一つのセルにスペースと何らかの文字列が入力されているときに、スペースにだけ下線を引くには、スペースのみを選択して、下線を引く操作を繰り返す必要があります。
それをもっと簡単に行う方法を探している方による検索です。
空白にだけ下線を引くサンプルマクロ
VBA（Visual Basic for Applications）で、そんなマクロを作成してみました。
Sub スペースにだけ下線を引く()
Dim rng As Range
Dim i As Long
For Each rng In Selection.Cells
With rng
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 » ExcelVBA Rangeオブジェクト » Charactersオブジェクト » 空白・スペースにだけ下線を引くExcelマクロ
TrackBack:1
- TrackBack URL
- マクロで文字列の空白・スペースを削除する－Replace関数 from インストラクターのネタ帳
- セル内の文字列から空白(半角スペース・全角スペース)を削除するExcel(エクセル)マクロをご紹介しています。
