Digamos que começamos com:
Assim,A1eB1têmconstanteseC1temafórmula.Coloqueestamacrodeeventosnaáreadecódigodaplanilha:
PrivateSubWorksheet_Change(ByValTargetAsRange)DimAAsRange,BAsRange,CAsRange,ACAsRangeSetA=Range("A1")
Set B = Range("B1")
Set C = Range("C1")
Set AC = Union(A, B, C)
With Application
If Intersect(AC, Target) Is Nothing Then Exit Sub
If .WorksheetFunction.CountBlank(AC) <> 1 Then Exit Sub
.EnableEvents = False
If A = "" Then
A = C / B
ElseIf B = "" Then
B = C / A
Else
C = A * B
End If
.EnableEvents = True
End With
End Sub
Em seguida, desmarque A1 através de C1 (como um bloco) .
Em seguida, digite dois valores.
Por ser um código de planilha, é muito fácil de instalar e usar automaticamente:
- clique com o botão direito do mouse no nome da guia próximo à parte inferior da janela do Excel
- selecione Exibir código - isso abre uma janela do VBE
- cole o material e feche a janela do VBE
Se você tiver alguma dúvida, tente primeiro em uma planilha de teste.
Se você salvar a pasta de trabalho, a macro será salva com ela.
Se você estiver usando uma versão do Excel posterior a 2003, deverá salvar
o arquivo como .xlsm em vez de .xlsx
Para remover a macro:
- abrir as janelas do VBE como acima
- limpe o código
- feche a janela do VBE
Para saber mais sobre macros em geral, consulte:
link
e
link
Para saber mais sobre macros de eventos (código da planilha), consulte:
link
As macros devem estar ativadas para que isso funcione!