[已解决]VBA如何识别enter事件

喜气洋洋 · 发表于 2012-11-1 10:06

在F2输入值，按一下 enter，F1自动加上F2的值
然后重新选择F2，修改F2数值，按一下 enter，F1在原来数值的基础上自动加上F2的值
就是说，F1的值，是F2数值累加的和

按一下 enter，就触发累加事件，F1自动累加F2的值。。。
求指导。。。

计算.rar (21.69 KB, 下载次数: 10)

爱疯 · 发表于 2012-11-1 10:14

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$2" Then
[f1] = [f1] + [f2]
End If
End Sub
这样吗

计算2.rar (14.35 KB, 下载次数: 1)

hoogle · 发表于 2012-11-1 10:14

本帖最后由 hoogle 于 2012-11-1 10:17 编辑

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 2 And Target.Column = 6 Then Range("f1") = Range("f1") + Range("f2")
End Sub

复制代码

计算.zip (12.93 KB, 下载次数: 4)

zjdh · 发表于 2012-11-1 10:19

计算.rar (22.68 KB, 下载次数: 79)

喜气洋洋 · 发表于 2012-11-1 10:35

zjdh 发表于 2012-11-1 10:19

谢谢就是要这样的太好了！

		自动登录	找回密码
密码			注册