Modificare valore cella con click su cella

Question

Come posso modificare il valore della cella selezionata in base al contenuto?

[modificato titolo e richiesta altrimenti incomprensibile]

Answer 1

ciao

cosa intendi per inserire la routine

ALT F11 apro l'editor vba

doppio click sul nome del foglio interessato in alto a sinistra

per aprire la scheda del foglio

copio incollo la macro

da variare

Range("A:A") e il 10

in base alle tue esigenze

colonna A

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

   If Not Intersect(Target, Range("A:A")) Is Nothing Then 

   If Target.Value = "" Then 

   Target.Value = 10 

   ElseIf Target.Value = 10 Then 

   Target.Value = "" 

   End If 

    End If 

    End Sub 

UNA CELLA

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

   If Not Intersect(Target, Range("A1")) Is Nothing Then 

   If Target.Value = "" Then 

   Target.Value = 10 

   ElseIf Target.Value = 10 Then 

   Target.Value = "" 

   End If 

    End If 

    End Sub

CELLE DIVERSE

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

   If Not Intersect(Target, Range("A1,B10,D2")) Is Nothing Then 

   If Target.Value = "" Then 

   Target.Value = 10 

   ElseIf Target.Value = 10 Then 

   Target.Value = "" 

   End If 

    End If 

    End Sub

Answer 2

Sì, grazie. E' quello che voglio fare.

Ora devo inserire ed utilizzare la routine: come faccio a collegare la routine al click del mouse sulla cella in cui voglio cambiare il contenuto? Sto consultando una guida VBA (https://www.excelprofessionale.it/guida-vba/). La conosci e pensi sia aggiornata?

Answer 3

ciao

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

   If Not Intersect(Target, Range("A:A")) Is Nothing Then 

   If Target.Value = "" Then 

   Target.Value = 10 

   ElseIf Target.Value = 10 Then 

   Target.Value = "" 

   End If 

    End If 

    End Sub

cambia quel 10 con il tuo valore

Answer 4

Se la cella è vuota deve inserire un valore predefinito, se invece il valore predefinito è già nella cella deve vuotarla.

Answer 5

ciao

dovresti spiegare che modifica vuoi fare

un esempio banale.....aumentare di 1 il valore della cella selezionata dell colonna A

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

   If Not Intersect(Target, Range("A:A")) Is Nothing Then 

        Target.Value = Target.Value + 1 

    End If 

    End Sub