睇佢column G個數似係用左美式日期
電腦windows個region setting搞搞佢先
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Range("A:A")
If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
If Round(WorksheetFunction.Sum(Range("A:A")), 5) = 0.1 Then
Range("A1", Range("A1").End(xlDown)).Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo
End If
End If
End Sub