Results of 0 - 1 of about 0 (0.000 sec.)
- [[20020702091737]]
- @digest: 36d93663212af990cddd6aea5da8d1c8
- @id: 261
- @mdate: 2003-04-29T06:42:53Z
- @size: 4170
- @type: text/plain
- #keywords: 名). (31876), 定フ (10412), 規定 (7280), ル名 (6803), 存フ (5081), activate (4211), ファ (4142), operation (4068), 名= (4066), windows (4024), skipblanks (4010), xlvalues (3488), 名as (3470), ァイ (3207), ll (2884), ー発 (2734), イル (2684), 数as (2646), 用範 (2432), pastespecial (2302), selection (2288), transpose (1899), 黄色 (1727), 囲外 (1690), xlnone (1596), 般論 (1538), select (1466), 色く (1447), paste (1404), が黄 (1312), デッ (1057), cells (953)
- 『エラー9インデックスが適用範囲外です』（だい）
上記エラーが出て困っています。 マクロの内容は、CSVファイルのデータの一部を取り出すもので、起動させるとエラーが 出ます。 パソコンによって、出る場合と出ない場合があるのですが、法則がわかりません。 ちなみに、OSはWin98、Excel2000です。 Sub Macro2() Dim ファイル名 As String Dim ファイル数 As Variant Dim 規定ファイル名 As String Dim 保存ファイル名 As Variant Dim 桁数 As Integer Dim L As Integer Dim LL As Integer Dim i As Integer ファイル名 = InputBox("読み込むファイル名を入力してください。", "データー読み込み", "") If ファイル名 <> "" Then GoTo AA Else: GoTo CC End If ファイル名 = ファイル名 + ".csv" AA: If Cells(7, 26) = "" Then MsgBox "節を入力して下さい" GoTo CE Else 規定ファイル名 = "管理図" & "-第" & Range("Z7") & "節" & ".xls" 保存ファイル名 = Application.GetSaveAsFilename(規定ファイル名) If 保存ファイル名 = False Then MsgBox "保存は中止されました" Else ActiveWorkbook.SaveAs 保存ファイル名 End If ChDir "A:¥" Workbooks.Open Filename:="A:¥data¥" + ファイル名 Windows(規定ファイル名).Activate End If AC: Sheets("データテーブル").Select For i = 4 To 204 If Cells(i, 2) = 0 Then GoTo AD End If Next i AD: 桁数 = i LL = 8 AE: For L = 1 To 20 Windows(ファイル名).Activate Cells(LL, 3).Select If Cells(LL, 3) = 0 Then GoTo CC Else: GoTo AF End If AF: Selection.Copy Windows(規定ファイル名).Activate Cells(i + L - 1, 11).Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Windows(ファイル名).Activate ←ここが黄色くなってエラー発生 Cells(LL - 2, 1).Select Selection.Copy Windows(規定ファイル名).Activate Cells(i + L - 1, 3).Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Windows(ファイル名).Activate Cells(3, 2).Select Selection.Copy Windows(規定ファイル名).Activate Cells(i + L - 1, 2).Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Windows(ファイル名).Activate Cells(2, 1).Select Selection.Copy Windows(規定ファイル名).Activate Cells(i + L - 1, 4).Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Windows(ファイル名).Activate Cells(LL, 1).Select Selection.Copy Windows(規定ファイル名).Activate Cells(i + L - 1, 10).Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Windows(ファイル名).Activate Cells(LL, 2).Select Selection.Copy Windows(規定ファイル名).Activate Cells(i + L - 1, 9).Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False CD: LL = L * 59 + 8 Next L CC: Windows(規定ファイル名).Activate CE: Sheets("グラフ").Select End Sub 以上、よろしく御願いします。 ---- エラーが起きて、とまったとき、VBAのどこが黄色く光って、とまりますか? 一般論では、『インデックスが適用範囲外』とは10個しか用意していないものを 11個使いに行った場合などに発生します。 （kazu） ---- すみません、見落としていました、[ここが黄色になる]を発見しました。 ファイル名がエラーになるということは、手で入力したファイル名が間違えている 可能性が一番大きいです。 ファイル名を手で入力させるのは基本的に間違っています。 ファイルが存在するかDir関数などで、調べて、もしファイルが存在しなかったら、 終わらせるようにします。 （kazu） ---- もし、ファイル名が違っていたら、AE:とAF:の間の ”Windows(ファイル名).Activate” の所が黄色く点滅するのではないでしょうか? （だい） ---- うーーむ、たしかに、上で引っかかるはずですね。 Windows(ファイル名).Activate ←ここが黄色くなってエラー発生 Cells(LL - 2, 1).Select となると、あと考えられるのは、LLが3より小さい場合が起こりうるのでは? （kazu）... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/200207/20020702091737.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97021 documents and 608149 words.
訪問者：