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

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

2024-11-01 01:29:39

推荐回答（5个）

回答1：

用宏可以实现。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

回答2：

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

回答3：

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

回答4：

双击之后就可以了

回答5：

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