Condividi:        

[Excel] Repetite Iuvant.........Ritardi ambo()

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

Re: [Excel] Repetite Iuvant.........Ritardi ambo()

Postdi Flash30005 » 04/05/09 21:58

L'autore di questo topic ha ragione a lamentarsi delle polemiche che si sono create intorno alla uscita o non uscita dell'ambo o dei numeri perché rileggendo meglio la richiesta ho notato che l'esigenza era creare una funzione dello stesso tipo di quella riportata e nulla più.
Ho cercato di sviluppare una macro che esaudisse parte della richiesta ed in effetti la macro funziona (in parte) poi eventualmente si potrebbe convertire in funzione ma già come macro dà problemi in quanto l'archivio non ha un ordine numerico (se ne parlò già da tempo di questa funzionalità) un conto è 47-70 e un conto è 70-47 l'ambo è lo stesso ma la macro come può interpretare l'una e l'altra stringa? (ho anche converitito in AmboRev ma come lo utilizzo?)
Io intanto posto la macro che funziona se i numeri nell'archivio fossero messi tutti in ordine crescente funzionerebbe es. 21-85 e mai 85-21 comunque questa macro potrà essere come spunto per altri volontari
Codice: Seleziona tutto
Sub CercaAmbo()
RAMBO = 0
MRAMBO = 0
Ambo = Worksheets("Ritardo_Ambi").Range("F3").Value
'AmboRev = Right(Ambo, 2) & " - " & Left(Ambo, 2)
Worksheets("Ritardo_Ambi").Select
Ue = Worksheets("Ritardo_Ambi").Range("D" & Rows.Count).End(xlUp).Row
       With Worksheets("Ritardo_Ambi").Range("D8:M" & Ue)
            Set C = .Find(Ambo, LookIn:=xlValues)
            If Not C Is Nothing Then
                firstAddress = C.Address
                Do
                    If C.Value = Ambo Then
                        MRAMBO = C.Row - 8
                        If RAMBO < MRAMBO Then
                            If RAMBO = 0 Then
                                RAMBO = MRAMBO - RAMBO
                            Else
                                RAMBO = MRAMBO - RAMBO - 1
                            End If
                            MsgBox RAMBO
                        End If
                    End If
                    Set C = .FindNext(C)
                    On Error Resume Next
                Loop While Not C Is Nothing And C.Address <> firstAddress
            End If
        End With
On Error GoTo 0
End Sub


In F3 c'è l'ambo (stringa) da ricercare come Max-Ambo nell'archivio postato da Biancocandido (anche qui io invertirei l'ordine in data crescente)
e per il momento è solo per la ruota di Bari ma basta cambiare il range...


Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Sponsor
 

Re: [Excel] Repetite Iuvant.........Ritardi ambo()

Postdi biancocandido55 » 05/05/09 14:37

Ciao Flash30005 ,
ti ringrazio per la macro postata e questo mi consola, l'ho subito provata e a me sembra funzionare, anche invertendo l'ambo, se ho capito bene, in grandi linee, questa macro va a leggere il contenuto stringa del range in causa e se trova quello uguale fà la differenza della data dell' estrazione dall'ultima.
Io nel frattempo ho cercato di capire come era strutturata la funzione ritardo postata all'inizio del topic, e con la mia azzerata conoscienza nel VBA, le leggo ma nel momento di applicarmi è la sintassi che mi frega, :( :x ho cercato di porre delle modifiche in modo da adattarla alla ricerca del ritardo ambo, ti confesso che qualcosa fà, ma non sono sicuro del risultato :eeh: :eeh: .
Diversamente dalla tua macro ho voluto provare anche in un altro modo e ho pensato di aggiungere la ricerca di un secondo estratto e se i due estratti si trovano sulla stessa riga, allora inizia a fare la differenza delle date con i 2 numeri precedentemente usciti.
ti posto la macro con le modifiche fatte, come già detto sicuramente errate,
Codice: Seleziona tutto
Function Ritardi Ambo(Estr1, Estr2, Ruota)
    TotEstr = Range("A65536").End(xlUp).Row
    RigEstr1 = Estr.Row
    RigEstr2 = Estr.Row
ColEstr = Ruota.Column
    For I = (RigEstr1 and RigEstr2) + 1 To TotEstr
        For Y = ColEstr To ColEstr + 4
            If Cells(I, Y) = Estr1 and estr2 Then
                Ritardi Ambo = I - (RigEstr1 and RigEstr2) - 1
                GoTo Fine
            End If
        Next Y
    Next I
    Ritardi Ambo = "-"
Fine:
End Function

