Bạn sửa số màu đỏ ở trên thử xem sao nhéem gửi kèm theo file, mong các bác giúp cho.
làm thế nào form hiển thị hết 61 cột và dòng có dữ liệu ạ?
Tìm trong toàn bộ Lập trình Excel rồi mà không có giải pháp gì>
Mã:Private Sub UserForm_Initialize() Dim sRng As Range, hWnd As Long hWnd = FindWindow("ThunderDFrame", Me.Caption) SetWindowLong hWnd, -16, &H84CA0080 TextBox11.SetFocus 'ngay ben canh mui ten <--- With Sheet1 .Select Set sRng = .Range(.[B4], .[B65536].End(xlUp)).Resize(, [SIZE=5][COLOR=#ff0000]8[/COLOR][/SIZE]) End With ListBox1.List() = sFilter(sRng, "") End Sub
![]()