トップ > 汎用コード > 大文字・小文字・全角/半角の相互変換

大文字・小文字・全角/半角の相互変換

アルファベットを大文字・小文字・全角/半角の相互に変換し出力するマクロです。



アルファベットのデータに全角と半角が混在している・・・。
そんな折にデータの型を統一するために使用します。
セル範囲を選択し、該当マクロを実行すると、選択セル範囲の一つ右に、マクロ実行結果が表示されます。



コードの貼り付け場所

マクロ実行後に「元に戻す」機能は使用できません。事前の保存をお薦めします。

サンプルコード

Sub Sample_UpperCase() '大文字
    If Not TypeName(Selection) = "Range" Then Exit Sub
    If 1 < Selection.Columns.Count Then Exit Sub
    Dim r As Range
    For Each r In Selection
        r.Offset(, 1).Value = StrConv(r.Value, vbUpperCase)
    Next
End Sub

Sub Sample_LowerCase() '小文字 If Not TypeName(Selection) = "Range" Then Exit Sub If 1 < Selection.Columns.Count Then Exit Sub Dim r As Range For Each r In Selection r.Offset(, 1).Value = StrConv(r.Value, vbLowerCase) Next End Sub
Sub Sample_ProperCase() '先頭のみ大文字 If Not TypeName(Selection) = "Range" Then Exit Sub If 1 < Selection.Columns.Count Then Exit Sub Dim r As Range For Each r In Selection r.Offset(, 1).Value = StrConv(r.Value, vbProperCase) Next End Sub
Sub Sample_Wide() '全角 If Not TypeName(Selection) = "Range" Then Exit Sub If 1 < Selection.Columns.Count Then Exit Sub Dim r As Range For Each r In Selection r.Offset(, 1).Value = StrConv(r.Value, vbWide) Next End Sub
Sub Sample_Narrow() '半角 If Not TypeName(Selection) = "Range" Then Exit Sub If 1 < Selection.Columns.Count Then Exit Sub Dim r As Range For Each r In Selection r.Offset(, 1).Value = StrConv(r.Value, vbNarrow) Next End Sub
ページトップへ戻る

Excel 汎用コード

Word 汎用コード

Copyright(C) 2009- 坂江 保 All Rights Reserved.