Visualizzazione dei risultati da 1 a 3 su 3
  1. #1

    Chiedo un aiuto per macro e grafica in Excel

    Premetto che non sono un esperto di fogli elettronici, ma penso che con excel sia possibile realizzare un sistema che riesca a modificare i colori di una cella con un pulsante di tipo on-off.
    Dettagli del problema. Siano date, ad esempio, 5 celle, tutte consecutive poste in una riga, che possono assumere come colore di fondo 2 valori (ad esempio: rosso e nero). È possibile creare un pulsante di tipo ON-OFF (senza distinguere ON dall'OFF, ovvero ogni volta che si preme cambia semplicemente il suo stato senza sapere se è ON o OFF) in modo tale che tutte le 5 celle invertino il loro colore (se una cella è ROSSA diventa NERA, se una cella è NERA diventa ROSSA)?
    Ringrazio da subito tutti coloro che vorranno suggerirmi qualche procedimento o riusciranno a fornirmi una soluzione (una macro).

  2. #2
    Utente di HTML.it L'avatar di nicola75ss
    Registrato dal
    Nov 2004
    Messaggi
    12,922
    Due macro alla buona. La prima assegna un colore random (rosso o nero) alle celle nel range a1:e1. La seconda, come da te richiesto, semplicemente inverte i due colori.

    codice:
    Sub assegna_colore_random()
    For Each cella In Range("a1:e1")
    casuale = Int((2) * Rnd)
    With cella
    If casuale = 1 Then
        .Interior.ColorIndex = 3
    Else
        .Interior.ColorIndex = 1
    End If
    End With
    Next cella
    End Sub
    
    Sub inverti_colori()
    For Each cella In Range("a1:e1")
    With cella
        If .Interior.ColorIndex = 1 Then
           .Interior.ColorIndex = 3
        Else
            .Interior.ColorIndex = 1
        End If
    End With
    Next cella

  3. #3
    Funziona perfettamente. Grazie e mille auguri.

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.