| |
▼かみちゃん さん：
>こんにちは。かみちゃん です。
>
>> 私は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:38 -
