|
▼P-man大好き さん:
こんばんは
アップされたコードは、以下のような構造です。
Sub Test()
Range("A1").Value = 1 '★下のIf以降にはなんら関係のない独立した処理
If MsgBox("Yes Or No ?", vbYesNo) = vbYes Then
'★Yesだった場合の処理
End If
End Sub
Yesだった場合の処理として何もコードが書かれておらず End If ですから
YesであってもNoであっても何もされません。
やるなら、ここで、印刷。
つまり
Worksheets("印刷シート名").Range("n2:ce41").PrintOut
このコードを書くんでしょうね。
ただし、ご存じだとは思いますが、
Worksheets("印刷シート名").Range("n2:ce41").PrintPreview
これででてきた画面で印刷を行うことも可能ですね。
その場合は、ここで印刷した後、もしMsgBoxに対してYesなら、またもや印刷。
それでよろしいのでしょうか?
というか、Preview画面を出した後、「さらに」印刷するかどうかのメッセージをだしている意図は?
|
|