• 締切済み

実行時エラー '1004' の解決方法を教えて下さい。

Excel　2003でデータ解析をしていますが、 実行時エラー '1004': アプリケーション定義またはオブジェクト定義のエラーです。 と出てしまい「デバッグ」をクリックすると、 ActiveSheet.Shapes("変数" & CStr(i)).Ungroup.Select の部分が黄色くマークされています。 パソコンに詳しくないのでどこをどのように修正すればエラーが出なくなりますでしょうか？ ご存知の方、どうぞよろしくお願いいたします。

みんなの回答

  • Wendy02
  • ベストアンサー率57% (3570/6232)
回答No.2

もし、パスワード解析でしたら、直接の回答は自主的にお断りしています。 >エラーが出た部分だけだったら問題解決になりませんかね？ ActiveSheet.Shapes("変数" & CStr(i)).Ungroup.Select 私の知る範囲において、このようなコードはありえないですし、問題の内容のマクロとは関係ないはずです。おそらく、コンパイル中にミスが発覚してエラーが出ているのではないかと思います。 ActiveSheet.Shapes("変数" & CStr(i)).Ungroup とするか、オプションで、順次コンパイル型にすれば通るはずです。分からなければ、こちらは無視してください。

  • Wendy02
  • ベストアンサー率57% (3570/6232)
回答No.1

こんにちは。 基本的には、「実行時エラー'1004'」は、実行時前には、エラーが認識できないということですから、「デバッグ」のコンパイルだけで、そのようなエラーが出ることはないはすです。 しかし、 ActiveSheet.Shapes("変数" & CStr(i)).Ungroup.Select ざっとみて、"変数"という「定数」をいれることは間違いですから、"Group" ということでしょうけれども、Ungroup というメソッドと、Select というメソッドを二つをあわせることもないはずです。 Ungroup したいのですか？ >修正すればエラーが出なくなりますでしょうか？ 一行エラーが出ているから、そこが原因だというよりも、それは結果だと思います。Shape をUngroup したいのなら、その前から直さないといけません。 例： For each shp in ActiveSheet.Shapes 　if shp.Type = msoGroup Then 　　　shp.Ungroup 　End if Next

lch2007
質問者

お礼

