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的数字