Toggle button

Hai un problema con Excel?

Nuova discussione

Toggle button
di Dome (utente non iscritto) data: 05/03/2014 21:24:45
Sera,
una piccola curiosità, data la macro sotto, vorrei far cambiar colore alla cella solo se la stessa contiene un valore (testo o numero che sia)

come faccio???
Private Sub ToggleButton1_Click() If ToggleButton1.Value = True Then Range("A1").Interior.Color = &HC0& Else Range("A1").Interior.Color = &FGO0& End If End Sub
di totygno71 (utente non iscritto) data: 06/03/2014 08:48:54
Se vuoi far cambiare colore di sfondo alla cella in funzione del suo valore allora devi testare la cella stessa.
Supponendo che la cella da testare sia A1 del foglio attivo...
allora
Sub test() If Range("A1") <> "" Then Range("A1").Interior.ColorIndex = 3 'Rosso Else Range("A1").Interior.ColorIndex = xlNone 'Nessuno End If End Sub

di patel data: 06/03/2014 08:50:37
prova così

Private Sub ToggleButton1_Click()
If  ToggleButton1.Value = True Then
  if Range("A1") = 1 then Range("A1").Interior.Color = &HC0&
Else
Range("A1").Interior.Color = &FGO0&
End If
End Sub

di Dome (utente non iscritto) data: 06/03/2014 19:33:22
grazie!!!!!!!!!!!!!!!!!!!!

risolto

alla prossima

Vuoi Approfondire?