EXCEL 中如何使单元格中输入数值后自动生成的值为该数值乘以1.3数值的数。
6个回答
展开全部
用宏可以实现。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
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
展开全部
同一个单元格不行,可以设a为原数字,b列为结果
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
只能输入之后,才用复制-选择性粘贴的方法实现
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
双击之后就可以了
追问
所有的表格中都乘以1.3的。双击不行啊!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
不行的吧?除非A列输原数,B列出A*1.3的数字
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询