EXCEL 中如何使单元格中输入数值后自动生成的值为该数值乘以1.3数值的数。

发布网友发布时间：2022-05-21 23:38

共5个回答

热心网友时间：2023-11-18 19:13

用宏可以实现。Alt+F11，将下面的代码拷贝到自动改变数值所在表的位置。
Dim changed As Boolean
Private Sub Worksheet_Activate()
changed = False
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If (changed) Then
changed = False
Exit Sub
End If
If (IsNumeric(Target.Value)) Then
'A1：D1000所在区域内输入数值后自动乘以1.3
If Not Intersect(Target, Range("A1:D1000")) Is Nothing Then
changed = True
Target.Value = Target.Value * 1.3
End If
End If
End Sub

热心网友时间：2023-11-18 19:14

同一个单元格不行，可以设a为原数字，b列为结果

热心网友时间：2023-11-18 19:14

只能输入之后，才用复制-选择性粘贴的方法实现

热心网友时间：2023-11-18 19:15

双击之后就可以了追问所有的表格中都乘以1.3的。双击不行啊！

热心网友时间：2023-11-18 19:15

不行的吧？除非A列输原数，B列出A*1.3的数字