Excel VBA質問箱 IV

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

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


4614 / 13644 ツリー ←次へ | 前へ→

【55595】「For To Next」 の取り扱いについて marumaru 08/5/13(火) 15:19 質問[未読]
【55597】Re:「For To Next」 の取り扱いについて ナロ 08/5/13(火) 15:38 発言[未読]
【55598】Re:「For To Next」 の取り扱いについて ひげくま 08/5/13(火) 15:39 発言[未読]
【55599】Re:「For To Next」 の取り扱いについて kanabun 08/5/13(火) 15:39 回答[未読]
【55610】Re:「For To Next」 の取り扱いについて marumaru 08/5/13(火) 18:34 お礼[未読]

【55595】「For To Next」 の取り扱いについて
質問  marumaru  - 08/5/13(火) 15:19 -

引用なし
パスワード
   データの格納を目的とした下記の記述でエラーが発生します。
素人なので意味がわかりません。
恐縮ですが、どなたかご授受いただきますようお願いします。

Sub test()
  Sheets("調査票").Select
  For j = 1 To 730
    n = n + 1: AA(n) = Cells(j, 7): BB(n) = Cells(j, 8)
  Next j
End Sub

エラー内容:「コンパイルエラー
         Sub または Function が定義されていません。」

以上、宜しくお願いします。

【55597】Re:「For To Next」 の取り扱いについて
発言  ナロ  - 08/5/13(火) 15:38 -

引用なし
パスワード
   変数を定義していないから、AA()が関数とみなされているのではないでしょうか?

Sub test()
  '変数定義
  Dim AA(730) As Variant
  Dim BB(730) As Variant

  Sheets("調査票").Select
  For j = 1 To 730
    n = n + 1: AA(n) = Cells(j, 7): BB(n) = Cells(j, 8)
  Next j
End Sub

【55598】Re:「For To Next」 の取り扱いについて
発言  ひげくま  - 08/5/13(火) 15:39 -

引用なし
パスワード
   AA(n),BB(n)って何ですか?変数宣言していますか?

【55599】Re:「For To Next」 の取り扱いについて
回答  kanabun  - 08/5/13(火) 15:39 -

引用なし
パスワード
   ▼marumaru さん:
>    n = n + 1: AA(n) = Cells(j, 7): BB(n) = Cells(j, 8)

配列が宣言なしに使われているからです。
プロシージャの最初で、
Dim j as long
Dim n as long
Dim AA(1 to 100) As Double '--- ここは 必要な要素数 と 適切なデータ型に置き換えてください

など、宣言してください。

【55610】Re:「For To Next」 の取り扱いについて
お礼  marumaru  - 08/5/13(火) 18:34 -

引用なし
パスワード
   複数のご回答をいただきまして、大変有り難うございました。
早速、参考にさせていただき、勉強させていただきます。
また、機会がありましたら宜しくお願いします。

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