Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9318 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【28077】メッセージボックスについて yamazaki 05/8/28(日) 6:40 質問[未読]
【28078】Re:メッセージボックスについて MOOM 05/8/28(日) 7:05 お礼[未読]
【28079】Re:メッセージボックスについて yamazaki 05/8/28(日) 7:50 お礼[未読]
【28077】メッセージボックスについて
質問  yamazaki  - 05/8/28(日) 6:40 -
引用なし
パスワード
   皆さんおはようございます。早速ですが質問をさせてください
矢印のメッセージボックスの所でエラーが出てしまいます。どうしてでしょうか？


Sheets("使用状況確認書").Select
　　res = MsgBox("初版ですか？", vbYesNo, _
　　vbExclamation, "初版・再版確認画面")
　　 　　↑

　　Select Case res
　　Case vbYes
　　Application.ScreenUpdating = False
　　ActiveSheet.Unprotect password:="****"
　　Range("BM1").Select
　　Range("BM1").Formula = "（初版）"
　　ActiveSheet.Protect password:="****"
　　
　　
　　Case vbNo
　　ActiveSheet.Unprotect password:="****"
　 Range("BM1").Select
　 Range("BM1").Formula = "（再版）"
　　ActiveSheet.Protect password:="****"
　　Application.ScreenUpdating = True
　　Application.DisplayFormulaBar = True
　　Range("H5").Select
　　End Select
【28078】Re:メッセージボックスについて
お礼  MOOM  - 05/8/28(日) 7:05 -
引用なし
パスワード
   ▼yamazaki さん：
おはようございます


>　　res = MsgBox("初版ですか？", vbYesNo, _
>　　vbExclamation, "初版・再版確認画面")

引数のButtonsの部分　vbYesNo,vbExclamation としているところは、
カンマで区切らないで、vbYesNo + vbExclamation 　とするか、
定数　vbYesNoが4、 vbExclamationが48なので52としてみてください。
【28079】Re:メッセージボックスについて
お礼  yamazaki  - 05/8/28(日) 7:50 -
引用なし
パスワード
   ▼MOOM さん：
>▼yamazaki さん：
>おはようございます
>
>
>>　　res = MsgBox("初版ですか？", vbYesNo, _
>>　　vbExclamation, "初版・再版確認画面")
>
>引数のButtonsの部分　vbYesNo,vbExclamation としているところは、
>カンマで区切らないで、vbYesNo + vbExclamation 　とするか、
>定数　vbYesNoが4、 vbExclamationが48なので52としてみてください。

MOOMさんありがとうございました。”vbYesNo + vbExclamation ”で　できました。
感謝です！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9318 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free