- ベストアンサー
エクセルでボタン一つで複数マクロを実行する方法
- エクセル初心者でも簡単に実現できる、ボタンを押すだけで複数のマクロを実行する方法をご紹介します。
- 特定のシートのみを別ブックとして書き出し、指定セル内の名前でファイル名を付与して保存する方法を詳しく解説します。
- シート内のセルに書かれた内容を別ブックに書き出し、一覧表として利用する方法について解説します。順次追加される仕組みを作成します。
- youichi___
- お礼率78% (52/66)
- その他MS Office製品
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
＞一応4.の順次シートのコピーを追加すると言うのは何となく出来た とお書きですので、作業の流れをお示しすれば、ご自分でコードはお書きになれるかと存じますが。。。 【１－１】指定したシートのみを別ブックとして書き出す 「指定したシート」のシートタブを [右クリック] - [移動またはコピー(M)...] し、[移動先ブック名(T):] を「(新しいブック)」にして [コピーを作成する(C)]、という動作を [新しいマクロの記録] すると、 Sheets("指定したシート").Copy というコードが得られます。 【１－２】その際に指定セル内の名前（例えばA1セルに記入された内容）でファイル名を付与して、指定場所に保存する。 【１－１】の時点で、コピーされたブックがアクティブになっていますので、 ActiveWorkbook.SaveAs "指定場所" & Range("A1").Value でイケルかと存じます。 【２】・・・いらない部分・・・は削除して保存したい これも、その作業を ActiveWorkbook で処理すればＯＫです。 ちなみに、【１－２】より前に、行なえばよいかと存じます。 【３－２】こちらはデータベースの用な物として使用したいので、順次追加されて行くようにしたいです。 「順次追加」される形ですので、別ブックは、予め作っておいて、それを呼び出すようにするのが順当かと存じます。 【３－１】シート内のセル（ここではA1セル）に書かれた内容を1.で作成された物とは別ブックに書き出し、一覧表を作成する。例えば上記シートが作成された日付とその内容（ここではA1セル）で追加されてゆく感じで。 【１－２】の作業の後で、一旦、「別ブック」を閉じます。次に、【３－２】のブックを開いておいて、 Sheets("一覧表").Select With Cells(Rows.Count, 1).End(xlUp).Offset(1) .Value = Date .Offset(, 1).Value = ThisWorkbook.Sheets("指定したシート").Range("A1").Value End With というようなコードを書きます。 ちなみに、マクロのコードは最初のブックに書くということで、「最初のブック」を「ThisWorkbook」としました。 【４】3.で作成したブックに順次1.の指定シートを追加（コピー）する。 これも、【１－１】と同様の操作をマクロの記録で行なうと、 Sheets("指定したシート").Copy After:=Workbooks("データベース.xls").Sheets(1) というコードが得られます。 ということで、 【１－１】、【２】、【１－２】、「別ブック」を閉じる、【３－２】、【３－１】、【４】、「データベース」を保存終了 という流れを、「最初のブック」の標準モジュールに記載して、そのマクロを「シート内にボタンオブジェクト」に割り当てればＯＫでしょう。 最後になりましたが、 ＞ボタン一つで複数のマクロを実行する とお書きですので、複数のマクロを書いておいて、ボタンから呼び出すマクロには、 Call Macro1 Call Macro2 Call Macro3 というように記載してもＯＫです。 が、操作するマクロの内容をよく吟味して、ブック・シートの「Select」・「Active」の状態が理解出来ていないと、おかしな挙動になりますので、ご注意ください。
お礼
ありがとうございます。 どのようにコードを書けば良いのか流れがわかったので助かりました。 教えてもらった事を参考に辞典とにらめっこしながら作ろうと思います。