Excel VBA質問箱 IV

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

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


4002 / 13646 ツリー ←次へ | 前へ→

【58899】再試行の場合の画面表示 レラ 08/11/17(月) 13:48 質問[未読]
【58900】Re:再試行の場合の画面表示 Jaka 08/11/17(月) 14:22 発言[未読]
【58901】Re:再試行の場合の画面表示 レラ 08/11/17(月) 14:35 お礼[未読]
【58903】Re:再試行の場合の画面表示 レラ 08/11/17(月) 15:36 質問[未読]
【58905】Re:再試行の場合の画面表示 Jaka 08/11/17(月) 16:10 発言[未読]
【58908】Re:再試行の場合の画面表示 レラ 08/11/17(月) 20:56 質問[未読]
【58915】Re:再試行の場合の画面表示 Jaka 08/11/18(火) 9:17 発言[未読]
【58930】Re:再試行の場合の画面表示 himesyara 08/11/18(火) 18:35 発言[未読]
【58947】Re:再試行の場合の画面表示 レラ 08/11/19(水) 14:09 質問[未読]

【58899】再試行の場合の画面表示
質問  レラ  - 08/11/17(月) 13:48 -

引用なし
パスワード
   閉じるボタンをクリックした時、データの登録が完了していない場合のメッセージをvbAbortRetryIgnoreを利用してみましたが、"再試行"でも"中止"でも"無視"でも
登録画面に戻りません。入力画面が閉じてしまいます。登録未完了の時、メッセージをだして、画面が再表示される方法を教えてください。よろしくお願いいたします。

Private Sub cmdTojiru_Click()
  Dim myBtn As Integer
   Dim myMsg As String, myTitle As String
  myMsg = "入力内容を確認し登録してから閉じてください"
   myTitle = "登録確認"
   myBtn = MsgBox(myMsg, vbAbortRetryIgnore + vbExclamation, myTitle)
   'フォームを閉じる
      Unload 出庫データダイアログ
 
End Sub

【58900】Re:再試行の場合の画面表示
発言  Jaka  - 08/11/17(月) 14:22 -

引用なし
パスワード
   >Private Sub cmdTojiru_Click()
>  Dim myBtn As Integer
>   Dim myMsg As String, myTitle As String
>  myMsg = "入力内容を確認し登録してから閉じてください"
>   myTitle = "登録確認"
>   myBtn = MsgBox(myMsg, vbAbortRetryIgnore + vbExclamation, myTitle)

   これで、各ボタンを押した時の番号がわかります。
   その番号で、分岐処理すればいいです。
   msgbox myBtn

>   'フォームを閉じる
>      Unload 出庫データダイアログ
> 
> End Sub

【58901】Re:再試行の場合の画面表示
お礼  レラ  - 08/11/17(月) 14:35 -

引用なし
パスワード
   ▼Jaka さん:
>>Private Sub cmdTojiru_Click()
>>  Dim myBtn As Integer
>>   Dim myMsg As String, myTitle As String
>>  myMsg = "入力内容を確認し登録してから閉じてください"
>>   myTitle = "登録確認"
>>   myBtn = MsgBox(myMsg, vbAbortRetryIgnore + vbExclamation, myTitle)
>
>   これで、各ボタンを押した時の番号がわかります。
>   その番号で、分岐処理すればいいです。
>   msgbox myBtn
>
>>   'フォームを閉じる
>>      Unload 出庫データダイアログ
>> 
>> End Sub

 Jaka様

  解決いたしました。ありがとうございました。本当に助かりました。またわからないことがあったら、よろしくお願いいたします。  レラ

【58903】Re:再試行の場合の画面表示
質問  レラ  - 08/11/17(月) 15:36 -

引用なし
パスワード
   ▼レラ さん:申し訳ありません。分岐処理しましたが、OKボタンを押すと閉じてしまうので登録することができません。OKボタンを押しても入力画面が表示されたままにするにはどうしたらいいでしょうか?
