excel 2013更新一个单元格，并允许input

我正在使用Excel 2013，并希望做一个简单的权重转换表！

这是我想实现的，我想要三个单元格C1，C2和C3

C1用户可以inputKg，然后用石头的数量填充C2，用Lbs的数量填充C3。

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

最后，他们也应该能够input磅的重量，例如在C3中input28磅，然后在C1和C2中转换为Kg，在C2和C3中inputLbs。

math我想我可以做，但我怎样才能使用一个单元格，所以显示结果并采取input？

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