Stellar Blade Un'esclusiva PS5 che sta facendo discutere per l'eccessiva bellezza della protagonista. Vieni a parlarne su Award & Oscar!

Excel Forum Per condividere esperienze su Microsoft Excel

modifica macro per excel2007

  • Messaggi
  • OFFLINE
    maxma62
    Post: 878
    Registrato il: 28/12/2009
    Città: CITTADELLA
    Età: 62
    Utente Senior
    excel 2007/365
    00 12/07/2022 13:15
    Ciao,
    è possibile modicare questa macro perchè funzioni per excel 2007? 

    Option Explicit

Sub aaa()
    Dim cell
    For Each cell In ActiveWorkbook.ActiveSheet.Range("A5:P15").Cells
        cell.Interior.Color = cell.DisplayFormat.Interior.Color
        cell.FormatConditions.Delete
    Next
End Sub


    grazie
    ____________________________
    versione excel 365 ufficio
    versione excel 2007 casa
  • OFFLINE
    dodo47
    Post: 3.320
    Registrato il: 06/04/2013
    Utente Master
    2010
    00 12/07/2022 13:24
    ciao
    il 2007 non supporta la funzione DisplayFormat.

    Un'alternativa la puoi trovare QUI

    saluti




    Domenico
    Win 10 - Excel 2016
  • OFFLINE
    maxma62
    Post: 878
    Registrato il: 28/12/2009
    Città: CITTADELLA
    Età: 62
    Utente Senior
    excel 2007/365
    00 12/07/2022 13:44
    Non vedo una funzione alternativa nel link
    ____________________________
    versione excel 365 ufficio
    versione excel 2007 casa
  • OFFLINE
    dodo47
    Post: 3.321
    Registrato il: 06/04/2013
    Utente Master
    2010
    00 13/07/2022 12:40
    ciao
    vengono suggerite diverse soluzioni a seconda delle esigenze.

    Nel tuo caso, la migliore a mio avviso, è quella di testare tramite vba le medesime condizioni utilizzate nella Formattazione Condizionale in modo da poter ricostruire il colore.

    Faccio un esempio sciocco: se la cella diventa rossa quando il valore è > 10, testerai tale condizione con il codice....

    Oppure dai una letta a QUESTO
    dove al punto 6 si parla di far riferimento a :
    Cell.FormatConditions(index that is active).Interior.ColorIndex to retrieve the conditional formatting color of a cell.

    (non testato)

    saluti




    [Modificato da dodo47 13/07/2022 12:47]
    Domenico
    Win 10 - Excel 2016
Soluzioni Excel Domande e Risposte
Passa alla versione desktop

  • Anteprima