根据单元格选择进行相应统计输出

2021年10月28日 作者： 来源：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$C$1" Then Exit Sub
Application.DisplayAlerts = False
 With Target.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween,Formula1:="求和，最大数，最小数，平均数,"
        .IgnoreBlank = True
        .InCellDropdown = True
        .ShowInput = True
        .ShowError = True
        End With
        Application.DisplayAlerts = True
End Sub