Excel_エラー9_インデックスが有効範囲に・

質問

Excel_VBA_ver2000_エラー9＿インデックスが有効範囲にありませんが出てしまいます。
何度かお世話になっております。（前回http://okwave.jp/qa/q6283060.html）コードが長いため所々省略しています。
下記←部分にエラ-9が出てしまいます。選択文書数を少なくするとエラーはでません。何故でしょうか？文書は現在300ぐらいです。（今後増えます。）テストで20程選択し，実行すると何もエラーはでませんでした。どうぞ宜しくお願い致します。
Sub try()
Dim BookUrl, BookName, n, hLink, xName, Holdir, X, chk, returnValue, BookUrl2, n2 As String
Dim Rng, sel As Range
Dim kk(1 To 8) As String
Dim H As Hyperlink
Dim v, myR2, myR3, SAN, Result, nn, SAN2 As Variant
～省略～
'とりあえずAutoFilter.RangeのC:D列をセット
Set Rng = Intersect(.AutoFilter.Range.EntireRow, .Columns("C:D"))
BookUrl = .Range("D10").Value
n = "_" & .Range("C3").Value
～省略～
SAN = BookUrl & "総合管理" & n & ".xls "
If Dir(SAN) <> "" Then
MsgBox "既にご指定場所に，同名ファイルがあるようです。" & vbCrLf & "ご確認の上，フォルダ，ファイルを削除してから再操作をして下さい。" & vbCrLf & "動作を抜けます。"
Exit Sub
End If
～省略～’ここに7.資料\1.管理a ～8管理hを作成するコードを入れています
'rngの可視セル（抽出セル）をセット
Set Rng = Intersect(Rng, Rng.Offset(1), Rng.SpecialCells(xlCellTypeVisible))
'抽出なければ抜ける
If Rng Is Nothing Then Exit Sub
UserForm1.Show vbModeless
UserForm1.Repaint
'■※1）画面更新停止
Application.ScreenUpdating = False
kk(1) = "1.管理a"
kk(2) = "2.管理b"
kk(3) = "3.管理c"
kk(4) = "4.管理d"
kk(5) = "5.管理e"
kk(6) = "6.管理f"
kk(7) = "7.管理g"
kk(8) = "8.管理h"
With ThisWorkbook.Sheets("TEST")
Set Rng = .Columns("C:D")
Set Rng = Rng.SpecialCells(xlCellTypeVisible)
'rng.HyperlinksをLoop
For Each H In Rng.Hyperlinks
hLink = H.Address
chk = LCase(Mid$(hLink, InStrRev(hLink, ".")))
Select Case chk
Case ".xls", ".xlsx", ".doc", ".docx"
xName = Mid$(hLink, InStrRev(hLink, "/") + 1)
X = .Range("F" & H.Range.Row).Value　※　H.Range.Row＝192　関係ありますか？
Holdir = "7.資料\" & kk(X) & "\"　←　エラー9＿インデックスが有効範囲にありません。
BookName = BookUrl & Holdir & Replace$( _
xName, chk, n & chk, , , vbTextCompare)
'URLDownloadToFile API をコールする
returnValue = URLDownloadToFile(0, hLink, BookName, 0, 0)
H.Address = BookName
End Select
Next
End With
Unload UserForm1
'■※1）画面更新再開
～省略～

回答No.1

pcb39431 · ベストアンサー

Dim kk(1 To 8) As String

X = .Range("F" & H.Range.Row).Value
Holdir = "7.資料\" & kk(X) & "\"

Ｘに、０または９以上の値が入っているためではないですか？

お礼

こんにちは。
ご回答を有難うございました。

Ｘに格納されるＦ列の数字をチェックしましたが，
0または9以上の値はありませんでした。
ただ，指定しているＦ列ですが，空白セルはあります。
関係あるのでしょうか？

どうぞ宜しくお願いします。

補足

選択した行の参照先が空白なことが原因でした。
ご回答がヒントになり解決しました。
有難うございました。

回答No.2

imogasi

こんな長いコードを質問に書いて、読者回答者に読ませるなど、工夫が足りない。他人に頼りすぎ。
そもそもエラー原因の特定は、このコーナーの質問や回答には適さない。
実行したり、色々ながめたり、試行をやってみることも、現実データも使えないのだから。
自分でエラー原因を追究すること。
Ｇｏｏｇｌｅででも「VBA エラー9 インデックスが有効範囲にありません」ででも照会すれば、文字通りだけのの原因解説は出る。
http://pasofaq.jp/office/excel/error9.htm
シートの名前やＩＮＤＥＸ番号を使っているコードの前にシート名やインデックス番号をＭｓｇｂｏｘで表示し、エラーの出る直前で指定している、シート名やインデックス番号が怪しいとおもう。
モデル的とは
下記コード例の、配列の上限要素を超える要素を指定した場合」とかいったものだ
こんなこともやって、エラー原因を抽象化し（この場合は類型といったものはなさそうだが）、質問ないしその他のケースでモデル的にやってみて、そのエラーが起こるか確認すると良い。
ＩＮＤＥＸはオブジェクトのコレクションを特定するものだと思うので、シート以外のコレクション（例ブックに）もチェックを広げる必要もあるかも知れない。
ーー
また
Sub test01()
x = Array("x", "y")
MsgBox x(1)
MsgBox x(2)　　'＜－－エラー個所
End Sub
のような配列（的）なところでもこのエラーは出るようだ。
これを類型で言うと、
「配列の上限要素を超える要素を指定した場合」は質問と同じエラーになる（これが本質問の原因だと言ってないが）。

お礼

こんにちは。
ご回答有難うございました。
そうですよね。こんなに長いコードを記載するのは，×ですよね。
全体像をご理解いただきたくて記載してしまいました。気をつけます。
>Ｇｏｏｇｌｅででも「VBA エラー9 インデックスが有効範囲にありません」ででも照会すれば、文字通りだけのの原因解説は出る。
>http://pasofaq.jp/office/excel/error9.htm
Ｇｏｏｇｌｅ検索して上記urlの内容も読みました。その他も色々。ヘルプも読み，UBound，LBound関数についての例も見て見ましたが，初心者のため？だったのです。配列は難しいです。
記載コードで選択文書数を少なくするとエラーがでないのに，殆ど全文書の選択をする（192？）とエラーがでるのがわからないことでした。
シートもTESTのみしか使用してないので。
>「配列の上限要素を超える要素を指定した場合」は質問と同じエラーになる（これが本質問の原因だと言ってないが）。
この辺りのところが関係しているのでょうか？配列の上限について調べてみます。
有難うございました。