[[20130302125017]]　『キャンセルをクリックしたら処理をやめる』（さやか）　ページの最後に飛ぶ

『キャンセルをクリックしたら処理をやめる』（さやか）2010

 超初心者です。よろしくお願いします。
 シート1に印刷ボタンを2こ作成しました。成人用印刷ボタンとお子様用印刷ボタン
 シート2には成人用（シート名は「成人用」、シート3にはお子様用（シート名は「お子様用」
 滅多にお子様用を使わないのでお子様用印刷ボタンをクリックしたら
 「お子様用　OK　　キャンセル」となるように
  MsgBox "お子様用", vbQuestion + vbOKCancel, "注意してください。"
 ここまではいいのですが、キャンセルボタンをクリックしても右上の×をクリックしても処理が進んでしまいます。
 OKボタンだけクリックしたらお子様用印刷するにはどのようにするのですか？

    If MsgBox("お子様用", vbQuestion + vbOKCancel, "注意してください。") = vbOK Then
       '印刷
    End If
 Msgboxは、押されたボタンの種類を返しますから、それで判断します。

 ichinose

 ありがとうございます。
 ところで「End If に対応する If ブロックがありません。」となります。
 下のようなコードです。
 理解してなくてやってみようと思ったのですが．．．難しいです。

 Sub Macro9()
'
' Macro9 Macro
' マクロ記録日 : 2013/3/2
'

'　 If MsgBox("お子様用", vbQuestion + vbOKCancel, "注意してください。") = vbOK Then

       '印刷
    End If
    Sheets("お子様用").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("Sheet1").Select
 End Sub

 '　 If MsgBox("お子様用", vbQuestion + vbOKCancel, "注意してください。") = vbOK 
 の先頭の ' はこの行がコメントということですよ。
 ' を外してください。

 でも、印刷処理を If ～ End If の間に入れないと意味がないですね。
 やりたいのはこういうことかな？
 (Mook)

 Sub お子様用印刷()
　 If MsgBox("印刷するのはお子様用で間違いないですか？", vbQuestion + vbOKCancel, "注意してください。") = vbOK Then
        Sheets("お子様用").PrintOut Copies:=1, Collate:=True
    End If
 End Sub

 こんばんは
 やっとやりたいことが出来ました。
 ichinoseさん　Mookさん
 おふたりとも本当にありがとうございました。
 いろいろ勉強したら世界が広がりますね。
 さやか

コメント返信：

[ 一覧(最新更新順) ]

[[20130302125017]] 『キャンセルをクリックしたら処理をやめる』（さやか） ページの最後に飛ぶ

[[20130302125017]]　『キャンセルをクリックしたら処理をやめる』（さやか）　ページの最後に飛ぶ