Cole uma cópia do código abaixo no módulo da planilha Foglio1, assim:
1. copie o código daqui
2. clique com o direito na guia daquela planilha e escolha Exibir Código
3. cole o código no painel em branco que irá se abrir | clique no X para fechar o editor de VBA e assim retornar para a planilha
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("C12:AZ29")) Is Nothing Then Exit Sub
If Target.Interior.Color <> 5296274 Then
Target.Interior.Color = 5296274
Cells(3, Target.Column).Formula = Cells(3, Target.Column).Formula & "-" & Target.Address(0, 0)
Else: Target.Interior.Color = IIf(Target.Column Mod 2 = 0, 14994616, xlNone)
Cells(3, Target.Column).Formula = Cells(3, Target.Column).Formula & "+" & Target.Address(0, 0)
End If
Cancel = True
End Sub
funcionamento - o código será executado ao aplicar duplo clique em qualquer célula do intervalo C12:AZ29.
a) se a célula clicada não estiver preenchida de verde, então o código irá preenchê-la de verde e irá acrescentar na fórmula da coluna correspondente na linha 3 a subtração da célula em que ocorreu o duplo clique.
b) se a célula clicada já estiver preenchida de verde, então o código irá remover a cor verde dela e irá acrescentar na fórmula da coluna correspondente na linha 3 a adição da célula em que ocorreu o duplo clique.
obs. vi que há células pintadas a partir da linha 4, porém como as fórmulas da linha 3 consideram a soma somente a partir da linha 12, então coloquei o código para atuar também somente a partir da linha 12 e se você quiser a partir da linha 4, substitua no código C12 por C4.
Retorne se precisar de ajuste/alteração.
Postado : 15/01/2024 6:53 pm