関数・メソッド

文字コード(Shift_JIS)を取得する【Asc関数】【ExcelVBA】

構文

Asc(String)  

String・・・文字コードを調べたい文字列・変数
戻り値・・・Integer(Stringに該当する文字コードの数値)※ASCIIコード
Asc関数は指定文字列のASCIIコードを判別します。
※複数文字指定された場合は先頭文字のASCIIコードを調べます。

Asc関数のサンプルコード

Public Sub test_Asc()
    
    '■大文字アルファベット
    MsgBox Asc("A") '→65
    MsgBox Asc("Z") '→90
    
    '■小文字アルファベット
    MsgBox Asc("a") '→97
    MsgBox Asc("z") '→122
    
    '■数値(半角)
    MsgBox Asc("0") '→48
    MsgBox Asc("9") '→57
        
    '■ひらがな(全角文字)
    MsgBox Asc("あ") '→-32096
    MsgBox Asc("ん") '→-32015

    '■文字が複数あった場合は先頭の文字コードのみ返却
    MsgBox Asc("abcde") '→97

End Sub

注意点

  • 文字が複数あった場合は先頭文字のみ返します。Asc(“abcde”) と Asc(“a”) は同一結果です。

ASCIIコード一覧

日本語(2バイト文字)は省略。
アルファベット関連の0~127までの数値のASCIIコード一覧表は以下です。

10進16進文字10進16進文字10進16進文字10進16進文字
00x00NUL(null文字)330x21!650x41A970x61a
10x01SOH(ヘッダ開始)340x22660x42B980x62b
20x02STX(テキスト開始)350x23#670x43C990x63c
30x03ETX(テキスト終了)360x24$680x44D1000x64d
40x04EOT(転送終了)370x25%690x45E1010x65e
50x05ENQ(照会)380x26&700x46F1020x66f
60x06ACK(受信確認)390x27710x47G1030x67g
70x07BEL(警告)400x28(720x48H1040x68h
80x08BS(後退)410x29)730x49I1050x69i
90x09HT(水平タブ)420x2a*740x4aJ1060x6aj
100x0aLF(改行)430x2b+750x4bK1070x6bk
110x0bVT(垂直タブ)440x2c,760x4cL1080x6cl
120x0cFF(改頁)450x2d770x4dM1090x6dm
130x0dCR(復帰)460x2e.780x4eN1100x6en
140x0eSO(シフトアウト)470x2f/790x4fO1110x6fo
150x0fSI(シフトイン)480x300800x50P1120x70p
160x10DLE
(データリンクエスケープ)
490x311810x51Q1130x71q
170x11DC1(装置制御1)500x322820x52R1140x72r
180x12DC2(装置制御2)510x333830x53S1150x73s
190x13DC3(装置制御3)520x344840x54T1160x74t
200x14DC4(装置制御4)530x355850x55U1170x75u
210x15NAK(受信失敗)540x366860x56V1180x76v
220x16SYN(同期)550x377870x57W1190x77w
230x17ETB(転送ブロック終了)560x388880x58X1200x78x
240x18CAN(キャンセル)570x399890x59Y1210x79y
250x19EM(メディア終了)580x3a:900x5aZ1220x7az
260x1aSUB(置換)590x3b;910x5b[1230x7b{
270x1bESC(エスケープ)600x3c<920x5c\1240x7c|
280x1cFS(フォーム区切り)610x3d=930x5d]1250x7d}
290x1dGS(グループ区切り)620x3e>940x5e^1260x7e~
300x1eRS(レコード区切り)630x3f?950x5f_1270x7fDEL(削除)
310x1fUS(ユニット区切り)640x40@960x60`
320x20SPC(空白文字)

関連記事

ダブルクォーテーションを文字列に簡単に入れたい(Chr関数)
Webで取得したデータの半角スペース削除ができない【ExcelVBA】

コメント

タイトルとURLをコピーしました