|
▼KIKI さん:
えっと、配列に入れるコードがぜったいありますよね?
で、配列1と2のどちらかに入れるための振り分けがあるんだと思います。
なので、たとえばフラグを設けて
Sub test()
Dim 配列1(1 To 11) As Long
Dim 配列2(1 To 11) As Long
Dim IntFlg As Integer
If 配列1に値を入れる場合 Then
IntFlg = 1
For i = 1 To 11
配列1(i).Value = i
Next i
ElseIf 配列2に値を入れる場合 Then
IntFlg = 2
For i = 1 To 11
配列2(i).Value = i
Next i
End If
If IntFlg = 1 Then
For i = 1 To 11
Cells(i, "A").Value = 配列1(i)
Next i
ElseIf IntFlg = 2 Then
For i = 1 To 11
Cells(i, "A").Value = 配列2(i)
Next i
End If
End Sub
のようにする事でも出来るのかな?
と思ったのです。
|
|