Macro mostra nascondi



  • Macro mostra nascondi
    di Luigi (utente non iscritto) data: 04/05/2012

    Salve,
    vorrei sapere come si possa strutturare una macro che nasconda o scopra le righe del foglio di lavoro in base al colore del font.
    esempio:
    se il font è bianco allora la riga viene nascosta.
    se il font è nero allora la riga viene mostrata.
    grazie a tutti per l'interessamento.



  • di Baz (utente non iscritto) data: 10/05/2012

    Ciao,
    innazitutto ti condsiglierei di utilizzare il registratore di macro, poi con qualche aggiunta otterresti il seguente codice.

    se il colore del font della cella selezionata è bianco, allora nasconde la riga.

    mi viene una domanda, come fai cmabiare il colore se detta riga è nascosta?
    magari mi sarà spuggito qualcosa o ci aggiungerai un ciclo for ... fai sapere

    ciao
     
    Sub Colore()
    
    If ActiveCell.Font.Color = RGB(255, 255, 255) Then
       'nascondi
       ActiveCell.Rows.Hidden = True
    Else
       'scopri
       ActiveCell.Rows.Hidden = True
    End If
    
    End Sub



  • di Baz (utente non iscritto) data: 10/05/2012

    Ovviamente perscoprire la riga, sarà da mettere = false (mi ha fregato il copia-incolla )