VBA para Excel: Como Alterar o Valor de uma Célula Quando Houver uma Mudança de Cor em uma Forma?

Oi pessoal,

Eu queria saber se você pode me ajudar com outra pergunta.

Eu estou querendo saber se é possível vincular uma forma a uma célula no Excel usando VBA para que, quando a cor da forma for vermelha, o valor da célula seja alterado para 3, quando a cor da forma for amarela, o valor da célula seja alterado para 2, e quando a cor da forma for verde, o valor da célula seja alterado para 1.

Agradeceria se alguém pudesse me ajudar com isso.

Felicidades.

Resposta

Para resolver o seu problema de vincular uma forma a uma célula no Excel usando VBA e assim alterar o valor da célula de acordo com a cor da forma, você pode seguir os seguintes passos:

Abra a planilha do Excel onde você deseja fazer a alteração do valor da célula.
No menu superior, clique em "Developer" e em seguida em "Visual Basic" para abrir o Editor VBA.
No Editor VBA, clique duas vezes na planilha em que deseja trabalhar, para abrir o código associado a ela.
No código associado à planilha, você pode copiar e colar o seguinte código VBA, adaptando de acordo com as cores e valores desejados:

      
        Private Sub Worksheet_Change(ByVal Target As Range)
          If Target.Interior.Color = RGB(255, 0, 0) Then
            Range("A1").Value = 3 ' Altera o valor da célula para 3 quando a cor da forma é vermelha
          ElseIf Target.Interior.Color = RGB(255, 255, 0) Then
            Range("A1").Value = 2 ' Altera o valor da célula para 2 quando a cor da forma é amarela
          ElseIf Target.Interior.Color = RGB(0, 128, 0) Then
            Range("A1").Value = 1 ' Altera o valor da célula para 1 quando a cor da forma é verde
          End If
        End Sub

Após inserir o código, salve as alterações e feche o Editor VBA.

Agora, quando a cor da forma for alterada para vermelho, amarelo ou verde, o valor da célula A1 será automaticamente atualizado conforme as condições definidas no código VBA.