Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Operazioni in base a colore cella senza VBA

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Operazioni in base a colore cella senza VBA

Postdi deniel69 » 20/01/15 19:04

Buon serata a tutti !

Domanda!

Avendo dei valori numerici nelle celle da A1 ad A10 ,è possibile in esempio B1 eseguire delle operazioni di somma o sottrazione in base al colore delle celle da A1 ad A10 senza utilizzare macro?
.... e senza dover scrivere una Function?

Spero di essere stato chiaro...........
Avatar utente
deniel69
Utente Senior
 
Post: 113
Iscritto il: 17/04/12 22:43

Sponsor
 

Re: Operazioni in base a colore cella senza VBA

Postdi Anthony47 » 20/01/15 20:00

No, non direttamente (il colore in Excel non ha un valore).

Potresti applicare il colore tramite una formattazione condizionale che lavora con una colonna di appoggio e poi usare Matrice.Somma.Prodotto per le somme che ti servono.
C'e' anche una finta istruzione INFO.CELLA (get.cell, in inglese), un residuo del vecchio linguaggio Macro (ante VBA), che potrebbe essere usata per estrarre il numero del colore, ma allora tanto vale passare a una soluzione vba.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13891
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Operazioni in base a colore cella senza VBA

Postdi deniel69 » 22/01/15 12:54

Ti ringrazio.......

Ho risolto creando un componente aggiuntivo ed inserendo in un modulo la seguente function......

Codice: Seleziona tutto
Function SumByColor(CellColor As Range, rRange As Range)
Dim cSum As Long
Dim ColIndex As Integer
ColIndex = CellColor.Interior.ColorIndex
For Each cl In rRange
  If cl.Interior.ColorIndex = ColIndex Then
    cSum = WorksheetFunction.Sum(cl, cSum)
  End If
Next cl
SumByColor = cSum
End Function


In questo modo è disponibile nel foglio in cui mi serve ma senza macro ........ CTRL+Alt+F9 per aggiornare...


Lo so sarà disponibile solo per chi ha il componente aggiuntivo nella cartella XLSTART ....ma va bene così....

Grazie ancora....
Avatar utente
deniel69
Utente Senior
 
Post: 113
Iscritto il: 17/04/12 22:43


Torna a Applicazioni Office Windows


Topic correlati a "Operazioni in base a colore cella senza VBA":


Chi c’è in linea

Visitano il forum: Nessuno e 11 ospiti