Aggiornamento Torneo di Burraco.

[geri21]

Buongiorno staff.
Avrei estrema necessità di aiuto per aggiornare un programma per gestione Tornei di Burraco che abbiamo creato circa 20 anni fa.
Posso inviare la Domanda ?

[Anthony47]

Posso inviare la Domanda ?

Si, certamente puoi porre una seconda domanda; per la risposta ...beh vedremo se si puo' fare
Nel formulare la domanda tieni presente che qui magari non giochiamo a burraco e non conosciamo ne' i termini ne' le regole

[geri21]

Aggiornamento a Torneo Burraco.
Descrizione domanda: In colonna T8 di un foglio Excel sono riportati i nomi dei giocatori partecipanti ad un Torneo di Burraco ed in Colonna U8 i nomi dei rispettivi soci, in colonna W8 i punti realizzati nella partita stessa che andranno poi a sommarsi al punteggio di altre due partite precedentemente giocate. Ultimata questa partita in colonna AB8 e AC8 viene a formarsi automaticamente la classifica finale. Per semplificare usiamo max 12 coppie. Ho anche predisposto un foglio di appoggio rinominato “Pr. Tec.”(Premio Tecnico). Domanda: Come ricavare dalla terza partita sopra descritta, la coppia con maggior punteggio che non sia nelle prime tre posizioni della classifica finale ? Grazie

[Anthony47]

Penso che si possa fare, pero' come funziona il tuo file non e' granche' descritto
Almeno come si presenta la tabella della terza partita e come si presenta la tabella della classifica finale

Poi vorrei sapere se la domanda puo' essere rimodulata come segue:
-escludendo le prime tre coppie della classifica generale, quale coppia nella terza partita ha ottenuto piu' punti?
Se questa interpretazione e' errata allora prova a descriverla nuovamente con altre parole

Infine quale versione di Office utilizzi?

[geri21]

La domanda rimodulata appare perfetta. Per una migliore interpretazione non ho difficoltà ad inviare il file. Grazie

[geri21]

Scusate avevo dimenticato: La versione di Office è: Microsoft Office Professional Plus 2016. Ringrazio per l'interessamento.

[Anthony47]

Se alleghi il file è ancora meglio; per le istruzioni:
http://www.pc-facile.com/forum/viewtopi ... 87#p605487

[geri21]

Invio il file
https://drive.google.com/drive/folders/ ... sp=sharing

[geri21]

Ho dimenticato di proteggere la scheda principale "TORNEO". E' opportuno attivare la protezione attivando la pass descritta in alto a sinistra,ovvero "giorgio".

[Anthony47]

Allora...
Ho scelto di affrontare il problema posto con una Funzione Utente, corrispondente al seguente codice vba:

Codice: Seleziona tutto

Function Consolazione(ByRef Torneo0 As Range, ByRef Class0 As Range) As Variant
Dim Torneo0z As Range, Class0z As Range, aClass As Range
Dim I As Long, J As Long, hScore As Long, hPos As Long
Dim oArr(1 To 4)
Dim tPlayer1 As Long, tPoints As Long
Dim cPlayer1 As Long, cPosiz As Long, ccMatch As Variant
'
'Descrizioni
tPlayer1 = 1
tPoints = 4
'
cPlayer1 = 1
cPosiz = -1
'
'Ricerca:
Set aClass = Range(Class0, Class0.End(xlDown))
hScore = -9999: ccMatch = "cippa"
For I = 1 To 100
    tp = Torneo0.Cells.Item(I, tPlayer1).Value
    If Len(tp) = 0 Then Exit For
    ccMatch = Application.Match(Torneo0.Cells(I, tPlayer1).Value, aClass, False)
    If Not IsError(cMatch) Then
        If ccMatch > 3 Then
            If Torneo0.Cells(I, tPoints).Value > hScore Then
                hScore = Torneo0.Cells(I, tPoints).Value
                hPos = I
            End If
        End If
    End If
Next I
'Compila e...
oArr(1) = Torneo0.Cells(hPos, tPlayer1)
oArr(2) = Torneo0.Cells(hPos, tPlayer1 + 1)
oArr(3) = Torneo0.Cells(hPos, tPoints)
oArr(4) = Application.Match(oArr(1), aClass, False)
'
'...restituisce il risultato:
Consolazione = oArr
End Function


Metti il codice in un Modulo standard del tuo vba

Poi vai dove vuoi calcolare il risultato, seleziona 4 celle adiacenti sulla stessa riga, vai nella barra della formula e scrivi

Codice: Seleziona tutto

=Consolazione(TORNEO!T8:U21;TORNEO!AB8)

Conferma la formula con Contr-Maiusc-Enter (non il solo Enter)

