全角から半角への変換する方法（VBA）

いつもお世話になっております。

セル範囲に入力された全角のアルファベットは半角にする方法についてわからない点がありご質問させていただきます。

VBA
1
2Sub CharacterConvert()
3    Dim i As Integer
4    Dim myCell As Range
5    
6    Worksheets("英字変換元").UsedRange.Copy
7    Worksheets("英字変換").Activate
8    Range("A1").PasteSpecial
9    Range("A1").Select
10    
11    MsgBox "セル範囲に入力された全角アルファベットを半角にします"
12    
13    Set myCell = ActiveSheet.UsedRange
14    
15'-----<「Ａ」→「A」の変換>-----
16    For i = 65 To 90
17        myCell.Replace What:=String(1, i - 32225), Replacement:=String(1, i), _
18            MatchCase:=True
19    Next i
20    
21'-----<「ａ」→「a」の変換>-----
22    For i = 97 To 122
23        myCell.Replace What:=String(1, i - 32224), Replacement:=String(1, i), _
24            MatchCase:=True
25    Next i
26    
27End Sub
28

こちらのコードになるのですが
これを実行すると全角文字がすべて半角になると思います。

For i=65 To 90 や For i=97 To 122はASCIIコードで指定していると思っており
またString(1,i-32225)やString(1,i-32224)の「i-32225」の「i-32224)」は文字コードを設置していると推測しています。

質問の内容としてはこの32225や32224というのはどういう意味になるのでしょうか？？

こちら書籍からそのまま抜粋したコードになるのですが

i-32225　→　全角大文字

i-3224　→　全角小文字

とだけ記載があり「全角　文字コード」、「全角　ASCIIコード」など入力しても
それらしき答えがヒットしませんでした。

ご教授よろしくお願いいたします。

行動規範の内容に同意します

回答2件

詳しく調べてみませんが、i - 32225またはi - 32224を行うことでシフトJIS漢字の全角英大文字・全角英小文字を文字としてReplaceに与えているようです。

正直自分で全角から半角への変換を行うのなら、StrConvを使用します。

例 A1セルの全角文字を半角文字に変換してB1セルにセットする

VBA
1    Range("B1").Value = StrConv(Range("A1").Value, vbNarrow)

投稿2020/03/25 08:15

DreamTheater

総合スコア1095

kaiserdoragon

2020/03/25 23:51

回答いただきありがとうございます！この件に関して他にも調べたところ記載いただいたように別の方法で変換を行っている人や推奨している場合がありました。こちら今後の参考にします！

hatena19

2020/03/26 00:26

今回の質問のコードはアルファベットを半角に変換するというものですが、 StrConvは、アルファベット以外の数字、記号、カタカナも半角に変換します。仕様にあわせて選択するといいでしょう。

DreamTheater

2020/03/26 00:32

仰る通りですね。フォローありがとうございます。＞hatena19さん

行動規範の内容に同意します

ベストアンサー

イミディエイトウィンドウで?Asc("ａ") ?Asc("a")とコードを記述してEnterキーを押すと次行に結果が出力されます。Asc関数はAsciiコードを返します。イミディエイトウィンドウでの結果は下記のようになります。

vba
1?Asc("a")
2 97 
3
4?Asc("ａ")
5-32127

半角aのASCIIコードは97、全角ａのASCIIコードは-32127と分かります。その差は、32224です。
つまり半角小文字アルファベットのASCIIコードから32224を引くと全角小文字アルファベットになるということです。
半角アルファベット、全角アルファベットともASCIIコード順ではa(97)からz(122)まで連続しているので
String(1, i) が半角小文字アルファベット、String(1, i - 32224)が全角小文字アルファベットになります。

同様に、大文字アルファベットの半角と全角のASCIIコードの差は32225になります。

投稿2020/03/25 08:02

編集2020/03/25 08:06

hatena19

総合スコア34075