- ベストアンサー
マクロなどでBook1からBook3へ転記したい
Book1.xls の Sheet1 の A1セル に記入した数字を Book3.xls の Sheet3 の A3セル に転記する方法を教えてください。 ただし、book1.xls 記入したA1セルの数字は、0:00になるとクリアになる必要があります。 又、できれば、記入した直後に自動転記できた方がいいです。 何とぞご教示のほどよろしくお願いします。
- usny-stk
- お礼率56% (36/64)
- その他MS Office製品
- 回答数1
- ありがとう数1
- みんなの回答 (1)
- 専門家の回答
質問者が選んだベストアンサー
転記と言われているのですが、リンクでも実現できそうですが・・・。 もちろん用途にもよると思いますが、Book1に入力した数字が、Book3を開いた時に値が更新される状況でも良いならリンクを使えば簡単です。 まず、Book1とBook3の両方を開き、Book1のSheet1のA1セルをコピーします。そしてBook3のSheet3のA3セルに 『リンク貼り付け』 を行います。これにより、Book3を開いた際に、『このブックにはほかのデータソースへのリンクが含まれています』というダイアログが出て、『更新する』を選択すれば値が取り込まれます。その状態で保存すれば、最新の状態となります。 もし、Book3を開くことなく、値を更新するとなると、マクロというよりVBAでの記述になると思います。 それと、A1のセルの数字が0:00になるとクリアになる必要があるとのことですが、どうなることを意図されているかがわからなかったので回答できません。
関連するQ&A
- 複数のブックからデータを転記するマクロについて
こんにちは。 VBAの素人なのでネットや本などで自分なりに調べましたが、 どうにも解決できないので、ご教示いただけませんでしょうか。 複数のブックにある同一セル番地にある データを別のブックにまとめたいのですが、 ブック数が500程度あり、マクロでうまくできないか悩んでいます。 (1)転記元ブックを開く。 (2)転記元データをコピーする。 (3)転記先ファイルのセルに貼り付ける。 (4)転記元ブックを閉じる。 の繰り返しだと思うのですが、(2)ができず困っています。 ちなみに、500のブックとまとめるブックも同じフォルダにあります。 具体的には、転記元ブックは以下のような形で、A列に様々な温度のデータが縦に並んでいます。 A列 1行 温度 2行 27 ←ここのみ抽出したい 3行 28 4行 30 それぞれのブックのA2番地の温度データのみを抽出し、転記先ブックのA2からA500までまとめたい。 組んだマクロは以下です。 ------------------------------ Sub 特定フォルダ内ブックを並べ替えて転記() Dim myDir As String, myName As String, myBook As Workbook Dim motodata As Range, sakidata As Range '集計用のブックがあるフォルダ名を指定 myDir = "D:\VBA練習" myName = Dir(myDir & "\" & "*.xls") Do While myName <> "" '↓転記先の最新レコード位置を取得する Set sakidata = Range("A65536").End(xlUp).Offset(1) '↓(1)指定した名前のブックを開いて変数に格納する Set myBook = Workbooks.Open(Filename:=myDir & "\" & myName) '↓(2)転記元を取得する Set motodata = myBook.Range("A2") '↓(3)転記先に貼り付ける motodata.Copy sakidata '↓(4)開いたブックを閉じる myBook.Close myName = Dir() Loop End Sub ------------------------------ mybookというキーワードを使用して、A2セルデータをコピーする構文をご教示いただけませんでしょうか。 以上、長々となってしまいましたが、何卒アドバイスの程お願いいたします。
- ベストアンサー
- Visual Basic
- エクセルでブック上の転記
例 (1)ブック(a)のsheet1のセルA1~G1を入力専用とする (2)入力専用に入力する (3)ブック(b)のsheet1のセルA1~G1に転記される ※ブック(b)は開いてない状態 (4)(1)を繰り返す ブック(b)のセルはブック(a)で入力される度に段が変わってる この説明でわかりますでしょうか。 VBAは初心者ですが多少はわかります。
- ベストアンサー
- オフィス系ソフト
- 複数のエクセルブックから転記するマクロを教えて
エクセル2010で、1つのフォルダ内にある複数のエクセルブック(約50支店分)の売上シートから、担当者別の日次売上等の集計マクロを作成したいのですが方法がわかりません。支店ごとの担当者数は、支店ごとに違います。ご協力お願いします ■基本条件 ・毎日、支店がブック内の売上シートに入力(更新)し保存する。売上シートには、担当者が複数名登録されており、支店によって担当者数は異なります。 ・全店とも中身は同書式同形式ファイル 例)売上報告A店.XLS、売上報告B店.XLS・・・ ■マクロ(集計.XLS)でやりたいこと ・各支店ブックの売上シートから、担当者名(A5)・売上A(B5)・売上B(C5)を転記し明細表の作成 どなたか教えていただけますでしょうか?よろしくお願いします。
- 締切済み
- Visual Basic
- bookからbookへの数式のコピーについて教えてください
bookからbookへの数式のコピーについて ??BookのSheet1のセルにSheet2を参照にした数式が入っています =2+Sheet2!$A8 これを!!BookのSheet1のセルにコピーすると =2+[Book1.xls]Sheet2!$A8 こうなりました コピーしたセルは11,475セルあります [Book1.xls]をすべて消したいのですが、簡単な方法はありますか?
- 締切済み
- その他(ビジネス・キャリア)
- 別のブックに、同じ数字を転記する
すいません。初心者なので教えて下さい。 別のブックに、同じ数字を転記したいのですが、簡単な方法はないでしょうか? ブック1 A B 組数 人数 1 1 3 2 4 5 ブック2 A B 1 1 3 2 4 5 と同じようにしたいです。関数など、何かありましたら教えて下さい。
- 締切済み
- オフィス系ソフト
- マクロ:別ブックのデータの値を転記
ExcelでVlook関数を使ってデータを検索していたのですが、マスタの件数(15,000件)と数式が多くなってしまいブックの容量が大きくなってしまって動きづらくなってしまったので、マスタと検索のブックに分け、マクロを使おうと思ってます。 簡単にいうと、 【マスタブック】 A列 B列 1 1 あ 2 2 い 【検索ブック】 A列 B列 1 2 い 2 検索ブックA列1行目に、「2」を入力してマクロを実行すると「い」が表示されるようにしたいのです。 開いておくのは検索ブックはのみです。 Sub 転記() Dim マスタ As Workbook Dim 検索 As Workbook Dim 行, 数字 As Long Dim Bname As String Bname = ActiveWorkbook.Name Workbooks.Open Filename:="C:\Documents and Settings\mi200274\デスクトップ\\マスタ.xls" Workbooks("マスタ.xls").Activate Set マスタ = Workbooks("マスタxls") Set 検索 = ThisWorkbook Set ws1 = マスタ.Worksheets("Sheet1") Set ws2 = 検索.Worksheets("Sheet1") On Error Resume Next 行 = 1 Do Until ws2.Range("A" & 行).Value = "" 数字 = ws2.Range("A" & 行).Value 対象 = ws1.Range("A:A").Find(数字, lookat:=xlWhole).Row ws2.Range("B" & 行).Value = ws1.Range("B" & 対象).Value 行 = 行 + 1 Loop ActiveWorkbook.Close Workbooks(Bname).Activate End Sub 以上のマクロを知人に教わりながら作ってみたのですが、マスタを一度開かないと検索はできないのでしょうか? 重たいデータなのでできれば開かずに検索して値を転記したいので、そのようなコマンド等ご存知の方教えてください。 ちなみにマクロは「新しいマクロの記録」から作る程度の初心者です。よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- 変数が混じる名前のブックへのシート移動 マクロ
いつもお世話になっております。 マクロ実行用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を上書保存する。 この場合、マクロのコードはどう書くのが適切なのでしょうか。 マクロ初心者のため、どなたかご教示いただけましたら幸いです。
- 締切済み
- オフィス系ソフト
- EXCELで複数のBookにマクロを使用して転記する方法
Book1にSheetが5つ(Sheet名 あ、い、う、え、お)あります。 このSheetをマクロを使用して、それぞれ5つの別のBookにそのSheet名をつけて、 元と同じ名前のSheet名で保存する方法を教えて下さい。 コピー元 Book1 コピー先 Book名 あ Sheet名 あ.xls Book名 い Sheet名 い.xls Book名 う Sheet名 う.xls Book名 え Sheet名 え.xls Book名 お Sheet名 お.xls
- ベストアンサー
- オフィス系ソフト
- Excel2003 マクロでブックを開かずにコピペ
Excel2003でC:\にあるブックBを開かずに、 開いているブックAの指定したセルをコピーしたいのですがうまくいきません。 具体的なイメージは 開いているコピー先のブックA:いろは.xls コピー先のシート:Sheet1 コピー元のブックB:らりるれろ.xls コピー元のシート:らりるれろ (ブックBの名前(らりるれろ.xls)とシート名が同じなのはシステム上の仕様です。) ブックBのC6をブックAのC5に、 ブックBのI6をブックAのC6に、 ブックBのK6をブックAのC7に、 ブックBのH6をブックAのC8にコピーしたいと考えています。 宜しくお願いします!
- ベストアンサー
- オフィス系ソフト
- エクセルの特定セルを別へのブックに行方向に転記
エクセル2010で、専用フォルダーに入っている複数のエクセルファイルの特定のセル(A1,B2,C3等)を別のブック(まとめ)に行方向に転記したいのですが。 まとめ用のシートの上の行から順に各シートのセル内容を転記していきたいのですが何か方法がありませんでしょうか? 例えば各ファイルに住所、TEL No、名前が決まった書式のセルに入っていて、これが毎月新規データとして追加されるのですが、別のエクセルシートに必要な項目のみ転記して、一覧表を作成したいのです。 現在は、1つずつファイルを開いて、目的のセルのコピペでまとめのシートに貼り付けて作業していますので、これより少しでも簡単な方法があれば教えてください。
- ベストアンサー
- Excel(エクセル)
お礼
ありがとうございました。大変役に立ちました。