文字コードに対応する文字が振られていないの？

質問

windows7を使っています。

エクセルVBAで
Sub Sample1()
Dim i As Long
Dim myRow As Long

For i = -32768 To 32767
myRow = myRow + 1
Cells(myRow, 1) = Chr(i)
Next i

End Sub
のコードで文字コードをすべて書き出してみたのですが
空白や「」だけ等がいくつもあります。

これはどうしてでしょうか?
文字コードに対応する文字が振られていないのでしょうか?

-32768 To 32767の理由は
Asc 関数のヘルプを見たら
「DBCS を使用しているシステムでは、
-32768 ~ 32767 の範囲の値が返されます。」
となっていた為です。

回答No.1

SI299792 · ベストアンサー

VBでは、シフトJIS コードを使っております。
CHR(&H30) は"0" になり、
CHR(&H8940)は”院"になります。
シフトJIS コードは１バイト文字と２バイト文字を切り替えコートなしで混在させることを目的としております。
&H00～&7F,&HA0～&HDFが１バイト文字とみなされるので、これで始まる２バイト文字はありません。
また、他にも空きがあります。
シフトJIS コードで、文字の定義されていないところは出てきません。
また、UTF8に出てくる特殊文字も、VBでは使えません。
次のよなプログラムだとわかりやすいと思います。
’
Sub Sample1()
　　Dim i As Long
　　Dim j As Integer
　　Dim myRow As Long

　　For i = -32768 To 32767
　　　　myRow = myRow + 1
　　　　j = i
　　　　Cells(myRow, 1) = Chr(i)
　　　　Cells(myRow, 2) = "'" & Hex(j)
　　Next i
End Sub

参考URL：

http://charset.7jp.net/sjis.html

お礼

どうもありがとうございました。