Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
384 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【80688】excel vba redim実行でインデックスが有効範囲にありません koba 19/4/9(火) 18:58 質問[未読]
【80689】Re:excel vba redim実行でインデックスが有... マナ 19/4/9(火) 19:53 発言[未読]
【80690】Re:excel vba redim実行でインデックスが有... マナ 19/4/9(火) 20:05 発言[未読]
【80695】Re:excel vba redim実行でインデックスが有... γ 19/4/12(金) 10:48 回答[未読]
【80688】excel vba redim実行でインデックスが有...
質問  koba E-MAIL  - 19/4/9(火) 18:58 -
引用なし
パスワード
   Dim 配列() Variant

a = Cells(1, "G").Value　　　　　　　　　 <-- 1(セルの値)
b = Cells(2, "G").Value　　　　　　　　　 <-- 1(セルの値)
c = Cells(1, "H").Value　　　　　　　　　 <-- Count(5:20004)の値(ワークシート関数)
d = Cells(2, "H").Value　　　　　　　　　 <-- 8(セルの値)
ReDim 配列(Colls(a, b), Cells(c,d)) As Variant <-- エラー番号：9

================================================
疑問
１．何故、有効範囲外となるのか？
２．Variant型配列の大きさを設定する方法？

追伸　私、VBAの超初心者のでよろしくお願いいたします。
　　
【80689】Re:excel vba redim実行でインデックスが...
発言  マナ  - 19/4/9(火) 19:53 -
引用なし
パスワード
   ▼koba さん：


　　　　>ReDim 配列(Colls(a, b), Cells(c,d)) As Variant <-- エラー番号：9

>疑問
>１．何故、有効範囲外となるのか？
>２．Variant型配列の大きさを設定する方法？
>

Colls(a, b)やCells(c,d)には、何が入力されているのでしょうか？
【80690】Re:excel vba redim実行でインデックスが...
発言  マナ  - 19/4/9(火) 20:05 -
引用なし
パスワード
   ▼koba さん：

想像では、こういうことでしょうか？

ReDim 配列(a To b, c To d)
【80695】Re:excel vba redim実行でインデックスが...
回答  γ  - 19/4/12(金) 10:48 -
引用なし
パスワード
   配列の宣言に　As が抜けていたり、Collsという意味不明なものがあったり、
Cells(a, b)やCells(c,d)の値について回答がないので、
質問への回答は難しいですね。

ところで、実行したいのはどういうことなんでしょうか。
想像ですが、
Range(Cells(1,1),Cells(3,4))のセル範囲の値を配列に取り込みたい
といったことではないですか？

もしそうなら、こういう風にします。

Sub test()
　　Dim v As Variant

　　v = Range(Cells(1, 1), Cells(3, 4)).Value
　　MsgBox v(1, 1)　'確認してみて下さい。
　　MsgBox v(2, 2)　' vは配列になっているはずです。
　　MsgBox v(3, 4)　
End Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
384 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free