示例:我想在一个单元格中输入一个数字,然后让它减去一个分数并显示结果,所有操作都在同一个单元格内进行。
答案1
我确信如果没有 VBA 这是不可能的。
我通常使用此 VBA 代码来完成此类任务:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ErrHnd
Dim cell As Range
'This is the place where you put cells which are affected (A2 in this case)
If Not Intersect(Target, Me.Range("A2")) Is Nothing Then
Application.EnableEvents = False
For Each cell In Target
cell.Value = cell.Value - 0.5
Next
End If
ErrHnd:
Application.EnableEvents = True
End Sub
有一个地方可以定义受此代码影响的单元格。只需更改部分即可"A2"
。您可以放置范围并使用逗号分隔它们,即"A2:A3,A5"
。
该部分cell.Value = cell.Value - 0.5
是实际的分数减法。目前它减去 0.5,但您也可以更改它。
您应该将其复制到 VBA 编辑器中的 Sheet 模块中。VBA 编辑器在键盘组合后打开Alt+F11。