如何让Excel表中输入的数值自动做乘法运算

发布网友 发布时间：2022-02-24 01:11

我来回答

共5个回答

热心网友 时间：2022-02-24 02:40

按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的

热心网友 时间：2022-02-24 03:58

你是想很多数一起乘同一个数吧

你先把数输好

其他位置弄个1.5

复制1.5---选住你想*1.5的区域--选择性粘贴（乘）

就OK了！

热心网友 时间：2022-02-24 05:33

=SUMPRODUCT(表1!C2:C6,表1!D2:D6)

热心网友 时间：2022-02-24 07:24

在b1上填上=c1*15

热心网友 时间：2022-02-24 09:32

右键单击工作表标签，选择“查看代码”，在随后的窗口中，将下列代码复制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