Private Sub Worksheet_Change(ByVal Target As Range)
Dim Arr(), dArr(), iCol(), i As Integer, k As Integer, Ngay, j As Integer, Rng As Range, Kho As String
If Target.Address = "$A$3" Then
Arr = Sheet9.Range("A2:O" & Sheet9.Range("A65000").End(xlUp).Row).Value
ReDim dArr(1 To UBound(Arr, 1), 1 To 13)
Ngay = Target.Value: Kho = Sheet25.[C7]
iCol = Array(9, 4, 5, 6, 7, 1, 12, 1, 1, 11, 13, 1, 14)
For i = LBound(Arr, 1) To UBound(Arr, 1)
If (Ngay >= Arr(i, 2)) And (Kho = Arr(i, 8)) Then
k = k + 1
For j = 0 To 12
If iCol(j) <> 1 Then dArr(k, j + 1) = Arr(i, iCol(j))
Next j
End If
Next i
Sheet25.Range("A14:M" & (Sheet25.Range("A65000").End(xlUp).Row) + 5).Clear
If k <> 0 Then
With Sheet25
.Range("A14").Resize(k, 13).Value = dArr
.Sort.SortFields.Clear
.Range("A14:M" & (k + 13)).Sort Key1:=.Range("M14:M" & (k + 13)), order1:=xlDescending, Header:=xlNo
j = .Range("A65000").End(xlUp).Row
For i = j To 14 Step -1
If .Range("M" & i) <> .Range("M" & (i - 1)) Then
.Rows(i & ":" & i).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
.Range("A" & i).Value = "T" & ChrW(7893) & "ng h" & ChrW(7897) & " bán thý" & ChrW(7901) & "ng xuyên ðý" & ChrW(7907) & _
"c tr" & ChrW(7907) & " giá (+" & .Range("M" & (i + 1)).Value & " ð" & ChrW(7891) & "ng/TSC)"
.Range("A" & i).Font.Bold = True
End If
Next i
.Range("M14:M" & .Range("A65000").End(xlUp).Row).ClearContents
.Range("A14:M" & .Range("A65000").End(xlUp).Row).Borders.LineStyle = 1
With .Range("A65000").End(xlUp).Offset(1)
.Value = "B" & ChrW(7857) & "ng ch" & ChrW(7919) & ":"
.Offset(2, 1).Value = "Ngý" & ChrW(7901) & "i l" & ChrW(7863) & "p b" & ChrW(7843) & "ng kê"
.Offset(2, 1).Font.Bold = True
.Offset(1, 11).Value = "Ngày ... tháng .... nãm ....."
.Offset(2, 11).Value = "Giám ð" & ChrW(7889) & "c doanh nghi" & ChrW(7879) & "p"
.Offset(2, 11).Font.Bold = True
.Offset(3, 1).Value = "(K" & ChrW(253) & ", ghi r" & ChrW(245) & " h" & ChrW(7885) & " tên)"
.Offset(3, 11).Value = "(K" & ChrW(253) & " tên, ðóng d" & ChrW(7845) & "u)"
.Offset(2, 1).Resize(2).HorizontalAlignment = xlCenter
.Offset(1, 11).Resize(3).HorizontalAlignment = xlCenter
End With
End With
End If
End If
End Sub
