VBAの勉強を始めてみた

色々試しています。

選択範囲の文字を半角にする

For Each Nextでいろいろ作ってみた その4

選択範囲の文字を半角にするマクロです。

 

***************************************

Sub 選択範囲の文字を半角にする()
   
    Dim myRange As Range

    For Each myRange In Selection
        myRange.Value = StrConv(myRange.Value, vbNarrow)
    Next myRange
   
End Sub

***************************************

 ※SubからEnd Subまでをコピペしてマクロを使用できます。使用の際は自己責任でお願いいたします。