Question

关于EXCEL里数字自动加减

例:现有三个活动单元格:A1;B1;C1 现在在A1单元格内输入100.B1;C1为空; 再在B1单元格内输入50.C1为空,此时A1单元内自动变为50,而不是手动更改 再在C1输入50;此时三个单元格数字为:A1=50;B1=0;C1=50.

Answer 1

可以用vba实现
右击
工作表标签》查看代码
粘贴下面的代码即可
Private
Sub
Worksheet_Change(ByVal
Target
As
Range)
On
Error
Resume
Next
With
Target
Application.EnableEvents
=
False
.Offset(0,
-1)
=
.Offset(0,
-1)
-
.Value
Application.EnableEvents
=
True
End
With
End
Sub

Answer 2

每个单元格中输入的数字都*0.36吗?
右击工作表标签>查看代码>粘贴下面的代码>
private
sub
worksheet_change(byval
target
as
range)
on
error
resume
next
application.enableevents
=
false
for
each
c
in
target.cells
c.value
=
c.value
*
0.36
next
application.enableevents
=
true
end
sub