VBAの勉強を始めてみた

タイトルの通りVBAの勉強を始めました。効率化と暇つぶしを兼ねています。ブログの書き方なんて知りません分かりません。

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

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

選択範囲の文字を全角にするマクロです。セルの値が数字の場合は半角から全角に変換しても、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までをコピペしてマクロを使用できます。使用の際は自己責任でお願いいたします。