スキルアップ・問題解決なら、モーグにおまかせ！

ユーザーフォームを利用し、データをリストへ入力しています。
実行時エラー '9' インデックスが有効範囲にありません。
と表示され、動作が停止します。
 
ステップインやブレイクポイントを用いると問題なく最後まで動作します。
エラーが出ている行を確認すると、リストを格納している２次元配列でエラーが出ているようで、
VBEで配列名をドラッグしようとするだけでExcelが落ちてしまいます。
 
データ量が多くなってしまう関係で配列は利用したいと考えています、業務上コードなどは開示できませんので、
ステップインやブレイクポイントを用いると動作するものが、一気に作動させるとエラーになってしまう原因など心当たりがあればご教授いただきたいです。

引用:
実行時エラー '9' インデックスが有効範囲にありません。

引用:
ステップインやブレイクポイントを用いると動作するものが、一気に作動させるとエラーになってしまう原因など心当たりがあればご教授いただきたいです。

引用:
VBEで配列名をドラッグしようとするだけでExcelが落ちてしまいます。

Sub TEST()
  On Error GoTo Err_TEST

  Dim varList As Variant
  Dim i As Long

  Let varList = Range("A1:C6").Value
  For i = 1 To 7
    Debug.Print varList(i, 3)
  Next

Exit_TEST:
  MsgBox "Finish"
  Exit Sub

Err_TEST:

  MsgBox _
    "エラー発生" & vbCrLf & _
    " LBound : " & LBound(varList) & vbCrLf & _
    " UBound : " & UBound(varList) & vbCrLf & _
    " Index : " & i
End Sub

ご回答ありがとうございます。
先ほどエラー箇所が判明し、解消はできましたが、原因が分からないため、お分かりであれば、ご教授いただきたいです。
 
配列がおかしくなるのは、ユーザーフォームのラベルを変更しているところでした。
ここのラベルは　userform.No.caption = "No." & 別の配列の数値 -3　で番号を表示しており、
"No." ・ "No." & "a"
前もって　Now = 配列 - 3 と計算を行い、 "No." % Now などは表示できましたが、 "No." % 配列 - 3 にするとその行が実行されると
ウォッチリストに入れている配列がエラーになり、インデックスが有効範囲にありませんとなってしまいます。
 
この際はどういった原因が考えられますか？

横から失礼
幾つか確認したいことがあります。

よりくん さんの引用:

ここのラベルは　userform.No.caption = "No." & 別の配列の数値 -3　で番号を表示しており、

よりくん さんの引用:

前もって　Now = 配列 - 3 と計算を行い、 "No." % Now などは表示できましたが、 "No." % 配列 - 3 に

Now
という変数は、使用可能のようです。

引用:
userform.No.caption = "No." & 別の配列の数値 -3

引用:
"No." ・ "No." & "a"

引用:
前もって　Now = 配列 - 3 と計算を行い、 "No." % Now などは表示できましたが、
 "No." % 配列 - 3 にするとその行が実行されるとウォッチリストに入れている配列がエラーになり

引用:
"No." % 配列 - 3

引用:
インデックスが有効範囲にありませんとなってしまいます。

引用:
"No." % 配列 - 3

>実行時エラー '9' インデックスが有効範囲にありません
 
エラーが出るヒント

Sub test()
Dim 配列(0 To 2), x As Long

    For x = 0 To 2
        配列(x) = x
    Next
    x = 2
    Debug.Print 配列(x - 3)
    
End Sub

経験が浅く、こういった場所でも質問したことがないため、足りていない部分が多く申し訳ないです。。。
変数名やフォーム名など実際使用しているものと別のものを入力しているため、誤解を生じさせてしまいました。
また、今回記述しているマクロは業務用のパソコンで記述しており、そちらのパソコンでは当サイトを利用できないため、手入力になってしまいます、今後入力の際は注意させていただきます。
また、業務的に開示できない物もあるため一部変更させて記載させていただきます。
（内容的にエラーでないと思われる部分）
 
下に疑似的に作成しています。
簡単に作っているため別のエラーが出てしまうような場合がありますが
今回は配列(tmp)の中身が途中で消えてしまうような事が起きてしまう原因が知れればと思っております。
また、先に変数（Number）に格納した後に、ユーザーフォームのラベルの表示を変える際はエラーが起きていないため、tmpの中身をReDimなどで消しているといった事は起きていないかと思われます。
 
