excel 2013更新一个单元格，并允许输入两个

Question

我使用Excel 2013并希望制作一个简单的重量换算表！

这是我想什么来实现的，我想三个单元格C1，C2 & C3

C1用户可以输入公斤这个然后填写C2用石头和C3与LB的数目的数。

但是我也希望他们能够在C2和C3中输入石头和磅的数量，以及以千克为单位自动填充C1的数量。

最后，他们也应该能够输入磅的重量，例如C3中的28磅，然后将其转换为C1中的Kg和C2中的石块和Lbs。

数学我觉得我可以做，但我怎样才能使用单元格这样显示结果并接受输入？

Answer 1

将以下程序到工作表的代码模块：

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Target.Count = 1 Then 
     If Target.Column = 3 Then 
      If Target.Row < 4 Then 
       Application.EnableEvents = False 
       Select Case Target.Row 
        Case 1 
         Cells(2, 3) = Target * 0.157473 '<-- kg to stone 
         Cells(3, 3) = Target * 2.20462 '<-- kg to pounds 
        Case 2 
         Cells(1, 3) = Target * 6.35029 '<-- stone to kg 
         Cells(3, 3) = Target * 14  '<-- stone to pounds 
        Case 3 
         Cells(1, 3) = Target * 0.453592 '<-- pounds to kg 
         Cells(2, 3) = Target * 1/14 '<-- pounds to stone 
       End Select 
      End If 
     End If 
    End If 
    Application.EnableEvents = True 
End Sub