Thỏa điều kiện đầu. (1 người xem)

[overnight_9]

Thuật toán đoạn code chưa đúng

Dears anh Chị.
Các anh chị giúp tôi thuật toán đoạn code này, để cải thiện tốc độ cần có thêm 1 điều kiện.

Sub NSSX_NM1_CS()
Application.Workbooks.Open Filename:=("D:\QT_VT\File_Goc\CB_OF_CS.xlsx")
Dim Sarr, Kqarr(), i, j, dk
With Workbooks("Form_DHN_Cs.xlsx").Sheets("DHN")
   Sarr = .Range(.[H9], .[H65536].End(3)).Resize(, 71)
   '''dk = .Range.[S8]
End With
With Workbooks("CB_OF_CS.xlsx").Sheets("CB_CS")
   Kqarr = Range([y16], [iv16].End(1).Offset(2)).Value
End With
'''If dk <= 0 Then
'''Exit Sub
'''Else
For i = 1 To UBound(Kqarr, 2)
   For j = 1 To UBound(Sarr)
      If UCase(Kqarr(1, i)) = UCase(Sarr(j, 1)) Then
         If UCase(Kqarr(2, i)) = UCase(Sarr(j, 3)) Then
            Kqarr(3, i) = Sarr(j, 12)
         End If
      End If
   Next j
Next i
Workbooks("CB_OF_CS.xlsx").Sheets("CB_CS").[y16].Resize(3, i - 1) = Kqarr

Call Xoacot_nhan_soluong_nssx_cs
Call sum_nssx_cs

Ở Workbooks("Form_DHN_Cs.xlsx").Sheets("DHN")
Xét thêm [S8] của sheet DHN này nếu nó <=0 Then Exit Sub (thoát luôn không thực hiện các lệnh tiếp theo) và ngược lại. những chổ em đánh dấu ''' là chưa đúng.

Em còn gà lắm, xin các anh chị chỉ giúp. Em cảm ơn

 

[ptm0412]

Tiêu đề phạm quy: Không rõ ràng, không có nội dung cụ thể của vấn đề mắc phải.