Excel VBA, прямой и обратный расчет

Excel VBA, прямой и обратный расчет

Я хочу поместить код VBA на свой лист Excel, чтобы 2 ячейки были как входными, так и выходными данными друг друга в зависимости от того, какая из этих 2 ячеек была введена последней. Как мне этого добиться? Пожалуйста, помогите

решение1

  • Создать новую книгу Excel
  • Открыть редактор VBA (Alt-F11)
  • Дважды щелкните «Лист1» на панели проекта — откроется окно кода.
  • Введите код ниже:
Private Sub Worksheet_Change(ByVal Target As Range)
Static busy As Boolean
If busy Then Exit Sub
busy = True
Select Case Target.Address
    Case "$A$1"
        Range("A2") = "A1=""" & Range("A1").Text & """"
    Case "$A$2"
        Range("A1") = "A2=""" & Range("A1").Text & """"
End Select
busy = False
End Sub
  • Закрыть редактор VBA
  • Введите что-либо в ячейки (вручную, скопируйте и вставьте одну ячейку, скопируйте и вставьте диапазон, перетащите)
  • Смотри, исследуй

Связанный контент