Cảm ơn bạn, một cách làm với ý tưởng rất hay,
Cám ơn anh đã phản hồi. Tại em mới học về cái userform. Nên còn mới. Chưa biết gì. Mong anh chị và thầy cô giúp đỡ1. Lấy luôn dòng tiêu đề vào data cho listbox thì nó sẽ có tiêu đề
2.
Res(k, 3) = sArr(i, 3)Res(k, 3) = Format(sArr(i, 3), "Short Date")ListBox của bạn chỉ có 5 cột nên tôi đề nghị kéo rộng UserForm chút và thiết lập Width của ListBox bằng 750. Lúc này chỉ thêm 5 Label nối đuôi nhau ngay trên ListBox để làm tiêu đề.
Vd. thêm code
Private Sub Lbdulieu_Click()
Dim k As Long, chiso
If Lbdulieu.ListIndex < 0 Then Exit Sub
chiso = Array(2, 3, 4, 6, 8) ' chi so dong cua C2, C3, C4, C6, C8
For k = 0 To UBound(chiso)
If k = 2 Then
ThisWorkbook.Worksheets("Form").Cells(chiso(k), "C").Value = CDate(Lbdulieu.List(Lbdulieu.ListIndex, k))
Else
ThisWorkbook.Worksheets("Form").Cells(chiso(k), "C").Value = Lbdulieu.List(Lbdulieu.ListIndex, k)
End If
Next k
End SubTôi đang làm vài thứ có liên quan tới cái Listbox ... áp dụng cho bài của bạn tôi gợi ý cho mà làm he ... nó sẻ rất đẹp đấy
Bạn có xem tập tin của người ta không vậy? Ai cũng biết là nếu lấy dữ liệu từ sheet bằng RowSource thì chuyện tiêu đề nó nhỏ như con thỏ, còn nhỏ hơn con thỏ rất nhiều. Chủ thớt có vấn đề với tiêu đề vì chủ thớt có dữ liệu từ việc tìm kiếm, và kết quả được trả về trong MẢNG. Chủ thớt dùng LIST để nhập dữ liệu từ MẢNG vào ListBox. Nếu nói là phải đập dữ liệu từ MẢNG kết quả xuống sheet để có thể dùng RowSource thì vấn đề tầm thường quá. Vì với RowSource tiêu đề là chuyện nhỏ như con thỏ. Cái thú vị hơn là có cách nào không phải đập kết quả từ mảng xuống sheet không thôi.
Nếu trong mảng dòng đầu tiên là tiêu đề thì đương nhiên là nó cũng được nhập vào ListBox khi dùng LIST. Bạn ngạc nhiên à? Nhưng tất nhiên cái tiêu đề kia là "nhái" vì đối với ListBox nó cũng chỉ là 1 dòng dữ liệu như các dòng khác. Thế thôi.em đang tìm cách lấy dữ liệu vào 1 Array xong làm cái tiêu đề xịn như RowSource mà ko xong .... nó chỉ có như hình ===> ko giống cái gì cả
Em đang sử dụng code sau để AutoFit Cột trong listbox thấy chạy khá tốt . tuy nhiên nếu có cái tiêu đề xịn như RowSource thì nó ko có hiểu ... mà nó chỉ fix cột lý do nó duyệt qua ListBox.ColumnCount ...vấn đề này cũng ko có quan trọng lắm nhưng nhìn vào nó ko có đẹp
Public Sub AutofitColumnListbox(ByVal FormName As Object, ByRef ListBox As MSForms.ListBox)
Dim Zeile As Long, Spalte As Long
Dim SpaltenBreiten As String, MaxBreite As Double
Dim Lbl As MSForms.Label
Set Lbl = FormName.Controls.Add("Forms.label.1", "label1", False)
Lbl.WordWrap = False
Lbl.AutoSize = True
For Zeile = 0 To ListBox.ColumnCount - 1
MaxBreite = 0
For Spalte = 0 To ListBox.ListCount - 1
Lbl.Caption = ListBox.Column(Zeile, Spalte) & ",,,"
If MaxBreite < Lbl.Width Then
MaxBreite = Lbl.Width
End If
Next Spalte
SpaltenBreiten = SpaltenBreiten & CLng(MaxBreite + 1) & ";"
Next Zeile
ListBox.ColumnWidths = SpaltenBreiten
Set Lbl = Nothing
End SubTôi tư duy đơn giản thôi. Để luôn luôn nhìn trọn tiêu đề thì độ rộng của mỗi cột không thể nhỏ hơn, tức ít nhất là bằng, độ rộng của tiêu đề tương ứng. Tức vào thời điểm "chào buổi sáng" thì không thể có MaxBreite = 0 mà phải MaxBreite = <độ rộng của tiêu đề cột hiện hành>
Dim tieudeLbl.AutoSize = TrueLbl.Font.Name = ListBox.Font.Name
Lbl.Font.Size = ListBox.Font.Size
If ListBox.ColumnHeads And (ListBox.RowSource <> "") Then
With Range(ListBox.RowSource)
tieude = .Offset(-1).Resize(1, .Columns.Count + 1).Value
End With
End IfMaxBreite = 0If IsArray(tieude) Then
Lbl.Caption = tieude(1, Zeile + 1) & ",,,"
MaxBreite = Lbl.Width
Else
MaxBreite = 0
End IfTrong VB6 làm gì có cái gọi là VBA?
Cảm ơn Anh
Private Sub Form_Load()
Dim a(1 To 2, 1 To 3) As String
a(1, 1) = "AAAAAAAAAA"
a(1, 2) = "BBBB999"
a(1, 3) = "CCCCCCC2312313131321321"
a(2, 1) = "AA897979797kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk"
a(2, 2) = "BBBBBBBBBBBBBBB"
a(2, 3) = "CCC"
Me.ListBox1.List = a
Me.ListBox1.ColumnCount = 3
Call AutofitColumnListbox(Me, ListBox1)
End Sub
Public Sub AutofitColumnListbox(ByVal FormName As Object, ListBox As Object)
Dim Zeile As Long, Spalte As Long, tieude
Dim SpaltenBreiten As String, MaxBreite As Double
Dim Lbl As Object
Set Lbl = Me.Controls.Add("VB.Label", "Label1")
Lbl.WordWrap = False
Lbl.AutoSize = True
For Zeile = 0 To ListBox.ColumnCount - 1
MaxBreite = 0
For Spalte = 0 To ListBox.ListCount - 1
Lbl.Caption = ListBox.Column(Zeile, Spalte) & ",,,"
If MaxBreite < Lbl.Width Then
MaxBreite = Lbl.Width
End If
Next Spalte
SpaltenBreiten = SpaltenBreiten & CLng(MaxBreite + 1) & ";"
Next Zeile
ListBox.ColumnWidths = SpaltenBreiten
Set Lbl = Nothing
End SubÝ bạn là thế nào? Là code chạy được nhưng chưa đúng yêu cầu? Tôi hỏi vì trên máy tôi không chạy được. Mà tôi nghĩ là không chạy được cũng phải. Vì cái gọi là ListBox1 của bạn chẳng qua là bạn cố tình đặt tên là ListBox1 thôi, còn đó là control PictureBox.
Bạn hãy cho tôi biết. Rõ ràng tôi tải tập tin ở bài #394 về và thấy bạn dùng PictureBox. Bây giờ tải lại thì thấy bạn dùng ListBox.
em mới tải lại file bài 394 nè anh
chứ hỏi người khác nhiều lúc ẩu em chấm mấy cái à ...
Tôi đã tải lại tập tin. Tôi chỉ trả lời về vấn đề chủ yếu.em mới tải lại file bài 394 nè anh
bài đó còn y trang mà anh em có chỉnh sửa gì đâu trong file bài 394 em có chụp cái ảnh use Form 2.0.PNG mà
em biết hỏi anh thì phải chi tiết + rõ ràng nên làm rất cẩn thận đấy
