Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

43234 / 76735

←次へ　｜　前へ→


	【38552】Re:特定の文字が入ったデータ削除

ハチ - 06/6/6(火) 12:27 -


	引用なし

	パスワード

▼an さん：
>▼ハチさん：
>テンプレートファイルを作っていろいろなマクロ処理し、
>そのテンプレートファイルの中の4枚のシートをコピーして
>保存後、特定の数人に添付ファイルで送る操作を毎月しています。
>（今回の質問もその処理のうちの一つです）
>そこでですが、印刷マクロ（モジュール）も添付ファイルに
>コピーして送ることは出来ますか？
>ボタンを押したら各シート一度に印刷できるようにしたいのです。
>お分かりでしたらアドバイス頂けると助かります。

Excel2002以降はVBprojectの操作は、基本的にはできません。
印刷モジュールを記載済みのテンプレートを作って
そこにコピーしてはどうでしょうか？

>With Sheets(Array("abc", "def", "ghi", "jkl")).Copy

テンプレ上には、Sheet 1枚にしておいて、

Sheets(Array("abc", "def", "ghi", "jkl")).Copy Before:= _
Workbooks.Add(Template:="ここにテンプレート名").Worksheets(1)
WorkSheets(1).Delete

AddしたタイミングでActiveなBookが切り替わる（試してないんですが・・）かも
しれませんからSheets(Array("abc・・　の前に
オブジェクト名（ThisWork. など）を入れておいたほうがいいかも知れません。

0 hits

▼

【38502】特定の文字が入ったデータ削除 an 06/6/5(月) 13:40