Excel VBA質問箱 IV

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

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


68 / 13190 ツリー ←次へ | 前へ→

【79903】VBA配列への格納方法 mk 18/5/22(火) 13:50 質問[未読]

【79911】Re:VBA配列への格納方法 よろずや 18/5/23(水) 12:44 回答[未読]
【79912】Re:VBA配列への格納方法 mk 18/5/23(水) 14:14 質問[未読]
【79913】Re:VBA配列への格納方法 よろずや 18/5/23(水) 16:12 回答[未読]

【79911】Re:VBA配列への格納方法
回答  よろずや  - 18/5/23(水) 12:44 -

引用なし
パスワード
   Option Explicit
Sub test()
Dim Array1 As Variant
  Array1 = Sheet1.Range("A1", "A4").Value
  Sheet2.Range("A1", "A4").Value = Array1
End Sub

他の列については、意味不明ですので省略。

【79912】Re:VBA配列への格納方法
質問  mk  - 18/5/23(水) 14:14 -

引用なし
パスワード
   ▼よろずや さん:
>Option Explicit
>Sub test()
>Dim Array1 As Variant
>  Array1 = Sheet1.Range("A1", "A4").Value
>  Sheet2.Range("A1", "A4").Value = Array1
>End Sub
>
>他の列については、意味不明ですので省略。

回答ありがとうございます。

下記部分についてなのですが
Array1 = Sheet1.Range("A1", "A4").Value
実際の表で実施しようとすると
[実行時エラー424:オブジェクトが必要です]と表示されるため
Set Array1 = Sheet1.Range("A1", "A4")
と記載しています。

Setステートメントを用いて記述するにはどうしたら良いでしょうか?

【79913】Re:VBA配列への格納方法
回答  よろずや  - 18/5/23(水) 16:12 -

引用なし
パスワード
   ▼mk さん:
>Array1 = Sheet1.Range("A1", "A4").Value
Array1 = Worksheets("Sheet1の実際の名前").Range("A1", "A4").Value


>Setステートメントを用いて記述するにはどうしたら良いでしょうか?
Setは使いません。

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