Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, UsedRange) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub '清除数据时不加1
Application.EnableEvents = False
Target = Target *1.05 '*1.05
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'取消多个单元格的选择
If Target.Count > 1 Then Target.Cells(1, 1).Select