| |
こんにちは。
３パターンほど書いてみました。
Sub サンプル()
Dim counter As Long
Dim test1a As Variant
Dim test1b As Variant
Dim test1c As Variant
Dim test2 As Variant
Dim 最初スイッチ As Boolean
'------------
'元ネタを用意
'------------
'test2の中身を１つずつ設定するのが大変だったので
'Split使いました。（Splitの詳細はヘルプ参照）
test2 = Split("あ い う え お")
'--------------------------------------------------------
'カンマで繋ぐ
'※最初だけカンマがいらないので最初を判断する必要があるが
' いくつか方法があるのでそれぞれ書いてみました。
' （いろいろ載せる意味、あんまりないけど）
'--------------------------------------------------------
'方法１(判断用の変数を使う)
最初スイッチ = True
For counter = LBound(test2) To UBound(test2)
If 最初スイッチ = True Then
最初スイッチ = False
Else
test1a = test1a & ","
End If
test1a = test1a & test2(counter)
Next counter
MsgBox "方法１：" & test1a
'方法２(変数counterが指している値を使う)
For counter = LBound(test2) To UBound(test2)
If counter > LBound(test2) Then
test1b = test1b & ","
End If
test1b = test1b & test2(counter)
Next counter
MsgBox "方法２：" & test1b
'方法３(繋いだ結果を入れる変数(test1c)が空っぽなら「最初だな」と判断する)
For counter = LBound(test2) To UBound(test2)
If test1c <> "" Then
test1c = test1c & ","
End If
test1c = test1c & test2(counter)
Next counter
MsgBox "方法３：" & test1c
End Sub
良く使うのは３番目の方法かな…
|
|
へっぽこ
- 07/2/14(水) 10:21 -
