Excel 中的公式及其倒数
Formula and its inverse in Excel
我正在尝试在 Excel 中实现广告简易功能。
我希望用户在单元格 A1 中输入一个值,而在单元格 A2 中,函数应为 "The value in A1"+1。
这在 Excel 中是一项非常简单的任务,但我确实需要一种不同的行为:当用户在 A2 中输入一个值时,Excel 应该计算 "The value in A2"-1 并将该值放入 A1 (上一个的逆公式)
有没有简单的方法来做到这一点?
谢谢。
在工作表代码区域放置以下事件宏:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim A1 As Range, A2 As Range
Set A1 = Range("A1")
Set A2 = Range("A2")
If Intersect(Union(A1, A2), Target) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Not Intersect(A1, Target) Is Nothing Then
A2.Value = A1.Value + 1
Else
A1.Value = A2.Value - 1
End If
Application.EnableEvents = True
End Sub
因为它是工作表代码,所以安装和自动使用非常容易:
- 右键单击 Excel window
底部附近的选项卡名称
- select 查看代码 - 这会弹出一个 VBE window
- 粘贴内容并关闭 VBE window
如果您有任何疑虑,请先在试用工作表上尝试一下。
如果您保存工作簿,宏也会随之保存。
如果您使用的 Excel 版本晚于 2003,则必须保存
文件为 .xlsm 而不是 .xlsx
删除宏:
- 如上所述调出 VBE windows
- 清除代码
- 关闭 VBE window
要了解有关宏的更多信息,请参阅:
http://www.mvps.org/dmcritchie/excel/getstarted.htm
和
http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx
要了解有关事件宏(工作表代码)的更多信息,请参阅:
http://www.mvps.org/dmcritchie/excel/event.htm
必须启用宏才能运行!
我正在尝试在 Excel 中实现广告简易功能。 我希望用户在单元格 A1 中输入一个值,而在单元格 A2 中,函数应为 "The value in A1"+1。 这在 Excel 中是一项非常简单的任务,但我确实需要一种不同的行为:当用户在 A2 中输入一个值时,Excel 应该计算 "The value in A2"-1 并将该值放入 A1 (上一个的逆公式)
有没有简单的方法来做到这一点?
谢谢。
在工作表代码区域放置以下事件宏:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim A1 As Range, A2 As Range
Set A1 = Range("A1")
Set A2 = Range("A2")
If Intersect(Union(A1, A2), Target) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Not Intersect(A1, Target) Is Nothing Then
A2.Value = A1.Value + 1
Else
A1.Value = A2.Value - 1
End If
Application.EnableEvents = True
End Sub
因为它是工作表代码,所以安装和自动使用非常容易:
- 右键单击 Excel window 底部附近的选项卡名称
- select 查看代码 - 这会弹出一个 VBE window
- 粘贴内容并关闭 VBE window
如果您有任何疑虑,请先在试用工作表上尝试一下。
如果您保存工作簿,宏也会随之保存。 如果您使用的 Excel 版本晚于 2003,则必须保存 文件为 .xlsm 而不是 .xlsx
删除宏:
- 如上所述调出 VBE windows
- 清除代码
- 关闭 VBE window
要了解有关宏的更多信息,请参阅:
http://www.mvps.org/dmcritchie/excel/getstarted.htm
和
http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx
要了解有关事件宏(工作表代码)的更多信息,请参阅:
http://www.mvps.org/dmcritchie/excel/event.htm
必须启用宏才能运行!