Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

16125 / 76782

←次へ　｜　前へ→


	【66129】Re:TEXT BOXの文字を変換

UO3 - 10/8/3(火) 11:46 -


	引用なし

	パスワード

▼とってぃさん：

こんにちは

既に回答が出ていますが別案で。
TextBox1には偶数個の文字が入っているということですが
人間が触れるわけで、奇数だった場合の、最後の１文字も
対応しています。

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

1 hits

▼

【66126】TEXT BOXの文字を変換 とってぃ 10/8/3(火) 10:24