Excel VBA質問箱 IV

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

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


77 / 13339 ツリー ←次へ | 前へ→

【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

================================================
疑問
1.何故、有効範囲外となるのか?
2.Variant型配列の大きさを設定する方法?

追伸 私、VBAの超初心者のでよろしくお願いいたします。
  

【80689】Re:excel vba redim実行でインデックスが...
発言  マナ  - 19/4/9(火) 19:53 -

引用なし
パスワード
   ▼koba さん:


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

>疑問
>1.何故、有効範囲外となるのか?
>2.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

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