Я создаю электронную таблицу, которая будет выполнять простые преобразования из дюймов в метры.
Я хотел бы иметь возможность вводить значение и заполнять преобразование в другой ячейке. Например:
Ячейка B2
и C2
- это ячейки в дюймах/метрах. Поэтому, если я введу значение в ячейку C2
, тогда B2
вернет значение C2 * 39,37007874.
И наоборот, если я введу значение в B2, C2 вернет значение B2 * 0,0254, перезаписав C2.
Вы можете попробовать это. Для размещения в коде соответствующего листа:
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
Обратите внимание, что я перевел дюймы в метры. Поскольку дюймы в метрические не имеют смысла.
Это помогает мне в пути. Спасибо.
Вам нужно будет написать немного vba в событии
Worksheet_Change()
.