※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
|
Option Explicit
Sub CharacterCodeChr()
'*******************************
'文字コードから文字を取得する
'*******************************
Dim i As Long
Dim str As String
For i = 1 To 20
str = str & Chr(i) & " "
Next
Debug.Print str
'
'
'
'Chr 関数
'指定した文字コードに対応する文字を示す文字列型の値を返します。
End Sub
Sub CharacterCodeChrAsc()
'*******************************
'文字から文字コードを取得する
'*******************************
Dim i As Long
Dim str As String
For i = 1 To 20
str = str & Chr(Asc("Ⅰ") + i - 1)
Next i
Debug.Print str
'ⅠⅡⅢⅣⅤⅥⅦⅧⅨⅩ・㍉㌔㌢㍍㌘㌧㌃㌶㍑
'Asc 関数
'整数型の値を返します。
'指定した文字列内にある先頭の文字の文字コードを返す変換関数です。
End Sub
|
|
|
|