Excel VBA質問箱 IV

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

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


16906 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   ▼kanabun さん:
>▼きしやん さん:
>横から失礼します。
>
>>下記のコードでListBox1にNullがはいってしまいます。
>
>それはListBox1のどのアイテムも「選択されていない」からでは?
>
>
>>Private Sub CommandButton1_Click()
> (途中 省略)
> 
>  ▼ここで CommandButton2をコードでクリックさせています 
>>  Call CommandButton2_Click
>>
>>End Sub
>
>▼CommandButton2が押されてから、ListBoxのアイテムを選択する
> いとまもなく、ListBox1のいま選択されているアイテムを変数に
> 代入しようとしています。
>>Private Sub CommandButton2_Click()
>>  
>>  mymsg = "No.1サイロの投入時刻をリストボックスより選択して下さい"
>>  mytitle = "投入時刻"
>>  mybtn = MsgBox(mymsg, vbOKOnly + vbInformation, mytitle)
>>
>>  stjikoku = ListBox1 ・・・・・・・・・・・ ここにNullが入ってしまいます。
>
>
>'------------------- (改良 案)
>
>>  Call CommandButton2_Click
>の行を削除し、
>代わりに、(CommandButton2の最初のコード部分 )MsgBox 表示を
>>  mymsg = "No.1サイロの投入時刻をリストボックスより選択して下さい"
>>  mytitle = "投入時刻"
>>  mybtn = MsgBox(mymsg, vbOKOnly + vbInformation, mytitle)
>>
>そこに移動して、
>
>ユーザーがListBox1からどれかの時刻を選択したあと、
>
>Private Sub CommandButton2_Click()
>  if ListBox1.ListIndex < 0 Then
>    Msgbox "Listから 時刻を選択してください"
>    Exit Sub
>  end if
> stjikoku = ListBox1.VALUE
>
>のように直してみては どうですか?

kanabun さん

ありがとうございます。
Call CommandButton2_Clickの項は説明不足でしたが、
まだ作成途中ですが条件分岐を考えておりまして、select caseも
考えていますが、構文が複雑になるかと思い、subルーチン的な
ものが出来ればと考えております。
このような場合kanabun さんの方法で可能でしょうか
どうか宜しくお願いします。
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 お礼

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