在EXCEL中计算本单元格解决思路

在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

如果不能运行，把工具-选项-安全性-宏安全性 调低


------解决方案--------------------------------------------------------

探讨

加个事件就行了
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.EnableEvent……

------解决方案--------------------------------------------------------
先在Ｂ１中写上 1.5

然后复制 B1
再选中Ａ列，右键，选择性粘贴，选择计算。
------解决方案--------------------------------------------------------
先在Ｂ１中写上 1.5

然后复制 B1
再选中Ａ列，右键，选择性粘贴，选择计算, 然后选择乘法。

QQ群 48866293 OFFICE应用挖掘  
MS OFFICE(ACCESS\EXCE\WORD等应用技术探讨与交流！技术群,请阅群论坛中的《踢人规则》