• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:コンボボックス?で選んだシートへ移動)

選択した行を別のシートへコピーする方法

このQ&Aのポイント
  • エクセルのマクロを使って商品管理ファイルを作成中です。選択した行を別のシートにコピーする方法を教えてください。
  • 具体的には、1月のシートで2行目を他のシートに移動するマクロを実行し、移動先のシートを選択するプルダウンを表示し、選んだシートにデータを移動します。
  • マクロの使い方について教えてもらうなど、マクロに関する情報を教えていただけると助かります。

質問者が選んだベストアンサー

  • ベストアンサー
  • soixante
  • ベストアンサー率32% (401/1246)
回答No.2

#1です。 inputboxではプルダウンはできないので、ユーザーフォームを作ってそこにコンボボックスを貼り付ければよいでしょう。 先の回答では、これくらいの処理ならばいちいちユーザーフォームをこしらえてコンボボックスを作るのは面倒くさいと思ったのでシンプルにインプットボックスを使っただけです。

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

その他の回答 (1)

  • soixante
  • ベストアンサー率32% (401/1246)
回答No.1

シートは「1月~12月まである」の間違いでしょうか。 そう解釈しました。1月~12月シートまで1枚目から順に12枚並んでるとしました。 単純なものを即席で、あまり自信はないですが Sub XXX() Dim Ans As Integer Ans = InputBox("何月のシート?") Worksheets("1月").Rows(2).Cut _ Worksheets(Ans).Cells(65536, 1).End(xlUp).Offset(1, 0) End Sub 移動先は適当にアレンジしてください。 なお、あなた以外の人が使うなら、数値以外を入力された場合とか、13以上を入れられた場合とか、その他もろもろエラー対策が要ります。

tatewaki_K
質問者

お礼

ご回答ありがとうございます! だいぶ近いです。 今回の質問で一番知りたいところなのですが、 InputBox("何月のシート?") のところで、月を記入するのではなく、月をプルダウンから選ぶようにしたいです。 可能でしょうか?

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

