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だ…と動作確認していたら電話が……。 「あのさ、印刷ページも指定

[yamamototakehisa]

ダイアログボックスを表示して、ユーザーに操作

[pick_mugetu]

VB5、VB6、VB.NET系で全てのExcel組込みダイアログが表示できる

[lsty]

印刷ダイアログ表示するだけでずいぶん苦労して探した→「Dialogsコレクションは(中略)不思議と昔から詳細な使い方はあまり公になっていません。(中略)Microsoftとしては、あまり推奨していない機能なのかもしれません。」