Excelのマクロについて教えてください。

下記のマクロを実行すると「メッセージボックス」が表示され、「OK」をクリックすると
Call 着工時期
が実行されるようしてますが、
「OK」をクリックしても
Call 着工時期
が実行されません、
解決方法を教えてください。
現状のマクロ
Sub 着工日確認()
Dim alert
alert = MsgBox("一般的には" & vbLf & " " & vbLf & "「くい打ち工事」" & vbLf & "「地盤完了工事」" & vbLf & "「山留工事」」" & vbLf & "「根切り工事」" & vbLf & "に係る工事が開始開始された時点を言います。", vbYes + vbExclamation, "着工日の考え方")
Select Case alert
Case vbYes: Call　着工時期
End Select
End Sub
以上となります。
よろしくお願いいたします。

質問者からの補足コメント

• 

  うまく出来ましたが、
  できれば、
  右上の×（キャンセル）をクリックしたときは、着工時期を実行したくないので、
  その方法を教えていただけますか。
  よろしくお願いいたします。

  No.1の回答に寄せられた補足コメントです。 補足日時：2024/12/26 06:55

No.4 ベストアンサー 回答者： tatsumaru77 回答日時： 2024/12/26 08:04

>右上の×（キャンセル）をクリックしたときは、着工時期を実行したくないので、

>その方法を教えていただけますか。

以下のようにしてください。


Sub 着工日確認()
Dim alert
alert = MsgBox("一般的には" & vbLf & " " & vbLf & "「くい打ち工事」" & vbLf & "「地盤完了工事」" & vbLf & "「山留工事」」" & vbLf & "「根切り工事」" & vbLf & "に係る工事が開始開始された時点を言います。", vbOKCancel + vbExclamation, "着工日の考え方")
Select Case alert
Case vbOK: Call 着工時期
End Select
End Sub

この回答へのお礼

回答ありがとうございました。
全て上手くできました。
何度も色々と教えていただきまして、感謝いたします。

お礼日時：2024/12/26 08:47

No.3 回答者： tatsumaru77 回答日時： 2024/12/25 17:13

本件ではありませんが、オフィスソフトの個人向け買い切り版が、発売されることになりました。

2台まで、インストール可能だそうです。

下記URLを参照ください。
個人向けの買い切り版「Office 2024」が登場
https://pc.watch.impress.co.jp/docs/news/1628187 …


こちらでオフィスソフトを探されていましたのを思い出しました。
https://oshiete.goo.ne.jp/qa/13992405.html

この回答へのお礼

回答、ありがとうございました、
そのソフトを購入しました、

お礼日時：2024/12/26 06:15

No.2 回答者： Qchan1962 回答日時： 2024/12/25 14:10

vbYes を　vbYesNo　に変更してみて

この回答へのお礼

回答ありがとうございました。
参考にさせて頂きます。

お礼日時：2024/12/25 14:16

No.1 回答者： tatsumaru77 回答日時： 2024/12/25 14:05

以下のようにしてください。

Sub 着工日確認()
Dim alert
alert = MsgBox("一般的には" & vbLf & " " & vbLf & "「くい打ち工事」" & vbLf & "「地盤完了工事」" & vbLf & "「山留工事」」" & vbLf & "「根切り工事」" & vbLf & "に係る工事が開始開始された時点を言います。", vbOKOnly + vbExclamation, "着工日の考え方")
Select Case alert
Case vbOK: Call 着工時期
End Select
End Sub



vbYes をmsgboxで指定することはできません。（下記URL参照）
OKをクリックすると、１（vbOK）が返りますので、
Case vbOKとします。
但し、OKをクリックでなく、右上の×（キャンセル）をクリックしても１
が、返りますので、着工時期が実行されます。
右上の×（キャンセル）をクリックしたときは、着工時期を実行したくないのであれば、その旨補足してください。

https://learn.microsoft.com/ja-jp/office/vba/lan …

この回答へのお礼

回答ありがとうございました。
上手くできました。

お礼日時：2024/12/25 14:16