Come sempre ti ringrazio, e rimango in attesa fiducioso,
un abbraccio
biancocandido Immagine
biancocandido55
Utente Senior
 
Post: 305
Iscritto il: 03/03/06 10:15

Re: [Excel] Repetite Iuvant.........Ritardi ambo()

Postdi Flash30005 » 06/05/09 01:56

Ciao Biancocandido
la tua funzione a me da errore #Valore! E non saprei come risolvere con i codici funzione.

Per quanto riguarda la macro da me postata (che ho corretto con questa)
Codice: Seleziona tutto
Sub CercaAmbo()
RAMBO = 0
MRAMBO = 0
Ambo = Worksheets("Ritardo_Ambi").Range("F3").Value
'AmboRev = Right(Ambo, 2) & " - " & Left(Ambo, 2)
Worksheets("Ritardo_Ambi").Select
Ue = Worksheets("Ritardo_Ambi").Range("D" & Rows.Count).End(xlUp).Row
       With Worksheets("Ritardo_Ambi").Range("D8:M" & Ue)
            Set C = .Find(Ambo, LookIn:=xlValues)
            If Not C Is Nothing Then
                firstAddress = C.Address
                    MTRAMBO = C.Row - 8
                Do
                    If C.Value = Ambo Then
                        MRAMBO = C.Row - 8 - MTRAMBO
                        If RAMBO = 0 Then RAMBO = MTRAMBO
                        If RAMBO < MRAMBO Then RAMBO = MRAMBO - 1
                    End If
                    MTRAMBO = C.Row - 8
                    Set C = .FindNext(C)
                    On Error Resume Next
                Loop While Not C Is Nothing And C.Address <> firstAddress
            End If
        End With
        If Ue - MTRAMBO > RAMBO Then RAMBO = Ue - MTRAMBO
Worksheets("Ritardo_Ambi").Range("I3").Value = RAMBO
On Error GoTo 0
End Sub

non fa altro che cercare tutte le stringhe (ambo) compresi nel range indicato (D8:M92 o oltre), trovato il primo ambo "memorizza" le righe esempio 10 (18-8) poi prosegue la ricerca,
se dovesse trovare una differenza di righe maggiore di 10 memorizza il nuovo valore per questo fornisce il max storico e alla fine inserisce l'ultimo valore (Max) nella cella "I3".

Provala e fai sapere
Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [Excel] Repetite Iuvant.........Ritardi ambo()

Postdi biancocandido55 » 06/05/09 16:34

Ciao Flash,
ti ringrazio come sempre della tua disponibilità, ho fatto girare le due macro e il risultato lo puoi vedere dall'immagine postata,
Immagine
il risultato nel riquadro è della 1ª macro ed è giusto,
il numero postato nella cella "I3" invece è il risultato della 2ª macro, ho fatto le prove con altri ambi e praticamente come risultato mi da il diametrale del risultato della 1ª per un totale di 92.
Se controllo l'ambo sotto cioè "51 - 82", i risultati sarebbero 4 alla prima macro e 88 alla seconda macro.
Rimango in attesa fiducioso come sempre.
un abbraccio
biancocandido Immagine
biancocandido55
Utente Senior
 
Post: 305
Iscritto il: 03/03/06 10:15

Re: [Excel] Repetite Iuvant.........Ritardi ambo()

Postdi Flash30005 » 06/05/09 19:47

