Không chọn ListBox nhưng ListIndex luôn bằng 0

[Thanh Bình PV]

Em có tạo 1 Form để hiện và ẩn sheet dựa trên 1 mã ở trên mạng. Em sử dụng ListIndex (<0) để bẫy lỗi cho ListBox, nếu không chọn đối tượng nào thì sẽ hiện thông báo. Nhưng khi em thử không chọn đối tượng trong ListBox cần ẩn thì thông báo không xuất hiện (ListIndex luôn bằng 0)

​

Private Sub cmdHide_Click()
    Dim i As Integer, Sht As String
    Application.ScreenUpdating = False
    If lstVisible.ListCount = 1 Then
        MsgBox "There is only 1 sheet active so should cannot be hidden.", vbExclamation
    Else
        If lstVisible.ListIndex < 0 Then
            MsgBox "Please select the sheet you want to unhide.", vbExclamation
        Else
            For i = 0 To lstVisible.ListCount - 1
                If lstVisible.Selected(i) = True Then
                    Sht = lstVisible.List(i)
                    Sheets(Sht).Visible = False
                End If
            Next i
        End If
    End If
    UserForm_Initialize
End Sub

 

[truongvu317]

Listbox trong file đang dùng chế độ chọn nhiều phần tử, ở chế độ này listindex không thể dùng để kiểm tra xem có bao nhiêu phần tử được lựa chọn. Lúc này dùng thuộc tích selected để đếm xem có bao nhiều phần tử được chọn.

 

[Thanh Bình PV]

Listbox trong file đang dùng chế độ chọn nhiều phần tử, ở chế độ này listindex không thể dùng để kiểm tra xem có bao nhiêu phần tử được lựa chọn. Lúc này dùng thuộc tích selected để đếm xem có bao nhiều phần tử được chọn.

Dạ. Em cảm ơn.. Thắc mắc mãi. Cuối cùng cũng nghiệm ra... Vậy thôi em đành dùng selected để kiểm tra vậy.