Somma se colore

[unlucky83]

Là macro funziona solo per il foglio chiamato “1”. La seccatura del codice è che a modifiche del documento corrispondono modifiche da apportare al codice. Hai intenzione di inserire 12 fogli, uno per ogni mese?

[capodimontemassimo]

Certamente, infatti ho cambiato tutti i riferimenti . Il problema sta nel fatto che la somma non si aggiorna nel momento che coloro dello stesso tono una cella.

[unlucky83]

Prova ad allegare il file

[capodimontemassimo]

Allego il file.

[patel]

Probabilmente per il nuovo foglio non hai fatto questo

Per rendere l’aggiornamento automatico ogni volta che modifichi il foglio dovresti collegarlo all’evento del foglio:
Dal menu in alto "Foglio">"Foglio eventi"> seleziona "contenuto modificato" e clicca sul pulsante "Macro" sotto la voce Assegna, seleziona il documento prova2.ods e apri il suo elenco, poi apri Standard, Seleziona Module1 e infine seleziona la macro "SommaAranci". A questo punto premi su ok, in questa e nella finestra successiva

[unlucky83]

Come ha intuito patel, ti sei scordato di associare la macro all'evento del nuovo foglio.
Se la macro deve essere eseguita da più fogli, dovresti inoltre:
- o inserire una macro per ciascun foglio
- o adattare la macro in modo tale che "sappia" su quale foglio lavorare in base all'evento scatenante ( selezione di foglio1, selezione di foglio 2 ...). Questa è la scelta da preferire se i vari fogli hanno tutti la stessa struttura.
Allego nuovo file contenente la seguente macro, che è associata solamente all'evento di Foglio PIPPO.

Codice: Seleziona tutto

Sub SommaAranci(oEvent)
oSh=oEvent.SpreadSheet
oRange=oSh.getcellrangebyname("F4:F40")
oConfronto=oSh.getcellrangebyname("F47")
somma=0
For i=0 To oRange.Rows.Count-1
oCosa=Orange.getCellByPosition(0,i)
   If oConfronto.CellBackColor=oCosa.CellBackColor then
      somma=somma+oCosa.Value
   End If
Next
oSh.getcellrangebyname("F47").Value=somma
End Sub

[hubert lambert]

Ciao a tutti,

Ho fatto un tentativo, una versione di COUNTSTYLE dedicata per consentire l'uso del colore di sfondo al posto dello stile.
È ancora provvisoria, ma tutto sembra apposto.
Inoltre allo stile, il colore può essere dato col nome predefinito ("Rosso"), col valore RGB ("255,0,0") oppure col valore hex ("ff0000"):

Buona note .

[capodimontemassimo]

unlucky83 è giusta l'intuizione di pattel con una piccola variante, anziché 'contenuto modificato' va impostata 'selezione modificata' .
Mi sono accorto che la macro restituisce la somma delle celle non riempite , una volta che queste si colorano di qualsiasi colore il numero contenuto viene detratto dal totale. la mia intenzione invece è quella di ottenere la somma del contenuto nelle celle colorate di rosso piuttosto che di verde o di giallo.

[capodimontemassimo]

Ciao hubert lambert, ho scaricato il tuo file che riesco a far funzionare mentre en ho creato uno io che non riesco a far funzionare.

[patel]

nel file che hai allegato manca lo stile Arancione, quindi non funziona

hubert, potresti allegare il codice della tua estensione ?

[hubert lambert]

Se utilizzi il colore "Arancione 3", è quel nome che devi dare a COUNTSTYLE.
Il "Rosso" non è utilizzato nel file allegato.

@patel
Eccolo :

Codice: Seleziona tutto

# -*- coding: utf-8 -*- 
import unohelper
from org.countstyle import XCountStyle
from com.sun.star.util import XModifyListener
from com.sun.star.uno import RuntimeException
from com.sun.star.lang import IllegalArgumentException
from com.sun.star.sheet.GeneralFunction import (SUM, COUNT, AVERAGE, MAX, MIN, COUNTNUMS)


