- ベストアンサー
【VBA】別ブックへの転記方法
- みんなの回答 (4)
- 専門家の回答
関連するQ&A
- 【VBA】元シートの内容を別シートへ転記する方法2
添付のピクチャの様に、元シートが有ります。(行数は変動します) 元シートの数式・書式を維持したまま転記出来るコード をご教示願います。既存のコードで特に困った点は、ピクチャのコメント部分です。 行いたい事は下記です。 ----------------------------------------------------------------------------- 2シート目へ元シート1行目の見出しと品番010の行を転記 3シート目へ元シート1行目の見出しと品番222の行を転記 4シート目へ元シート1行目の見出しと品番222の行を転記 5シート目へ元シート1行目の見出しと品番033の行を転記 同様に、A列の最終の品番迄、繰り返しシートを作成 ------------------------------------------------------------------------------ どうぞ宜しくお願い致します。 ※「切り取り」で別シートを作成する方法でも結構です。
- ベストアンサー
- Excel(エクセル)
- マクロで5個のBOOKのデータをBOOK1に転記
エクセルマクロで対話型でBOOK2~6の5個のデータを BOOK1のシート1に順番で転記したいです。 BOOK2~BOOK6は作業者にファイルを選択させたいです。 BOOK2~BOOK6は作業の都度行数がBOOKごとに変わります。 (500~5,000行でばらつきます) 流れとしては、 1.BOOK1を開いてマクロを軌道 2.エクセルのファイルを開くウィンドーが出る 3.ファイルを選択させる(例:マイネットワーク内のBOOK2を選択) 4.ウィンドーの開くをクリックする 5.転記1回目 指定したファイルが開いてデータが BOOK1のシート1に転記される この1回目は1行目からデータがある最終行まで。 その後BOOK2は閉じられる 6.メッセージボックスで「転記完了」と表示 7.メッセージボックスの「OK」をクリックすると エクセルのファイルを開くウィンドーが出る 8.ファイルを選択させる(例:マイネットワーク内のBOOK3を選択) 9.ウィンドーの開くをクリックする 10.転記2回目 指定したファイルが開いてデータの中の2行目~最終行までを BOOK1のシート1の最終行の次の行から転記を行う。 (NO.5のBOOK2が1,000行の場合1,001行目から BOOK3のデータ2行目以降が転記される) その後BOOK3は閉じられる 11.この作業を計5回行う (転記3~5回目も転記するデータは2行目~最終行) 13.メッセージボックスで「5個のBOOKの転記が終了」と表示 14.メッセージボックスの「OK」をクリックすると Call 編集 でSub 編集 というプロシージャーが起動する Sub 編集は出来上がってます。 (BOOK1のシート1を編集します。) NO.1~NO.14のマクロ記述を教えてください。 自分で作成した記述では全然駄目でした。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 別のシートへ転記する方法
私の会社は、ぎょうのほとんどをエクセル2003で処理しております。 管理書式フォーマットも全て、エクセル2003です。 例えば、稟議書の管理を別のエクセルブックで管理しておりますが その都度、起案内容を手入力で転記しなければなりません。 最低でも、一日30枚くらいあります。 それだけが仕事ではないので、めちゃくちゃ残業が多いです。 そこで、各エクセルブック(ファイル名は任意) フォーマットは統一です。 その条件で、指定フォルダに作成された一覧に(aaa.xls) に、自動転記する方法がわかりましたら 教えてください。 宜しくお願い致します。
- 締切済み
- オフィス系ソフト
- エクセルVBAでVLookupを使って値を転記する
エクセル2003で商品の一覧表を作成しています。 Sheet1は商品一覧(左図) Sheet2は価格表(右図)となっています。 マクロを使用して、Sheet1のB列に価格表のデータを転記させたいと考えています。 VLookupになるのかと思い、自分でいろいろとやってみたのですが、 どうしても動作せず、挫折してしまいました。 商品一覧の最後の行までいって、空白セルがくると止まるというのが、 難しくてできませんでした。 どうかお願いいたします。
- ベストアンサー
- Visual Basic
- Excel VBA 別ブックを開かずに転記
Excel2007のユーザーフォームについて教えてください。 ユーザーフォームを以下のように作成しました。 ■テキストボックス6つ テキストボックス2→件名 テキストボックス3→数 テキストボックス4→名前 テキストボックス5→備考1 テキストボックス6→備考2 ■コマンドボタンが1と3の2つです。 コマンドボタン1→転記と印刷 コマンドボタン3→終了 ■シートの構成 sheet"作成と一覧" 1行目を以下の項目で使用しています。 A1→番号(テキストボックス1を表示) B1→件名(テキストボックス2を表示) C1→数(テキストボックス3を表示) sheet"印刷" A1→番号(テキストボックス1を表示) A2→件名(テキストボックス2を表示) B2→数(テキストボックス3を表示) A3→名前(テキストボックス4を表示) A4→備考1(テキストボックス5を表示) A5→備考2(テキストボックス6を表示) テキストボックスに入力した値を2つのシートにそれぞれ転記して、 シート"印刷"を2部印刷しています。 ここまで以下のコードで行いました。 Private Sub CommandButton1_Click() '入力値を作成と一覧シートに転記 行 = ActiveCell.Row 列 = ActiveCell.Column Cells(行, 列) = UserForm1.TextBox1.Value Cells(行, 列 + 1) = UserForm1.TextBox2.Value Cells(行, 列 + 2) = UserForm1.TextBox3.Value '入力値を印刷シートにに転記 Worksheets("印刷").Range("A1") = UserForm1.TextBox1.Value Worksheets("印刷").Range("A2") = UserForm1.TextBox2.Value Worksheets("印刷").Range("B2") = UserForm1.TextBox3.Value Worksheets("印刷").Range("A3") = UserForm1.TextBox4.Value Worksheets("印刷").Range("A4") = UserForm1.TextBox5.Value Worksheets("印刷").Range("A5") = UserForm1.TextBox6.Value 部数 = 2 Worksheets("印刷").PrintOut Copies:=部数, Collate:=True UserForm1.TextBox1.SetFocus Cells(行 + 1, 列).Select End Sub Private Sub CommandButton3_Click() '終了ボタンで値をクリアしてウィンドウを閉じる Dim Ctrl As Control For Each Ctrl In Controls If TypeName(Ctrl) = "TextBox" Then _ Ctrl.Value = "" Next Ctrl Unload Me End Sub 教えて頂きたい事なのですが・・・ コマンドボタン1の入力値を作成と一覧シートに転記の所なのですが、 アクティブセルではなく、常にA列の最後の値の次の空白行に転記するようにしたい場合、 どのように書き換えればいいのでしょうか? もう一点ですが、 別ブックにテキストボックス1から6が入力された一覧があります。 この別ブックを開かずに、 テキストボックス1に入力された番号を探して、 テキストボックス2から6に表示されるようにしたいのです。 うまく説明できないのですが・・・ 別ブックの名前は"たちつ" 別ブックは、あいうサーバーの かきくフォルダの中のさしすフォルダです。 ブック"たちつ"に"一覧"というシートがあります。 一覧のシートのD列の3行目以降には番号が入力されており、日々増えています。 テキストボックス1に入力された番号を、 一覧のD列から探し、 I列の値をテキストボックス2へ K列の値をテキストボックス3へ L列の値をテキストボックス4へ M列の値をテキストボックス5へ J列の値をテキストボックス6へ転記させたいのです。 同じブックの別シートを参照するときには Application.VLookupで出来たのですが、 マクロの記録でやってみても、解決できませんでした。 コードをご覧いただいてお分かりの通り、 VBA超初心者です。 ネットを見ながら試行錯誤している状況です。 コードの間違い等あるかもしれませんが、 ご教示よろしくお願いいたします。
- 締切済み
- Excel(エクセル)
- VBA 転記 印刷
ABC 1あいう 2かきく 3さしす 4たちつ 5 ・ 上記データを別の"帳票"シートに1~3行を転記、4~6行を転記というふうに 最下行まで繰り返し印刷し、最終ページは、余りの行のみ(上記で行くと4行目のみ) 表示させたいです。どうすればいいでしょうか? ※行数は、不特定です。 for nextを使用し繰り返し印刷をするようにしていますがうまくいきません。 よろしくお願いします。
- 締切済み
- その他(プログラミング・開発)
- VBAでのデータ転記処理
下記の処理をVBAで作成したいのですが…。 Book "aaa" の "Sheet1" A |B |C |D |E |F |G |H |I |J |K 1 あ|い|う|え|お|か|き|く|け|こ|さ 2 た|ち|つ|て|と|な|に|ぬ|ね|の|は|ひ|ふ|へ 3 ま|み|む|め|も|や|ゆ|よ これをBook "bbb" の "Sheet1" に A|B|C|D|E 1 あ|い|う|え|お 2 か|き|く 3 け|こ|さ 4 5 た|ち|つ|て|と 6 な|に|ぬ 7 ね|の|は 8 ひ|ふ|へ 9 10 ま|み|む|め|も 11 や|ゆ|よ と言う風にデータを転記したいのです。 Book "aaa" の Sheet "Sheet1"のA~E列までは必ずデータが入っていますが F列以降は、データがある場合と無い場合があり データがなければ、そこのセル(行)は詰める。 さらに、Book "aaa" の1行を1セットとして、Book "bbb" で1セット単位で、空白行を設けたいのです。 上記例のように、1セットの行数は固定ではありません。 Book "aaa" の Sheet "Sheet1"のデータ行数は大量に(1000行以上)あります。 わかりにくいと思いますが、どなたかよろしく御願いします。
- ベストアンサー
- オフィス系ソフト
- フォルダ内にある複数エクセルブックを一つにまとめたい
マクロを使って複数ブックを一つにマージしたいです。 どなたか宜しくお願いします。 フォルダに16個のエクセルブックがあります。ブックは4つのシートでできています。シートの列数は共通なのですが、行数が異なります。 これを新しいブックにコピペでつなげていきたいのです。 すみませんがどなたか宜しくお願いします。
- 締切済み
- その他(プログラミング・開発)
- エクセルの特定セルを別へのブックに行方向に転記
エクセル2010で、専用フォルダーに入っている複数のエクセルファイルの特定のセル(A1,B2,C3等)を別のブック(まとめ)に行方向に転記したいのですが。 まとめ用のシートの上の行から順に各シートのセル内容を転記していきたいのですが何か方法がありませんでしょうか? 例えば各ファイルに住所、TEL No、名前が決まった書式のセルに入っていて、これが毎月新規データとして追加されるのですが、別のエクセルシートに必要な項目のみ転記して、一覧表を作成したいのです。 現在は、1つずつファイルを開いて、目的のセルのコピペでまとめのシートに貼り付けて作業していますので、これより少しでも簡単な方法があれば教えてください。
- ベストアンサー
- Excel(エクセル)
- エクセルで100個のブック形式のものがあります。行数はおのおの違います
エクセルで100個のブック形式のものがあります。行数はおのおの違いますが、列数は同じです。 ファイルを1つのシートにつなげるにはどうすれば早くできるでしょうか。
- ベストアンサー
- Windows系OS
- LAN接続でPCと接続する際、プリンターが認識されない問題についての相談です。
- Windows10を使用している環境で、LAN接続でプリンターを使用したいが認識されません。
- ブラザー製品MFC-J7100CDWのLAN接続時に、PCからプリンターが認識されずに困っています。
お礼
SI299792 様 サンプルでは、転記先ブックのシート名を指定してしまったので、 実作業版と形式が少し異なり、苦戦していました。 シート名置き換えコードにて転記元と転記先のシート名を一致させてから お教え頂いたコードを実行したところ、上手くいきました。 (もっと手っ取り早い方法が有ると思いますが) コードは出来る限り読み解き、勉強させて頂きます。 有難うございました。