vba - 自动排序和格式化以及 Excel

Question

我在 Excel 中有一个客户表，我希望能够将新客户添加到表的最后一行，并且 Excel 会自动对表进行排序，以便客户的姓名按字母顺序排序。

此外，格式将与上一行类似。例如，第二列是 DOB，所以我希望格式与上一行 MM/DD/YYYY 相同

谢谢

Answer 1

将附加的代码放入您的工作表模块中，它会自动对您的 A 列进行排序。

Private Sub Worksheet_Change(ByVal Target As Range)
'turn off updates to speed up code execution
With Application
    .ScreenUpdating = False
    .EnableEvents = False
    .Calculation = xlCalculationManual
    .DisplayAlerts = False
End With

If Not Intersect(Target, Columns(1)) Is Nothing Then

    With ActiveSheet.Sort
        .SetRange Range("A1:X" & Cells(Rows.Count, 1).End(xlUp).Row)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

    Columns("B").NumberFormat = "MM/DD/YYYY"

End If

With Application
    .ScreenUpdating = True
    .EnableEvents = True
    .Calculation = xlCalculationAutomatic
    .DisplayAlerts = True
End With


End Sub