Con in dati presenti nel foglio che hai pubblicato la formula restituira' nelle 4 celle:
GiocatoreA, GiocatoreB, Punti, Posizione in classfica e cioe'
Sergio, Mauro, 130, 11

Piu' in generale la sintassi della formula da inserire e':

Codice: Seleziona tutto

CONSOLAZIONE(RangeNominativiDellePartiteFoglioTORNEO; PrimaCellaClassificaFinaleFoglioTORNEO)


Ovviamente il risultato potrebbe essere presentato in modo diverso, se necessario.

Prova e vedi se e' quello che cercavi

[geri21]

Purtroppo non ci capisco niente. Non saprei neanche come utilizzarla !!! Ho installato TeamViewer se vuoi posso farti entrare nel mio pc !!

[Anthony47]

Purtroppo non ci capisco niente. Non saprei neanche come utilizzarla !!!

Non e' difficile...
1) Copia il codice della Function Consolazione e incollalo all'interno di un Modulo standard del tuo progetto vba; io l'ho incollato in Modulo1, in coda al codice gia' presente. Per accedere al tuo Modulo1: da Excel premi Alt-F8, seleziona Macro5 dall'elenco di macro che ti vengono presentate, premi Modifica.
2) Vai dove vorresti vedere calcolato il risultato, seleziona 4 celle in orizzontale; io ho usato AV7:AY7 su foglio TORNEO
3) Scrivi la formula (anzi copiala qui e incollala là) =Consolazione(TORNEO!T8:U21;TORNEO!AB8)
4) Conferma la formula premendo il tasto Contr, poi Maiusc, poi Enter; infine rilasci i 3 tasti
Il risultato comparira' nelle 4 celle selezionate, nel formato che ti ho detto:
GiocatoreA, GiocatoreB, Punti, Posizione in classifica e cioe' (con i dati che erano presenti nel file che hai condiviso)
Sergio, Mauro, 130, 11

Ci provi?

[geri21]

Ho provato ma non ho risolto nulla.

[Anthony47]

Dovresti essere piu' specifico...
Non hai capito le istruzioni?

Hai provato a seguire le istruzioni ma si sei fermato a un certo punto? Quale punto?

Hai seguito le istruzioni fino in fondo ma il risultato ottenuto non era quello che volevi? Allora, con i dati contenuti nel file che hai condiviso l'altro giorno, che risultato avresti voluto ottenere e che cosa invece hai ottenuto?

[geri21]

La formula richiesta avrebbe dovuto essere risolta con le funzioni di excel, perchè una volta funzionante e interpretata avrei potuto modificarla per altre svariate necessità. Ma, considerato le apparenti difficoltà appare opportuno interrompere la ricerca di soluzioni. Si ringrazia per il vs cortese disponibilità. Grazie !! Siete moderatori fantastici !!!

[Anthony47]

Il file contiene un centinaio di macro, pensavo che una macro in piu' non avrebbe rappresentato un problema per te, anche considerando che per fare una cosa di qualche complessità una macro e' piu' flessibile di una formula.
Ma se preferisci una formula: seleziona AV8:AX8 di TORNEO, scrivi la sottostante formula nella Barra della Formula, conferma con Contr-Maiusc-Enter (non il solo Enter)

Codice: Seleziona tutto

=INDICE(T8:W21;CONFRONTA(MAX((W8:W21)*(CONFRONTA(T8:T21;AB8:AB21;0)>3));W8:W21;0);{1\2\4})

Prova...

[geri21]

Ho riportato la tua formula come descritto e come risultato mi da: Cancelletto+ND. Se cancello il contenuto delle celle di col. W mi da un nome !!!

[Anthony47]

La cosa piu' probabile e' che non hai inserito la formula usando la combinazione Contr-Maiusc-Enter:
-cancella il contenuto delle celle ce ora ti restituiscono #N/D
-seleziona 3 celle contigue, esempio AV9:AX9
-copia questa formula =INDICE(T8:W21;CONFRONTA(MAX((W8:W21)*(CONFRONTA(T8:T21;AB8:AB21;0)>3));W8:W21;0);{1\2\4})
-incollala nelle barra della formula
-premi il tasto Contr, poi il tasto Maiusc, poi il tasto Enter; infine rilascia tutti e tre i tasti

Vedrai la formula racchiusa tra parentesi graffe (e sia chiaro che digitare le parentesi graffe da tastiera non e' la stessa cosa!), come nella immagine allegata

[geri21]

Bravo !!! Tutto perfetto !!! Domani la prova del fuoco !!! Se tutto ok aspettati la domanda da 5 punti. Tantissime volte "Grazie"!

[geri21]

Mi spiace ma alla prova del fuoco la formula è risultata inaffidabile !!!