Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Address = "$V$3" Then 'Chon o [V3] de kich hoat code ...
Application.ScreenUpdating = False
[X6].Resize([x65535].End(xlUp).Row).Clear 'Xoa "Phan to"
[AA6].Resize([AA65535].End(xlUp).Row).Clear 'Xoa "Chieu day"
[AE6].Resize([AE65535].End(xlUp).Row).Clear 'Xoa "Lop dat"
If (IsNumeric([V3]) = False) Or [V3] <= 0 Then Exit Sub 'Chi xu ly [Phan lon nhat]=[So] > 0
For Each clls In Range([W6], [W65535].End(xlUp).Offset(1)) 'Vung so can chia Doan
If (IsNumeric(clls) = True) And (clls > 0) Then 'Chi xu ly [Kq Tinh toan]=[So] > 0
d = d + 1: j = 0
[AA65535].End(xlUp).Offset(1, 4) = [AE4] & " " & d 'Bat dau "Lop dat moi"
Do: j = j + 1: On Error Resume Next
With [AE65535].End(xlUp).Offset(j - 1, -4)
.Value = IIf(clls < [V3] * j, clls - [V3] * (j - 1), [V3]) 'Ghi "Chieu day"
Union(.Offset(, -3), .Offset(), .Offset(, 4)).BorderAround LineStyle:=1 'Ke vien
Union(.Offset(, -3), .Offset(), .Offset(, 4)).Interior.ColorIndex = 19 + (d Mod 2) 'To mau
End With
Loop Until [V3] * j >= clls
Range([AE65535].End(xlUp), [AA65535].End(xlUp).Offset(, 4)) = [AE4] & " " & d 'Ghi "Lop dat"
End If
Next
If d > 0 Then Range([X6], [AA65535].End(xlUp).Offset(, -3)) = Evaluate("ROW(a:a)")
Application.ScreenUpdating = True
End If
End Sub
)
