| |
▼okitsun さん：
>配列にセル位置を格納しているのですが、
>その戻り値をRangeの引数にすることはできますか？
>下の例だとmyarray(i)にセル位置が入っていて、
>kaisiichiをRangeの引数にしたいのですが。
>
>
> For i = 1 To 4
>
>→ kaisiichi = myarray(i)
>→ Range(kaisiichi).Resize(1, 5).Select
>
> Selection.Copy
> Sheets("sheet1").Select
> Range("A2").Select
> ActiveSheet.Paste
> Next
セルのアドレスが入っているなら出来ます。
ですが、他の質問も拝見していると
アドレスが入っているようには見えませんけど。
Sub Test1()
Dim myAry As Variant
Dim v As Variant
myAry = Array("A1", "B2", "C1")
For Each v In myAry
Range(v).Select
MsgBox Selection.Address
Next v
End Sub
やりたいことが良くわかりませんが、
Collectionにしてしまうという手もあります。
Sub Test2()
Dim myCol As Collection
Dim v As Variant
Dim i As Integer
Set myCol = New Collection
With myCol
.Add Range("A1")
.Add Range("B2")
.Add Range("C3")
End With
For i = 1 To myCol.Count
myCol(i).Select
MsgBox Selection.Address
Next i
For Each v In myCol
v.Select
MsgBox Selection.Address
Next v
Set myCol = Nothing
End Sub
|
|
ハチ
- 07/1/31(水) 17:10 -