---------------------------------------------------------
 
Sub Test()
 
 Dim tmp
 Dim Count() as long
 Dim Number as long
 '抽出Form（ユーザーフォーム名）
 
tmp = Cells.CurrentRegion
 
 Count(0) = 5 '本来はFunctionで配列に格納しています。
 Count(1) = 7
 Count(2) = 10
 
i = 0
 
Do while i <= Ubound(Count())
 
Number = Count(i) - 3
 
If tmp(Count(i),2) <> "" then　（２週目ここでエラーが出てしまう）
 goto n
End If
 
　抽出Form.No.caption = "No" 'エラーなし
　　【"No."】出力結果
　抽出Form.No.caption = "No" & "a" 'エラーなし
　　【"No.a"】出力結果
　抽出Form.No.caption = "No" & Number 'エラーなし
　　【"No.2"】出力結果
　抽出Form.No.caption = "No" & Count(1) - 3 'インデックスが有効範囲にありません。（配列tmp）
　　【"No.2"】出力結果（結果は出力できるが、配列tmpがエラーになる）
 
n:
i = i + 1
 
Loop
 
 End Sub
-------------------------------------------------------------
 
・userform.No.caption = "No." & 別の配列の数値 -3　
　ラベルに現在の番号を表示したいのですが、配列に該当者の行番号を入れており（Count()とします）
　　シートの４行目がNo.1になるため 配列内の行番号から -3 を行いたい状況です。
　userform.　←の部分ですが、ここはユーザーフォームの名前を入れております。
 
　訂正：ユーザーフォーム名.No.caption = "No." & Count(i) -3
 
 
・Now・配列・％について
　Nowは急いで入力し、試したためNow関数と重複してしまいました。申し訳ないです。
　上記コードではNumberへ変更しています。
　Now → Number
  
　配列も上記同様分かれば良いと記述していました。
　配列 → Count()
 
　％については、完全に誤字です。
　％ → ＆
 
・配列 - 3 （上記 Count(i) - 3）について
　FunctionでCount()に格納する際に、4以下のものが入ることはありません。
　またエラーが出ているわけではなく、ここで配列（tmp）の中身が消えてしまっているため、別場所で配列(tmp）を参照した際に、インデックスが有効範囲にありませんとエラーが出てしまっております。
 
[/code]

現状に対し、つじつまが合わない事を含み、中途半端な説明なので、
原因がこれだけでは 判断つきません。
 
 
とりあえず、 エラーが出たときに
VBE 画面 エラー発生行 が 色反転して コード実行が停止すると思います。
 
その状態で、VBE画面
 
If tmp(Count(i), 2) 〜 で止まるなら
 
Count(i) の 部分にマウスオーバーすれば
【Count(i) = 7】 の様に、
停止時点の 変数 Count の インデックス が i の 値が表示されます。
 
次に、tmp の部分にマウスオーバー すれば
【tmp(ount(i), 2)=<インデックスが有効範囲にありません>】の様に 表示されます。
この場合は、
 
tmp に対し、tmp(7,2) の値を参照しようとし、7 または 2 の
インデックス の値が存在しないので、有効範囲にありません となっています。
 
7 または 2 は、ローカルウィンドで、
+ tmp
  となっている + 部分をクリックすれば
 
- tmp
|---tmp(1)
| |-----tmp(1,1)
| -----tmp(1,2)
  ：
 
の様に、すれば、配列の次元数は確認できますから、
インデックスがその範囲になる様に、コードを修正しましょう。
 
 
---------------------------------------------------------------------------------------
記載の中で、つじつまが合わなかったり、修正した方が良い部分 を下記に記します。
先の 手段で インデックスの問題が解決したなら、下記への返答は不要です。
 

引用:
FunctionでCount()に格納する際に、4以下のものが入ることはありません。
　またエラーが出ているわけではなく、ここで配列（tmp）の中身が消えてしまっているため、別場所で配列(tmp）を参照した際に、インデックスが有効範囲にありませんとエラーが出てしまっております。

引用:
別場所で配列(tmp）を参照した際に

引用:

また、今回記述しているマクロは業務用のパソコンで記述しており、そちらのパソコンでは当サイトを利用できないため、手入力になってしまいます、今後入力の際は注意させていただきます。