Excel VBA質問箱 IV

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

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


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

35177 / 76738

←次へ　｜　前へ→


	【46763】Re:文字列のつなぎ

ハチ - 07/2/14(水) 12:48 -


	引用なし

	パスワード

▼Blue さん：
>▼ハチさん：
>>でもできそうです。
>
>実際は
>>Dim test2(50) As Variant
>ですが、もうひとつ配列を作らなくても、できますか？
>(ReDimするのはたとえば3以降にデータがある場合使えないし)
>
>さらにJoinだと、"あ,い,う," という文字列をえれないのではないでしょうか？
>Dim v(3) As String
>v(3) = ""
>とすればできそうですけど。

Blueさんのご指摘の通りですね。
良く見てませんでした。すいません・・・
私の回答は無視してください。

Joinで無理やりやるなら・・・
要素に","があると困りますね。捨ててください。

Sub test()
　　Dim Str(50) As String
　　Dim test As String
　　
　　Str(0) = "あ"
　　Str(3) = "い"
　　Str(30) = "う"
　　
　　test = Join(Str, ",")
　　test = Replace(test, ",,", "")
　　If Right(test, 1) <> "," Then test = test & ","
　　MsgBox test

End Sub

1 hits

▼

【46755】文字列のつなぎ なた 07/2/14(水) 9:24