[risolto] somma celle uguali

[maxma.62]

Salve,
sono un nuovo istritto e saluto tutti.
Chiedo un piccolo aiuto.
Ho una serie di celle nel foglio1

america
italia
russia
russia
francia
spagna
america
brasile
italia
russia
america

spagna

egitto
grecia
egitto
spagna

brasile

italia
norvegia

tra una nazione e l'altra ci possono essere delle celle vuote.
vorrei che nel foglio2 ci fosse un collegamento al foglio1
in cui le celle del foglio1 si sommino incollonate con scritto la quantità totale nella cella di fianco

america 3
italia 2
russia 3
francia 1
spagna 2
brasile 2
egitto 2
grecia 1
norvegia 1
ecc..

naturalmente se al foglio1 aggiungo altre nazioni si devono sommare al foglio2
se già presenti oppure si aggiungano alla lista se assenti.
Spero di essermi spigato.
Anticipatamente ringrazio.
Ciao,
max

[Pbpont]

Devi utilizzare la funzione CONTA.SE con la sintassi seguente

Codice: Seleziona tutto

=CONTA.SE('Nome foglio'.IntervalloCelleNazioni;"=NomeNazione")

Con dei valori a caso

Codice: Seleziona tutto

=CONTA.SE('Foglio1'.A1:A1000;"=America")

In allegato un file d'esempio.

Riguardo a:

oppure si aggiungano alla lista se assenti.

Ti consiglio di aspettare l'intervento di utenti più esperti

[patel]

Io con le formule non ci so fare e propongo una macro (dati che partono da A3)

Codice: Seleziona tutto

Dim Sheet As Object, oRange as object
Sub EliminaDoppie
dim Cella as object,CellaPrec as object, RIGA as integer, col as integer
oSheet = ThisComponent.Sheets(0)
c = oSheet.createCursor
c.gotoEndOfUsedArea(false)
LastRow = c.RangeAddress.EndRow + 2
InitRow = 3
oRange = oSheet.getCellRangeByName("A" & InitRow & ":B" & LastRow)
call SortColZero
on error goto errore
c = oSheet.createCursor
c.gotoEndOfUsedArea(false)
LastRow = c.RangeAddress.EndRow + 2
oRange = oSheet.getCellRangeByName("A3:B" & LastRow)
With oRange ' lavoro col range, lo scansiono riga per riga, quando finisce va in errore
  col=0
  RIGA=1
  cc=1
  CellaPrec =.getCellByPosition(col,RIGA - 1)
  Cella = .getCellByPosition(col,RIGA)
  Do
      If StrComp(Cella.String, CellaPrec.String, 0) = 0 Then
          cc=cc + 1
          .getCellByPosition(1,RIGA-1).value = cc
         .Rows.removeByIndex(RIGA, 1)
      else
         if cc > 1 then
           cc=1
         else
         .getCellByPosition(1,RIGA-1).value = cc
         end if
         RIGA = RIGA + 1
         CellaPrec = Cella
         Cella = .getCellByPosition(col,RIGA)       
      End If
  Loop
End with
errore:
End Sub

Sub SortColZero
Dim oSortFields(0) as new com.sun.star.util.SortField
Dim oSortDesc(0) as new com.sun.star.beans.PropertyValue
oSortFields(0).Field = 0
oSortFields(0).SortAscending = TRUE
oSortDesc(0).Name = "SortFields"
oSortDesc(0).Value = oSortFields()
oRange.Sort(oSortDesc())
End Sub

[maxma.62]

Grazie Pbpont,
la tua formula funziona.
Per patel:
non sono esperto di openorg e con excel so come inserire nuove macro nei vari foglio/moduli ma con openorg non so proprio.
Premo Alt+f11 poi clicco in Nazioni - standard - e non so proprio come in inserire.
Max

[patel]

Premi Alt+f11 poi clicchi in Nazioni - standard - Nuovo - Nome modulo - OK
però prima devi abilitare le macro da Strumenti, Opzioni, Generale, Abilita funz. sperim (ultima riga)

[maxma.62]

Non trovo:
Strumenti, Opzioni, Generale, Abilita funz. sperim (ultima riga)
trovo:
Strumenti, Opzioni, Generale, openofficecalc - generale e qui non l'opzione che dici.
max

[patel]

io ti ho dato le istruzioni per Libre Office, prova con
Per abilitare la macro su openoffice:
- strumenti
- opzioni
- openoffice.org/libreoffice.org
- sicurezza
- sicurezza delle macro
- medio
- ok.

[lucky63]

Se vuoi puoi fare anche senza macro.

Foglio1:
Inserisci i nomi delle nazioni in colonna B
In colonna A inserisci un contatore univoco incrementale di riscontri

Foglio2:
In colonna A utilizzi la funzione CERCA.VERT(). In relazione al numero di colonna estrari le corrispondenze del foglio1 sulla base del contatore incrementale.
In colonna B utilizzi la funzione CONTA.SE() integrata in funzione SE().
Se cella A è vuota allora anche cella B stessa riga rimane vuota altrimenti interviene CONTA.SE() che conteggia le corrispettive presenze in foglio1.

Allego file di test.
In foglio1 ho nascosto la colonna A
In foglio1 colonna B puoi inserire i nomi delle nazioni come vuoi (esempio: america America ameRicA AMERICA) che vengono conteggiati come uguali.
Funziona per riscontri fino a 1000 righe sia per foglio1 che per foglio2
Fai test.
..

[maxma.62]

Questo non l'ho capito:
In colonna A inserisci un contatore univoco incrementale di riscontri
non so cos'è il contatore univoco.
max

[Pbpont]

Grazie Pbpont,
la tua formula funziona.

Figurati!

La mia è niente in confronto a quella che ha utilizzato lucky63 nel file che ha allegato.

Questo non l'ho capito:
In colonna A inserisci un contatore univoco incrementale di riscontri
non so cos'è il contatore univoco.
max

Allarga la colonna A così puoi vedere la formula per il contatore incrementale

[lucky63]

Questo non l'ho capito:
In colonna A inserisci un contatore univoco incrementale di riscontri
non so cos'è il contatore univoco.
max

Se rendi visibile la colonna A del foglio1 noterai l'effetto.
Una serie di formule iniziano a contare la presenza delle varie voci
Se questo conteggio da come risultato 1 incrementa il massimo numero precedente della colonna A di un'unità altrimenti lascia cella vuota.
In colonna A ottieni in pratica il conteggio progressivo (incrementale) della sola prima nuova voce di nazione.

Per visualizzare anche la colonna A
CTRL+A
Menu > Formato > Colonna > Mostra

[lucky63]

maxma.62 ha scritto:Grazie Pbpont,
la tua formula funziona.

Figurati!

La mia è niente in confronto a quella che ha utilizzato lucky63 nel file che ha allegato.

... grazie ...

[maxma.62]

Grazie a tutti,
siete fantastici.
Ciao,
max