>▼Jaka さん:
>>>Private Sub cmdTojiru_Click()
>>>  Dim myBtn As Integer
>>>   Dim myMsg As String, myTitle As String
>>>  myMsg = "入力内容を確認し登録してから閉じてください"
>>>   myTitle = "登録確認"
>>>   myBtn = MsgBox(myMsg, vbAbortRetryIgnore + vbExclamation, myTitle)
>>
>>   これで、各ボタンを押した時の番号がわかります。
>>   その番号で、分岐処理すればいいです。
>>   msgbox myBtn
>>
>>>   'フォームを閉じる
>>>      Unload 出庫データダイアログ
>>> 
>>> End Sub
>
> Jaka様
>
>  解決いたしました。ありがとうございました。本当に助かりました。またわからないことがあったら、よろしくお願いいたします。  レラ

【58905】Re:再試行の場合の画面表示
発言  Jaka  - 08/11/17(月) 16:10 -

引用なし
パスワード
   ▼レラ さん:
>申し訳ありません。分岐処理しましたが、OKボタンを押すと閉じてしまうので登録することができません。OKボタンを押しても入力画面が表示されたままにするにはどうしたらいいでしょうか?

OKボタン?

IF 中止なら then
  中止の時の処理
Elseif 再試行なら then
  再試行の時の処理
Else  '無視なら
  無視の時の処理
Endif

【58908】Re:再試行の場合の画面表示
質問  レラ  - 08/11/17(月) 20:56 -

引用なし
パスワード
   >▼レラ さん:
>>申し訳ありません。分岐処理しましたが、OKボタンを押すと閉じてしまうので登録することができません。OKボタンを押しても入力画面が表示されたままにするにはどうしたらいいでしょうか?
>
>OKボタン?
>
>IF 中止なら then
>  中止の時の処理
>Elseif 再試行なら then
>  再試行の時の処理
>Else  '無視なら
>  無視の時の処理
>Endif
▼Jaka さんへ

 再思考のときどう記述すればいいのでしょうか?レラ

【58915】Re:再試行の場合の画面表示
発言  Jaka  - 08/11/18(火) 9:17 -

引用なし
パスワード
   ▼レラ さん:
> 再思考のときどう記述すればいいのでしょうか?
再思考って、提示されたコードにそって書いただけですから、
必要なければ入らないし、必要ならば自分で行いたい処理にすれば良いと
思います。
この辺は、書いた本人がどうしたいのかわからないので、
私がどうしたら良いとか言えないです。

>  myMsg = "入力内容を確認し登録してから閉じてください"
>   myTitle = "登録確認"
>   myBtn = MsgBox(myMsg, vbAbortRetryIgnore + vbExclamation, myTitle)

【58930】Re:再試行の場合の画面表示
発言  himesyara  - 08/11/18(火) 18:35 -

引用なし
パスワード
     Dim x As VbMsgBoxResult
  x = MsgBox("", vbAbortRetryIgnore)
  Select Case x
    Case vbAbort
      MsgBox "中止"
    Case vbIgnore
      MsgBox "無視"
    Case vbRetry
      MsgBox "再試行"
  End Select

【58947】Re:再試行の場合の画面表示
質問  レラ  - 08/11/19(水) 14:09 -

引用なし
パスワード
   himesyara さん ありがとうございました。とってもうまくいきました。MsgBoxの世界が広がりました。ありがとうございました。今なかなかうまくいかないのが、出庫表シートのデータ入力ボタン(出庫データ入力ダイアログ)をメニューシートでクリックして表示し、メニューシート上でダイアログに入力したものが、出庫表シートに転記されるようにしたいのです。出庫表シートでダイアログ入力するときちんと転記されます。どういうコードにすればいいのでしょうか?


▼himesyara さん:
>  Dim x As VbMsgBoxResult
>  x = MsgBox("", vbAbortRetryIgnore)
>  Select Case x
>    Case vbAbort
>      MsgBox "中止"
>    Case vbIgnore
>      MsgBox "無視"
>    Case vbRetry
>      MsgBox "再試行"
>  End Select

4002 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free