|
▼UO3 さん:
ありがとうございました。
無事に動作しました。勉強してみます。
>▼とってぃ さん:
>
>こんにちは
>
>既に回答が出ていますが別案で。
>TextBox1には偶数個の文字が入っているということですが
>人間が触れるわけで、奇数だった場合の、最後の1文字も
>対応しています。
>
>Private Sub CommandButton1_Click()
>Dim x As Long, i As Long, j As Long
>Dim v() As String
> If TextBox1.Value = "" Then
> TextBox2.Value = ""
> Exit Sub
> End If
> x = WorksheetFunction.RoundUp((Len(TextBox1.Value) / 2), 0)
> ReDim v(1 To x)
> j = -1
> For i = 1 To x
> j = j + 2
> v(i) = Mid(TextBox1.Value, j, 2)
> Next
> TextBox2.Value = Join(v, "\")
>End Sub
|
|