• ベストアンサー

マクロの記録というのは

「新しいマクロの記録」といのは、複数のブックにまたがる処理に関しては正確に記録されないのでしょうか。 Book1のA1からA10を、Book2のA1にコピーする処理を行ってマクロ内容を確認してみたら、 Range("A1:A10").Select Selection.copy これだけでした。 ブックが複数になると対応しきれないということでしょうか。

質問者が選んだベストアンサー

  • ベストアンサー
  • gatyan
  • ベストアンサー率41% (160/385)
回答No.1

マクロの記録先をBook1にしていて、Book1を閉じていませんか？ Book1でセルをコピー->Book1を閉じる Book2を開く->貼り付ける だと、Book1を閉じた時点で、マクロの記録が終了します。（保存先がなくなるので、記録できなくなるようです。） もうひとつのBook3（閉じる・開くの操作に無関係のブック）を用意して、マクロの記録先にすれば、閉じて開いての記録もできます。

whalefin
質問者

お礼

ありがとうございました。 ＞Book1を閉じていませんか？ いえそういうことはしていません。 ＞もうひとつのBook3（閉じる・開くの操作に無関係のブック）を用意して、 Book3で、「新しいマクロの記録」をスタートさせて、Book1のA1からA10をBook2のA1にコピーして、「マクロの記録」を終了させて、マクロの内容を確認してみたら、何も記録されていませんでした。

その他の回答 (1)

  • gatyan
  • ベストアンサー率41% (160/385)
回答No.2

#1 です。だめでしたか・・・　試しに、 Book1,2,3を開く Book3を表示させてマクロの記録開始（マクロの保存先は作業中のブック） Book1を表示->セルのコピー Book2を表示->セルの貼り付け マクロの記録終了 をすると、Book3!Macro1がつくられて、中身は Windows("Book1").Activate Range("A1:A10").Select Selection.Copy Windows("Book2").Activate ActiveSheet.Paste ってなりますが・・・ （Book1,2は閉じたりしないので、無理にBook3を使う必要はないんですが、念のため）

whalefin
質問者

お礼

ありがとうございました。 解決しました。 実は、最初にブックを開く時に、「マクロを有効にしない」を選択していたものがあって、それが原因のようでした。 お騒がせしました！！

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