Si, il fatto che le due macro si comportino diversamente è proprio perché la seconda (l'ultima da me postata) ti dà il max storico, infatti se consideri che sono 85 concorsi e hai avuto l'ambo nel quart'ultimo hai un ritardo storico di 81 (non 89)
infatti devi correggere questa riga
Codice: Seleziona tutto
        If Ue - MTRAMBO - 8 > RAMBO Then RAMBO = Ue - MTRAMBO - 8

(la prima macro da me postata è errata perché avrebbe funzionato se i concorsi erano in ordine crescente è per questo che ti ho modificato i codici nella seconda macro)
Quindi se hai intenzione di lasciare le estrazioni in ordine decrescente devi usare quest'ultima macro (con la correzione postata qui) ok?

Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [Excel] Repetite Iuvant.........Ritardi ambo()

Postdi biancocandido55 » 07/05/09 13:24

Ciao Flash,
ho fatto la modifica alla riga citata, funziona, però io non tralascio nulla e comunque come già detto, ho messo in uso anche la prima macro, non riesco a capire invece perchè tu dici, cito:
Flash30005, dice:
(la prima macro da me postata è errata perché avrebbe funzionato se ...........
,
flash, mio caro flash :D , penso che sia solo una frase detta per modestia da parte tua, perchè come già detto prima, per quello che mi riguarda funziona benissimo anche quella.
Fino ad ora, oltre le formule, schemi e conteggi vari abbiamo anche:
- 1 Funzione personale per ritardo estratto (postata all'inizio del topic, di un nostro amico)
- 1 Macro per ritardo ambi attuale, ambo stringa, su cella unica (e non dire che non funziona, perchè non ci credo :D :lol: )
- 1 Macro per ritardo ambi storico, ambo stringa, su cella unica .
Caro Flash, ti ringrazio molto per il tuo disinteressato aiuto, e confido nel fatto che ci siano anche altri amici che vogliano intervenire ad incrementare il topic con l'aggiunta di altre macro o funzioni personalizzate della tipologia citata all'inizio del topic.
Come sempre, un abbraccio
a prè,
biancocandido55
biancocandido55
Utente Senior
 
Post: 305
Iscritto il: 03/03/06 10:15

Re: [Excel] Repetite Iuvant.........Ritardi ambo()

Postdi Flash30005 » 08/05/09 03:43

Ti posto direttamente il file provalo cliccando due volte sulla testata Ruote (Bari, Cagliari etc) oppure
cliccando la T in "C6" (T sta per Tutte le ruote)

Rimane il problema degli ambi che vengono controllati:
con 47 - 70 troverà tutti gli ambi 47 - 70 ma non il 70 - 47 (pur essendo lo stesso ambo)


Ciao
Allegati

[L’estensione rar è stata disattivata e non puó essere visualizzata.]

Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [Excel] Repetite Iuvant.........Ritardi ambo()

Postdi biancocandido55 » 08/05/09 09:08

Ciao Flash,
ahhhhhhh, ma allora è un vizio, ma se ti ho detto che funziona, perchè continui ad insistere del contrario. :D :D :lol:
vabbè, allora ecco qui la dimostrazione:
Immagine,
hai visto che è come ti dicevo,
Rimango fiducioso in attesa di chiarimenti e di altri interventi e/o funzioni.
ciao geniaccio. :lol: :lol:
biancocandido Immagine
biancocandido55
Utente Senior
 
Post: 305
Iscritto il: 03/03/06 10:15

Re: [Excel] Repetite Iuvant.........Ritardi ambo()

Postdi carlor » 08/05/09 11:19

Volevo chiedervi se esistono esercitazioni di Excel riguardanti le scommesse e basate sulla teoria della probabilità anziché sui ritardi (che non hanno una teoria).
Grazie.
Avatar utente
carlor
Utente Junior
 
Post: 16
Iscritto il: 24/04/09 13:20

Re: [Excel] Repetite Iuvant.........Ritardi ambo()

Postdi Flash30005 » 08/05/09 13:27

biancocandido55 ha scritto:ma allora è un vizio, ma se ti ho detto che funziona, perchè continui ad insistere del contrario.
vabbè, allora ecco qui la dimostrazione

Lo sai che non dovrebbe essere così!? :eeh: Ed infatti non è così! :roll:
la variabile Ambo è una stringa "47 - 70" quando cerca nell'area prevista cercherà la stringa "47 - 70" e non "70 - 47" infatti se tu fai la ricerca di "47 - 70" sulla ruota di Genova avrai MaxSto = a RitAtt = 55 e non 82 come dovrebbe essere il MaxSto, quello che tu vedi (celle evidenziate in rosso con numeri bianchi) è soltanto un'evidenziazione della formattazione condizionale, non il calcolo fatto dalla macro "CercaAmbo" che è tutt'altra cosa.
Quindi ribadendo la necessità di ordinare almeno gli ambi aventi come primo numero il numero più basso si dovrebbero cambiare le formule nel foglio "RITARDO_AMBI"
ti posto come esempio la formula per "D8"
Codice: Seleziona tutto
=SE(Archivio!$C8<Archivio!D8;Archivio!$C8&" - "&Archivio!D8;Archivio!D8&" - "&Archivio!$C8)

che va copiata fino a "G8" e poi trascinata fino a "D92:G92"
in H8 va modificata così
Codice: Seleziona tutto
=SE(Archivio!$D8<Archivio!E8;Archivio!$D8&" - "&Archivio!E8;Archivio!E8&" - "&Archivio!$D8)
etc etc
Insomma... Buon lavoro!

biancocandido55 ha scritto:Rimango fiducioso in attesa di... altri interventi e/o funzioni.

cos'altro manca?

Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [Excel] Repetite Iuvant.........Ritardi ambo()

Postdi biancocandido55 » 08/05/09 21:01

Ciao Flash,
come mi è capitato altre volte, per la fretta di risolvere, e lasciare lo spazio anche agli altri, pensavo che avevamo concluso, invece, avendo chiarito le varie opzioni, fatto le modifiche suggerite, cambiato l'ordine degli addendi il risultato non cambia,
il "47 - 70 ", di genova continua rimanere 55 per l'attuale e lo storico come avevi detto.
quando avevo scritto:
Rimango fiducioso in attesa di... altri interventi e/o funzioni.

Avevo probabilmente preventivato altro eventuale intervento :D.
Come sempre ti ringrazio, un abbraccio,
ciao
biancocandido Immagine
biancocandido55
Utente Senior
 
Post: 305
Iscritto il: 03/03/06 10:15

Re: [Excel] Repetite Iuvant.........Ritardi ambo()

Postdi Flash30005 » 08/05/09 21:10

Si infatti modifica manualmente il 47 - 70 del ritardo 55 e noterai che il 70 - 47 non viene rilevato mentre con le formule modificate che invertono i numeri estratti (in 47 - 70) avrai MaxSto = 82

inserisco il link per scaricare il file con le formule corrette e con una piccola modifica...

ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [Excel] Repetite Iuvant.........Ritardi ambo()

Postdi Flash30005 » 08/05/09 21:54

Ho notato che in assenza di corrispondenza ambi il risultato del MaxSto riporta una estrazione in meno 84 invece di 85
e il RitAttuale manca come dato quindi aggiungi queste due righe di codice inserendole come indicato
Codice: Seleziona tutto
If RATT = "" Then RATT = Ue - 7    '<<<< aggiungere qui questa riga
Worksheets("Ritardo_Ambi").Range("J3").Value = RATT    '<<<< Riga esistente
If MTRAMBO = "" Then MTRAMBO = -1  '<<<< aggiungere qui questa riga
If Ue - MTRAMBO - 8 > RAMBO Then RAMBO = Ue - MTRAMBO - 8     '<<<< Riga esistente


Fai sapere

Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [Excel] Repetite Iuvant.........Ritardi ambo()

Postdi biancocandido55 » 08/05/09 22:23

Ciao Flash,
fatte le modifiche, in assenza di ambo il risultato è 85.
Questa è la macro attuale:
Codice: Seleziona tutto
Sub CercaAmbo()
RAMBO = 0
MRAMBO = 0
Ambo = Worksheets("Ritardo_Ambi").Range("F3").Value
Worksheets("Ritardo_Ambi").Select
Ue = Worksheets("Ritardo_Ambi").Range("C" & Rows.Count).End(xlUp).Row
       With Worksheets("Ritardo_Ambi").Range(Cells(8, RRuota), Cells(Ue, RRP))
            Set C = .Find(Ambo, LookIn:=xlValues)
            If Not C Is Nothing Then
                firstAddress = C.Address
                    MTRAMBO = C.Row - 8
                    RATT = C.Row - 8
                Do
                    If C.Value = Ambo Then
                        MRAMBO = C.Row - 8 - MTRAMBO
                        If RAMBO = 0 Then RAMBO = MTRAMBO
                        If RAMBO < MRAMBO Then RAMBO = MRAMBO - 1
                    End If
                    MTRAMBO = C.Row - 8
                    Set C = .FindNext(C)
                    On Error Resume Next
                Loop While Not C Is Nothing And C.Address <> firstAddress
            End If
        End With
  If RATT = "" Then RATT = Ue - 7
Worksheets("Ritardo_Ambi").Range("J3").Value = RATT
  If MTRAMBO = "" Then MTRAMBO = -1
        If Ue - MTRAMBO - 8 > RAMBO Then RAMBO = Ue - MTRAMBO - 8
Worksheets("Ritardo_Ambi").Range("I3").Value = RAMBO
Worksheets("Ritardo_Ambi").Range("I1").Value = NomeR
On Error GoTo 0
End Sub

Ciao e grazie
biancocandido
biancocandido55
Utente Senior
 
Post: 305
Iscritto il: 03/03/06 10:15

Re: [Excel] Repetite Iuvant.........Ritardi ambo()

Postdi Flash30005 » 08/05/09 23:09

Ho aggiunto anche il dato Freq in K2 (titolo) e K3 dato
Aggiungendo 3 righe di codice quindi ora la macro sarà
Codice: Seleziona tutto
Sub CercaAmbo()
RAMBO = 0
MRAMBO = 0
Freq = 0                 '<<<<< Aggiunta
Ambo = Worksheets("Ritardo_Ambi").Range("F3").Value
Worksheets("Ritardo_Ambi").Select
Ue = Worksheets("Ritardo_Ambi").Range("C" & Rows.Count).End(xlUp).Row
       With Worksheets("Ritardo_Ambi").Range(Cells(8, RRuota), Cells(Ue, RRP))
            Set C = .Find(Ambo, LookIn:=xlValues)
            If Not C Is Nothing Then
                firstAddress = C.Address
                    MTRAMBO = C.Row - 8
                    RATT = C.Row - 8
                Do
                    If C.Value = Ambo Then
                        MRAMBO = C.Row - 8 - MTRAMBO
                        If RAMBO = 0 Then RAMBO = MTRAMBO
                        If RAMBO < MRAMBO Then RAMBO = MRAMBO - 1
                        Freq = Freq + 1                 '<<<<< Aggiunta
                    End If
                    MTRAMBO = C.Row - 8
                    Set C = .FindNext(C)
                    On Error Resume Next
                Loop While Not C Is Nothing And C.Address <> firstAddress
            End If
        End With
If RATT = "" Then RATT = Ue - 7
Worksheets("Ritardo_Ambi").Range("J3").Value = RATT
If MTRAMBO = "" Then MTRAMBO = -1
If Ue - MTRAMBO - 8 > RAMBO Then RAMBO = Ue - MTRAMBO - 8
Worksheets("Ritardo_Ambi").Range("I3").Value = RAMBO
Worksheets("Ritardo_Ambi").Range("K3").Value = Freq       '<<<<< Aggiunta
Worksheets("Ritardo_Ambi").Range("I1").Value = NomeR
End Sub


Fai la prova anche con Tutte le Ruote ;)

Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [Excel] Repetite Iuvant.........Ritardi ambo()

Postdi biancocandido55 » 09/05/09 23:34

Ciao Flash,
fatte modifiche alle formule, controllato su archivio generale, FUNZIONA.
anche l'aggiunta della Freq, interessante!
Grazie ;)
ciao
Biancocandido Immagine
biancocandido55
Utente Senior
 
Post: 305
Iscritto il: 03/03/06 10:15

Re: [Excel] Repetite Iuvant.........Ritardi ambo()

Postdi Flash30005 » 09/05/09 23:49

biancocandido55 ha scritto:Ciao Flash,
fatte modifiche alle formule, controllato su archivio generale, FUNZIONA.
anche l'aggiunta della Freq, interessante!
Grazie ;)
ciao
Biancocandido Immagine