components = {}
colortable = {}
styles = {}
styles_rev = {}

class ModifyListener(unohelper.Base, XModifyListener):
    def disposing(self, event):
        try:
            docname = event.Source.Namespace
            del components[docname]
        except:
            pass
    def modified(self, event):
        event.Source.calculateAll()


class CountStyle(unohelper.Base, XCountStyle):
    def __init__(self, ctx):
        self.ctx = ctx
        # for functions available with XSheetOperation see
        # https://www.openoffice.org/api/docs/common/ref/com/sun/star/sheet/GeneralFunction.html
        # for issues with these functions, see https://bz.apache.org/ooo/show_bug.cgi?id=22625
        self.functions = {1:SUM, 2:COUNT, 3:AVERAGE, 4:MAX, 5:MIN, 6:COUNTNUMS}
        self._getcolortable()

    # XCountStyle
    def countstyle(self, doc, cellrange, reference, function):
        if function == 0:
            function = None
        if not reference:
            raise IllegalArgumentException(u'Second argument is incorrect.', self, 2)
        if function and not function in self.functions:
            raise IllegalArgumentException(u'Third argument is incorrect.', self, 3)
        if not doc.Namespace in components:
            components[doc.Namespace] = ModifyListener()
            doc.addModifyListener(components[doc.Namespace])
        # getting internal styles once per session
        if not styles:
            self._getinternalstyles(doc)
        prop = "CellBackColor"
        try:    # is reference a hex color value?
            reference = int(reference.lstrip('#'), 16)
        except ValueError:
            try:    # is reference a rgb color value?
                red, green, blue = [int(x.strip()) for x in reference.split(',')]
                reference = (red<<16) + (green<<8) + blue
            except ValueError:
                try:    # is reference a color name?
                    reference = colortable[reference]
                except KeyError:
                    # so reference is a style name: let's check if it is an internal one
                    try:
                        reference = styles[reference]
                    except KeyError:
                        pass
                    prop = "CellStyle"
        # count reference formatted cells
        formatranges = cellrange.UniqueCellFormatRanges
        if not function:
            cellcount = 0
            for n in range(formatranges.Count):
                frs = formatranges.getByIndex(n)
                if frs.getPropertyValue(prop) == reference:
                    for m in range(frs.Count):
                        fr = frs.getByIndex(m)
                        cellcount += len(fr.Data)*len(fr.Data[0])
            value = cellcount
        # compute function on reference
        else:
            sheetcellranges = doc.createInstance("com.sun.star.sheet.SheetCellRanges")
            for n in range(formatranges.Count):
                frs = formatranges.getByIndex(n)
                if frs.getPropertyValue(prop) == reference:
                    sheetcellranges.addRangeAddresses(frs.RangeAddresses, True)
            if sheetcellranges.Count:
                try:
                    value = sheetcellranges.computeFunction(self.functions[function])
                except RuntimeException:
                    value = 0
            else:
                value = None
        return value

    def cellstyle(self, doc, cell):
        if not doc.Namespace in components:
            components[doc.Namespace] = ModifyListener()
            doc.addModifyListener(components[doc.Namespace])
        # getting internal styles once per session
        if not styles:
            self._getinternalstyles(doc)
        try:
            return styles_rev[cell.CellStyle]
        except KeyError:
            return cell.CellStyle

    # private methods
    def _getcolortable(self):
        ColorTable = self.ctx.ServiceManager.createInstance("com.sun.star.drawing.ColorTable")
        for colorname in ColorTable.ElementNames:
            colortable[colorname] = ColorTable.getByName(colorname)

    def _getinternalstyles(self, doc):
        cellstyles = doc.StyleFamilies.CellStyles
        for n in range(cellstyles.Count):
            style = cellstyles.getByIndex(n)
            if style.DisplayName != style.Name:
                styles[style.DisplayName] = style.Name
                styles_rev[style.Name] = style.DisplayName


