大文字・小文字・全角/半角の相互変換2021.04.05
アルファベットを大文字・小文字・全角/半角の相互に変換し出力するマクロです。
アルファベットのデータに全角と半角が混在している・・・。
そんな折にデータの型を統一するために使用します。
セル範囲を選択し、該当マクロを実行すると、選択セル範囲の一つ右に、マクロ実行結果が表示されます。
マクロ実行後に「元に戻す」機能は使用できません。事前の保存をお薦めします。
【お薦め】マクロ・プロシージャを管理する無料のツール！
Excelマクロ管理ツール
Excelマクロ管理ツール
サンプルコード
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
