Excel VBA, cálculo direto e reverso

Excel VBA, cálculo direto e reverso

Quero colocar um código VBA em minha planilha Excel de forma que 2 células sejam entrada e saída uma da outra, dependendo de qual dessas 2 células foi inserida por último. Como posso conseguir isso? Por favor, ajude

Responder1

  • Crie uma nova pasta de trabalho do Excel
  • Abra o editor VBA (Alt-F11)
  • Clique duas vezes em "Sheet1" no painel Project - sua janela de código será aberta
  • Digite o código abaixo:
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
  • Fechar editor VBA
  • Insira algo nas células (manualmente, copie e cole uma célula, copie e cole intervalo, arraste)
  • Olha, investigue

informação relacionada