| |
こんにちは。かみちゃん です。
> 私は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ｻｲﾛの投入時刻をﾘｽﾄﾎﾞｯｸｽより選択して下さい"
>ＯＫクリックで進まず、cancelクリックで
ListBox1が選択されていない場合、何度も
「No.1ｻｲﾛの投入時刻をﾘｽﾄﾎﾞｯｸｽより選択して下さい」
を表示するようにしています。
「キャンセル」をクリックしたら、Exit Do で Loopを抜けますが、
Loop と End Subの間にコードを書いているのではないですか？
そこには何も書かないコードを修正提案しています。
今一度ご確認ください。
|
|
かみちゃん
- 10/5/5(水) 15:15 -
