Excel VBA質問箱 IV

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

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


16905 / 76732 ←次へ | 前へ→

【65290】Re:ListBoxにNullが入ってしまう。
お礼  きしやん E-MAIL  - 10/5/5(水) 15:03 -

引用なし
パスワード
   ▼かみちゃん さん:
>こんにちは。かみちゃん です。
>
>>>>  A   B  C
>>>>1 14:00
>>>>2 18:00
>>>>3 22:00
>>>以上のようなものです。
>>
>>Sheet4の内容はわかりましたが、それは、日付型で入力していますよね?
>>
>>>>ListBox1のRowSourceプロパティの値を教えてください。
>>
>>ということも聞いているのですが、いかがでしょうか?
>>
>>> ListBox1にNullがはいってしまいます。
>>
>>もしかして、
>>stjikoku = ListBox1
>>で「型が一致しません」というエラーになりませんか?
>>それは、ListBox1 で、値の一覧から選択していますか?
>>選択していない場合は、上記のエラーが出て ListBox1 は Null というより ""
>>という値が格納されます。
>>Dim stjikoku As Date
>>と宣言されているので、「型が一致しません」というエラーになると思います。
>>
>>それとも、選択しているのに、Null が入るということですか?
>
>事象がわかりました。
>「Nullの使い方が不正です」というエラーが出るのですね?
>それは、やはりListBox1で選択していないときに限定されていると思います。
>
>なんとなく、MsgBox がしつこい感じはしますが、以下のような修正するといかがですか?
>
>ポイントは★の行です。(kanabunさんとかぶりますが・・・)
>☆の行は変更箇所です。
>
>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クリックで
mymsg = "No.1サイロの投入時間をリストボックスより選択して下さい"
OKクリックでListBox1選択可能になり、時刻選択後CommandButton2
クリックでmymsg = "No.1サイロの投入時刻をリストボックスより選択して下さい"
OKクリックでmymsg = "No.1サイロの投入時刻は" & stjikoku & "ですね"
はいクリックでmymsg = "No.1サイロの投入時刻をリストボックスより選択して下さい"
OKクリックでmymsg = "No.1サイロの投入時刻は" & stjikoku & "ですね"
はいクリックでmymsg = "No.1サイロの投入時刻をリストボックスより選択して下さい"
OKクリックでmymsg = "No.1サイロの投入時刻は" & stjikoku & "ですね"
以下繰り返し、いいえでmymsg = "No.1サイロの投入時間をリストボックスより選択して下さい"に進めました。
私はDO Loopはあまり使ったことがないのでご教授願えれば幸いです。

1 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 お礼

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