Hỏi chọn dữ liệu trên listbox (1 người xem)

[NguyenNgocSon]

Em đang code sự kiện như sau
Khi chạy báo lỗi. Xin hỏi cách fix lỗi hay do nguyên nhân gì ?

Private Sub ListBox1_Click()
Dim lPos As Long
    With Me
        lPos = .ListBox1.ListIndex
        .TextBox1.Value = .ListBox1.List(lPos, 0)
        .TextBox2.Value = .ListBox1.List(lPos, 1) 'Báo lỗi tại đây ?????
    End With
Unload Me
End Sub

Trân trọng

 

[giaiphap]

Em đang code sự kiện như sau
Khi chạy báo lỗi. Xin hỏi cách fix lỗi hay do nguyên nhân gì ?

Private Sub ListBox1_Click()
Dim lPos As Long
    With Me
        lPos = .ListBox1.ListIndex
        .TextBox1.Value = .ListBox1.List(lPos, 0)
        .TextBox2.Value = .ListBox1.List(lPos, 1) 'Báo lỗi tại đây ?????
    End With
Unload Me
End Sub

Trân trọng

Cho thấy cái file mới biết do đâu nửa chứ.

 

[SA_DQ]

Em đang code sự kiện như sau
Khi chạy báo lỗi do nguyên nhân gì ?

Private Sub ListBox1_Click()
Dim lPos As Long
    With Me
        lPos = .ListBox1.ListIndex
4        .TextBox1.Value = .ListBox1.List(lPos, 0)
        .TextBox2.Value = .ListBox1.List(lPos, 1) 'Báo lỗi tại đây ?????
    End With
Unload Me
End Sub

Trân trọng

Sau dòng lệnh 4 bạn thử thêm câu lệnh này xem sao?

MsgBox .ListBox1.ColumnCount

 

[be_09]

Bạn thử cách này cho Sheet chứa dữ liệu là Sheet 1:

Option Explicit
Private MyControls()
Dim iRow As Long, i As Long, MyCtrls()
Private Sub ListBox1_Change()    
      For i = 0 To 1        
            MyControls(i).Text = ""        
            MyControls(i).Text = ListBox1.List(, i)    
      Next
End Sub

Private Sub UserForm_Initialize()   
      MyControls = Array(TextBox1, TextBox2)   
            With Sheets("Sheet1")        
            ListBox1.ListIndex = ListBox1.ListCount - 1    
      End With
End Sub

Lưu ý: Đặt Name cho vùng bên dưới tiêu đề cột (có 2 cột), chọn ListBox1 và gán Name đó cho RowSource.

Ví dụ: Tiêu đề cột là dòng 4, vùng đặt Name là vùng A5:B10 chẳng hạn.