エントリーの編集
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
記事へのコメント3件
- 注目コメント
- 新着コメント
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
Office TANAKA - Excel VBA Tips[Excelの組み込みダイアログを表示する]
たとえば、あなたがあるマクロを作ったとします。それは、何らかの処理をした後で、ワークシートを印刷... たとえば、あなたがあるマクロを作ったとします。それは、何らかの処理をした後で、ワークシートを印刷するようなマクロです。処理から印刷までをプログラミングして完成しました。ところが、ユーザーからある要望が……。 「印刷する時さ、そのつど部数を指定できるようにしてくれない?」 印刷を実行するPrintOutメソッドは、引数Copiesに印刷部数を指定できます。AcriveSheet.PrintOut Copies:=2 とすれば2部印刷されます。ここはInputBoxを使って、 Sub Sample1() Dim n As Long n = Val(InputBox("印刷部数を入力してください")) If n < 1 Then Exit Sub ActiveSheet.PrintOut Copies:=n End Sub よしOKだ…と動作確認していたら電話が……。 「あのさ、印刷ページも指定
2010/06/05 リンク