Trova cespuglio in una gamma denominata excel 2010 vba quindi aggiungere valori a una variabile e un'output per formare il controllo

Sto cercando di cercare ciascuna cella singolarmente in un intervallo denominato e trovare each cella che ha carattere corsivo. Se il carattere è corsivo, vorrei aggiungere quel numero di cella a una variabile in modo da poter get un totale.

Ogni aiuto è molto apprezzato.

Justin

Stai cercando la properties; .Font.Italic . Prova quanto segue. Modificare di conseguenza.

 Sub AddItalicizedNums() Dim TargetRng As Range, Cell As Range Dim SumOfItalics Set TargetRng = Range("OneToTwenty") SumOfItalics = 0 For Each Cell In TargetRng If Cell.Font.Italic = True Then SumOfItalics = SumOfItalics + Cell.Value End If Next Cell MsgBox SumOfItalics End Sub 

Immagine dello schermo:

immettere qui la descrizione dell'immagine

La mia gamma nominata è OneToTwenty e ho corsivo (e grassetto) tutti i numbers pari in esso. La sum viene mostrata correttamente, come mostrato nella casella di messaggio.

Fateci sapere se questo aiuterà.