[Excel] 全角←→半角の変換 « MISCELLANEUOS DATA STORAGE

勤務先の会社では、見積りの細目・仕様欄はカタカナも含めて半角で入力するようにいわれていますが、協力会社から貰う見積書は基本全角文字で入力されているケースが多くシンプルにコピー＆ペーストといかないのが現状です。

単純ですが、選択範囲のセルを半角変換するマクロを作成してみました。

' 全角→半角　変換
Sub ToHankaku()
    Dim c As Range
    With Selection
        For Each c In .Cells
            c.Value = StrConv(c.Text, vbNarrow)
        Next
    End With
End Sub

' 半角→全角　変換
Sub ToZenkaku()
    Dim c As Range
    With Selection
        For Each c In .Cells
            c.Value = StrConv(c.Text, vbWide)
        Next
    End With
End Sub

この投稿は 2011 年 8 月 5 日 金曜日 6:13 PM に Office Suite, ツール・環境 カテゴリーに公開されました。 この投稿へのコメントは RSS 2.0 フィードで購読することができます。 コメントを残すか、ご自分のサイトからトラックバックすることができます。