如何让Excel表中输入的数值自动做乘法运算
例如:我在C1中输入“10”,我想让C1的结果自动乘以1.5,我应该如何设置?就是我想在C1键入10的时候得出15的结果。谢谢!...
例如:我在C1中输入“10”,我想让C1的结果自动乘以1.5,我应该如何设置?就是我想在C1键入10的时候得出15的结果。
谢谢! 展开
谢谢! 展开
5个回答
2011-02-12 · 知道合伙人软件行家
关注
展开全部
按ALT+F11,单击任意工作表,输入:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim a, b, c
c = 1.5
With Target
If .count = 1 And .Column = 1 Then
a = .Value
If .Offset(, 3) = "" Then
.Offset(, 3) = a
End If
.Value = .Offset(, 3) * c
End If
End With
End Sub
这样,在A列输入任意数据都是乘以1.5的
Private Sub Worksheet_Change(ByVal Target As Range)
Dim a, b, c
c = 1.5
With Target
If .count = 1 And .Column = 1 Then
a = .Value
If .Offset(, 3) = "" Then
.Offset(, 3) = a
End If
.Value = .Offset(, 3) * c
End If
End With
End Sub
这样,在A列输入任意数据都是乘以1.5的
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
=SUMPRODUCT(表1!C2:C6,表1!D2:D6)
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
右键单击工作表标签,选择“查看代码”,在随后的窗口中,将下列代码复制VBA代码窗口即可
Private Sub Worksheet_Change(ByVal Target As Range)
Dim X, C
C = 1.5
If Target.Column = 1 Then
For Each X In Target
If X.Offset(, 200) = "" Then
X.Offset(, 200) = X.Value
End If
If IsNumeric(X.Value) And X.Value > "" Then
X.Value = X.Offset(, 200) * C
End If
Next X
Target.Offset(, 200).Clear
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim X, C
C = 1.5
If Target.Column = 1 Then
For Each X In Target
If X.Offset(, 200) = "" Then
X.Offset(, 200) = X.Value
End If
If IsNumeric(X.Value) And X.Value > "" Then
X.Value = X.Offset(, 200) * C
End If
Next X
Target.Offset(, 200).Clear
End If
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询