- ベストアンサー
実行時エラー9 インデックスが有効範囲にありません。を解決するには
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
何をしているときのお話なんですか？ >カテゴリ デジタルライフ ＞ その他(デジタルライフ) では皆目見当がつかないのですが、せめて携帯電話なのかパソコンなのかくらいは記述するようにしましょうよ。 実行時エラー'9'、インデックスが有効範囲にありません [Excel] http://pasofaq.jp/office/excel/error9.htm
その他の回答 (1)
- TIMESPRIT
- ベストアンサー率52% (29/55)
dazai さんがこのカテゴリーで何について困っているかの情報がないので回答できませんね。。。 えっと、マイクロソフトのプログラミング→ＶＢやＶＢＡなどでしょうか。 プログラムに書かれた内容が間違っているので実行できない現象ならその部分だけでも提示しないと何処が間違っているか指摘できないんです。 可能性としては、シート名を間違っているなどが考えられます。 的外れの回答でしたらすいません。 最後に”何をどこまでどうやってこうなり困っています” がないと回答者は質問内容を正確に理解できないので回答がかけません。
関連するQ&A
- 実行時エラー'9' "インデックスが有効範囲にありません。"
こんにちは。 OS・・・Win95 Excel97 を使用しているマシンで、 既存ExcelBookを開いたり、新規にBookを開いたりするときに常にこのエラーがでます。 実行時エラー'9' "インデックスが有効範囲にありません。" というエラーです。 過去ログを見てみるとマクロが関連しているかもしれないようですが、マクロは使ってません。 「終了」すると通常に使えますが、どうしたら直るのでしょうか？ どなたか教えてください。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 実行エラー９ インデックスが有効範囲にありません。
Excelで上書き保存しようとすると、 実行エラー９ インデックスが有効範囲にありません と表示されます。今まではこんなエラーが出ずに上書き保存できていたのですが、どうしてでしょうか？
- ベストアンサー
- オフィス系ソフト
- 実行時エラー9 インデックスの有効範囲はどこ？
実行時エラー9 インデックスが有効範囲にありません。と表示されます。 デバックに「 Sheets("○○○").Visible = xlVeryHidden」とエラー箇所が→でています。 ○○○の部分はマクロが組まれたExcelのsheet30中Sheet2の中にあるボタン名です。 何かをさわった記憶は有りませんが、急に上記エラーが出て、うまく動かなくなってしまい、困っています。どうしたらこのエラーは消せますでしょうか？ 初歩的なことなのかも知れませんが、どうぞ宜しくお願いいたします。
- 締切済み
- Visual Basic
- 「実行時エラー 9 インデックスが有効範囲にありません」を英語で連絡したい
VBで作ったソフトで良く出る、 実行時エラー 9 インデックスが有効範囲にありません というエラーを、開発元に伝えたいのですが、 くだんのソフトがアメリカ製英語ソフトになっています。 アメリカの開発元へ、エラーを伝えてあげたいのですが、 MS日本で翻訳した「実行時エラー 9 インデックスが有効範囲にありません」 というエラーメッセージの、本国英語版メッセージが、どういう文面なのか わからず困っています。 一応、Microsoft Technetも探してみたのですが、私の力量ではお手上げです。 どなたか英語版の原文エラーメッセージをご存知の方、 または、日本語エラーメッセージの原文対訳サイトをご存知の方、 などいらしてましたら、どうか助けてください。
- ベストアンサー
- Visual Basic
- 実行時エラー'9':インデックスが有効範囲にありま
WindowsXPで、Access2002を使用しています。 テーブル１のフィールド１の値を、ハイフン区切りで分割して、フィールド２とフィールド３へ格納するＶＢＡを作成しようとしていますが、あと少しのところでエラーになってしまって解決策が見当たりません。 エラー内容は、「実行時エラー'9':インデックスが有効範囲にありません。」で、下記ＶＢＡの rs.Update "フィールド３", ksplit(1) の部分のksplit(1)の格納場所が無かった為に発生していると思います。 実際、その部分を無効にすると、エラーは無くなりますが、フィールド３のデータも必要です。 このようになって欲しいです。 例） テーブル１ フィールド１ フィールド２ フィールド３ 1000-100 1000 100 50-301 50 301 Private Sub コマンド0_Click() Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Set cn = CurrentProject.Connection Set rs = New ADODB.Recordset rs.Open "テーブル１", cn, adOpenKeyset, adLockOptimistic Do Until rs.EOF Dim ksplit As Variant ksplit = Split(rs!フィールド１, "-") rs.Update "フィールド２", ksplit(0) rs.Update "フィールド３", ksplit(1) Debug.Print rs!フィールド２,rs!フィールド３ rs.MoveNext Loop rs.Close: Set rs = Nothing cn.Close: Set cn = Nothing End Sub 以上、初心者で、行き詰っておりますので、よろしくお願いします。
- ベストアンサー
- Visual Basic
- エクセル97 実行時エラー9について
エクセル９７を開くと”実行時エラー９ インデックスが有効範囲にありません”と表示。終了をクリックするとエクセルは使用できるようになりますが、同じファイルのシートを選択しても同様のメッセージが表示されます。継続をクリックしても何も表示がかわりません。お手数ですが、解決方法を教えて下さい。宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- 実行時エラー配列のインデックスが範囲内にありません
アウトルックvbaで、受信トレイのメールをすべてループして、 該当のメールを削除するコードを作ったのですが 連続して削除しようとすると 実行時エラー-2147352567 「配列のインデックスが範囲内にありません」になります。 ------------------------------------------------------------------- Sub test() Dim requestsFolder As MAPIFolder Dim appNameSpace As NameSpace Dim requestMailItem As MailItem Dim i As Integer Dim j As Long '削除した個数を数える Set appNameSpace = Application.GetNamespace("MAPI") Set requestsFolder = appNameSpace.GetDefaultFolder(olFolderInbox) j = 1 For i = 1 To requestsFolder.Items.Count Set requestMailItem = requestsFolder.Items.Item(i) If requestMailItem.Subject Like "*キャンペーン*" Then '削除済みフォルダへ移動する requestMailItem.Delete Debug.Print j & "個目削除" j = j + 1 End If Next i End Sub ------------------------------------------------------------------- このコードを使っています。 エラーになるのは、 2個目削除後だったり、３個目削除後だったりさまざまで安定しません。 このエラーになる原因がわからないので教えていただけますか？ アウトルックのエラーというより、 Fornextステートメントのエラーという気がします。 ご教授よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- VB6.0で実行の度に異なるエラー
VB6.0，Windows2000で作成したプログラムについてなのですが，立ち上げなおして実行する度に「実行時エラー'6' オーバーフローしました」「インデックスが有効範囲にありません」等のエラーが出て実行できない場合と，正常に実行できる場合があります． （実行の度に実際に異なるエラーが発生している訳ではないと思います） このような現象は何が原因だと考えられるのでしょうか． ご存知の方ご教授ください．
- ベストアンサー
- Visual Basic
- 実行時エラー９：インデックスが有効範囲にありません」ができてた。調べた
実行時エラー９：インデックスが有効範囲にありません」ができてた。調べたのですが、原因は分からない、皆さん、助けてください。 以下はあるフォルダーを選定して、セルの値と一致するファイルを探し出して、シートＡの中のデータを取り上げて、コピーしたいです。けど、エラーが出てきた。皆さん。よろしくお願いします。 Sub test() Dim forName, bookName As String Dim x, y, l As Long Const cnsDIR = "\*.xls" Dim bFound As Boolean Dim myBook, actBook As Workbook Dim mySheet, actSheet As Worksheet With Application.FileDialog(msoFileDialogFolderPicker) If .Show = True Then myPath = .SelectedItems(1) End If End With forName = Dir(myPath, vbDirectory) If Dir(myPath, vbDirectory) = "" Then MsgBox "It's nothing!", vbExclamation Exit Sub End If bFound = False For x = 2 To 7 Step 1 bookName = Dir(myPath & cnsDIR, vbNormal) Do While bookName <> "" l = InStrRev(bookName, ".xls") If Mid(bookName, l - 4, 4) = Format(Cells(4, x), "0000") Then bFound = True Exit Do 'hang/lie Else bookName = Dir() End If Loop If bFound = False Then Rtn = MsgBox("This is no found. Do you want to continue?", vbYesNo, "選択") If Rtn = vbNo Then Exit For End If Windows(bookName).Activate actSheet = ActiveWorkbook.Sheets For Each actSheet In Worksheets If ActiveSheet.Name = "A" Then Application.Union(Range("C55:F55"), Range("H55:I55")).Copy ThisWorkbook.Sheets(4).Range("B5").PasteSpecial Paste:=xlValues, Transpose:=True End If Next Next x End Sub
- ベストアンサー
- Visual Basic
