マクロが止まってしまいます． (マクロ初心者です)

質問

ある２列のデータを選択して(例えばＡ1からＢ10まで)
グラフウィザードを選択して散布図のグラフを作成する．

上記のようなマクロを作成したのですが，
作ったエクセルのファイル上ではちゃんと動いてくれるのですが
別のファイルで使うと
「実行エラー9　インデックスが有効範囲にありません」
と警告がでて途中で止まってしまいます．

マクロ初心者でプログラムもわからないです．
保存先がよくないのでしょうか？
それとも，もともとこのような作業(マクロを別のファイルで使用)
はできないものなのでしょうか?

よろしくお願いします．

windows98 Excel2000

回答No.4

imogasi · ベストアンサー

質問の意図が良く掴めませんが、下記と比べて違いを教えてください。私のがやると上手く行きましたが、やっていることが違うのかも知れませんがそれが何かを明かにすると、回答が入ると思います。
推定では「シート名が変っているのに、変えてないからではないですか」
下記コードでは「Sheets("Sheet1").Range("A1:B10"), 」のところです。
（１）Sheet1にＡ１：Ｂ１０に数字データを入力する。
（２）ツール－マクロ－新しいマクロの記録をクリック。
（３）挿入－グラフ－以下略－完了（グラフウイザード）
（４）ツール－マクロ－マクロの記録終了
（５）ツール－マクロ－マクロ－編集　
（６）ＶＢＥのマクロの記録をコピー
Sub Macro1()
Range("A1:B10").Select
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:B10"), PlotBy _
:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
End Sub
（７）ブックを閉じる。
（８）改めて新規ブックを開く。
（９）Sheet1のＡ１：Ｂ１０に数字データを入れる。
　　　前と同じく「シート名はSheet1のまま」です。
（１０）ツール－マクロ－ＶＢＥをクリック。
（１１）挿入－標準モジュールをクリック。
（１２）標準モジュール画面に貼り付ける。上記コードと　　　　当然同じです。
（１３）実行する。
（１４）Sheet1にグラフが描けた。（テスト済み）

お礼

imogasiさんの推測どおりです．
シート名がどうもエラーの原因だったようです．

回答ありがとうございました．

回答No.3

imogasi

質問の意図が良く掴めませんが、下記と比べて違いを教えてください。私のがやると上手く行きましたが、やっていることが違うのかも知れませんがそれが何かを明かにすると、回答が入ると思います。
推定では「シート名が変っているのに、変えてないからではないですか」
下記コードでは「Sheets("Sheet1").Range("A1:B10"), 」のところです。
（１）Sheet1にＡ１：Ｂ１０に数字データを入力する。
（２）ツール－マクロ－新しいマクロの記録をクリック。
（３）挿入－グラフ－以下略－完了（グラフウイザード）
（４）ツール－マクロ－マクロの記録終了
（５）ツール－マクロ－マクロ－編集　
（６）ＶＢＥのマクロの記録をコピー
Sub Macro1()
Range("A1:B10").Select
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:B10"), PlotBy _
:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
End Sub
（７）ブックを閉じる。
（８）改めて新規ブックを開く。
（９）Sheet1のＡ１：Ｂ１０に数字データを入れる。
　　　前と同じく「シート名はSheet1のまま」です。
（１０）ツール－マクロ－ＶＢＥをクリック。
（１１）挿入－標準モジュールをクリック。
（１２）標準モジュール画面に貼り付ける。上記コードと　　　　当然同じです。
（１３）実行する。
（１４）Sheet1にグラフが描けた。（テスト済み）

回答No.2

imogasi

質問の意図が良く掴めませんが、下記と比べて違いを教えてください。私のがやると上手く行きましたが、やっていることが違うのかも知れませんがそれが何かを明かにすると、回答が入ると思います。
推定では「シート名が変っているのに、変えてないからではないですか」
下記コードでは「Sheets("Sheet1").Range("A1:B10"), 」のところです。
（１）Sheet1にＡ１：Ｂ１０に数字データを入力する。
（２）ツール－マクロ－新しいマクロの記録をクリック。
（３）挿入－グラフ－以下略－完了（グラフウイザード）
（４）ツール－マクロ－マクロの記録終了
（５）ツール－マクロ－マクロ－編集　
（６）ＶＢＥのマクロの記録をコピー
Sub Macro1()
Range("A1:B10").Select
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:B10"), PlotBy _
:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
End Sub
（７）ブックを閉じる。
（８）改めて新規ブックを開く。
（９）Sheet1のＡ１：Ｂ１０に数字データを入れる。
　　　前と同じく「シート名はSheet1のまま」です。
（１０）ツール－マクロ－ＶＢＥをクリック。
（１１）挿入－標準モジュールをクリック。
（１２）標準モジュール画面に貼り付ける。上記コードと　　　　当然同じです。
（１３）実行する。
（１４）Sheet1にグラフが描けた。（テスト済み）

回答No.1

vbafriend

初めまして。マクロのエラーは、自分でデバック(修正してきちんと動作するようにすること)をする以外には方法がありません。冷たいようですが、マクロの誤作動は、貴方様のブックの内容を拝見しなければどこでエラーが起こるのかが見当がつきません。
もし、どうしてもデバックを手伝ってほしい時は、貴方様の記述になったマクロすべてを教えて下さい。また、マクロのどの行でエラー(実行エラー9　インデックスが有効範囲にありません)と出るのかも教えて下さい。

お手数をおかけいたしますが、よろしくお願いいたします。

お礼

すいません！
説明が足らなかったようですね～．

質問内容の方は当方で解決できました．
ご回答ありがとうございました．