動作検証バージョン:64bit Windows 10 Pro + 32bit Excel(バージョン2207 ビルド15427.20210 Microsoft Store)
「excel vbcrlf 文字コード」
といった検索キーワードで、時折アクセスがあります。
Windows環境で改行を意味するVBAの定数vbCrLfの、文字コード番号・ASCIIコード番号がいくつなのか、調べていらしたのでしょう。
[スポンサードリンク]
vbCrLfの文字コード番号を確認するサンプルマクロ
以下のマクロを実行してみてください。
Sub vbCrLfの文字コード番号を確認する()
Dim i As Long
For i = 1 To Len(vbCrLf)
MsgBox Asc(Mid(vbCrLf, i, 1))
Next
End Sub
Dim i As Long
For i = 1 To Len(vbCrLf)
MsgBox Asc(Mid(vbCrLf, i, 1))
Next
End Sub
メッセージボックスに「13」と「10」が順番に表示されます。
vbCrLfの文字コード番号・ASCIIコード番号は、「13」と「10」ということです。
vbCrLfと1つの定数であるるために、何となく1文字と思い込んでいる方もいるかもしれませんが、vbCrLfはキャリッジリターンとラインフィードを連結した2文字です。
サンプルマクロで行っている処理について
vbCrLfの文字数だけFor~Nextループを回して、
For i = 1 To Len(vbCrLf)
VBAのMid関数で取得した1文字のASCIIコード番号を、Asc関数で調べてメッセージボックスに表示しています。
MsgBox Asc(Mid(vbCrLf, i, 1))
vbCrLfがChr(13)&Char(10)であることを確認する
以下のマクロも実行してみてください。
Sub vbCrLfがASCIIコード13と10を連結した文字列であることを確認する()
MsgBox vbCrLf = Chr(13) & Chr(10)
End Sub
MsgBox vbCrLf = Chr(13) & Chr(10)
End Sub
定数vbCrLfで表される文字列が、ASCIIコード番号13の文字と10の文字を連結した文字列と同じかどうかを比較演算子で調べ、その結果をメッセージボックスに表示しています。
結果はもちろんTrueです。
最終更新日時:2022-08-31 12:53
[スポンサードリンク]
Home » エクセルマクロ・Excel VBAの使い方 » vbCrLfの文字コードは?