- 締切済み
別のブックに、同じ数字を転記する
alesi_satoの回答
- alesi_sato
- ベストアンサー率35% (23/65)
ブック２のＡ１に、"="を入力して、ブック１に移動して、Ａ１を選択して、リターンキー としたら、 それでそこを参照し続ける関数、というか、式になりますが、これでＯＫでしょうか？
関連するQ&A
- エクセル マクロで別ブックから転記するやり方
エクセルでBook1(集計用)と、 店舗→Book2(大宮店)、Book3(東京店)・・・・・ 何店舗もあるんですがそれぞれの店舗のA30,B30,C30,D30の数字を Book1(集計用)のＡ列に並んだ店舗名のB列、C列、D列、E列に転記させたいと考えています。 今までは関数を入れて読み込ませていましたがこれをマクロで作成させる場合どのようにすればよいでしょうか？ 何か他にいい案があれば教えていただきたいと思います。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- 変換させたものを別のブックに転記したい
エクセルのマクロでブック１のA5からA10までの"出勤"という文字を"○"に置き換えて ブック２のA6からA36に転記する場合どのような書き方になりますか？ 例えば置き換えは Sub test() With Range("A5:A10") .Replace what:="出勤", replacement:="○", lookat:=xlPart End With End Sub このような感じになると思いますがこの変換された○を別のブック2に転記したいと思っています。 よろしくお願い致します。
- 締切済み
- オフィス系ソフト
- マクロなどでBook１からBook3へ転記したい
Book1.xls の Sheet1 の A1セル に記入した数字を Book3.xls の Sheet3 の A3セル に転記する方法を教えてください。 ただし、book1.xls 記入したA1セルの数字は、0：00になるとクリアになる必要があります。 又、できれば、記入した直後に自動転記できた方がいいです。 何とぞご教示のほどよろしくお願いします。
- ベストアンサー
- その他MS Office製品
- エクセルでブック上の転記
例 (1)ブック(a)のsheet1のセルA1～G1を入力専用とする (2)入力専用に入力する (3)ブック(b)のsheet1のセルA1～G1に転記される ※ブック(b)は開いてない状態 (4)(1)を繰り返す ブック(b)のセルはブック(a)で入力される度に段が変わってる この説明でわかりますでしょうか。 VBAは初心者ですが多少はわかります。
- ベストアンサー
- オフィス系ソフト
- エクセル、転記？について
決められたエクセルの様式で数名が日々日報を入力しています。 たとえばAさん、Bさん、Cさんがいて それぞれの日報表 各１ブック を入力したら１つのブックへそれぞれ転記されるように設定し Aさんの日報表 Bさんの日報表 Cさんの日報表 と並べて１つの日報にしたいです。 または、入力された数字だけを転記する方法でもいいので 簡単な方法がありましたら教えてほしいです。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Excel2003 BookからBookへ転記
A B C D 1 コード 日付 枚数 金額 2 1502 7/1 8 25500 フォルダ内でBook1 Sheet1に毎日の売り上げを入力します、コードが50超あります。コード別にBook2～Book51を作成(Book2は1502)として転記させることは可能でしょうか？ Book1 Sheet2に転記することは出来ますが、BookからBookは私の力量ではむずかしいです、Book2 Shee1はデータ蓄積、sheet2は納品、sheet3は請求と活用して行きたいと思います、どうぞ宜しくお願いいたします。
- ベストアンサー
- その他MS Office製品
- VBA 別BOOKへのデータ転記について
VBA初心者です。 以下のことがしたいのですが、 コードをご教示いただきたくお願いいたします。 BOOKが5つあります。 BOOK1：抽出用（Sheet2に日々の受注データを入れています） BOOK2：転記100用 BOOK3：転記200用 BOOK4：転記300_400_500用 BOOK5：工事番号用 BOOK1：抽出用はA列からQ列まで工事番号ごとに2行目から受注データが入っています。 抽出用のsheet2のA列に「1」と入力することで転記したいデータだというフラグにし、 抽出用O列のコード100,200,300,400,500（工事の種類のようなものです）を見て、 該当のBOOK2から4にその工事番号が転記がされているか？ （されていれば登録済みのメッセージ表示） 転記がされていなければ新規に登録、 新規登録の際に、抽出用Sheet2のD列の工事番号、I列の件名、K列の数量を表示して、 このデータを新規登録しますか？のようなメッセージを出し、Yesなら新規登録。 さらに、新規に登録した際にはその工事番号を名前とするBOOK5を新規作成、 BOOK5にも抽出用の受注内容を転記。 BOOK2から4に転記された工事番号をクリックすると その工事番号のBOOK5にジャンプするようにしたいのです。 抽出用A2とA4に「1」と入力された場合（O列は共に200） BOOK1抽出用データの転記したいセル番地 → BOOK3転記200用のセル番地 A2のデータ D2 → A7 K2 → A8 C2 → A9 H2 → A10 I2 → A11 F2 → D7 L2 → D8 M2 → D9 J2 → D10 C2 → I5 Q2 → J5 A4のデータ D4 → A12 K4 → A13 C4 → A14 H4 → A15 I4 → A16 F4 → D12 L4 → D13 M4 → D14 J4 → D15 C4 → I10 Q4 → J10 BOOK2から4は１つの工事番号を５行使用して表わしています。 ですので、1つの工事番号が7から11の行、 2つ目の工事番号が12から16行目となり、それぞれ100件分の工事番号を入れられるように 作成してあります。 またBOOK5については、（A2のデータの場合）以下のように転記し、ファイル名を抽出用D2の工事番号にしたいです。 A2のデータ D2 → A3 K2 → A4 C2 → A5 H2 → A6 I2 → A7 F2 → F3 L2 → E4 M2 → E5 J2 → E6 大変長くなってしまいましたが、以上のようなことをしたいと考えておりますが、 当方、VBA初心者でして参考書とネットを駆使して抽出用のVBA（CSVデータをコピーして加工する）ことにすら大苦戦しております。 なんとかお力を貸していただけないでしょうか？ ご教示よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- マクロで別のブックに転記するやり方
エクセルのマクロで勤務表というブックのA5からA10までの"出勤"という文字を"○"に置き換えて 別の集計表というブックのA6からA36に転記する場合どのような書き方になりますか？ 例えば置き換えは Sub test() With Range("A5:A10") .Replace what:="出勤", replacement:="○", lookat:=xlPart End With End Sub このような感じになると思いますが、他にやり方があればよろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- マクロ：別ブックのデータの値を転記
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製品
- ブックの転記で計算式も転記したい
ブックの転記で計算式も転記したい データを転記するマクロを作成しました。 【知りたいこと】 その1： 転記元となるブックを毎回「master」という名前に変更してから作業をしています。 この一手間を省きたいと考えているのですが、開いているもう一つのブックを自動で 転記元の〔mst〕と認識させて作業を進めるにはどうしたら良いでしょうか？ その2： 転記先のD列に、転記元(master)E列の数式を転記させるにはどうしたら良いでしょうか？ このE列には、数値の値だったり、足し算・引き算・割り算などの計算式が混在しています。 また、転記先の書式は保ち、値もしくは計算式だけを転記したい。 宜しくお願い致します。 ---------------------------------------------------------- Sub 値の転記() Dim ent As Worksheet, mst As Worksheet Dim i As Integer, j As Integer Dim lstCel As Integer Set ent = Workbooks("転記先").ActiveSheet Set mst = Workbooks("master").ActiveSheet '←★その1：このブック名の指定 lstCel = mst.Cells(Rows.Count, "B").End(xlUp).Row For i = 1 To lstCel ent.Cells(j + 2, "A") = mst.Cells(i + 2, "A") ent.Cells(j + 2, "B") = mst.Cells(i + 2, "B") ent.Cells(j + 2, "C") = mst.Cells(i + 2, "D") ent.Cells(j + 2, "D") = mst.Cells(i + 2, "E")'←★その2：ここだけ数式を転記 j = j + 1 Next i End Sub ----------------------------------------------------------
- ベストアンサー
- その他MS Office製品
補足
私も上記の方法で試してみたのですが、ブック１に移動してA1を押して、リターンキーを押しても、”＝”の状態のままです。やり方がおかしいのでしょうか？また、ブック１に入力すると、転記される方法はないでしょうか？それだと、マクロになってしまいますか？