Phamnghi07
Thành viên mới
- Tham gia
- 20/5/19
- Bài viết
- 10
- Được thích
- 1
Thưa các anh chị! Em thường xuyên khai báo biến workbook và Worksheet như với cấu trúc như thế này. Vì em tự học VBA nên không biết về lâu dài có gì bất ổn không? Mong các anh chị có biết thêm xin bàn luận để em đỡ hoang mang! Em cảm ơn nhiều
Private Sub ListBox8_Change()
Application.ScreenUpdating = False
Dim wb As Workbook, ws As Worksheet
Set wb = ThisWorkbook
Set ws = SKho1
With wb
With ws
Dim id As Integer
id = ListBox8.ListIndex
With Me.ListBox8
If Not dic.exists(.List(id, 0)) Then
dic.Add .List(id, 0), .List(id, 0) & ";" & .List(id, 1) & ";" & .List(id, 2) & ";" & .List(id, 6)
arr = dic.items
ws.Range("K1251").Select
ws.Cells(ActiveCell.Row, "K").Resize(, 1) = Split(arr(0), ";")
dic.Remove (.List(id, 0))
End If
End With
End With
End With
Set wb = Nothing
Set ws = Nothing
Application.ScreenUpdating = True
End Sub
Private Sub ListBox8_Change()
Application.ScreenUpdating = False
Dim wb As Workbook, ws As Worksheet
Set wb = ThisWorkbook
Set ws = SKho1
With wb
With ws
Dim id As Integer
id = ListBox8.ListIndex
With Me.ListBox8
If Not dic.exists(.List(id, 0)) Then
dic.Add .List(id, 0), .List(id, 0) & ";" & .List(id, 1) & ";" & .List(id, 2) & ";" & .List(id, 6)
arr = dic.items
ws.Range("K1251").Select
ws.Cells(ActiveCell.Row, "K").Resize(, 1) = Split(arr(0), ";")
dic.Remove (.List(id, 0))
End If
End With
End With
End With
Set wb = Nothing
Set ws = Nothing
Application.ScreenUpdating = True
End Sub