関連するQ&A

  • Excel VBAにてシート移動について

    初心者なのでわかりやすくお願いいたします、 Excel でワークシートを次のシート移動したときににマクロの記述にてsheet(1)からsheet(2)に移るときにはこのように数字を書けばよろしいのですが、ある任意のシートから次シートに移動したいときには任意のシート、次のシートはどのように記述すればいいかわかりません、どなたかお教えください  ルークといいます宜しくお願いいたします。

  • ダブルクリックでプリントSheetに移動するマクロ?

    エクセル初心者です。社員情報のデーターベースシート(Sheet2)の任意の行(社員番号列)をダブルクリックするとその社員情報を定形のプリントシート(Sheet1)へその行の情報を移動できるようにしていますが、データーベースシートを検索しダブルクリックするのに時間がかかり手惑いますので、データーベースシート(Sheet2)を自分でダブルクリックしないでデーターの社員番号等を検索画面等で入力してプリントシート(Sheet1)に情報を移動したいと思っています。関数やマクロでの検索、ダブルクリックの代わりになる方法等を教えて頂けたら幸いです。どうぞ宜しくお願い致します。

  • 一致するデータを複数シートから別のシートへ移動

    Sheet1~Sheet3を用いて、 Sheet1とSheet2でそれぞれのC列の項目が一致するデータを抽出し、 該当するデータの Sheet1B列⇒Sheet3D1 Sheet2A列⇒Sheet3A1 Sheet2B列⇒Sheet3B1 Sheet2C列⇒Sheet3C1 に移動するためのマクロを組みたいと思っています。 Sheet2からSheet1に検索をかけて、 Sheet2C列≠Sheet1C列であればSheet2のA1行を削除していき Sheet2C列=Sheet1C列であれば Sheet2A~C列をSheet3A~C列へ移動するところまでは出来ました。 ※なお、Sheet3のA1行に文字列があればセルを1行追加する設定にしています。 しかし、それはA1行の文字列をそのままコピペしているだけなので Sheet1B列の一致データをSheet3D1へ移動するやり方が思い浮かびません…。 Sheet2と同じくA1行を削除していこうとしてもうまくいきませんでした。 どんどんマクロも指示文ばかりが増えてわけが分からなくなってきてしまい、挫折しています。 シンプルにするにはどうすればいいでしょうか? また、マクロの内容を載せたいのですが 会社の業務端末で組んでいるため転記できません; 申し訳ありませんが、どうかご指導ください。

  • excelでシート:何行あるのか

    excelでシート内行数が数千のデータを扱うとき、ぱっと何行あるのか、 或いはぱっと最終行に移動できるとかどちらでもいいが、そのような方法あれば教えて。 マクロを使っても、式を使っても可です。

  • excelマクロ シートの移動

    excelのシートを移動するときにマクロでイベントを発生させたい。 移動前のシートにWorksheet_Deactivate()の処理を 書いたのですが移動前のシートをselectしているため 何度もループしてしまいます。 何かよい方法はありますでしょうか?

  • Excelのシートからシートへデータを移動したい

    Excelのシートで作成されている申込書(シート)があり、現在はその申込書シート(セル)に記載されている情報を別のシート(顧客データとして管理しているシート、複数行存在しています)に手入力しています。 この手入力の作業をマクロか関数で簡単にしたいのですが、下記の点がクリアできる良い案が分かる方がいたら教えて頂きたいです。 (1)申込書シートは顧客データシートに情報を移動したら、都度上書きしていきたい⇒申込書シートは同じbookで管理しないため(上書きについては申込書内容を都度手作業で貼り付けするつもりです) (2)顧客データシートは顧客が増える毎に2行目、3行目・・・というようA列が空欄になっている一番上に、申込書データの内容が反映されるようにしたい。 (3)貼り付けられたデータ(セル)は関数ではなく、値(文字)が貼り付けられるようにしたい。((1)のように申込書シーは都度上書きしたいため) 分かりづらい質問で申し訳ありません。。 ちなみにマクロは作成したことがありませんが、マクロでできるのであれば挑戦したいと思っています。 ご回答よろしくお願い致します。

  • マクロの作成 行の移動

    マクロの作成 行の移動 ワークシート上の指定行を最終行の次へ移動し、移動した後の空白となった指定行を削除するマクロの作り方を教えてください。

  • Excelシートを分割して新シートにコピーしたい

    5000行近くある1枚のExcelシートを、100行毎に分けて別のシートへコピーしたいです。 以前は、地道に100行ずつコピペしていました。 もし、簡単にできる方法があれば、是非ご教示ください。 なお、マクロ?だとか難しい事が分からない初心者です。 宜しくお願い致します。

  • 行の移動

    ボタンを使って行の移動をさせるマクロを組みたいのですが、うまく動いてくれません。指定した行をエクセルシートの最上段に表示させる書式を教えてください。宜しくお願いします。

  • シート内の一部のセルを別シートにコピー

    Excelのマクロ(VBA)の記載方法について お分かりになる箇所だけでも結構ですので、 どなたかご教授を願い致します。 シートX   A    B   C  1 data1 data2 data3 2 x   data7 data8 3 data4 data5 data6 4 data7 data8 data9 シート Y   A   B   C    D 1 length 3  (任意) (任意) 2 xxxx (任意) (任意) (任意) 3 zzz  (任意) (任意) (任意) 4 (空白)(任意) (任意) (任意) 上記のような2つのシート(同一Excelファイル内)があって、 シートXの一部のセルを次の条件(1~4)でシートYにコピーしたい場合 1.コピー元の列の数は、シートYの "length"と書かれたセルの右となりの数字   とする(上記では3なので、A,B,C列をコピー対象) 2.コピー元の行の数は、シートXの1~4行目までとするが、   シートXのA列のセルが"x"だったら、その行は全てコピーしない。 3.コピー先(Y)の列は、コピー元(X)の列と一つずれてコピー(BならCに、CならDに) 4.コピー先(Y)の行は、シートYのA列で1行からで始めて空白セルになった行からコピー開始。 (上記では、A列で空白セルのある4行目からコピー) 上記条件で、下記のシートYを作成したいのですが、 この場合どようなマクロ(VBA)で実現できますでしょうか。 コピー結果(シートY)  A     B   C   D 1 length  3  (任意) (任意) 2 xxxx  (任意) (任意) (任意) 3 zzz   (任意) (任意) (任意) 4 (空白) data1 data2 data3 5 (任意) data4 data5 data6 6 (任意) data7 data8 data9

このQ&Aのポイント
  • プリンターがオフラインで印刷ができない問題についての相談です。
  • 製品名はmfc-j840nで、Windows10Proを使用しています。
  • 接続は無線LANで、ひかり回線を使用しています。関連するソフト・アプリは特にありません。
回答を見る

専門家に質問してみよう