g_ImplementationHelper = unohelper.ImplementationHelper()
g_ImplementationHelper.addImplementation(CountStyle, "org.countstyle", ())

[patel]

Grazie Hubert, vedo che si tratta di Python, non lo conosco abbastanza.

[patel]

- o adattare la macro in modo tale che "sappia" su quale foglio lavorare in base all'evento scatenante ( selezione di foglio1, selezione di foglio 2 ...). Questa è la scelta da preferire se i vari fogli hanno tutti la stessa struttura.
Allego nuovo file contenente la seguente macro, che è associata solamente all'evento di Foglio PIPPO.

Ciao unlucky83, su Libre non funziona, da errore sulla riga oSh=oEvent.SpreadSheet

Secondo me invece di utilizzare gli eventi sarebbe più semplice fare una UDF, ho provato ma non sono capace ad utilizzare il range.

[capodimontemassimo]

nel file che hai allegato manca lo stile Arancione, quindi non funziona

hubert, potresti allegare il codice della tua estensione ?

Avevo messo su una stringa Arancione 3 e su un'altra stringa Rosso ma non funzionava in entrambi i casi, la probabile causa secondo me è il mancato riavvio dopo l'installazione della funzione perché adesso funziona.

[capodimontemassimo]

hubert lambert si tratta di un'unica macro quella che hai scritto in ultimo?

[capodimontemassimo]

Se adesso avessi necessità di contare le celle riempite di un colore come posso utilizzare COUNTSTYLE?

[hubert lambert]

hubert lambert si tratta di un'unica macro quella che hai scritto in ultimo?

È il codice dell'estensione. Se vuoi, il file "oxt" non è che un file zip rinomato: basta decomprimerlo per vedere il contenuto.

Se adesso avessi necessità di contare le celle riempite di un colore come posso utilizzare COUNTSTYLE?

Il secondo argomento di COUNTSTYLE è il nome delle stle o del colore di sfondo da contare.
Se necessario rileggi questo.

nel file che hai allegato manca lo stile Arancione, quindi non funziona

Stiamo parlanda in effetti di quella versione di prova, chè consente l'uso del colore di sfondo, fuori degli stili (anche se non mi fa tanto piacere ).

[patel]

questo allegato non funziona bene col colore rosso

[capodimontemassimo]

hubert lambert, dovrei sommare anche il contenuto delle celle non colorate ma utilizzando "Trasparente" non ottengo nessun valore .

[hubert lambert]

questo allegato non funziona bene col colore rosso

Perchè il "rosso" di OpenOffice non è il rosso naturale (rgb 255,0,0) ma un rosso un pò alterato (rgb 255,51,51).
Quel' problema non esista con gli stili .

dovrei sommare anche il contenuto delle celle non colorate ma utilizzando "Trasparente" non ottengo nessun valore .

In realtà "Trasparente" non è un nome di colore valido. Puoi utilizzare "-1" (inclusi le virgolette).

Ma
Sarebbe tanto più facile con gli stili:
- si creano in un click (pulsante "Nuovo stile dalla selezione")
- si modificano in un click per tutte le celle interessate (pulsante "Aggiorna stile")
- si applicano in un solo doppio-click
- viene spesso ignorato che si possono utilizzare con le scarciatoie di tastiera
- e infine il nome dello stile non è legato al valore del colore e non è limitato allo sfondo...
(sì, lo so, torno sempre sullo stesso punto... )

[patel]

Grazie Hubert, potresti scrivere in basic la tua UDF ed insegnarci a fare una estensione ?

[capodimontemassimo]

hubert lambert intendi utilizzando la funzione cellstyle? Puoi fare una demo con il file allegato precedentemente?

[hubert lambert]

Grazie Hubert, potresti scrivere in basic la tua UDF ed insegnarci a fare una estensione ?

