Входы взаимности МЕТРИЧЕСКИЕ <---> ИМПЕРИАЛЬНЫЕ

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

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

Вам нужно будет написать немного vba в событии Worksheet_Change().

JNevill 10.04.2019 17:58
Преобразование HTML-таблицы в профессиональный документ Excel
Преобразование HTML-таблицы в профессиональный документ Excel
Это самый простой способ создания Excel из HTML-таблицы.
Импорт excel в laravel в базу данных
Импорт excel в laravel в базу данных
Здравствуйте, дорогой читатель, в этой статье я расскажу практическим и быстрым способом, как импортировать файл Excel в вашу базу данных с помощью...
0
1
41
1
Перейти к ответу Данный вопрос помечен как решенный

Ответы 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

Обратите внимание, что я перевел дюймы в метры. Поскольку дюймы в метрические не имеют смысла.

MrDogme 10.04.2019 19:07

Это помогает мне в пути. Спасибо.

Jason 10.04.2019 19:47

Другие вопросы по теме

Как с помощью VBA загрузить набор данных API в Excel из функции HTTP GET?
Найдите переменную заголовка пользовательской формы в CSV, чтобы получить другие значения
Как изменить отступ после преобразования всех абзацев в таблицу в документе Word с помощью VBA?
Пользовательская форма Excel VBA — использование той же формы для создания непрерывных данных
Сравнение 2 динамических массивов разных размеров и просмотр, сколько совпадений
Доступ: значения поля со списком зависят от предыдущего поля со списком
Параметр (Private WithEvents As Sheet1) sheetUI = Sheet1 вызывает ошибку 438: объект не поддерживает это свойство или метод
Код для объединения соседних ячеек с использованием VBA больше не работает, и я не могу найти проблему
Как я могу исправить ошибку времени выполнения 430 из-за импорта пользовательской DLL в проект VBA
Скопируйте столбец A, вставьте для каждого другого столбца, затем отсортируйте