Home » ExcelVBA Rangeオブジェクト » Charactersオブジェクト » 空白・スペースにだけ下線を引くExcelマクロ

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

対象:Excel2003, Excel2007, Excel2010

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

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(エクセル)マクロをご紹介しています。

Home » ExcelVBA Rangeオブジェクト » Charactersオブジェクト » 空白・スペースにだけ下線を引くExcelマクロ

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

検索


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

.