Excel VBA質問箱 IV

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

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


35578 / 76732 ←次へ | 前へ→

【46351】Re:変数を使ってのセル位置の指定
回答  ハチ  - 07/1/31(水) 17:10 -

引用なし
パスワード
   ▼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

0 hits

【46339】変数を使ってのセル位置の指定 okitsun 07/1/31(水) 13:32 質問
【46340】Re:変数を使ってのセル位置の指定 okitsun 07/1/31(水) 13:33 回答
【46345】Re:変数を使ってのセル位置の指定 okitsun 07/1/31(水) 16:46 質問
【46351】Re:変数を使ってのセル位置の指定 ハチ 07/1/31(水) 17:10 回答
【46410】Re:変数を使ってのセル位置の指定 okitsun 07/2/2(金) 9:58 お礼

35578 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free