Excel VBA質問箱 IV

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

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


36083 / 76732 ←次へ | 前へ→

【45834】Re:Dimについて
発言  Kein  - 07/1/15(月) 18:04 -

引用なし
パスワード
   ともかく他の回答者も指摘しているように「要素の上限値を指定しない」で
配列変数を宣言し、使い終わったら Erase するように変更してみて下さい。
例えば

Dim i As Long, MyAry() As Long

Do
  i = i + 1
  If Cells(i, 1).Value = "ZZZ" Then Exit Do
  ReDim Preserve MyAry(i): MyAry(i) = Cells(i, 2).Value
Loop Until i = 1000

MyAry() を使う処理

Erase MyAry
End Sub
2 hits

【45816】Dimについて tomo 07/1/15(月) 8:35 質問
【45817】Re:Dimについて ぱっせんじゃー 07/1/15(月) 8:42 発言
【45818】Re:Dimについて tomo 07/1/15(月) 9:52 質問
【45819】Re:Dimについて neptune 07/1/15(月) 10:07 回答
【45820】Re:Dimについて neptune 07/1/15(月) 10:20 回答
【45821】Re:Dimについて tomo 07/1/15(月) 13:29 質問
【45826】Re:Dimについて neptune 07/1/15(月) 14:52 回答
【45830】Re:Dimについて tomo 07/1/15(月) 15:56 発言
【45835】Re:Dimについて Kein 07/1/15(月) 18:07 発言
【45837】Re:Dimについて tomo 07/1/15(月) 20:06 お礼
【45824】Re:Dimについて Kein 07/1/15(月) 14:40 発言
【45833】Re:Dimについて tomo 07/1/15(月) 17:07 質問
【45834】Re:Dimについて Kein 07/1/15(月) 18:04 発言

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