| | Post: 4 | Registrato il: 23/08/2016
| Città: MILANO | Età: 53 | Utente Junior | 2019 excel mac | | OFFLINE | |
|
  18/11/2019 20:52 | |
Ciao a tutti e buona serata , mi presento sono Mario e ho un problema da sottoporvi in cerca di aiuto, vado a spiegarmi sto cercando di fare uno scoreboard per dei ragazzi di una ASD di pallamano o messo il timer tempi da 10 a 30 minuti in base all'età, punteggio, nome squadra il tutto in campo verde per il cromakey come da immagine sulla destra .
Adesso sono davanti a un problema per me insormontabile il regolamento della pallamano prevede le espulsioni temporanee di 2 minuti dovrei aggiungere come si vede nell'immagine piccola la possibilità di due espulsioni per parte,
come funziona l'arbitro ferma il tempo da espulsione di 2 minuti a questo punto dovrebbe comparire il rettangolo rosso con 02:00 e in contemporanea con il tempo principale iniziare il conto alla rovescia fino a 0 quando può rientrare un giocatore anche diverso per ogni squadra due massimo totale 4 un multi timer che è fuori dalla mia portata Grazie in anticipo Mario
Excel per mac 2019 |
|
| | Post: 5.776 | Registrato il: 14/11/2004
| Utente Master | Office 2019 | | OFFLINE |
|
| 19/11/2019 08:31 | |
Ciao Mario ecco il risultato, ho previsto 4 espulsioni per squadra, basta mettere il numero del giocatore sotto "Penalty", allo scadere del tempo il contatore scompare come pure il numero del giocatore.
Ciao By Sal ![[SM=x423051]](http://www.erismag.it/Servizio/ForumExcel/Smiles/Faccina_0031.gif)
se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui |
|
| 19/11/2019 11:27 | |
Ottimo by sal
Rimane un "problema" quando si preme "STOP" si devono fermare, quando si preme "START" ripartire... |
| | Post: 4 | Registrato il: 23/08/2016
| Città: MILANO | Età: 53 | Utente Junior | 2019 excel mac | | OFFLINE | |
|
| 19/11/2019 12:04 | |
Grazie By Sal per la preziosa risposta fantastico lavoro ma ha ragione ABCDEF@excel in caso di espulsione allo stop del timer si deve fermare anche il timer rosso dell'esclusione precedente sono 2 minuti effettivi poi riscontro un problema che c'era già nella mia prima versione se uno clicca fuori dalla finestra di excel ad esempio su un'altra finestra di excel attiva dove faccio comparire solo lo scoreboard il timer si ferma e questo non deve succedere si deve fermare solo con il pulsante stop.
Grazie da parte mia e di tutti i ragazzini quando avranno finalmente uno scoreboard per loro. Mario |
|
| 19/11/2019 13:23 | |
Secondo me (anche se non capisco l'area G1:AA43 = quasi vuota)
In una determinata cella (TGenerale = la durata della partita) =TGenerale
Allo Start inizia "tutto", allo Stop ferma "tutti".
Pensavo di memorizzare "l'inizio" del TGenerale (squadra ospite, non ci frega nulla) e togliere "le molte pause"
In sostanza avvio "TGenerale", da cui dovrò avviare (altri Timer 1/2/3) e durante lo Stop ferma tutto. Ex "Forse" TGenerale-(tempo trascorso-tempo pausa) + eventuale penalità (2m)
Se non ci pensa by sal, vedrò cosa posso fare |
| | Post: 5 | Registrato il: 23/08/2016
| Città: MILANO | Età: 53 | Utente Junior | 2019 excel mac | | OFFLINE | |
|
| 19/11/2019 14:30 | |
Ciao ABCDEF@excel
l'area G1:AA43 vuota è solo per poi centrare lo scoreboard in un cromakey per questo lo sfondo è verde ma è tutto in divenire ho spostato lo scoreboard su un altro foglio facendo riferimento alle celle del primo ma il problema è che il timer si ferma se cambio foglio sto cercando di capire che modifiche apportate tu e By Sal cosa non facile per un neofita come me
penso che sia un ottimo scoreboard per chiunque
Grazie Mario |
| | Post: 5.777 | Registrato il: 14/11/2004
| Utente Master | Office 2019 | | OFFLINE |
|
| 19/11/2019 15:16 | |
Ciao ecco il file ho aggiornato le macro, funziona tutto con i 2 pulsanti.
non sapevo che dovevano essere dipendenti dal tempo principale.
Ciao By Sal
se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui |
| | Post: 6 | Registrato il: 23/08/2016
| Città: MILANO | Età: 53 | Utente Junior | 2019 excel mac | | OFFLINE | |
|
| 19/11/2019 16:21 | |
Grazie By Sal o simulato il funzionamento (fantastico) c'è un problema allego immagini e file dopo aver incrementato il punteggio e fatto uno stop timer mi dice errore di runtime 1004 , chiedevo se possibile fare sparire da sotto lo scorebord il timer espulsioni una volta terminato il countdown dei 2 minuti come nel controller
ho modificato la macro (pensandoci su) per avviare il conteggio da 2:00 minuti e non da 2:01 il tempo è fermo per regolamento il giocatore esche e si riprende
Grazie per il lavoro incredibile Mario |
| | Post: 7 | Registrato il: 23/08/2016
| Città: MILANO | Età: 53 | Utente Junior | 2019 excel mac | | OFFLINE | |
|
| 19/11/2019 17:21 | |
Ciao a tutti ho fatto delle modifiche aggiunto pulsante 1 tempo pulisce tutto pulsante intervallo copia le eventuali espulsioni resetta il timer a 10 minuti senza che le espulsioni continuino il countdown pulsante secondo tempo ripristino situazione fine 1 tempo per riavvio secondo spero di aver dato un piccolo contributo
Mario [Modificato da mariovisma 19/11/2019 17:23] |
| | Post: 5.778 | Registrato il: 14/11/2004
| Utente Master | Office 2019 | | OFFLINE |
|
| 19/11/2019 17:29 | |
Ciao Bene vedo che hai risolto meglio cosi.
e grazie per aver messo la soluzione finale.
Ciao By Sal se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui |
| | Post: 8 | Registrato il: 23/08/2016
| Città: MILANO | Età: 53 | Utente Junior | 2019 excel mac | | OFFLINE | |
|
| 19/11/2019 19:58 | |
Grazie a te By Sal e a ABCDEF@Excel per avermi supportato vorrei chiedere se possibile una volta finito il countdown nel controller farlo sparire anche nello scoreboard in modo che sia più pulito senza le celle rosse con gli 0
Grazie Mario |
|
| 20/11/2019 07:08 | |
Ciao by sal, complimenti
Mi sembra che la riga Application.OnTime EarliestTime... vada in errore quando il tempo sarà 0:00:00
Modificando l'ultima riga Sub time>>>If Cells(1, 1) <> 0 Then Application.OnTime interval, "timer" Else MsgBox "FINE": Exit Sub<<< non succede. Mà se si preme per errore lo Stop=errore
Domanda esiste la possibilità di sapere se il Timer è attivo?
Intendo dire se il timer è attivo=si, allora esegui Stop, attivo=no allora non eseguire stop. [Modificato da ABCDEF@Excel 20/11/2019 07:10] |
| | Post: 9 | Registrato il: 23/08/2016
| Città: MILANO | Età: 53 | Utente Junior | 2019 excel mac | | OFFLINE | |
|
| 20/11/2019 08:37 | |
Ciao a tutti 🤗effettivamente il doppio click su stop si genera errore ieri sera testandolo mi a fatto anche questa cosa se clicchi più volte so start con le espulsioni attive il cronometro accelera cercherò di ripetere l'errore per dirvi come l'ho generato.
Ciao ABCDEF@Excel ti chiedo una cortesia sto cercando di imparare e mi siete di grandissimo aiuto ma certe volte mi fermo davanti a quelle che per i più esperti come voi saranno banalità la modifica del codice dove la inserisco esattamente mi dice sempre errore di compilazione Grazie Mario |
| | Post: 5.779 | Registrato il: 14/11/2004
| Utente Master | Office 2019 | | OFFLINE |
|
| 20/11/2019 10:00 | |
Ciao ABC.. per vedere se lo stop può essere attivato basta una variabile Pubblica Booleana Vero-Falso inserita nella macro timer a questo punto se il conteggio è attivo funzionerà lo Stop altrimenti no.
per Mario indica in quale punto ti dice errore di compilazione e vediamo perche.
Public interval As Date
Public Tempo As Boolean 'nuova variabile
Sub timer()
Dim x, r
interval = Now + TimeValue("00:00:01")
If Range("A1").Value = 0 Then stop_timer
Application.EnableEvents = False
Range("A1") = Range("A1") - TimeValue("00:00:01")
For x = 5 To 8
If Cells(x, 2) <> "" Then
Cells(x, 3) = Cells(x, 3) - TimeValue("00:00:01")
If Cells(x, 3) <= 0 Then Cells(x, 2) = "": Cells(x, 3) = ""
End If
If Cells(x, 9) <> "" Then
Cells(x, 8) = Cells(x, 8) - TimeValue("00:00:01")
If Cells(x, 8) <= 0 Then Cells(x, 8) = "": Cells(x, 9) = ""
End If
Next x
Application.EnableEvents = True
Tempo = True '-------------------------inserita
DoEvents
Application.OnTime interval, "timer"
End Sub
Sub stop_timer()
If Tempo = False Then Exit Sub '----------------inserita
Tempo = False '---------------------------------Inserita
Application.OnTime EarliestTime:=interval, Procedure:="timer", Schedule:=False
End Sub queste le modifiche, ma "Tempo" può essere un nome qualsiasi
Ciao By Sal
[Modificato da by sal 20/11/2019 10:26] se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui |
| | Post: 10 | Registrato il: 23/08/2016
| Città: MILANO | Età: 53 | Utente Junior | 2019 excel mac | | OFFLINE | |
|
| 20/11/2019 11:56 | |
Cia By Sal o messo il tuo codice nel timer lo stop timer funziona correttamente non da errore se inavvertitamente lo si clicca 2 volte
ce un altro problema se inavvertitamente si clicca start più di una volta il timer accelera allego la mia ultima versione usando il cromakey sono riuscito a far sparire il conteggio espulsioni con la formattazione condizionale grossolana magari ma funziona spero sia di aiuto a tutte le piccole società sportive
Grazie Mario |
| | Post: 5.780 | Registrato il: 14/11/2004
| Utente Master | Office 2019 | | OFFLINE |
|
| 20/11/2019 12:18 | |
Ciao Tagliamo la testa al toro inserisci queste 2 macro e collega i due pulsanti ad esse, start ad Avvia e stop a Ferma
Sub Avvia()
ActiveSheet.Shapes.Range(Array("Rounded Rectangle 1")).Visible = False
ActiveSheet.Shapes.Range(Array("Rounded Rectangle 2")).Visible = True
timer
End Sub
Sub Ferma()
stop_timer
ActiveSheet.Shapes.Range(Array("Rounded Rectangle 1")).Visible = True
ActiveSheet.Shapes.Range(Array("Rounded Rectangle 2")).Visible = False
End Sub In questo modo saranno visibili 1 solo pulsante alla volta.
potresti anche sovrapporre i 2 pulsanti cosi avrai l'impressione che sia 1 solo pulsante che cambia aspetto.
Ciao By sal
[Modificato da by sal 20/11/2019 12:28] se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui |
|
| 20/11/2019 13:36 | |
Ottimo By sal, infatti se premeva nuovamente Start ci sono due macro attive e aumenta la velocita dei secondi
1 Domanda, viene espulso un giocatore. Alla fine del 1° Tempo, dovrebbe fare ancora 1:05 di penalità
All'inizio 2° tempo, la penalità viene azzerata? Oppure deve ancora scontarla...
2 Domanda, cosa servono "tutte quelle cose" sotto la riga 12?
Puoi spiegare meglio la facenda, a fine partita interessa sapere quali sono stati espulsi? [Modificato da ABCDEF@Excel 20/11/2019 13:44] |
| | Post: 11 | Registrato il: 23/08/2016
| Città: MILANO | Età: 53 | Utente Junior | 2019 excel mac | | OFFLINE | |
|
| 20/11/2019 15:21 | |
Grazie By Sal veramente notevole🤗🤗 allego l'ultima versione che corregge un'errore su una mia macro , rispondo e saluto ABC........ ottima osservazione è proprio cosi con il tasto intervallo copio le espulsioni sotto la riga 12 in basso setto il timer a 10 minuti copio le espulsioni perchè avrebbero continuato il contdown anche durante l'intervallo poi dopo con il tasto secondo tempo riporto le espulsioni nel controller per riavviare da dove si era rimasti il pulsante 30 setta i minuti a 30 manca il 20 e il 10 per i piccolissimi la cella N21 setta il primo o secondo tempo ci farò una macro .
Per l'ultima domanda a fine partita non contano gli espulsi mi spiego meglio un giocatore alla terza esclusione per due minuti prenderà cartellino rosso quindi espulso definitivamente sanzionato di solito con una giornata di squalifica nella pallamano esiste anche cartellino blu espulsione definitiva diritta,
torno allo scoreboard penso che con il vostro aiuto 🤗🤗 abbiamo fatto un lavoro che permetterà con poche modifiche estetiche a vari sport di essere utilizzato
Grazie Mario |
| | Post: 12 | Registrato il: 23/08/2016
| Città: MILANO | Età: 53 | Utente Junior | 2019 excel mac | | OFFLINE | |
|
| 20/11/2019 15:28 | |
Vi allego un errore ( non riesco a ripeterlo regolarmente) partito messo due espulsioni per parte dato lo stop
Mario |
| | Post: 13 | Registrato il: 23/08/2016
| Città: MILANO | Età: 53 | Utente Junior | 2019 excel mac | | OFFLINE | |
|
| 20/11/2019 16:38 | |
Errore quando il timer arriva a 00:00 probabilmente corretto da ABCD...... scusa ma non riesco a capire dove mettere l'eventuale codice
Mario |
|
| 20/11/2019 19:30 | |
Stò cercando di mettere a posto diverse magagne (dammi tempo)
Comunque la riga va messa al posto di Application.OnTime interval, "timer"
DoEvents
If Cells(1, 1) <> 0 Then Application.OnTime interval, "timer" Else MsgBox "Timer fermo": Exit Sub
End Sub [Modificato da ABCDEF@Excel 20/11/2019 20:17] |
| | Post: 14 | Registrato il: 23/08/2016
| Città: MILANO | Età: 53 | Utente Junior | 2019 excel mac | | OFFLINE | |
|
| 20/11/2019 20:19 | |
No problem😊👍 |
| | Post: 2.199 | Registrato il: 21/03/2008
| Città: LOCATE VARESINO | Età: 76 | Utente Veteran | 2007 / 13 | | OFFLINE | |
|
| 20/11/2019 23:44 | |
ciao ragazzi
una sola considerazione per utilizzo di VBA
e' noto che e' meglio non utilizzare parole inerenti a funzioni o comandi di excel e VBA
si sta utilizzando la Sub timer() ma in VBA Timer e una Funzione
Timer function
Returns a Single representing the number of seconds elapsed since midnight.
Example
This example uses the Timer function to pause the application. The example also uses DoEvents to yield to other processes during the pause.
Dim PauseTime, Start, Finish, TotalTime
If (MsgBox("Press Yes to pause for 5 seconds", 4)) = vbYes Then
PauseTime = 5 ' Set duration.
Start = Timer ' Set start time.
Do While Timer < Start + PauseTime
DoEvents ' Yield to other processes.
Loop
Finish = Timer ' Set end time.
TotalTime = Finish - Start ' Calculate total time.
MsgBox "Paused for " & TotalTime & " seconds"
Else
End
End If
detto questo continuo a seguirvi nell'impresa
Ciao da locate
excel 2007 / 13 |
| | Post: 15 | Registrato il: 23/08/2016
| Città: MILANO | Età: 53 | Utente Junior | 2019 excel mac | | OFFLINE | |
|
| 21/11/2019 11:26 | |
Un saluto a tutti a locatevaresino 👋benvenuto a bordo dal nome posso pensare che essendo vicino a Cassano Magnago conosci la pallamano ogni contributo è il benvenuto metto l'ultima versione messo macro setta 1° e2° tempo macro setta 30 --25---20 minuti
Ciao Mario |
|
| 21/11/2019 13:47 | |
Domanda, esistono pure i tempi suplementari???
Questo è solo una bozza di quello che penso...
Appena si scriveva in B5:B8 e J5:J8 il Worksheet_Change interviene nuovamente. Corretto
Tasto Reset inattivo...
1) Ogni volta che si chiude il files e si riapre avviene un Reset. NB1
2) Si preme il Tasto Tempo, immetti per Ex 2 e poi (1 NB2)
3) 1° tempo e premi quello che desideri, allo scadere...
4) Pausa e devi premere il tasto pausa
5) 2° tempo e premi quello che desideri, allo scadere =Fine (forse pure i suplementari?)
6) Tasto Tempo attivo
NB1: Inserendo in C1 una R maiuscola il tasto Reset funziona (gli mancano altre funzioni)
NB2: Durante una pausa gioco, si può andare in A1 e modificare l'orario
NB3: Suggerisco di mettere sempre l'intervallo con un minuto inferiore
Ps I bottoni in R1:W10 sono inutili (pure il disegno), perchè appesantisce il tutto dato che il codice interviene ogni secondo.
Pss. Bloccato i vari tasti nelle celle, pertanto giocando con righe-colonne (diminuisci-aumenta) puoi visualizzare tutte le celle nere
Psss. Tolto codice inutile e foglio2 (se per errore premevi sul foglio il Timer si ferma). Rimangono alcune sub che mi servivano alla fine le toglierò |
| | Post: 16 | Registrato il: 23/08/2016
| Città: MILANO | Età: 53 | Utente Junior | 2019 excel mac | | OFFLINE | |
|
| 21/11/2019 14:56 | |
Ciao ABCDE......... intanto grazie bello il settaggio del tempo iniziale
quando faccio partire il cronometro e metto esempio un espulso per squadra quindi uno a sinistra e uno a destra compaiono a sinistra tutti e due durante la pausa che non riesco a settare mi da errore e dovrebbe comparire nel cronometro il conteggio esclusi non deve continuare per poi riprendere da dove era nel secondo tempo.
I supplementari praticamente non esistono solo in finale dei grandi tornei champion ad esempio il disegno è quello che vede il pubblico e le squadre
immagini precedenti
Ciao Mario |
| | Post: 17 | Registrato il: 23/08/2016
| Città: MILANO | Età: 53 | Utente Junior | 2019 excel mac | | OFFLINE | |
|
| 21/11/2019 15:50 | |
Ciao in questa immagine lo scoreboard é il nostro fatto con OSB in cromakey il video sotto é Champions League |
|
| 21/11/2019 17:45 | |
Ho capito cosè il cromakey (la parte destra che visualizzi su grande schermo). OK lascia le colonne Q:Z e togli i bottoni
Problema: Ex Se scrivi in B5 e subito dopo premi start=Errore
Di norma quando si scrive nelle celle "Il Timer dovrebbe essere fermo (si vedrà il bottone verde sotto)" Se noti bene la penalità non appare subito, appare solo dopo che hai premuto la spunta sulla barra delle formule oppure cambiato casella. Per questo ho aggiunto >>>: Target.Offset(1, 0).Activate che significa vai alla cella sotto. Pertanto quando hai digitato il secondo numero eri in B6.
In caso di due espulsioni, questa codice va direttamente sulla parte avversa, mà ci deve essere una riga con ambedue vuoti. Oppure digiti B5 selezioni "spunta o cella a caso" e poi selezioni J5 digiti numero "spunta o cella a caso" e allora possiamo togliere questa parte di codice.
Ps. Non ho capito cosa vuoi "settare" durante la pausa (potrei avviala da codice, ho lasciato solo il compito di premere pausa).
Private Sub Worksheet_Change(ByVal Target As Range)
.
.
Application.EnableEvents = False
If r = 5 And c = 2 Then Cells(5, 3) = TimeValue("00:02:00"): Target.Offset(0, 8).Activate
If r = 6 And c = 2 Then Cells(6, 3) = TimeValue("00:02:00"): Target.Offset(0, 8).Activate
If r = 7 And c = 2 Then Cells(7, 3) = TimeValue("00:02:00"): Target.Offset(0, 8).Activate
If r = 8 And c = 2 Then Cells(8, 3) = TimeValue("00:02:00"): Target.Offset(0, 8).Activate
If r = 5 And c = 10 Then Cells(5, 9) = TimeValue("00:02:00"): Target.Offset(0, -8).Activate
If r = 6 And c = 10 Then Cells(6, 9) = TimeValue("00:02:00"): Target.Offset(0, -8).Activate
If r = 7 And c = 10 Then Cells(7, 9) = TimeValue("00:02:00"): Target.Offset(0, -8).Activate
If r = 8 And c = 10 Then Cells(8, 9) = TimeValue("00:02:00"): Target.Offset(0, -8).Activate
Application.EnableEvents = True
.
.
End if[Modificato da ABCDEF@Excel 21/11/2019 17:55] |
| | Post: 18 | Registrato il: 23/08/2016
| Città: MILANO | Età: 53 | Utente Junior | 2019 excel mac | | OFFLINE | |
|
| 21/11/2019 18:06 | |
Ciao a tutti👋
giustamente qualche amico mi fa notare che dovrei specificare meglio alcuni aspetti del regolamento brevemente.
Partiamo dal tabellone 35 anni di servizio tempo e reti +sirena non sempre funzionante.
Come usare il tabellone e quindi il nuovo scoreboard.
Due sono i tronconi della pallamano o handball giovanili e senior
Tutti volontari perlopiù genitori ecc ecc
Under 9-11 solo tempo 10 minuti i gol non contano molte volte per regolamento dei tornei (non c'è un campionato) non si fanno classifiche tutti giocano e si divertono media 4 partite al giorno.
Under 13 -15 tempo e gol (campionato) i 2 minuti (molto rari) li tiene di solito l'arbitro il quale tiene anche il tempo"ufficiale" quindi magari ti dice sei avanti di 10 o altro ... se ti conosce magari da anni lascia al tavolo sia il tempo che le esclusioni controlla che le reti corrispondano.
Under 17-19 come sopra ma di solito se vuole un dirigente ospite siede al tavolo per controllare che sia tutto ok , in caso di contestazione esempio rientrato prima dello scadere dei 2 minuti tutte le decisioni passano all'arbitro il nuovo scoreboard risolverebbe la quastione.
Senior A1 -A2- B presenza di un cronometrista FICR ( lo conosco da anni e per lui il nuovo scoreboard e fantastico) tutte le questioni di tempo sono di sua esclusiva competenza se dice che il tempo e finito è finito se dice che sei rientrato prima dello scadere dei due minuti sei escluso di nuovo ecc.ecc.
Solo alcuni aspetti che magari aiutano
esempio ultimo secondo rigore il tempo finisce il rigore si tira ugualmente quindi mettiamo sia la fine del primo tempo il timer è fermo ma il punteggio cambia quindi l'intervallo lo deve far partire il cronometrista.
Esclusioni sono anni che non vedo 3 esclusioni per una squadra in champion ne mettono 2 ma potrebbe succedere e By Sal ne ha prevista 4.
Supplementari praticamente non esistono solo in Champion casomai si setta il tempo a 10 minuti.
Grazie scusate la lunghezza sono a disposizione
|
| | Post: 19 | Registrato il: 23/08/2016
| Città: MILANO | Età: 53 | Utente Junior | 2019 excel mac | | OFFLINE | |
|
| 21/11/2019 18:11 | |
Grazie ABCD....... stavo scrivendo e non ho visto le tue ultime modifiche le provo.
Mario👋 |
|
|
|
|