- 締切済み
ブックA（マクロ含む）をコピーしたブックBを・・
こんにちは。過去の質問を検索しましたが、見つけられないので失礼します。 Aというブックにa,b,c,dというシートがあります。 これらのシートは全て同じマクロを使っています（違うのはセルに入力されている一部の文字や図のみ）。 シートbだけを別のブックにコピー＆保存（ブックB）しました。 するとマクロもブックBに保存されますが 保存されたマクロはブックAのものを参照しますので 手元にブックAが無いと、ブックBのマクロは使えません。 しかし、ブックBをメール等で別の人に送信し ブックAが無い人でも同じようにマクロを使えるようにしたいのですが そのようなことは可能でしょうか。 どなたかご回答お願いします。
- himemomomama
- お礼率100% (1/1)
- 財務・会計・経理
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
みんなの回答
- KURUMITO
- ベストアンサー率42% (1835/4283)
マクロが他のシートやブックを参照している場合に、それらのブックやシートを送信しない限りマクロを使うことはできませんね。 マクロの修正が必要でしょう。
関連するQ&A
- Excel 同ブックの他シートを参照するセルを、他ブックのセルにコピー
こんにちは。Excelの使い方について質問させていただきます。 よろしくお願いします。 Excel2003を使っています。 シート数、シート名がまったく同じブックが２つあります。 AブックのAシートのA1セルを参照しているセルである AブックのBシートのA1セルをコピーします。 BブックのBシートのA1セルにペーストします。 BブックのAシートのA1セルを参照して欲しいのですが、 別ブックであるAブックのAシートのA1セルを参照するように 自動的に変換されてしまいます。 シンプルにそのままコピーすることは不可能でしょうか。 セルのコピーでは無く、中の文字列を選択してコピーしても、 何が起こっているのかよくわかりませんが上手くいきません。 Excel初心者です。マクロはまったく使えません。 親切な方、どうぞよろしくお願いします。
- ベストアンサー
- その他(業務ソフトウェア)
- ブックAシートAにブックBシートBをコピーしたい
VB.net VB.2008 にてプログラムしています。 ブックAのシートAにブックBのシートBをコピーするには、 どうしたら良いでしょうか？ ブックAシートAには他のシートへの参照が入っています。 ブックBシートBの数値を入れたら、ブックA内の他シートに参照された数値が行き渡るように したいのですが、行き詰ってます。 Worksheet.Copy() だと、Before,Afterの設定になり、そのページズバリにコピーができません。 お知恵をお貸しください。 お願いします。
- ベストアンサー
- Visual Basic
- ExcelのマクロによるVLOOKUPの参照シートの変更について
ExcelのマクロによるVLOOKUPの参照シートの変更について ブックＡのSheet1のセルA1にドロップダウンリストを作成し、アルファベットの"J"、"M"、"A"が選択できるようにしてあります。 ブックＡのSheet2のセルB1には、以下の式が入力してあり、別のブック（ブックＢ）から情報を読み込んでいます。 =VLOOKUP(A1,'￥￥s_g￥欠席￥[ブックＢ.xls]国語'!$B$4:$V$30,4,FALSE) やりたい事は↓ ブックＡのSheet1のセルA1にある、ドロップダウンリストを変更すると、ブックＡのSheet2のセルB1にある式（上記式）の参照シート（上記式では「国語」の部分）が変更さえるマクロを作りたいのですが、うまくできません。 ちなみに、ドロップダウンリストの"J"を選択した場合は、ブックＢのシート"国語"を参照し、リストの"M"を選択した場合は、ブックＢのシート"数学"を参照し、リストの"A"を選択した場合は、ブックＢのシート"美術"を参照するようにしたいです。 よろしくお願いします。 また、マクロを使わずして出来るようでしたら、その方法も合わせて教えて下さい。
- ベストアンサー
- オフィス系ソフト
- bookからbookへの数式のコピーについて教えてください
bookからbookへの数式のコピーについて ？？BookのSheet1のセルにSheet2を参照にした数式が入っています =2+Sheet2!$A8 これを！！BookのSheet1のセルにコピーすると =2+[Book1.xls]Sheet2!$A8 こうなりました コピーしたセルは11,475セルあります [Book1.xls]をすべて消したいのですが、簡単な方法はありますか？
- 締切済み
- その他（ビジネス・キャリア）
- Excelでブックをまたいでシートをコピーした時に、元のブックを参照させない方法
Excelでブックをまたいでシートをコピーした時に、 元のブックを参照しないようにしたいです。 BOOK_AというブックのシートにBOOK_Aのブック内のセルを参照する式が ある場合、そのシートをBOOK_Bというブックにコピーすると、 式の中の参照先のセルを示す部分に自動的に[BOOK_A]が追加されて、 BOOK_Aを参照してしまいます。 ここではBOOK_B内のシートを参照してほしいので、そのままの式で コピーしたいのですが、可能でしょうか？ よろしくお願いいたします。
- 締切済み
- その他MS Office製品
- エクセル ブック間コピー マクロ
ブックA（ブック名は固定）のシートA（シート名は毎回違います）を ブックB（ブック名は固定）の一番左へコピーしたいのですがうまくいきません。 動作 ：シートAでマクロを実行しブックBへシートのコピー（挿入）します。 まず第一段階のブックAのシートAをブックBへのコピーがうまくいきません。 シートAが固定シート名ならコードは Sheets("A").Select Sheets("A").Copy Before:=Workbooks("B.xls").Sheets(1) ですが・・・・ Sheets("A").SelectをWith ActiveSheet.Selectにすれば良いのですか？ 申し訳ないのですが、後教授お願いします。
- 締切済み
- オフィス系ソフト
- エクセルマクロ コピー元と貼り付け先を指定してコピー＆ペーストを実行するマクロ
単刀直入にやりたいことを述べます。 Cドライブと仮定します。３つのBOOKがあります。 それぞれ ----- BOOK1.xls「○○Sheet」・・・（実行するファイル） A 1 BOOK2.xls「△△Sheet」・・・（コピーするファイル名の指定です） 2 A2:E2・・・（コピーするセル範囲の指定） 3 BOOK3.xls「□□Sheet」・・・（貼り付け先のファイル名の指定です） 4 A5・・・（貼り付け先のセルの指定） ----- BOOK2.xls「△△Sheet」・・・（コピー元ファイル） ＡＢＣＤＥ 1 あいうえお 2 かきくけこ 3 ・・・・・ ----- BOOK3.xls「□□Sheet」・・・（貼り付け先のファイル） ＡＢＣＤＥ 1 ・・・・・ 2 かきくけこ・・・（貼り付け） 3 ・・・・・ ----- ＞やりたいこと BOOK1.xls「○○Sheet」のA1のセルの値とA2セルの値を参照し、 その該当BOOKのセル範囲（BOOK2.xls「△△Sheet」のA2:E2）をコピーして、 BOOK1.xls「○○Sheet」のA3のセルの値と、A4セルの値を参照し、 その該当BOOKのセル範囲（BOOK3.xls「□□Sheet」のA5）へペーストする。 別のブックの指定したセルの値を別のブックの指定したセルへ貼り付けるだけなんですが、 以前関数を使って似たような事をしようとしたのですが、うまくいかなかったので、マクロならできるのでしょうか。 よろしくお願いします。（ちなみにエクセル2000又は2003です）
- ベストアンサー
- オフィス系ソフト
- エクセル マクロで別のブックに貼り付けたい！
作成したシートを別のブック（既存）にマクロを使って貼り付けたい のですが、いろいろ調べた結果以下のようにはすることができました。 ---------------------------------------------------------------- Sub SaveSheet() Dim sFileName As String 'ファイル名の設定 sFileName = "C:\a\test.xls" 'シートをコピーして新規ブックを作成 Sheets(Array("Sheet1", "Sheet2")).Copy '作成したブックの保存 ActiveWorkbook.SaveAs sFileName End Sub ---------------------------------------------------------------- これはとあるサイトで見つけたもので、私自身が作成したものでは ありません。 このマクロの問題は、 ○あらたにブック（シート）が作成されること （マクロ実行時は上書きになるので、変更できなくても使えないわけ ではない） ○元データはシート丸ごとであり、セル範囲を選択できない。 ○貼り付けるシートにおいても、任意の場所を起点とできない。 ということです。 整理しますと、『作成したシートの任意のセル範囲を、別に存在する ブックに、任意のセルを起点として貼り付けたい』 ということです。 どうかよろしくお願いします。m(_ _)m
- 締切済み
- オフィス系ソフト
- 新しく開いたブックをアクティブにするマクロ
マクロ 新しく作ったブックをアクティブにする マクロ初心者です。 マクロを使って同階層にあるファイルのアクティブのシートを ひとつのブックにコピーして保存するマクロを作りたいと思ってます。 他の質問を参照して下記のコードを途中まで作成しました。 参照した質問では、 マクロの入っているブックにシートをコピーするようでしたが、 そうすると保存した時にマクロも保存されてしまうので 私なりに調べて、新しいブックにシートコピーするようにしましたが、 この記述の後、新しいブックをアクティブにする記述がわからず、 保存できなくなってしまいました。 ここまで終わるとマクロの入っているブックがアクティブになって終わります。 このあと新しく開いたブックをアクティブにして、 ブックのsheet1～3を削除して、名前をつけて保存したいのですが 開いたブックをアクティブにするマクロをご伝授ください。 あたらしくブックをつくるとbook1～・・・と名前が変わってしまうので 変数で名づけたいのですが、やり方が良くわかりませんのでよろしくお願いします。 何卒よろしくお願いします。 Sub consolid_test() Dim shCnt As Integer Dim Wb As Workbook Dim i As Integer Dim sh As Worksheet Dim nSh As Worksheet Dim fName As String Dim ka As String Application.ScreenUpdating = False '画面更新を一時停止 Application.DisplayAlerts = False Set mb = Workbooks.Add '新しいコピー先ブックをmbとする。 myfdr = ThisWorkbook.Path fName = Dir(myfdr & "\*.xls") 'フォルダ内のExcelブックを検索 Do Until fName = Empty '全て検索 If fName <> mb.Name Then 'ブック名がこのブックの名前でなければ Set Wb = Workbooks.Open(myfdr & "\" & fName) 'そのブックを開きwbとする。 Wb.ActiveSheet.Copy After:=mb.Sheets(mb.Sheets.Count) 'コピーしてコピー先ブックの末尾に置く ActiveSheet.Name = Range("B16") 'シート名の変更 ActiveSheet.Unprotect 'シート全体をコピーして値にする Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Wb.Close (False) '保存の有無を聞かずに保存しないで閉じる N = N + 1 'ブック数をカウント End If fName = Dir 'フォルダ内の次のExcelブックを検索 Loop '繰り返す ・ ・ ・ ・
- ベストアンサー
- Visual Basic
- 【エクセル】マクロでのブックとシートの移動について
元ブックのsheet1の一覧の値を別のブックのシートに貼り付けるマクロの書き方を教えてください 下のような動きです book1.sheet1.A1 → book2.Sheet1.A1 A2 2.A1 A3 3.A1 ・ ・ ・ A50 50.A1 ※セルは任意の場所です よろしくお願いします
- 締切済み
- その他MS Office製品
お礼
できないのですね。 ご回答ありがとうございました。