Active Cell bằng Listbox

[dinhhung0910]

Nhờ các bác chỉ dùm:
tôi có 1 listbox có nguồn dữ liệu từ bảng tính (VD: Row Sourse = A1:A10)
Làm sao để khi dblclick vào một giá trị bất kỳ trong listbox thì trỏ chuột sẽ xuất hiện tại ô có giá trị tương ứng?
Thanks

 

[sealand]

Bạn thêm đoạn code sau:

Private Sub ListBox1_Click()
    Cells.Find(What:=Me.ListBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext).Activate

End Sub

 

[ndu96081631]

Bạn thêm đoạn code sau:

Private Sub ListBox1_Click()
    Cells.Find(What:=Me.ListBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext).Activate

End Sub

Anh dùng Find em nghĩ không ổn rồi ---> Nếu dử liệu trùng nó sẽ chọn sai
Em thì xài cái này:

Range(ListBox1.RowSource)(ListBox1.ListIndex + 1).Select

Nếu có nhiều Columns thì thêm Resize vào mà chọn

 

[hoangdanh282vn]

Nhờ các bác chỉ dùm:
tôi có 1 listbox có nguồn dữ liệu từ bảng tính (VD: Row Sourse = A1:A10)
Làm sao để khi dblclick vào một giá trị bất kỳ trong listbox thì trỏ chuột sẽ xuất hiện tại ô có giá trị tương ứng?
Thanks

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Sheet1.Range(ListBox1.RowSource).Find(ListBox1.Value).Select
Unload Me <== Neu ban muon dong form sau khi chon duoc o du lieu thi them cau lenh nay
End Sub

 

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

Anh dùng Find em nghĩ không ổn rồi ---> Nếu dử liệu trùng nó sẽ chọn sai
Em thì xài cái này:

Range(ListBox1.RowSource)(ListBox1.ListIndex + 1).Select

Nếu có nhiều Columns thì thêm Resize vào mà chọn

Thầy ơi đoạn code trên rất hay, nhưng nó chỉ cho ra kết quả đúng khi dữ liệu trong list box là 1 cột.
Hai cột trở lên thì nó chạy tùm lum, nhờ thầy xem giúp.
Em cảm ơn

 

[rollover79]

Thầy ơi đoạn code trên rất hay, nhưng nó chỉ cho ra kết quả đúng khi dữ liệu trong list box là 1 cột.
Hai cột trở lên thì nó chạy tùm lum, nhờ thầy xem giúp.
Em cảm ơn

Người ta đã nói rõ là nếu có nhiều Columns thì thêm Resize vào mà chọn rồi mà.

 

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

Người ta đã nói rõ là nếu có nhiều Columns thì thêm Resize vào mà chọn rồi mà.

Em chưa hiểu lắm anh có thể chỉ rõ hơn không? Cú pháp như thế nào em chưa biết.
Cám ơn anh

 

[rollover79]

Em chưa hiểu lắm anh có thể chỉ rõ hơn không? Cú pháp như thế nào em chưa biết.
Cám ơn anh

Bạn thử dòng lệnh này xem sao.

Range(ListBox1.RowSource)(ListBox1.ListIndex + 1, 1).Resize(1, Range(ListBox1.RowSource).Columns.Count).Select

 

[doanhhoang79]

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Sheet1.Range(ListBox1.RowSource).Find(ListBox1.Value).Select
Unload Me <== Neu ban muon dong form sau khi chon duoc o du lieu thi them cau lenh nay
End Sub

Tôi thấy chủ đề này khá hay. Theo cách tương tự như ban hoangdanh282vn, nếu ta thực hiện hoàn toàn trên form thì sao? Tức là thay vì sheet1 thành một form nào đó chẳng hạn???
VD: khi ta dbclick vào form1 thì nó sẽ chọn ở form2

 

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

Mình nghĩ nếu như listbox chứa hàng nghìn dòng thì dò kiếm rất mất thời gian.
Nhân tiện đây cho mình "Thêm mắm, dặm muối" vào form 1 cái Combobox để lọc lấy giá trị ra 1 bảng riêng

 

[dinhhung0910]

Cảm ơn các bác đã giúp!!!!