ダブルバイトの文字を1バイトにするには？ (ID:104686)

名前

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

本文 こんな感じです(^o^)/ Private Sub Command1_Click() Dim strBuff As String Dim bBuff() As Byte Dim i As Integer strBuff = "あいう" bBuff = strBuff For i = LBound(bBuff) To UBound(bBuff) Debug.Print Hex(bBuff(i)) Next i End Sub