Входы взаимности METRIC <---> IMPERIAL

Question

Я создаю электронную таблицу, которая будет выполнять простые преобразования из дюйма в метры.
Мне бы хотелось иметь возможность ввести значение и разместить преобразование в другой ячейке.Например:

Ячейка B2 и C2 - ячейки дюйм / метр.Поэтому, если я введу значение в ячейку C2, B2 вернет значение C2 * 39,37007874.
И наоборот, если я введу значение в B2, C2 вернет значение B2 * 0,0254, перезаписав C2.

Answer 1

Вы можете попробовать это.Для размещения в коде соответствующего листа:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Not Intersect(Target, Range("B2")) Is Nothing Then
        Range("C2").Value = Range("B2").Value * 0.0254
    End If


    If Not Intersect(Target, Range("C2")) Is Nothing Then
         Range("B2").Value = Range("C2").Value * 39.37007874 
    End If

End Sub