Se ritieni interessanti le statistiche sulle frequenze allora ti rilascio l'ultima versione di archivio (v4)
che permette di trovare l'ambo più frequente sulla ruota "cliccata" in un tempo di 1,5 minuti per ruota (su tutte non l'ho provata) e puoi scaricare il file su [url=http://rapidshare.com/files/231147225/archivio4.zip.html
]questo link[/url] (il forum non permette di allegare file superiori a 250 kb)
Noterai che su Bari (in quell'archivio di 85 estrazioni) si è presentato, per ben 4 volte, l'ambo 15-48 mentre nelle altre ruote (tranne Napoli 1 volta) non si è mai verificato.
Penso proprio che ci vuole un gran fattore Q per indovinare le uscite dei numeri :lol:

Ciao fai sapere gli sviluppi
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [Excel] Repetite Iuvant.........Ritardi ambo()

Postdi Flash30005 » 09/05/09 23:50

Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [Excel] Repetite Iuvant.........Ritardi ambo()

Postdi biancocandido55 » 09/05/09 23:52

Grazie Flash,
ci vado subito.
Ciao
biancocandidoImmagine
biancocandido55
Utente Senior
 
Post: 305
Iscritto il: 03/03/06 10:15

Re: [Excel] Repetite Iuvant.........Ritardi ambo()

Postdi biancocandido55 » 12/05/09 16:35

Ciao Flash,
scusami se rispondo solo ora, ma sono stato impegnato, per altre cose.
Comunque, stò aggiornando il mio archivio principale e già dalle prime tre ruote sembra funzionare tutto bene,
hai sviluppato veramente un bel lavoro, va bene anche per il risultato immediato delle frequenze d'ambo.
Insomma che dire, GRAZZZZIE.
Ci saranno sicuramente altre occasioni per risentirci e da parte mia , imparare.
Di nuovo, grazie e ciao a prè.
biancocandido Immagine
biancocandido55
Utente Senior
 
Post: 305
Iscritto il: 03/03/06 10:15

PrecedenteProssimo

Torna a Applicazioni Office Windows


Topic correlati a "[Excel] Repetite Iuvant.........Ritardi ambo()":


Chi c’è in linea

Visitano il forum: Nessuno e 83 ospiti