Excel VBA質問箱 IV

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

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


16077 / 76734 ←次へ | 前へ→

【66129】Re:TEXT BOXの文字を変換
回答  UO3  - 10/8/3(火) 11:46 -

引用なし
パスワード
   ▼とってぃ さん:

こんにちは

既に回答が出ていますが別案で。
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

2 hits

【66126】TEXT BOXの文字を変換 とってぃ 10/8/3(火) 10:24 質問
【66127】Re:TEXT BOXの文字を変換 Jaka 10/8/3(火) 11:04 発言
【66128】Re:TEXT BOXの文字を変換 Jaka 10/8/3(火) 11:08 発言
【66130】Re:TEXT BOXの文字を変換 とってぃ 10/8/3(火) 12:03 質問
【66129】Re:TEXT BOXの文字を変換 UO3 10/8/3(火) 11:46 回答
【66131】Re:TEXT BOXの文字を変換 とってぃ 10/8/3(火) 12:03 お礼

16077 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free