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

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

選択範囲の文字を全角にするマクロです。セルの値が数字の場合は半角から全角に変換しても、EXCELが数値と判断して半角に戻してしまうため、頭に’（シングルクォート）を付けて強制的に文字列にしています。

＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊

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

    For Each myRange In Selection
        If IsNumeric(myRange.Value) Then    'セルの値が数字であれば強制的に文字列にする
            myRange.Value = "'" & StrConv(myRange.Value, vbWide)
        Else
            myRange.Value = StrConv(myRange.Value, vbWide)
        End If
    Next myRange
   
End Sub

＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊

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