如何在Excel一个单元格里输入一个数字后，它自动变成一个公式计算后的结果？

显示全部楼层 · 2022-9-29 15:23

问题:
如何在Excel一个单元格里输入一个数字后，它自动变成一个公式计算后的结果？

A1列输入数值，会自动加上或者乘于B1列数值，另如何同时实现A2列输入数值，会自动加上或者乘于B2列数值。A、1、B、2可能是任意行数或列数

推荐答案:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim n%
On Error GoTo 100
***.enableevents = False
If ***.column = 1 And ***.offset(0, 1) _
And ***.isnumber(***.offset(0, 1) * 1) Then
n = MsgBox(用加法请按“回车或Y” & Chr(10) & _
用乘法请按“N”, vbYesNo)
If n = 6 Then
Target = Target + ***.offset(0, 1)
Else
Target = Target * ***.offset(0, 1)
End If
End If
100
***.enableevents = True
End Sub

[软件] 如何在Excel一个单元格里输入一个数字后，它自动变成一个公式计算后的结果？