関連するQ&A

  • Excel マクロ ： マクロの記録の表記方法の変更

    Excelで質問です。 下記のようなマクロの記録を使用し「顧客一覧」のブックにデータを追加しています。 しかし、処理の中で一項目コピーするごとにファイルを行ったり来たりしているようで処理が遅いようです。何か解決策はあるのでしょうか？ ・ ・ ・ Windows("顧客一覧.xls").Activate Rows("4:4").Select Selection.Insert Shift:=xlDown Windows("2.xls").Activate Range("C6").Select Selection.Copy Windows("顧客一覧.xls").Activate Range("A4").Select ActiveSheet.Paste Windows("2.xls").Activate Range("C7").Select Application.CutCopyMode = False Selection.Copy Windows("顧客一覧.xls").Activate Range("B4").Select ActiveSheet.Paste Windows("2.xls").Activate Range("C8").Select Application.CutCopyMode = False Selection.Copy 　　・ 　　・

  • vba 順次記録　

    下記のマクロはツール、マクロ、新しいマクロの記録で作成しました。 順序はa1に　”=RSS|'3315.T'!現在値”　最初から入力しておきます。 1回目a1に楽天のマーケットスピード 　(MS)　より数字が入力されます a1に入力したすうじをa5とa6にコピーします。 2回目　MS より次の入力が入ります。 a1に入力したすうじをa5にコピーします。 a5,a6　を　a6,a7　にコピーします。 3回目　MS より次の入力が入ります。 a1に入力したすうじをa5にコピーします。 a5,a6,a7　を　a6,a7,a8　にコピーします。 4回目　MS より次の入力が入ります。 a1に入力したすうじをa5にコピーします。 a5,a6,a7,a8　を　a6,a7,a8,a9　にコピーします。 ｎ回目　MS より次の入力が入ります。 a1に入力したすうじをa5にコピーします。 a5,a6,a7,a8,-----a?　を　a6,a7,a8,a9,-----a?　にコピーします。 以後入力有り次第 繰り返し続けて記録したいのです。 下記のマクロはa列に記録ですがｂ、ｃ、ｄ、と４箇所形式は同じですがデータの違いのが有るのですが a,b,c,d,列入力順序がばらばらなのです a列のみでもお願いします。 Sub M3() Range("A1").Select Selection.Copy Range("A5").Select ActiveSheet.Paste Application.CutCopyMode = False Selection.Copy Range("A5:A6").Select ActiveSheet.Paste Application.CutCopyMode = False Range("A5").Select Range("A1").Select Selection.Copy Range("A5").Select ActiveSheet.Paste Application.CutCopyMode = False Range("A5:A6").Select Selection.Copy Range("A6").Select ActiveSheet.Paste Range("A1").Select Selection.Copy Range("A5").Select ActiveSheet.Paste Application.CutCopyMode = False Range("A5:A7").Select Selection.Copy Range("A6").Select ActiveSheet.Paste Range("A5").Select Range("A1").Select Selection.Copy Range("A5").Select ActiveSheet.Paste Application.CutCopyMode = False Range("A5:A8").Select Selection.Copy Range("A6").Select ActiveSheet.Paste Range("A5").Select Range("A1").Select Selection.Copy Range("A5").Select ActiveSheet.Paste Application.CutCopyMode = False Range("A5:A9").Select Selection.Copy Range("A6").Select ActiveSheet.Paste Range("A5").Select Range("A1").Select Selection.Copy Range("A5").Select ActiveSheet.Paste Application.CutCopyMode = False Range("A5:A10").Select Selection.Copy Range("A6").Select ActiveSheet.Paste Range("A5").Select End Sub

  • マクロの自動記録

    Excelのマクロ自動記録に関する質問です。 ソルバーを繰返し含む処理をマクロの自動記録で実行したいのですが、Excelのシート上で１つづつ手で実行すると問題なく処理出来ている手順を自動記録して実行すると“コンパイルエラー：SubまたはFunctionが定義されていません”とエラーが出ます。 下記の“SolverOk”の部分に問題があると表示されます。 Range("D19").Select ActiveCell.FormulaR1C1 = "180" Range("D19").Select Selection.Copy Range("J19").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Range("D24").Select Application.CutCopyMode = False Selection.Copy Range("J22").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False SolverOk SetCell:="$M$18", MaxMinVal:=3, ValueOf:="0", ByChange:="$D$19" SolverSolve 　　－－－ 　　－－－ どうすれば解決できるか教えて下さい。 よろしくお願いします。

  • excel2003マクロの2007での使い方

    OS:windowsXP excel2003で作成したマクロがexcel2007で動かなく困っております。 マクロでやりたいことは 1つ目のブック（以降A）の内容を、2つ目（以降B）のブックに行列を反転しコピー です。Aのブックの列数は不変ですが行数、ファイル名は毎回変化します。 excel2003では動いていたのですが2007ではコピー元がBのブックになってしまいます。 実際のマクロは Workbooks(1).Activate Range("A1").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToRight)).Select Selection.Copy Windows("B.xls").Activate Sheets("sheet2").Select Range("B1").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True です。 よろしくお願いいたします。

  • マクロの記録を書きかえる

    下記の構文を可能な限り短くして書きたいのですが、 どのように省略出来るのかがわかりません。 ＜シート1のB列のデータの入力されているセルまでコピーし、シート2のA2から値で貼付ける＞ Range(\"B2\").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets(\"Sheet1\").Select Range(\"A2\").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ご指導宜しくお願い致します。

  • エクセル２００７マクロ　シート間のセルコピー

    [Sheet1]にあるデータを[Sheet2]にコピーするマクロボタンを[Sheet2]に作りたいのですが、マクロがよく分からないので、「マクロの記録」で作成してみました。 Sub siken() ' ' siken Macro ' ' Sheets("Sheet1").Select Range("A1").Select Selection.Copy Sheets("Sheet2").Select Range("A1").Select ActiveSheet.Paste Sheets("Sheet1").Select Range("B3").Select Application.CutCopyMode = False Selection.Copy Sheets("Sheet2").Select Range("B3").Select ActiveSheet.Paste Sheets("Sheet1").Select Range("B6:D6").Select Application.CutCopyMode = False Selection.Copy Sheets("Sheet2").Select Range("B6").Select ActiveSheet.Paste End Sub （実際はもっと多くのセルをコピーします） マクロを実行すると、ちゃんとコピーできるのですが、セルをコピーする都度[Sheet1]と[Sheet2]が交互に表示されます。 コピー元の[Sheet1]を表示させずにマクロを実行させるにはどのようにしたらよいのでしょうか？ よろしくお願いします。

  • Excelでマクロを繰り返したい。

    Excelでマクロを記録したら以下のようになりました このマクロを以下の条件で繰り返したいのですが。 Sub Macro1() '------------- '----------------------- ' Sheets("Sheet1").Select Selection.AutoFilter Field:=4, Criteria1:="=5*", Operator:=xlAnd, _ Criteria2:="<>5@*" Range("A3:A302").Select Selection.Copy Sheets("Sheet2").Select Range("A3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Sheet1").Select Range("A1").Select Selection.AutoFilter Field:=4, Criteria1:="=6*", Operator:=xlAnd, _ Criteria2:="<>6@*" Range("A3:A302").Select Selection.Copy Sheets("Sheet2").Select Range("B3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Sheet1").Select Selection.AutoFilter Field:=4, Criteria1:="=7*", Operator:=xlAnd, _ Criteria2:="<>7@*" Range("A3:A302").Select Selection.Copy Sheets("Sheet2").Select Range("A103").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Sheet1").Select Range("A1").Select Selection.AutoFilter Field:=4, Criteria1:="=8*", Operator:=xlAnd, _ Criteria2:="<>8@*" Range("A3:A302").Select Selection.Copy Sheets("Sheet2").Select Range("B103").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub 条件＝　Field：は4～35位まで変動します 一連の動作をコピーして手作業で数字を変えてみたのですが プロージャが大きすぎてエラーになってしまいます。 何か良い方法は無いでしょうか？。

  • Excel マクロについて

    お世話になります マクロをはじめて記録しましたが、うまく動きません まず、原紙となるページ”オリ”があり、１～３１までの記録用ページがあります 処理が終わった場合や、間違った場合には原紙となる”オリ”をコピーし、貼り付ける　　つまり原紙と同じ状態に戻すようにしたいのです で、まず記録の際に、シート３１を開いて入力した後、元に戻すためシートオリをコピーし、元のシート３１に戻り貼り付けた。 というのが下のソースになります。 ActiveWindow.ScrollWorkbookTabs Position:=xlFirst Sheets("オリ").Select Range("A4:W43").Select Selection.Copy ActiveWindow.ScrollWorkbookTabs Position:=xlLast Sheets("31").Select Range("A4").Select ActiveSheet.Paste Range("C6").Select この内容では、シート１で実行した場合でも３１が元に戻ってしまうので困っております。 どこかを変えればよいのでしょうか？

  • excel マクロ

    Sub Macro1() ' ' Macro1 Macro ' ' ActiveCell.Offset(-1, 0).Range("A1:G1").Select Selection.Copy End Sub マクロの記録だけでこのコードを作ることは可能でしょうか？

  • エクセル記録マクロの作成の方法

    エクセル記録マクロの作成の方法 あるネット上でマクロ作成方法では、 ブックのsheet(1)をオートフィルターを利用し、データを抽出した物だけを、シートを追加し張り付けるやり方を、コード上では Selection.CurrentRegion.Select(1) Selection.Copy Sheets.Add Selection.PasteSpecial Paste:=xlValues(2) と記入がありました。 私が自動記録をすると、sheet(1）をコピー時は(1)可視セルのコピーを選択し、貼り付けをするときに(2)値のみにしておこなうと、上記のようなコードで自動記録はおこなわれません。 上記のコードを自動記録操作で作成させるのには、どのような操作記録をおこなったか教えてください。 （(1)についてはアクティブセルのコピーのようだとは理解しました。なぜか理解はできません。）

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する