Excel VBA質問箱 IV

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

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


16904 / 76732 ←次へ | 前へ→

【65291】Re:ListBoxにNullが入ってしまう。
発言  かみちゃん E-MAIL  - 10/5/5(水) 15:15 -

引用なし
パスワード
   こんにちは。かみちゃん です。

> 私は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の間にコードを書いているのではないですか?
そこには何も書かないコードを修正提案しています。

今一度ご確認ください。
0 hits

【65273】ListBoxにNullが入ってしまう。 きしやん 10/5/4(火) 17:44 質問
【65274】Re:ListBoxにNullが入ってしまう。 かみちゃん 10/5/4(火) 18:19 発言
【65275】Re:ListBoxにNullが入ってしまう。 きしやん 10/5/4(火) 18:52 お礼
【65276】Re:ListBoxにNullが入ってしまう。 かみちゃん 10/5/4(火) 18:57 発言
【65283】Re:ListBoxにNullが入ってしまう。 きしやん 10/5/5(水) 10:15 お礼
【65284】Re:ListBoxにNullが入ってしまう。 かみちゃん 10/5/5(水) 10:30 発言
【65285】Re:ListBoxにNullが入ってしまう。 きしやん 10/5/5(水) 10:55 お礼
【65286】Re:ListBoxにNullが入ってしまう。 かみちゃん 10/5/5(水) 11:02 発言
【65288】Re:ListBoxにNullが入ってしまう。 かみちゃん 10/5/5(水) 11:24 発言
【65290】Re:ListBoxにNullが入ってしまう。 きしやん 10/5/5(水) 15:03 お礼
【65291】Re:ListBoxにNullが入ってしまう。 かみちゃん 10/5/5(水) 15:15 発言
【65292】Re:ListBoxにNullが入ってしまう。 きしやん 10/5/5(水) 15:38 お礼
【65287】Re:ListBoxにNullが入ってしまう。 kanabun 10/5/5(水) 11:14 発言
【65289】Re:ListBoxにNullが入ってしまう。 きしやん 10/5/5(水) 14:34 お礼
【65296】Re:ListBoxにNullが入ってしまう。 kanabun 10/5/5(水) 21:06 発言
【65306】Re:ListBoxにNullが入ってしまう。 きしやん 10/5/7(金) 9:18 お礼

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