|
こんにちは。かみちゃん です。
> 私はDO Loopはあまり使ったことがない
仕様どおりのつもりです。
ただ、MsgBoxがしつこい感じはしたと思います。
Private Sub CommandButton2_Click()
End Sub
を現在のコードから全部差替えてください。
説明を読む以上、☆の行の修正ができていないなど、きちんと差し替えられていないように感じます。
Private Sub CommandButton2_Click()
Do
mymsg = "No.1サイロの投入時間をリストボックスより選択して下さい"
mytitle = "投入時刻"
mybtn = MsgBox(mymsg, vbOKCancel + vbInformation, mytitle) '☆
If mybtn = vbCancel Then Exit Do '☆
If ListBox1.ListIndex > -1 Then '★
stjikoku = ListBox1
mymsg = "No.1サイロの投入時刻は" & stjikoku & "ですね"
mytitle = "投入時刻"
mybtn = MsgBox(mymsg, vbYesNo + vbQuestion, mytitle)
If mybtn = vbYes Then
Worksheets("Sheet3").Range("D9").Value = stjikoku
End If
End If '★
Loop
'◆ここにコードは書かない◆
End Sub
>mymsg = "No.1サイロの投入時刻をリストボックスより選択して下さい"
>OKクリックで進まず、cancelクリックで
ListBox1が選択されていない場合、何度も
「No.1サイロの投入時刻をリストボックスより選択して下さい」
を表示するようにしています。
「キャンセル」をクリックしたら、Exit Do で Loopを抜けますが、
Loop と End Subの間にコードを書いているのではないですか?
そこには何も書かないコードを修正提案しています。
今一度ご確認ください。
|
|