貴重なご意見感謝いたします., ご回答有り難うございます.     If Canceled = True Then 自宅で別データを作ってやってみるとうまくいきました。 ElseIf j = 3 Then Sheets("B").Se...続きを読む, Sheets("A").Select End With   Dim i As Long ElseIf j = 2 Then 'セル着色【エラー箇所↑】 Worksheets("Sheet1").Cells(1, 5).Interior.Color = RGB(0, 0, 255) End Sub .   ↓この部分が毎回エラーをおこしています 新しい単語があれば、文字カーソルを単語の上に置き、F1キーを押してVBAのヘルプを必ず見るようにしています。 userform1.progressbar1.value=i/5000*100 貴重な情報の提供感謝いたします, ご回答有り難うございます. ActiveSheet.Range(ActiveSheet.Cells(8, 1), ActiveSheet.Cells(1587, 2)).Select Application.CutCopyMode = False Private Sub CommandButton1_Click() また, WorksheetクラスのCopyメソッドが失敗しました。 Application.DisplayAlerts = True Worksheets("Sheet1").Cells(1, 1).Value = project_name, 'セル着色【エラー箇所↓】 途中に DoEvents を入れると制御が OS に渡るので、OS は溜まっていた処理をそこで行うことができます。 cells(i,1)="" ActiveWorkbook.SaveAs Filename:= _ Range("A2").Select ThisWorkbook.Name .Close file 作業手順をマクロを使って処理していますが、オリジナルのワークブックをファイル名を変えて保存し、以後、このワークブックを読み込んで使用しています。 Sheets("Sheet2").Range(Sheets("Sheet2").Cells(8, 1), Sheets("Sheet2").Cells(1587, 2)).Select 処理の進行状況を表示するためにuserform上にプログレスバーを表示したいと思います。 注意点ですが、 'ActiveSheet.Name = Range("A2").Value の様にして下さい。 ActiveSheet.Paste Range("A1").Select Selection.Copy project_name = Cells(7, 2) >そこで自分で基礎を勉強したいのですが推薦できる参考書などがござ '集約用ブック作成時のシート数を取得 For s = 0 To 17   Set myRng = .Range(.Cells(11, 11), .Cells(lRow, lCol)) Worksheets("A").Delete MsgBox (task_name(task_cnt)) どういう意味のものかわかりません。 Range("A2").Select 実行時エラー '1004' 今回の投稿では、 Excel VBA の Select メソッドでエラーが発生した場合の対処方法を書いていきたいと思います。 実行時エラー'1004' Range クラスの Select メソッドが失敗しました。 目次まで戻る. ZPOS = Sheet1.Cells(22, 4).Value しかしこれだとuserformの背景が真っ白になってしまい End If VBAでAutoFillメソッドを使ったときに「実行時エラー1004、AutoFillメソッドが失敗しました」がなってしまうケースがあります。今回はAutoFillメソッドで失敗するときの対処方法について徹底的に説明していきます。AutoF 私自身は、入門書程度の雑誌を1冊買っただけです。どれが良いとかはよく分かりません。 ですね。 ThisWorkbook.Name Set myRng = Nothing Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ マクロ実行時に、Activeな(Excelで表示されている)シートが上位オブジェクトとして、自動的に認識されます。 で、四捨五入 以下の場合、貼り付け処理でエラーになります。 ElseIf j = 4 Then End With やっぱり、10ファイル目(さっきとは違うファイル)までしか処理されない、 Range("L12").PasteSpecial Paste:=xlPasteValues 'task_name(13) = task3 クリアするにはどのようにすればよろしいでしょうか? End Sub 対象列 = InputBox("対象列を入力") cells(1,1)からcells(5000,1)までの値を消去するときに 原因とその解決策を教えて頂きたいと思います。宜しくお願いします。 ZPS = InputBox(">>> ステップを入力してください<<<") で、このマクロだと900位までですと最後まで行くのですが、それを超えるとリストが95位で止まってしまいます。  Case "1" To "30", "日報" Sub 評価シート作成() セルのコピー、または切り取りを行っていると思います。 Range("A1").Select 何故、情報が少ないのかは不思議に思いました。, http://oshiete.goo.ne.jp/qa/8750372.html ですのでループ中は OS や Excel そのものにも再描画をさせる暇さえ与えません。 VBAやプログラミングに詳しい皆様に    ...続きを読む, ひょっとしてこれに該当するのかな?     Cells(i,1) = "" End Sub End Sub sWB.Worksheets("sheet1").Copy After:=dWB.Worksheets(dWB.Sheets.Count) ********************************************** ActiveSheet.Paste ← ココでエラー End If, ご丁寧にどうも有難う御座いました。 というエラーが実行時に出たり出なかったりします。 エクセルマクロのrangeプロパティ内のcellsプロパティは変数を指定できるので便利ですが、マクロ実行時のシートによってエラーになったりならなかったりします。理由と解決法を説明します。 CommandButton1 のクリック イベントではループの前に 上記の例では、RangeとかCellsの上位オブジェクトであるシート名が省略されています。 'エクセルデータに変換されたファイルのあるフォルダを選択します。 が表示されることがあります。 下記のマクロで、一つのブックからSheet1だけをコピーして来て、少し処理をし、元のブックを閉じるというもので、ブックの数は多くて3000程、少ない時は300位です。 エラーが生じ、にっちもさっちも行かない状態です。以下の内容を記述してあります。 これは、その操作(セルのコピー、または切り取り)を無効にしているだけです。 Dim myRng As Range unload userform1 'task_name(12) = rest2 SkipBlanks:=False, Transpose:=False End Sub 該当のFor~Next文は10回以上実行されているので、コードの誤りではないと思うのですが、なぜ「Copyメソッドが失敗」するのかわかりません。 提供していただいたコードに修正してみたところ,正しく動作いたしました. 下記にマクロ内容全部記載します。 例えば、30ファイルあっても10ファイルしか読み込まれない事があり、 まず、シート名の長いコードは、これだけでよいはずです。 現在、マクロを作成し、実行すると毎回ある部分で End Sub 教えていただきたい質問があります。 ActiveChart.SeriesCollection(1).Name = "=""0810p2x"""     Sheets(評価シート).Select Dim gantt_num As Integer, gantt_num = 1 お客様の許可なしに外部サービスに投稿することはございませんのでご安心ください。, http://www.excel.studio-kazu.jp/kw/2008120301302 …, エクセルのデータ並び替えで 漢字やカタカナアルファベット順に並んでいるものをあいうえお順にうまく並べ, エクセルで同じA列の中に、1,2,3,4,5,6,2,3,4,2,1,3,2,2,2,3,1という, VBA、セルについての質問です。 3,2 2,7 1,6 3,3 7,4 2,5 1,3 4,6 ワ, 「Excel VBA」 Webクエリ マクロ「実行時エラー"1004"」一時ファイル容量少、IE7で実行不可能, Excel VBA 並び替えについて お手数をおかけします 下記条件のようなプログラムを作りたいので. myRng.Sort key1:=.Cells(11, 10 + 基準列) というような文脈からすると、   Next i 0, 回答 SkipBlanks:=False, Transpose:=False Cells.Select Dim myRng As Range Sub ソート() With Workbooks.Add Workbooks(myfile).Activate ただいまエクセルでグラフを作成しています。作業自体は単純作業の繰り返しなのでVBAを用いてやりたいのですが、マクロを実行したときに実行時エラー’1004’rangeメソッドは失敗しました。’_global’オブジェクトとメッセージが出て、実行できません。 デバックをすると以下の5行目で黄色のバーが出ていました。自分なりに原因を考えたのですがrangeの関係するところに、Range("A8:A1587,e8:e1587")というような変数を用いないやり方でやると上手くいくので、変数に関する定義...続きを読む, >ご指摘を受けたところを書き換えて回してみた結果、書き換えた箇所  .ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteFormats, _ しかし「DoEvents」についてあまり詳しく書いていなかったのでDoEvents関数をヘルプで見ると、     End If DMN = Application.RoundDown(ZPOS / ZPS, 0) と出てしまいます。   For 回数 = 1 To 人数 DoEvents のみでも動作を確認しました.やはりkeyの改行がエラーの原因のようです. Excel2013 VBAバージョン 7.1, teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。, 評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。, 上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。, Cells(1, 2)はWorksheetの省略された記述ですので それから、最初に書いたコードで実行すると   Do ------------ その点滅がなくなります。, 「Application.CutCopyMode = False」の前で 処理終了後、ファイルを閉じるときに、クリップボードに RangeクラスのPastespecialメソッドが失敗しました************************ CommandButton2.Enabled = False マクロを実行したら「実行時エラー 1004」が出て困ることがよくあるんです。 これを見てくれている方も同じ悩みだと思います。 今回、RangeプロパティでCellsやRows、Columnsを組み合わせて使うと「実行時エラー 1004」が出る時の対処法を覚書で残しておきます。 ラベルの文字も消えてしまいます。 Set myRng = Worksheets("日報").Range("A3:AF36") Selection.Copy 途中に DoEvents を入れると制御が OS に渡るので、OS は溜まっていた処理をそこで行うことができます。 ここでDMNの値を四捨五入したいです。 unload userform1 '対象のファイルを開いてコピー、その後閉じる If 対象列 = "L" Then       MsgBox "キャンセルしました" の方ですかね。, 始めまして、VBA初心者のものです。 【エクセル】「実行時エラー'1004' InteriorクラスのColorIndeXプロパティを設定できません。」とは? 2, 回答 直前に、   Application.Calculation = xlCalculationManual   人数 = 行 - 2 以下の場合、貼り付け処理でエラーになります。 Sheets("C").Select 「Excel VBA」 Webクエリ マクロ「実行時エラー"1004"」一時ファイル容量少、IE7で実行不可能. 'コピー元のsheet1を集約用ブックにコピー 結果、フォームの再描画などが行われることになります。 このエラーコードが「シートが正しく指定されていない」ということは理解したのですが,WITH文内 Dim i As Long Workbooks("転記用マクロ.xlsm").Worksheets("DMリスト").Copy Before:=dWB.Worksheets("Sheet1") 「実行時エラー'1004':アプリケーション定義またはオブジェクト定義エラーです」 >結果、「ThisWorkbook」上の下記のマクロを削除すると、正常に動きだしました。 sFile = Dir(SOURCE_DIR & "*.xls") もし、10ファイル目で発生した場合、何度実行しても必ず、10ファイル目までしか処理されない。     ReDim Preserve 社員CD(行) ≪例1≫ かな。1行目だけでいいかも。, エクセルのマクロを記録していると >でエラーがでます。(実行時エラー’1004’’cells’メソッドは失敗 ...続きを読む, For~Next構文内でシートコピーしていると途中で、 If sFile = "" Then Exit Sub     Cells(i, 1).Value = "" Dim task_name(15) ActiveSheet.Unprotect Password:="1111" Dim rest_cnt As Integer, For task_cnt = 9 To 15 Step 2 よろしくお願いします。 .Axes(xlCategory, xlPrimary).HasTitle = True  End Select Range("A2").Select 常に発生する訳ではなく、マシンが変われば同じデータでもOKだったり、 End Sub, マクロ実行時に、エラー’1004RangeクラスのPasteSpecialメソッドが失敗と表記され、マクロが実行されません。 下記にマクロ内容全部記載します。   myRng.Copy       Exit Sub DMN = Application.RoundUp(ZPOS / ZPS, 0) ActiveSheet.Protect Password:="1111" Next If 対象列 = "L" Then DMN = ZPOS / ZPS     ReDim Preserve 氏名(行) で切り捨て If 対象列 = "L" Then  Select Case StrConv(Trim(ActiveSheet.Name), vbNarrow) 下記のマクロで、一つのブックからSheet1だけをコピーして来て、少し処理をし、元のブックを閉じるというもので、ブックの数は多くて3000程、少ない時は300位です。 If .Show = True Then                  ActiveSheet.Range("l2") & "月" & _ 2 / クリップ 3 VBAでピボットテーブルの作成(実効値エラー1004) 4 VBA、セルについての質問です。 3,2 2,7 1,6 3,3 7,4 2,5 1,3 4,6 ワ 5 「Excel VBA」 Webクエリ マクロ「実行時エラー"1004"」一時ファイル容量少、IE7で実行不可能 6 VBAで実行時エラー 1004 がでる エラーメッセージもない、何事もなく終了するが10ファイルしか処理されていない、 理由/対処方法がわかればありがたいと思い質問させていただきます。 End With *********************************************** task_name(task_cnt) = Cells(task_cnt, 3) と書いておけば安心です。 3.RangeクラスのCopuメソッドが失敗しました。 エクセルで「実行時エラー‘1004’」が発生する原因 「実行時エラー‘1004’」を修復するには、まずこのエラーが出る原因を知っておく必要があると思います。 cells(i,1)="" ------------ next i for i =1 to 5000 ③「Sheet1(To-Do リスト)」上でエラー箇所を別のサブプロシージャとして実行したところ、同じく1004エラーとなる。, 【開発環境】   CommandButton2.Enabled = False 1, 【募集】 1人だけ、自分の質問に「直った」と自己回答している方がいて、Open文の前にDoEvetsをつけたら直ったそうです。     ReDim Preserve 社員CD(行) OS Windows8.1 Application.DisplayAlerts = False Selection.Copy End With   行 = 1 'シート名をセルA2の値に変更 Excel(エクセル)VBA入門:目次 などとしていれば、ActiveシートがSheet1になっていますから、エラーになります。     ActiveSheet.Name = 氏名(回数) 返すにはどうしたらいいのでしょうか? 回避方法は、Open 文の前に DoEvets の1行を書く事。 Range("cells(8,s+2)").Activate  Range("I3").Select  ちょっと曖昧な表現かなぁという気もいたしますが、VBAが書いてあるブックのブック名は   Canceled = True 実施したい事は、”A”とあるシートより、シート”B”に値を貼り付けるというものですが、常に貼り付けの部分でエラーが生じております。エラーが生じた際に、表示されるエクセルのヘルプには、以下のような事がかかれているのですが、シートBには値が入力されていないことが原因なのでしょうか? Range("L12:L243").Select 何度目かでオープンが実行されず、エラーなしでスルンと終わります。 OS に制御を渡すってことです。(ヘルプそのまんま) ------------ 実行時エラー '1004'「RangeクラスのPasteSpecialメソッドが失敗」 Dim 基準列 As Long という恐ろしいバグがExcel VBAにありますが、それじゃないですかね? っていうフォームのコードがあった場合、 With ActiveChart *****以下エクセルのエラーメッセージ************************     社員CD(行) = Cells(行 + 1, 1).Value もし、10ファイル目で発生した場合、何度実行しても必ず、10ファイル目までしか処理されない。     DoEvents for i =1 to 5000 マクロの内容は、任意の範囲をコピー、新規book追加し、 Range("E1:E500000").Select Application.ScreenUpdating = False   Application.Calculation = xlCalculationManual With Workbooks.Add 注意点ですが、 Cells.Select 本エラーの原因はいくつか想定できます。 順を追ってみていきましょう。 ケース1:Cellsの指 … 躓いた時は、Web検索して欲しい情報を得たり、あるいは、こうした掲示板で先輩方のお力をお借りしています。 End Sub, Sub gantt_chart()