excel单元格A列输入一个数,自动乘以40显示结果,B列输入一个数,自动乘以50显示结果

Question

如题所述

Answer 1

VBA代码如下：

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim i
i = Target.Row
If Target.Column = 1 Then
    Range("A" & i) = Range("A" & i) * 40
Else
    If Target.Column = 2 Then
        Range("B" & i) = Range("B" & i) * 50
    End If
End If
Application.EnableEvents = True
End Sub

2. 效果如图所示：

Answer 2

显示结果在输入的本身列？
这只能用代码才能实现了。
如果在其它列，可以预先写好公式！追问

对，在本身列，代码试过了，单列可以实现，多列乘以不同数值就搞不定了

追答

你功力不够罢了