Phạm Nhật Anh
Yêu THVBA
Em xin chào Anh Chị!
Em dùng mảng thêm dữ liệu vào listbox, mà trong Rowsource của em không điền thông tin gì
Em nhận được lỗi run-time-error-70-permission-denied tại đoạn code UF2.LB_NK.List = arrData ạ!
Mong anh chỉ giúp em với ạ! Em cảm ơn ạ!
End Sub[/CODE]
Em dùng mảng thêm dữ liệu vào listbox, mà trong Rowsource của em không điền thông tin gì
Em nhận được lỗi run-time-error-70-permission-denied tại đoạn code UF2.LB_NK.List = arrData ạ!
Mong anh chỉ giúp em với ạ! Em cảm ơn ạ!
End Sub[/CODE]
Mã:
Sub Create_lisbox()
gan_bien
Dim arrData() As Variant
sh_nk.AutoFilterMode = False
lr_nk = sh_nk.Range("D" & Rows.Count).End(xlUp).Row
If lr_nk > 5 Then
arrData = sh_nk.Range("A5:W" & lr_nk).value
ReDim arrData(1 To lr_nk - 4, 1 To 23)
For i = 5 To lr_nk
For j = 1 To 23
arrData(i - 4, j) = sh_nk.Cells(i, j)
Next j
Next i
ElseIf lr_nk = 5 Then
Exit Sub
End If
UF2.LB_NK.Clear
UF2.LB_NK.ColumnCount = 23
UF2.LB_NK.ColumnWidths = "25;50;58;35;250;50;50;50;20;30;85;50;50;130;50;50;50;50;50;50;50;50;200"
UF2.LB_NK.List = arrData
Erase arrData
End Sub