- ベストアンサー
エクセル VBA
エクセル VBA コマンドボタン（印刷）をクリックするとSHeet1・SHeet2が ２つ印刷出来るような設定にしたいです。 普通は、SHeet1をコピーして Sheet２の画面を開いてコピーという手順を ボタン押すと、SHeet1・SHeet2が印刷されるようにしたいのですが・・・・ ちなみに印刷設定は出来ています。 このような ことはマクロで出来るのでしょうか？ 記述を教えて下さい！
- pop2003
- お礼率60% (189/311)
- その他MS Office製品
- 回答数3
- ありがとう数5
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (2)
- avanzato
- ベストアンサー率54% (52/95)
こんにちは。 #2様の短縮ですが Sub Sample() Sheets(Array("Sheet1", "Sheet2")).PrintOut End Sub でも可能です。 複数枚が多くなるのであればプログラムの行数を短くする為に↑の使い方をします。
お礼
ありがとうございます！ そういう使い方もあるんですね！ すいませんでした！ また よろしく お願いします！
関連するQ&A
- VBA マクロ保護
VBA マクロ保護 VBAProject 保護はツールにて保護パスワード設定しています！ 私が作ったもので、コマンドボタンをクリックしたら指定された フォルダにコピー（例；Sheet１のみコピー）できるようにしています！ そこのコピーのフォルダを開き、ブックを開いてみると シート保護はされていますが コードの表示にパスワード設定がなく、そのまま見えてしまいます。 そこで質問なのですが コードの表示を見れなくさせるために VBA記述でコピーするときにVBAProjectにパスワード設定させたいです。 ちなみにVBAProject本体には、パスワード設定しています。 どのようにすれば良いか？記述を教えてください！
- ベストアンサー
- オフィス系ソフト
- Excel VBA Sheet1に記述していたのですがうまく動きません。
シート１にコマンドボタンを配置し、Sheet1にそのままコードを記述していました。そこにマクロで記録したシート３の並び替えのコードを追記したのですがうまく動きません。 もしかしてこれは、Sheet1に記述していたためなのでしょうか。 このままSheet1に一連の作業として記述していきたいのですが、 どうしたらよいのでしょうか。 Excel2003を使用しています。 またModule1にSheet1のコードをコピーして移動させた場合は、どのようにすればコマンドボタンから実行させることができるのでしょうか。 宜しくお願い致します。
- ベストアンサー
- その他（プログラミング・開発）
- エクセル 印刷プレビュー マクロフォームも印刷
教えてください。 エクセルで ＶＢＡを使っています。 そのマクロをフォームのボタンを使って 1クリックで動くように、作成しました。 1シートに手順書のようなイメージでボタンを配置しています。 この状態で印刷をしたいのですが、 印刷プレビューで見たとき、並びに印刷したときに、 フォームのボタンが印刷されません。 「オプション」を見たのですが、そのような設定は ないようです。 どうしたら、印刷されるのでしょうか？
- ベストアンサー
- オフィス系ソフト
- excel2000のVBAについて
excel2000でコマンドボタン(command1)をclickすると VBAの command1_click関数の処理をするという マクロをVBAで作成したいのですが、 (1)excelシート上にコマンドボタンの作成方法 を教えてください
- 締切済み
- オフィス系ソフト
- ☆VBA:図の書式設定のリセット方法
Excel-Sheetにコピー張付けした画像(例えばインストール画面を次々コピー張付け)を、適当なサイズに変更したが元のサイズに戻したい。 手作業ではなくVBAマクロで一括返還したいのですが難しくてわかりません。 手動ならアクティブシートの画像をマウスクリックして、 [サイズとプロパティ]⇒[サイズ]⇒[原型のサイズ]⇒[リセット]の手順ですが、 VBAマクロで実行するにはどの様な記述をすればよいか教えて下さい。 宜しくお願いします。
- ベストアンサー
- Visual Basic
- Excel VBA --- コマンドボタンが表示上で消える ---
Excel VBAの初心者です。 今回、マニュアル本を見ながら試行錯誤でマクロにチャレンジしています。 用語や説明が上手くできないかもしれませんがよろしくお願いします。 OSはWindows2000、Excelのバージョンは2000です。 sheet1をメニュー画面として、コマンドボタンをいくつか貼り付けて、そのシート名を表示したコマンドボタンをクリックすると別のシートに 飛ぶようにしています。 別のシートに飛んで、そこで作業を終えたら、今度はそのシート上に貼り付けた『メニューに戻る』コマンドボタンをクリックしてsheet1のメニュー画面に戻るようにマクロを組みました。 ところが、作業用のシートからメニューに戻ると前回クリックしたコマンドボタンが表示上消えてしまっています。 そのコマンドボタンがあった位置にカーソルを持って行ってクリックするとちゃんとコマンドボタンの動作をします。 同じような質問がないか検索してみましたら『コマンドボタン上の文字の表示がおかしくなる』という質問があって、下記コードを入れたら解決したそうなので、Sheet1に下記のようなコードを入れてみました。 でもダメでした。 Private Sub Worksheet_Activate() Application.ScreenUpdating = False ActiveWindow.ScrollRow = 100 ActiveWindow.ScrollRow = 1 End Sub 解決方法のご教授をお願い致します。
- ベストアンサー
- オフィス系ソフト
- EXCEL VBA シートの名前を指定してコピー
EXCEL VBA 初心者です。 とても困っています。 助けてください。 excel2010を使っています。 今，「原本」というシートがあり，それをマクロを使って同じブック内にコピーしたいと思っています。 コピーして新しく作られたシートの名前は「A1」のセルに入力されている値にしたいです。 コピーされた後のシートにはマクロボタンは削除したいと考えています。 また，コピーした後のアクティブシートは「原本」のシートにしたいのですが これを全部いれたコマンドはどのようになるのでしょうか。 似たような質問だったり，回答があるのですが， どのように組み合わせたらいいのかよく分かりません。 どなたかお助けいただけないでしょうか。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- ボタンのクリックでマクロの変数を設定 その２
上記のタイトルで質問しましたが、補足が必要なので改めて質問します。 古い エクセル2000のバージョンです。エクセルのシート上にコマンドボタンを配置し、そこをクリックするとマクロを実行するようにしたいのですが、どうやったらコマンドボタンをエクセルのシート上に配置できるのでしょうか？ ちなみにVBAの画面でユーザーフォームを作成し、そこへはコントロールからコマンドボタンをドラグして貼り付けることはできました。ただし、そのコマンドボタンをコピー（これは可能）しエクセルのシート上に貼り付けようとすると、「貼り付け」の所が薄い文字になっていて、貼り付けできません。 新バージョンのエクセルでは「開発者***」の所からできるようですが、エクセル2000ではどうやったらコマンドボタンをシート上に貼り付けできるのでしょうか？ また貼り付けができたら、自動的にマクロのVBAのプログラム画面に ｓｕｂ commannd() や endsub が追加されるのでしょうか？そこまでできれば、マクロの実質的な内容は既に完成しているので動作するのですが。よろしくお願いします。
- ベストアンサー
- Excel（エクセル）
- ＶＢＡでマクロを消すコマンドがありますか
Sheet1に「コピー」ボタンを置き、クリックすると"Sheet1"のコピー"Sheet1 (2)"を作成するマクロを作成しました。 このあと、"Sheet1 (2)"にコピーされた全てのボタンとマクロを削除したいのですが、 ボタンの削除はうまくできましたがマクロが残ってしまいます。 これをやる目的は、Sheet1でいろいろ編集した帳票をReadOnlyの保存版を作って残したいということです。 ボタンが無くなるので"Sheet1 (2)"のマクロは使えなくなり、目的は達成しているのですが、できればごみとなった"Sheet1 (2)"のマクロを消したいのです。 ＶＢＡの記述内でマクロを消去することはできるのでしょうか。
- ベストアンサー
- オフィス系ソフト
お礼
早速のお返事 ありがとうございます！ 上手く出来ました！