Non è possibile creare une "addin" (estensione che aggiungia funzioni a Calc) con basic. Bisogno di un linguaggio che consente creare oggetti, come python. Se conosci già l'api UNO, dovrebbe essere abbastanza facile impararlo...
Ho scritto un piccolo tutoriel per creare un "addin" sul forum francese (https://forum.openoffice.org/fr/forum/v ... 47#p283847), ma avrei bisogno di aiuto per tradurlo.

hubert lambert intendi utilizzando la funzione cellstyle? Puoi fare una demo con il file allegato precedentemente?

Vado a allegare Qui sotto un file per provare di spiegarmi meglio (scarica il file prima di aprirlo).

[patel]

Non è possibile creare une "addin" (estensione che aggiungia funzioni a Calc) con basic.

OK, ma potresti scrivere le due UDF in basic senza creare l'addin ?

Ho scritto un piccolo tutoriel per creare un "addin" sul forum francese (https://forum.openoffice.org/fr/forum/v ... 47#p283847), ma avrei bisogno di aiuto per tradurlo.

Ti aiuto volentieri, potrei correggere la tua traduzione in italiano, oppure desideri la traduzione completa ?

[hubert lambert]

Ciao patel,

Grazie per l'aiuto. Faccio la traduzione al più presto e ti la mando.
Vedo anche come scrivere l'UDF il più vicino possibile all'originale.
Saluti.

Editato: Ecco un file con una versione basic di countstyle. Due osservazioni: - c'è una formula con nome "updater" che consente l'aggiornamento automatico e la gestione degli errori - se ci sono errori a l'apertura del file, aggiornare con MAJ+CTRL+F9

[patel]

Grazie Hubert, ti ho chiesto la versione basic perché non riuscivo a realizzarla senza usare le virgolette per passare il range, cioè
=COUNTSTYLE2(B4:B17; A21; 1)
invece di
=COUNTSTYLE2("B4:B17"; A21; 1)
ma vedo che anche tu hai passato il range come string invece che come object, non si può fare in basic ?

[hubert lambert]

È giusto: l'oggetto "celle" è disponibile solo da un'estensione del tipo "AddIn".

[capodimontemassimo]

Ciao ubert lambert, ho dovuto reinstallare la funzione poiché ho cancellato la cartella user per risolvere i crash. Non riesco a farla girare , non vedo nessun errore, probabilmente cancellando la cartella user ho eliminato qualcosa, cosa posso fare?

Ciao,

Ho fatto, per un altro forum, un estensione countstyle.oxt per questo tipo di domanda.
L'estensione aggiungia due funzioni a Calc: CELLSTYLE e COUNTSTYLE.
CELLSTYLE restituisce lo stile della data cella:

Codice: Seleziona tutto

CELLSTYLE(A1)

COUNTSTYLE prevede tre argomenti, il terzo facoltativo:
- <range>: le celle di riferimento;
- <style>: lo stile da contare (sensibile al maiuscolo/minuscolo);
- <function>: un numero intero che rappresenta il tipo di operazione da eseguire.
Se il terzo argomento è omesso o uguale a 0, COUNTSTYLE conta semplicemente le celle dello stile specificato. Le altre funzioni sono:
1: calcola la somma delle celle
2: conta le celle non vuote
3: calcola la media
4: restituisce il valore massimo
5: restituisce il valore minimo
6: conta i valori numerici

Codice: Seleziona tutto

COUNTSTYLE(A1:A100;"rosso";1)

capodimontemassimo.png

Quelle funzione funzionano solo con gli stili di celle: il colore (quale: sfondo? carattere?...) applicato direttamente non è contato.
Non funziona con la formattazione condizionale: sarebbe troppo complicato, e basta contare con la stessa condiziona utilizzata per la formattazione.

Ogni tanto tradurrò l'estensione in italiano (per il momento esistono solo il francese e l'inglese).
Saluti.

Editato: Eccola in italiano: countstyle.oxt

[capodimontemassimo]

Ancora non sono riuscito a risolvere . Allego un foglio di esempio .

[capodimontemassimo]

Ciao a tutti, ho dovuto reinstallare l'estensione che subito va bene ma quando chiudo il programma e lo riavvio mi da errore . Cosa posso fare ? C'è qualche impostazione da modificare ?