• 締切済み

特定のブックにアクティブシートをコピーさせる方法

日報というファイルに、アクティブシートをコピーさせるマクロを作るには、どういう記述をしたら良いでしょうか? 既出でしたら申し訳ありません。 よろしくご伝授をお願いいたします。

みんなの回答

  • shintaro-2
  • ベストアンサー率36% (2266/6244)
回答No.2

1回、キーボードマクロでその操作を記録すれば、理解できます。

全文を見る
すると、全ての回答が全文表示されます。
  • assault852
  • ベストアンサー率48% (1364/2797)
回答No.1

申し訳ありませんが、まる投げの質問は感心できません。 経験者かどうかわかりませんが、ご自分でチャレンジした上で、こういうところがわからない(できない)という問題について質問して頂きたいのですが、いかがでしょうか。

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

  • (Excel VBA)シートコピー時マクロはコピーしたくない

    教えていただけますでしょうか? マクロでシートをコピーしています。 しかし、コピー元にマクロ記述があるのですが(これは消さない)、 シートをコピーした後このマクロ記述まで一緒にくっついてきます。 ・あるシートのマクロ記述を消すには、どうマクロを組めばよいか? よろしくお願いします。

  • シートを一つのブックにまとめるには

    こんばんは ただいま夜中の1:20です。 マクロを考えているんですが、うまくうごかないです。 みなさまの知恵を拝借させてください。  デスクトップの経理フォルダに 仕入.xlsx 売上.xlsx まとめ.xlsm があります。  仕入の2月シート、売り上げの2月シートをまとめxlsmにコピーしたいのですが マクロの記述はどうなりますでしょうか? 自分なりにつくってみたのですが、経理フォルダを動かすとうまく作動しなくなりました。 thisworkbook.path をどこかにいれれば動くようですが、どこにいれればよいやら。 希望する動作としては まとめ.xlsm のシート1に記載されている ファイル名とシート名に該当するものを まとめ.xlsmにコピーできればと思ってます。

  • あるシートをすべてのブックにコピーしたい

    後追加された一つのシートをあるフォルダにあるすべてのexcelブックにコピーしたいですが、ひとつづつコピー上書きしていくとかなり時間がかかります。(500~600ファイルあります) excel マクロで簡単に終わらせることができないでしょうか?

  • エクセル-ワークシートのコピー方法

    検索してみたのですが、自分で解決することができなかったので質問させていただきます。 毎日作成されるエクセルファイルがあり、そのファイルには14枚のワークシートがあります。 このパターンは毎日同じです。 今回、このファイルの中の1つのワークシートだけを必要としている部署があり、このワークシートだけを拾い出して1年分(365枚)を別のファイルにコピーしたいのですが、 なにかよい方法はありますでしょうか? 365個のファイルを一つずついちいち開けてワークシートをコピーするしかないでしょうか? ちなみにそのファイルは フォルダ「日報」→ フォルダ「2005」「2006」・・・→ フォルダ「1月」「2月」・・・→ 日にち別にファイルが一つずつある状態です。 コピーしたワークシートは月ごとにまとめてファイルしたいと思っています。 ちなみに、当方マクロやVBAにあまり詳しくありません・・・。

  • 複数ブックを纏めて1ブックの1シートずつにコピー

    仕事で大量の処理をしなければならず、マクロ化を考えています。 どなたかご教示頂けないでしょうか。 大変困っています助けて下さい。 既定ブック(9シート1,2,3,4,5,6,7,8,9と名前をつけています。レイアウトは全て同じです。)をコピーした後に複数のブック(1シートのみです。既定ブックとほぼレイアウトは一緒です。)を指定し、一部分コピーをし、既定ブックに1シートごとペーストし、(担当者により複数ファイル数は異なります)名前付けてブックを保存後閉じるという作業をマクロ化したいと思っています。 500ファイルを担当者別にコピー&ペーストしなければならないので、是非ご教示頂けないでしょうか。何卒お願い致します。 なお、ペースト箇所は以下になります。(全てセルの結合をしております。) 【貼付箇所】 コピー元:Range("G6:P13").Select    → コピー先:Range("G6:P13").Select  コピー元:Range("V5:AD11").Select   → コピー先:Range("V5:AD11").Select 【値貼付箇所】 コピー元:Range("AA23:AD27").Select  → コピー先:Range("AG26:AG30").Select コピー元:Range("G23:Z27").Select    → コピー先:Range("AH26:AH30").Select

  • 変数が混じる名前のブックへのシート移動 マクロ

    いつもお世話になっております。 マクロ実行用Book=A.xls マクロ1で作成したファイル=●●日報.xls(●●の部分は、A.xls内のセル番地"AB2"にある文字列で、毎回変わります) マクロ2で作成したファイル=Book1.xls (1)A.xlsにて、●●日報.xlsを作成し、保存します(●●日報.xlsは保存後、閉じています) (2)マクロ2を実行し、Book1.xlsを作成します。 (3)Book1.xlsのシート(このブックにはシートは1枚のみです)を、A.xlsのブックの末尾に移動し、●●日報.xlsを上書保存する。 この場合、マクロのコードはどう書くのが適切なのでしょうか。 マクロ初心者のため、どなたかご教示いただけましたら幸いです。

  • ブックの保護(シート構成) でシートのコピー

    エクセルで外部データを参照させるために, 別のブックを開きシートをコピーし元のブックに貼り付け別のブックは閉じるというマクロを作成しました。 Workbooks.Open Filename:=a Sheets("データ").Select Sheets("データ").Copy After:=Workbooks("ファイル.xls").Sheets("メニュー") Workbooks(a).Close SaveChanges:=False a(変数)というファイルを開く シートのデータを選択 データをコピーし ファイル.xls のメニューシートの後に貼り付け a(変数)のエクセルファイルを保存せずに閉じる 動作としては正常に動きました。 しかし、この ファイル.xls には ID とパスワードで管理しています。 その管理したシートがあるんですが、それを表示させないために シートを非表示→ブックの保護→シート構成 を行いました。 マクロを動かすと、シート構成をしているので Sheets("データ").Copy After:=Workbooks("ファイル.xls").Sheets("メニュー")  が動かないことに気が付きました。 何かいい方法があればご教授お願いします。

  • マクロ 任意の・・・を特定のシートへコピーする

    いつも回答して頂きありがとうございます。 質問内容ですが・・・ (1)任意のブックを開ける。今回は『C:\Users\Owner\Documents\作業管理.xlsm』   ※本当のファイル名は『作業管理2013年8月』みたいなものになる 9月なら『作業管理2013年9月』 (2)任意のシートをコピーする。今回は『1』   ※数字の意味は日付。    ですが、今日の日付=シート名になるとは限らない。ですので、任意で選択したい。 (3)特定のシートへ貼り付ける。   dim ws1 as object set ws1 = activesheet (4)・・・ という順序のマクロを考えていますが、任意のブックを開けて、任意のシートをコピーするという箇所の記述が分かりません。どのような記述方法があるのか教えて頂けないでしょうか? 宜しくお願い致します。

  • Excel 違うBookのシートをコピーする

    Excelでわからないことがあり質問させていただきました。 原紙のBookに 資料のBookのシートをコピーさせたいのですが 資料Bookには シートが sheet1~sheet50まであり 原紙のBookにマクロのボタンやフォームを作成し 毎回資料のBookの違うシート名を選択しコピーをさせることは可能なのでしょうか? たとえば 原紙のシートに入力フォームを作り sheet名を入力 → 「コピー」のボタンを押すとコピーができる。 といった感じに・・・ フォームでなくてもリストなんかでもいいのですが・・・

  • 【Excel 2003】複数のブックのシートを一つのブックにコピーにしたい

    お世話になっております。 【Excel 2003】を使っております。 複数のブックには、複数のシートがありまして、 複数のシートを一つのブックにコピーしたいのですが、 手作業ですと、大変時間がかかります。 現在は、一つ一つブックをあけて、シートのコピーで 一つの新しいブックにいれてます。 なにか、これを簡単にできる方法は、ありませんでしょうか? フリーのソフトでも、マクロでも、教えていただけたら 助かります。よろしくお願いします。