Excel在密钥输入期间乘以另一列

Question

我有一个B列，它有许多行记录，默认情况下为空。现在我想，如果在任意整数到记录可以说对细胞B1有人按键，它应该作为计算

integer value of cell * (-20) 

-20修改存储在可以说Z1。在B1，B12 ... Bn中键入的任何值都应按上述相同方式计算。我怎样才能做到这一点 ？

编辑

Excpected结果

Answer 1

是，使用Change事件，但你需要采取一些东西进去：

1. 如果用户粘贴几个值？
2. 如果用户输入公式，该怎么办？
3. 如果用户删除了一些数据会怎么样？

---

这个版本需要这些东西考虑

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim rng As Range 
    Dim cl As Range 

    Application.EnableEvents = False 
    Set rng = Intersect(Me.Columns(2), Target) 
    If Not rng Is Nothing Then 
     For Each cl In rng.Cells 
      If Not IsEmpty(cl) Then 
       If Not cl.HasFormula Then 
        cl.Value = cl.Value * Me.Range("Z1") 
       End If 
      End If 
     Next 
    End If 
    Application.EnableEvents = True 
End Sub 

Answer 2

可以使用Change event这一点。粘贴到这一点，你想用这个在纸张的Sheet module：

Private Sub Worksheet_Change(ByVal Target As Range) 

If Not Intersect(Target, Range("B:B")) Is Nothing Then 
    Target = Target.Value * Range("Z1") 
End If 

End Sub 

的Intersect方法测试，以确保改变的单元格是B列。 Target是其值已更改的单元格。