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