Giúp code về Listbox trong Form

[minhtuan55]

Chào cả nhà GPE !
Em tự học về VBA nên có nhiều điều không biết, nên em hỏi hơi nhiều mọi người thông cảm cho em. Em đang học về List box có 1 vài vấn đề nhờ mọi người chỉ giáo

1 Giúp code trong List box hiện được tiêu đề cột ( tên hàng, Sl, đơn giá, thành tiền ) thì viết code ra làm sao
2 Vùng dữ liệu của em từ A528 . Nhưng làm sao chỉnh Rowsoure tự động thu gọn trong vùng chỉ có dữ liệu thôi ( ví dụ A512 )
3 Giúp code khi kích đúp chuột trên dòng của Listbox thì Range("a1:d1").value = dữ liệu của dòng đó ( ví dụ
4 Giúp code điều chỉnh độ rộng cột trong Listbox tự động khi tên hàng dài
5 Giúp code sort trong Listbox
6 Giúp code lấy hết dữ liệu trong Listbox xuống bảng tính
Rất mong mọi người giúp đở. Xin chân thành cảm ơn !

 

[langtuchungtinh360]

Chào cả nhà GPE !
Em tự học về VBA nên có nhiều điều không biết, nên em hỏi hơi nhiều mọi người thông cảm cho em. Em đang học về List box có 1 vài vấn đề nhờ mọi người chỉ giáo

1 Giúp code trong List box hiện được tiêu đề cột ( tên hàng, Sl, đơn giá, thành tiền ) thì viết code ra làm sao
2 Vùng dữ liệu của em từ A528 . Nhưng làm sao chỉnh Rowsoure tự động thu gọn trong vùng chỉ có dữ liệu thôi ( ví dụ A512 )
3 Giúp code khi kích đúp chuột trên dòng của Listbox thì Range("a1:d1").value = dữ liệu của dòng đó ( ví dụ
4 Giúp code điều chỉnh độ rộng cột trong Listbox tự động khi tên hàng dài
5 Giúp code sort trong Listbox
6 Giúp code lấy hết dữ liệu trong Listbox xuống bảng tính
Rất mong mọi người giúp đở. Xin chân thành cảm ơn !

giúp hết cái này cũng là một vấn đề đó bạn. sao không dùng Addins A-tools của thầy Tuân ấy

 

[PacificPR]

Mục này

4 Giúp code điều chỉnh độ rộng cột trong Listbox tự động khi tên hàng dài
5 Giúp code sort trong Listbox

Trong Listbox hình như không làm được có phải không anh langtuchungtinh360. Nếu làm được anh chỉ cho em với nha

 

[dhn46]

Giúp bạn câu 1,2,3 nhé:

Câu 1,2 bạn dùng code sau:

Sub dad()
UserForm1.ListBox1.RowSource = "A5:D" & Range("A65536").End(3).Row
UserForm1.Show
End Sub

Câu 3:

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    pos = Me.ListBox1.ListIndex
    [A1] = Me.ListBox1.List(pos, 0)
    [A1] = Me.ListBox1.List(pos, 1)
    [A1] = Me.ListBox1.List(pos, 2)
    [A1] = Me.ListBox1.List(pos, 3)
End Sub

Câu 5: Bạn sort trên sheet trước rồi sử dụng câu lệnh tương tự câu 1,2

Câu 6: Dựa vào câu 3 bạn triển khai tiếp.

 

[langtuchungtinh360]

Mục này

Trong Listbox hình như không làm được có phải không anh langtuchungtinh360. Nếu làm được anh chỉ cho em với nha

có nhiều cách để làm lắm. mình thì làm theo cách thủ công "củ chuối" nhìn cũng tạm được thôi chứ không chính xác.
còn muốn tự tay kéo độ rộng cột ra thì chỉ có listview làm được thôi.
tại đây mình có làm 1 file cũng như thế.
sort cũng có trong file đó. nói chung dân củ chuối như mình làm được vậy cũng vui rồi

 

[langtuchungtinh360]

Giúp bạn câu 1,2,3 nhé:

Câu 1,2 bạn dùng code sau:

Sub dad()
UserForm1.ListBox1.RowSource = "A5:D" & Range("A65536").End(3).Row
UserForm1.Show
End Sub

Câu 3:

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    pos = Me.ListBox1.ListIndex
    [A1] = Me.ListBox1.List(pos, 0)
    [A1] = Me.ListBox1.List(pos, 1)
    [A1] = Me.ListBox1.List(pos, 2)
    [A1] = Me.ListBox1.List(pos, 3)
End Sub

Câu 5: Bạn sort trên sheet trước rồi sử dụng câu lệnh tương tự câu 1,2

Câu 6: Dựa vào câu 3 bạn triển khai tiếp.

bác
cho em hỏi thêm. tiêu đề của listbox ngoài cách lấy từ range đưa vào không còn cách nào khác sao ạ, ví dụ như truyền từ mảng vào được không?

 

[Hoang2013]

Câu 1 có thể làm theo cách tà đạo là vầy:

Sửa dòng lệnh thành

UserForm1.ListBox1.List = Range("A4:D" & . . . ).Value

& gán tính chất ColumnHeads := False

 

[PacificPR]

có nhiều cách để làm lắm. mình thì làm theo cách thủ công "củ chuối" nhìn cũng tạm được thôi chứ không chính xác.
còn muốn tự tay kéo độ rộng cột ra thì chỉ có listview làm được thôi.
tại đây mình có làm 1 file cũng như thế.
sort cũng có trong file đó. nói chung dân củ chuối như mình làm được vậy cũng vui rồi

Hôm trước em có đọc 1 bài của anh. Trong đó có Form tự điều chỉnh được chiều cao, chiều rông của Listbok. Nhưng bây giờ tìm mãi không thấy. Anh cho em xin đường Link nha

 

[dhn46]

bác
cho em hỏi thêm. tiêu đề của listbox ngoài cách lấy từ range đưa vào không còn cách nào khác sao ạ, ví dụ như truyền từ mảng vào được không?

Theo như tôi biết thì không thể đưa vào Header của listbox qua việc sử dụng mảng được bạn ah.

 

[langtuchungtinh360]

Hôm trước em có đọc 1 bài của anh. Trong đó có Form tự điều chỉnh được chiều cao, chiều rông của Listbok. Nhưng bây giờ tìm mãi không thấy. Anh cho em xin đường Link nha

tự điều chỉnh chiều cao thì không có đâu. còn điều chỉnh chiều rộng của từng cột thì chỉ là chạy qua từng ô mà tính chiều dài max của chuỗi đó rồi tính ra chiều rộng của từng cột. sau đó mới gán vào thôi bạn.
hay là bạn muốn nói đến vụ để chuột ở viền của listbox rồi kéo, nếu đúng thì xem bài này

 

[minhtuan55]

bác
cho em hỏi thêm. tiêu đề của listbox ngoài cách lấy từ range đưa vào không còn cách nào khác sao ạ, ví dụ như truyền từ mảng vào được không?

Thank bác em đã hiểu thêm 1 vài lệnh về Listbox.

 

[thuc2th1043]

Private Sub ListBoxkq_Click() 'Ket Qua hien thi tim kiem
On Error Resume Next
Me.cbsubstt.Text = ListBoxkq.List(ListBoxkq.ListIndex, 0)
Me.txttungay.Text = ListBoxkq.List(ListBoxkq.ListIndex, 1)
Me.txtdenngay.Text = ListBoxkq.List(ListBoxkq.ListIndex, 2)
Me.cbtuankq.Text = ListBoxkq.List(ListBoxkq.ListIndex, 3)
Me.txtnhaplop.Text = ListBoxkq.List(ListBoxkq.ListIndex, 4)
Me.txt10.Text = ListBoxkq.List(ListBoxkq.ListIndex, 5)
Me.txt9.Text = ListBoxkq.List(ListBoxkq.ListIndex, 6)
Me.txt8.Text = ListBoxkq.List(ListBoxkq.ListIndex, 7)
Me.txt7.Text = ListBoxkq.List(ListBoxkq.ListIndex, 8)
Me.txt6.Text = ListBoxkq.List(ListBoxkq.ListIndex, 9)
Me.txt5.Text = ListBoxkq.List(ListBoxkq.ListIndex, 10)
Me.txt4.Text = ListBoxkq.List(ListBoxkq.ListIndex, 11)
Me.txt3.Text = ListBoxkq.List(ListBoxkq.ListIndex, 12)
Me.txt2.Text = ListBoxkq.List(ListBoxkq.ListIndex, 13)
Me.txt1.Text = ListBoxkq.List(ListBoxkq.ListIndex, 14)
End Sub

code em như thế nhưng form list chỉ hiển thị 10 cột ad giúp em thế ạ