在EXCEL中计算本单元格
经常在工作中用到计算本单元格，如A1单元格为200需要在A1单元格中得到A1=A1*1.5即300，怎么算啊？
[解决办法]
加个事件就行了
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address = "$A$1" Then
Application.EnableEvents = False
[a1] = [a1].Value * 1.5
Application.EnableEvents = True
End If
End Sub
[解决办法]
在同个单元格不能实现
因为单元格如果设置了公式，就没法进行数据输入
按alt +F11 打开VBA编缉器。
在sheet1贴入如下代码，当A列任意一格输入值时，自动乘1.5
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, [a:a]) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target = Target * 1.5
Application.EnableEvents = True
End Sub
如果不能运行，把工具-选项-安全性-宏安全性 调低
[解决办法]
