Hỏi về ListboxKhông phải bạn ơi, cái này mình hỏi tab sheet trên Form mà, chứ đâu phải listbox hay checkbox đâu. Khi mở form lên nó cũng có các tab sheet giống như khi mình mở 1 file excell vậyBạn tham khảo bài này, bài toán đó giống y như trường hợp của bạn.
Đây bạn, dữ liệu lớn quá nên del bớt (hihi). TKBạn up file lên để mình xem nó ntn thì mới điều chỉnh được.
.
Đây bạn, dữ liệu lớn quá nên del bớt (hihi). TK
Private Sub UserForm_Initialize()
Dim ArrDanhMuc1(), ArrDanhMuc2()
ArrDanhMuc1 = Sheet2.Range("[COLOR=#ff0000][B]A4:C[/B][/COLOR]" & Sheet2.[[COLOR=#ff0000][B]A65536[/B][/COLOR]].End(3).Row)
ArrDanhMuc2 = Sheet5.Range("[B][COLOR=#ff0000]A4:C[/COLOR][/B]" & Sheet5.[[COLOR=#ff0000][B]A65536[/B][/COLOR]].End(3).Row)
pri_ArrDanhMuc = Array(ArrDanhMuc1, ArrDanhMuc2)
Me.ListBox2.ListIndex = 0
With ListBox1
.ListStyle = fmListStyleOption
.MultiSelect = fmMultiSelectMulti
End With
End Sub
Private Sub UserForm_Initialize()
Dim ArrDanhMuc1(), ArrDanhMuc2()
ArrDanhMuc1 = Sheet2.Range("A4:C" & Sheet2.[A65536].End(3).Row)
ArrDanhMuc2 = Sheet5.Range("[B][COLOR=#ff0000][SIZE=3]A4:P[/SIZE][/COLOR][/B]" & Sheet5.[A65536].End(3).Row)
pri_ArrDanhMuc = Array(ArrDanhMuc1, ArrDanhMuc2)
Me.ListBox2.ListIndex = 0
With ListBox1
.ListStyle = fmListStyleOption
.MultiSelect = fmMultiSelectMulti
End With
End Sub
Private Sub ListBox2_Click()
pri_DanhMuc = Me.ListBox2.ListIndex
sArray = Filter2DArray(pri_ArrDanhMuc(pri_DanhMuc), 1, "[", False)
With ListBox1
.List() = sArray
.ListStyle = fmListStyleOption
.MultiSelect = fmMultiSelectMulti
[COLOR=#ff0000][B] If Me.ListBox2.ListIndex = 1 Then[/B][/COLOR]
[COLOR=#ff0000][B] .ColumnCount = 16[/B][/COLOR]
[COLOR=#ff0000][B] Else[/B][/COLOR]
[COLOR=#ff0000][B] .ColumnCount = 3[/B][/COLOR]
[COLOR=#ff0000][B] End If[/B][/COLOR]
End With
End Subcác danh mục đều có cùng chung số lượng cột, nó chỉ khác nhau về số liệu tính và tên công việc. Mình cũng thêm như bạn nhưng vẫn ko đúng. Bạn test thử file khi thêm phần tô đỏ chưa? chứ mình test thì thấy vẫn thế ah. Làm phiền bác nhiều ghê
. Bác chỉnh file thì up lên em xem kết quả, chứ mình sửa theo cách bác nói vẫn ko đúng
" & Sheet4.[A65536].End(3).Row) và có cần khai báo thêm gì không?
ErrHandler:
Application.EnableEvents = True
Unload Me
Set Vung = Nothing: Set rng = Nothing
[COLOR=#ff0000][B]Set Sh = Nothing[/B][/COLOR]
Application.ScreenUpdating = True[COLOR=#ff0000]Set Sh = Nothing[/COLOR]
Set Vung = Nothing
Set rng = Nothing
ErrHandler:
'Application.EnableEvents = True
Unload Me
Set Vung = Nothing: Set rng = Nothing
[COLOR=#ff0000]Set Sh = Nothing[/COLOR]
Application.ScreenUpdating = True
Cũng có thể đây là nguyên nhân làm dung lượng file tăng lên không nhỉ? vì đôi lúc có 1 số công việc giống nhau nên mình hay copy file đã làm trước rồi chỉ thay số liệu, nhưng khi đó dung lượng file tăng rất nhiều nhưng dữ liệu mình thì không thêm gì cả.Trước kia mình có tạo 1 số Macro liên quan đến việc Set 1 số đối tượng, sau 1 lúc sử dụng thì file càng lúc càng chậm, phải đóng file đó và mở lại thì hoạt động bình thường (do chưa biết nguyên nhân)
Sau này để ý code của mọi người hay có Set ...=nothing, và search thì thấy có nói đến (ví dụ bài này: Hỏi về việc Erase Array và Set Dictionary = Nothing trước khi End Sub)
Mình chỉ hiểu đại khái: khi Set "gì gì đó" = 1 Object thì cuối code mới Set "cái đó" = nothing.
Còn hiện giờ mình chưa phân biệt được cái nào là Object cả, nên thấy cái gì ở bên trên Set ... thì bên dưới Set ... = nothing cho chắc.
). Cảm ơn vì những bài học và chia sẻ của bạn rất nhiều.Đây là 1 phần mềm tính toán (nguồn: xaydung360.vn do bác Fubi viết) mà mình thấy rất hay. Dữ liệu lấy rất nhiều nhưng file hoạt động vẫn nhẹ và nhanh. hình như code trong file bác này làm thành 1 addin.
Chính xác là thế. Có lẽ trình độ VBA của bác này có vẻ cao
