Giúp đỡ về ListBox có nhiều hàng cột

[148btx]

Xin hỏi, tôi có cái ListBox và TextBox trong UserForm. Trong ListBox này có 2 hàng cột chứa các giá trị được liên kết từ Sheet. Tôi muốn mỗi khi nhấn vào ListBox thì giá trị ở hàng cột thứ 2 sẽ nhập vào TextBox1 nhưng làm chưa được, nó chỉ tự động nhảy giá trị ở hàng cột 1 vào (điều này tôi không muốn).


Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Me.TextBox1.Value = Me.ListDataFile.Value
End Sub

Trân thành cảm ơn

 

[cadafi]

..........Tôi muốn mỗi khi nhấn vào ListBox thì giá trị ở hàng cột thứ 2 sẽ nhập vào TextBox1 nhưng làm chưa được, nó chỉ tự động nhảy giá trị ở hàng cột 1 vào (điều này tôi không muốn).

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Me.TextBox1.Value = Me.ListDataFile.Value
End Sub

Bạn thử sửa code trên lại như sau:

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Me.TextBox1.Value = Me.ListDataFile.Column(1)
End Sub

 

[148btx]

Bạn thử sửa code trên lại như sau:

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Me.TextBox1.Value = Me.ListDataFile.Column(1)
End Sub

Chưa được, báo lỗi
Compile error: Method or data member not found

Nhận tiện gửi File kèm, bạn nào xem giúp hộ cái

 

[Hai Lúa Miền Tây]

Chưa được, báo lỗi
Compile error: Method or data member not found

Nhận tiện gửi File kèm, bạn nào xem giúp hộ cái

Code người ta là:

Private Sub ListDataFile_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  Me.TextBox1.Value = Me.ListDataFile.[COLOR=red]Column(1)[/COLOR]
  
End Sub

còn của bạn là:

Private Sub ListDataFile_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  Me.TextBox1.Value = Me.ListDataFile.[COLOR=red]Column1()[/COLOR]
  
End Sub

Bạn xem lại nhé

 

[sealand]

Trong ví dụ của bạn số 1 phải ở trong ngoặc là OK

Bạn cũng có thể đặt Properties: BoundColumn=2
và thêm code

Private Sub ListBox1_Click()
TextBox1 = ListBox1
End Sub

Để mở Form Textbox1 đã được điền giá trị bạn thêm code:

Private Sub UserForm_Initialize()
ListBox1.ListIndex = 0
TextBox1 = ListBox1
End Sub

Lưu ý: Đối với Form của bạn chỉ đổi BoundColumn của List... là xong.