Question

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

这就是我想要实现的目标，我想要三个单元格C1，C2＆amp; C3

C1用户可以输入Kg，然后用石头数填充C2，用Lbs数填充C3。

但我也希望他们能够输入C2和C3中的石头和Lbs的数量以及以Kg自动填充C1的数量。

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

我认为我可以做的数学，但是如何使用单元格来显示结果并进行输入？

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

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

1 个答案: