漢字をＢｙｔｅに転送したい (ID:82104)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 PGに間違いがありました。訂正します。すみません。 Dim bByte(4) As Byte Dim sMoji As String Dim X AS Integer sMoji = "あいうえお" For X = 1 To 5 bByte(X - 1) = Asc(Mid(sMoji, X, 1)) Next X