Wendy02さん アドバイスありがとうございます。 使っているソフトはExcelで使うパス解析というソフトなんです。 ボタン一つ押せば勧めるはずの解析が途中でエラーが出て最後まで解析が出来なかったです。どこが問題になっているかが分からないです。エラーが出た部分だけだったら問題解決になりませんかね？

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • 実行時エラー '1004' の解決方法を教えて下さい。

    Excel97, Windows98SEを使用しています。 ブック内にいくつかのシートがあり、その中のシートAとシートBの2シートを使って作業しています。 シートの名前は決まったものではありませんが、必ずシートAの右側にシートBがあります。 シートBのセルO5に、シートBのセルB5を検索値として、 シートAのセルB17から、B列の最終データ(途中空白有り)までを範囲として、VLOOKUP関数を入力しようとしています。 そこで下記のように書いたのですが、 実行時エラー '1004': アプリケーション定義またはオブジェクト定義のエラーです。 と出てしまい「デバッグ」をクリックすると、 　Range("O5")").FormulaR1C1 = _… の部分が黄色くマークされてしまいます。 Sub test() 　Dim 前回シート As String 　Dim 前回オーダ As String 　ActiveSheet.Previous.Select 'シートAを選択 　前回シート = ActiveSheet.Name 　前回オーダ = ActiveSheet.Range(Cells(17, 2), Cells(Range("B65536").End(xlUp).Row, 2)).Address 　MsgBox 前回オーダ'どこを参照するのか確認するために試しに入れています。 　ActiveSheet.Next.Select 'シートBを選択 　Range("O5").FormulaR1C1 = _ 　　"=IF(ISERROR(VLOOKUP(RC2,'" & 前回シート & "'!" & 前回オーダ & ",1,FALSE)),"""",IF(VLOOKUP(RC2,'" & 前回シート & "'!" & 前回オーダ & ",1,FALSE)="""","""",""●""))" End Sub どこをどのように修正すればエラーが出なくなりますでしょうか？ ご存知の方、どうぞよろしくお願いいたします。

  • 実行時エラーについて

    お世話になっています。教えて下さい。 ＶＢで作ったプログラムです。 デバッグ時には何の問題もなく、実行可能(完全コンパイル後に実行)で、コンパイルも問題なく通りますが、ＥＸＥにして実行すると、以下のエラーが出ます。 実行時エラー:'91' object変数、またはwithブロック変数が設定されていません。 どなたか、原因に心当たりがある方、いらっしゃったら教えて下さい。 よろしくお願いします。

  • やはり図形のクリアで実行時エラー1004

    　図形を二行三列で一枡とし図形を貼り付けていますが、どうしても実行時エラー 「1004」が出て図形のクリアができません。(尚、四角形は枠線上にあります。) 対処法がありましたらお願いします。 Windows7・SP1 Office2010 Sub 図形の貼付け() Dim i As Integer Dim j As Integer For i = 10 To 43 Step 2 For j = 9 To 99 Step 3 Select Case Cells(i, j).Value Case 1: ActiveSheet.Shapes("四角形1").Select Selection.Copy Cells(i + 1, j + 1).Select ActiveSheet.Paste Case 2: ActiveSheet.Shapes("四角形2").Select Selection.Copy Cells(i + 1, j).Select ActiveSheet.Paste Case 4: ActiveSheet.Shapes("四角形3").Select Selection.Copy Cells(i + 1, j + 1).Select ActiveSheet.Paste Case 5: ActiveSheet.Shapes("四角形3").Select Selection.Copy Cells(i + 1, j + 2).Select ActiveSheet.Paste Case 6: ActiveSheet.Shapes("円1").Select Selection.Copy Cells(i, j).Select ActiveSheet.Paste End Select Next Next End Select End　Sub Sub 図形のクリア() Dim myRng As Range Set myRng = Range("I10:CW43") Dim n As Integer, sp As Variant For n = ActiveSheet.Shapes.Count To 1 Step -1 Set sp = ActiveSheet.Shapes(n) If Not Intersect(Range(sp.TopLeftCell, sp.BottomRightCell), myRng) Is Nothing 　(ここで実行時エラー1004になります。) Then sp.Delete End If Next Set myRng = Nothing End Sub

  • excel2000マクロエラー

    下記のマクロを実行したときにエラーがでます。 Sheets("売上日報").Select Application.CutCopyMode = False ActiveSheet.Unprotect Sheets("売上日報").Select ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenasios:=True エラーメッセージ アプリケーション定義またはオブジェクト定義のエラーです。 下記のところでマクロがとまります。 ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenasios:=True

  • シートは存在するのに、実行時エラー40036が発生

    シートは存在するのに、実行時エラー40036が発生する エクセルで、「シート名」と言うシートは存在するのに、 Sheets("シート名").Select が「アプリケーション定義またはオブジェクト定義のエラー 」というエラーになります。 1度目のマクロは問題なく動くのですが、 同じプロシージャーをもう一度実行しようとするとエラーが発生します。 そもそも 実行時エラー40036と1004は何が違うのでしょうか？ エクセル２０１０です。 再起動したら治ります。

  • Excel　VBAにて助けてほしいです。

    マクロ記述でグラフを挿入を記録したものを、VBAで実行すると 実行時エラー　アプリケーション定義またはオブジェクト定義のエラーです。 となります。 Range("C3:O5").Select ActiveSheet.Shapes.AddChart2(201, -4111).Select ActiveChart.SetSourceData Source:=Range("決算!$C$3:$O$5") -4111が認識されないのかわかりません。 集合縦棒2つ　折れ線グラフ1つ 表及び記録されたコードの画像を添付します。 なんとか宜しくお願い致します。

  • 列を数値で選択する方法をご教授ください

    エクセル２００７です。 Columns("a:b").Select なら列を選択できますが、 Columns(1 & ":" & 2).Select だと 「実行時エラー1004、アプリケーション定義またはオブジェクト定義のエラーです」 になってしまいます。 数値にしたい理由は、変数を代入したいからです。 アドバイスよろしくお願いします。

  • 起動時の実行時エラー

    ＰＣ起動時に… 『実行時エラー　'2147319779 (8002801d)!: オートメーション エラーです。 アプリケーション定義またはオブジェクト定義のエラーです。』 …と毎回こんなタブが出ます。 どうしたら不具合を直し表示しないように出来るでしょうか？ どーにもならなかったら再インストールした方がいいのでしょうか？ よろしくお願いします

  • ｅｘｃｅｌの　実行時エラー

    VBAを組み込んだところ、エクセルを開くところで、実行時エラー1004が出るようになってしまいました。 アプリケーション定義またはオブジェクト定義のエラーとありますが、 メッセージＢＯＸを終了すると、作業は続けられます。 何が問題なのかは、デバックが押せないので良くわからない状態です。 何かわかる方、ご教授願えませんでしょうか。

  • ShapesRange.Rotation

    Sheetに描画オブジェクト　Shapes(1) があります。 これを回転させるのに、次のコードだとエラーになります。 Sub Test() ActiveSheet.Shapes(1).ShapeRange.Rotation = 90 End Sub 次のコードだと実行できます。 Sub Test2() ActiveSheet.Shapes(1).Select Selection.ShapeRange.Rotation = 90 End Sub Selectしないで回転させるにはどう書いたらいいのでしょうか？教えてください。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する