Results of 0 - 1 of about 0 (0.000 sec.)
- [[20130302125017]]
- @digest: b70a4fec23ed569f51db089182e91d72
- @id: 61659
- @mdate: 2013-03-02T14:56:15Z
- @size: 1994
- @type: text/plain
- #keywords: 様用 (63010), 子様 (45576), お子 (35636), 用印 (27462), 用", (13754), 刷en (7736), 成人 (6599), vbokcancel (6359), vbquestion (6253), 用ok (5991), 刷ボ (5910), macro9 (4405), vbok (3306), 人用 (3222), 刷処 (2911), collate (2691), 用") (2335), 。") (2228), 注意 (1536), 用（ (1461), ンセ (1340), 印刷 (1336), キャ (1122), printout (1117), copies (1070), ンシ (972), 用」 (947), selectedsheets (928), 録日 (897), ボタ (879), ャン (853), ichinose (826)
- 『キャンセルをクリックしたら処理をやめる』（さやか）
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さん おふたりとも本当にありがとうございました。 いろいろ勉強したら世界が広がりますね。 さやか... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/201303/20130302125017.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 98907 documents and 617515 words.
訪問者：