StrConv(文字列, 変換したい形式)
引数「変換したい形式」には定数または値を指定します。
指定できる定数または値は以下の通りです。
定数 | 値 | 内容 |
---|---|---|
vbUpperCase | 1 | 文字列を大文字に変換する。 |
vbLowerCase | 2 | 文字列を小文字に変換する。 |
vbProperCase | 3 | 文字列の各単語の先頭の文字を大文字に変換する。 |
vbWide | 4 | 文字列内の半角文字(1バイト)を全角文字(2バイト)に変換する。 |
vbNarrow | 8 | 文字列内の全角文字(2バイト)を半角文字(1バイト)に変換する。 |
vbKatakana | 16 | 文字列内のひらがなをカタカナに変換する。 |
vnHiragana | 23 | 文字列内のカタカナをひらがなに変換する。 |
vbUnicode | 64 | システムの既定のコードページを使用して、文字列をUnicodeに変換する。 |
vbFromUnicode | 128 | 文字列をUnicodeからシステムの既定のコードページに変換する。 |
以下のフォームを作成し、ボタンのクリックイベントに下記のコードを貼り付けます。 '---------------------------------------------------------------------- ' 「半角に変換」ボタンクリックイベントのコード '---------------------------------------------------------------------- Private Sub コマンド1_Click() On Error GoTo Err_コマンド1_Click Me.テキスト0.Value = StrConv(Me.テキスト0.Value, vbNarrow) Exit_コマンド1_Click: Exit Sub Err_コマンド1_Click: MsgBox Err.Description Resume Exit_コマンド1_Click End Sub '---------------------------------------------------------------------- ' 「全角に変換」ボタンクリックイベントのコード '---------------------------------------------------------------------- Private Sub コマンド2_Click() On Error GoTo Err_コマンド2_Click Me.テキスト0.Value = StrConv(Me.テキスト0.Value, vbWide) Exit_コマンド2_Click: Exit Sub Err_コマンド2_Click: MsgBox Err.Description Resume Exit_コマンド2_Click End Sub
[動作確認] テキストボックスに「ABC123あいうえお」を入力して「半角に変換」ボタンをクリックする
と、テキストボックスが以下のように変化します。 テキストボックスに「ABC123あいうえお」を入力して「全角に変換」ボタンをクリックすると、
テキストボックスが以下のように変化します。