[[20060911161042]]　『リストボックスの未入力チェック』（莉奈）　ページの最後に飛ぶ

『リストボックスの未入力チェック』（莉奈）
こんにちは。またお世話になります。

現在、マクロのユーザーフォームにリストボックスとコマンドボタンが配置されています。
そこでリストボックスの未入力チェックをしようと

Private Sub CommandButton2_Click()

If ListBox1 = "" Then

MsgBox "ListBox1未選択です。"

Else

    処理内容

End If

End Sub

テキストボックス相手だったら上手くいったのですが・・。
うまくゆきません
ご指南よろしくお願いします。（莉奈）

 If TextBox1.Value="" Then

 では？
 (mm)

対象はlistboxなので
If listBox1.Value="" Then

でやりましたが、だめでした（莉奈）

 これでどうでしょうか？
 (ROUGE)
'----
Private Sub CommandButton2_Click()
    If Me.ListBox1.ListIndex = -1 Then
        MsgBox "未選択"
    Else
        '処理
    End If
End Sub

 これでもいいみたい。
 (ROUGE)
'----
Private Sub CommandButton2_Click()
    If Me.ListBox1.Text = "" Then
        MsgBox "未選択"
    Else
        '処理
    End If
End Sub

リストの一番最初の項目のインデックスが0、何も選択されていない場合は-1なんですね。

ListBox1.Text でもいいんですか。試してみます。

またひとつ勉強になりました。

ROUGEさん、ありがとうございましたm(_ _)m（莉奈）

コメント返信：

[ 一覧(最新更新順) ]

[[20060911161042]] 『リストボックスの未入力チェック』（莉奈） ページの最後に飛ぶ

[[20060911161042]]　『リストボックスの未入力チェック』（莉奈）　ページの最後に飛ぶ