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

Question

如题所述

Answer 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

Answer 2

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

Answer 3

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

Answer 4

双击之后就可以了追问

所有的表格中都乘以1.3的。双击不行啊！

Answer 5

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