文字変換 (ID:119987)

名前

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

本文 chrに変換するのではなく、asc()の値を保持してればいいのでは？ Option Explicit Private moji() As Long Private Sub Form_Load() Text1.Text = "あいうえお" End Sub '変換 Private Sub Command1_Click() Dim i As Integer ReDim moji(1 To Len(Text1.Text)) For i = 1 To Len(Text1.Text) moji(i) = Asc(Mid$(Text1.Text, i, 1)) + 1 Next i Text2.Text = "" For i = LBound(moji) To UBound(moji) Text2.Text = Text2.Text & Chr(moji(i)) Next i End Sub '元に戻す Private Sub Command2_Click() Dim i As Integer Text2.Text = "" For i = LBound(moji) To UBound(moji) Text2.Text = Text2.Text & Chr(moji(i) - 1) Next i End Sub