AIUTO ! -----( RISOLTO by pfca )----

[Atlantis57]

Ciao kjo,
controlla la formula nella barra ,hai un spazio davanti a =
eventualmente riscrivila a mano

 

[Atlantis57]

Volevo precisare che la formula è adatta solo al valore 13.

 

[Roby]

quote:Originally posted by Atlantis57

Ciao kjo,
controlla la formula nella barra ,hai un spazio davanti a =
eventualmente riscrivila a mano

ciao

No non c'è nessuno spazio davanti alla formula :

=RESTO(SOMMA(A1:E1);13)+78)

Ma il suggeritore di excel mi ha fatto notare che l'ultima parentesi
è un errore, quindi lo tolta e adesso funziona.

Ma ho notato che così comè la formula ha 2 parentesi a sinistra e 3 a destra.
Quindi o l'ultima di destra è di troppo, oppure manca una parentesi a sinistra.

Per quanto riguarda il file su megaupload, ti ringrazio, ma non posso scaricarlo perchè sono su un pc non mio, con un account ospite limitatissimo.(una storia intricata a spiegarsi).

Comunque se devo ogni volta fare delle modifiche, a questo punto faccio prima con la calcolatrice.


Io volevo una cosa tipo questa :

celle A1:E1.....................cella-G1...................cella-L1.

Somma estratti........numero da sottrarre........risultato.

celle A2:E2.....................cella-G2...................cella-L2.

Somma estratti........numero da sottrarre........risultato.

e così via per avere a colpo d'occhio tutti i risultati derivanti dalle varie somme con lo stesso numero da sottrarre.


Salute !



Frank

 

[Roby]

X Francesco (pfca)

Ti ho risposto, ma ormai i post si susseguono e la risposta sarà finita in alto

grazie a te e a tutti quelli che mi stanno aiutando

Salute !


Frank

 

[pfca]

Buongiorno kjo,
ho trovato la soluzione adatta a risolvere il tuo problema,
è sicuramente una via di uscita, ma il risultato è alla fine
quello che serve. Ti allego immagine con spiegazioni:

Attento ai riferimenti quando li cambi, ti allego le formule
così potrai fare il copia ed incolla:
Cella G1
=CERCA.VERT(1;$J$2:$K$298;2;0)
Cella K1
=SOMMA(A1:E1)
Cella J2
=SE(K2<90;SE(K1>=90;1;0);0)
Cella K2 (la quarta erroneamente J2)
=SE(K1-$H$1<0;0;K1-$H$1)
Ricorda in quest'ultima formula il riferimento assoluto a $H$1,
importante. Copia le formule J2 e K2 almeno per 300 righe, perchè
se il numero Fuori X è basso deve fare molti calcoli.
Ciao e buona giornata, fai sapere.


C'è vero progresso solo quando i vantaggi di una nuova tecnologia diventano per tutti.
Francesco

 

[pfca]

Ciao kjo,
ho visto che tu vorresti che il calcolo si effettuasse su più estrazioni,
per fare il calcolo che desiseri, bisogna per forza utilizzare macro.
L'esempio che ti ho postato, va bene per una, forse lo puoi anche fare
per diverse, replicando le formule e variando i riferimenti, però non
sarà possibile applicarlo per tutte le estrazioni.
Ciao

C'è vero progresso solo quando i vantaggi di una nuova tecnologia diventano per tutti.
Francesco

 

[Roby]

quote:Originally posted by pfca

Ciao kjo,
ho visto che tu vorresti che il calcolo si effettuasse su più estrazioni,
per fare il calcolo che desiseri, bisogna per forza utilizzare macro.
L'esempio che ti ho postato, va bene per una, forse lo puoi anche fare
per diverse, replicando le formule e variando i riferimenti, però non
sarà possibile applicarlo per tutte le estrazioni.
Ciao

C'è vero progresso solo quando i vantaggi di una nuova tecnologia diventano per tutti.
Francesco

Ciao Francesco, che dire, Grazie.
Veloce,chiaro,esaustivo ed efficace.

Esatto, io vorrei inserire nelle celle da (A) a (E), in verticale, tutte le estrazioni che mi interessano e avere nella
colonna (G) i risultati del calcolo.
Adesso mi è venuto un pensiero,(ma non so se sia fattibile) :
Domanda : Se la formula che va in K1 (modificandola come non lo so), la inserissi in K1,L1,M1, e cosi via per 300 celle.
E la stessa cosa facessi con la formula che va in J2,(sempre modificandola ma non so come) e ricopiarla in k2,L2,M2 e cosi
via per 300 celle.
In questo modo potrei inserire nelle colonne da (A) a (E), le estrazioni, ed avere per ogni riga i risultati nella colonna
(G), inserendo nella colonna (H) il numero da sottrarre.
Ma il fatto del riferimento assoluto per la cella (H1) che mi fa pensare che la cosa sia ostica e macchinosa.
Questa è solo una mia idea, forse strampalata.
l'utilità del tutto serve per velocizzare tutto il procedimento, e a questo punto l'opzione macro mi sembra la migliore se non l'unica.
Ho fatto il "cattivello" con questo pc e mi sono creato un account amministratore invisibile che non si vede da nessuna parte
(solo nel registro). Come si dice "il fine giustifica i mezzi".
Mi creo un pulsante "ESEGUI" dove inserire il codice e se me lo posti, lo inserisco.
Al limite poi rimetto le protezioni di excell come prima e non creo distrurbi a nessuno.
Ho scaricato spaziometria (bel programma), e se la cosa si può fare con uno script sarebbe fantastico, ed oltretutto ci sono
tutte le estrazioni già belle e pronte per fare tutte le verifiche.

Se voi prendere in considerazione quest'ultima opzione, ti do i dettagli precisi, fammi sapere.

Scusa per tutto il fastidio e le perdite di tempo, all'inizio pensavo di risolvere in altro modo, ma grazie a te ho capito
che non era semplice come pensavo.


grazie




Frank

 

[pfca]

Ciao kjo,
se hai spaziometria sicuramente uno script velocizerebbe il tutto.
Io incomincio a vedere se riesco a preparare la base, poi se riesco,
ti posto la stessa e da lì vediamo come procedere. Comunque se vuoi,
puoi iniziare a mettere i dettagli che dici e poi si vede, sicuramente
con gli script troverai anche tantissimi aiuti da parte del forum e
molto probabilmente anche più preparati di me.


C'è vero progresso solo quando i vantaggi di una nuova tecnologia diventano per tutti.
Francesco

 

[Atlantis57]

[V][V]

 

[pfca]

Ciao kjo,
se mi confermi le posizioni delle estrazioni, ti posto la macro Excel
da utilizzare. Supposto che il numero FuoriX sia uguale per tutte le
estrazioni, e sia posizionato in una ben precisa cella (Es.I1).
Ti allego immagine esempio per capire se le posizioni vanno bene.

L'archivio è predisposto da Cella A1 a cella E.. puoi decidere
quante estrazioni vuoi, oppure la macro conta le righe ed elabora
tutte le righe. Fammi sapere così con questa macro velocizziamo le
tue necessità. Attendo tue indicazioni prima di postarti la macro.
Francesco


C'è vero progresso solo quando i vantaggi di una nuova tecnologia diventano per tutti.
Francesco

 

[Roby]

quote:Originally posted by Atlantis57

[V][V]

Dai non fare così, se non mi fai mettere a piangere !

Ho apprezzato il tuo aiuto come quello degli altri, cerco solo la soluzione migliore.[B)]

ciao [:X][:X][:X]




Frank

 

[Roby]

quote:Originally posted by pfca

Ciao kjo,
se mi confermi le posizioni delle estrazioni, ti posto la macro Excel
da utilizzare. Supposto che il numero FuoriX sia uguale per tutte le
estrazioni, e sia posizionato in una ben precisa cella (Es.I1).
Ti allego immagine esempio per capire se le posizioni vanno bene.

L'archivio è predisposto da Cella A1 a cella E.. puoi decidere
quante estrazioni vuoi, oppure la macro conta le righe ed elabora
tutte le righe. Fammi sapere così con questa macro velocizziamo le
tue necessità. Attendo tue indicazioni prima di postarti la macro.
Francesco


C'è vero progresso solo quando i vantaggi di una nuova tecnologia diventano per tutti.
Francesco

Ciao francesco

Perfetto cosi come lo hai impostato.
Se la macro conta le righe e le elabora e preferibile.

Attendo la macro[]

Grazie




Frank

 

[Roby]

quote:Originally posted by pfca

Ciao kjo,
se hai spaziometria sicuramente uno script velocizerebbe il tutto.
Io incomincio a vedere se riesco a preparare la base, poi se riesco,
ti posto la stessa e da lì vediamo come procedere. Comunque se vuoi,
puoi iniziare a mettere i dettagli che dici e poi si vede, sicuramente
con gli script troverai anche tantissimi aiuti da parte del forum e
molto probabilmente anche più preparati di me.


C'è vero progresso solo quando i vantaggi di una nuova tecnologia diventano per tutti.
Francesco

Ciao Francesco

è si, lo script sarebbe un bel regalo, molto utile anche per tutti gli altri che volessero utilizzarlo o modificarlo a loro piacimento.

Allora i dettagli :

Lo script base dovrebbe essere impostato così :

1)-Un inputbox per decidere la ruota da analizzare.

2)-Un inputbox per decidere l'estrazione da utilizzare (prima-ultima-qualsiasi, o la 2°, la 5°, etc...).

3)-Un inputbox per decidere quanti estratti dei cinque utilizzare (tutti e cinque o solo alcuni, a scelta)

4)-Un inputbox per decidere il numero da sottrarre.

5)-Un inputbox per decidere su quante ruote porre in gioco la previsione ( 1,o 2).

6)-Un inputbox per decidere la ruota o le ruote in gioco).

7)-Un inputbox per decidere il numero dei colpi (selezionabile a piacere)

8)-Un inputbox per decidere il range di estrazioni della ricerca

9)-Un inputbox per decidere (opzionale si/no)se al risultato finale, sommare un numero a piacere(fuori 90).

10)-Un inputbox per decidere l'eventuale numero da sommare.

Il risultato finale è l'ambata o le ambate.

Credo che così impostato sia un valido mezzo di indagine, per ricercare le soluzioni più efficaci.

Adesso la tecnica così comè nata in origine :

Si sommano i 5 estratti di Bari, si sottrae il numero impostato, il risultato finale è l'ambata principale,
L'ambata secondaria è il diametrale in decina dell'ambata principale.
Il tutto in gioco a bari e cagliari per 8 colpi.

Ma questa è solo la base originaria, e vorrei fare uno studio approfondito per individuare le ruote più proficue, anche modificando la seconda ambata, il tutto per approfondire gli accoppiamenti per ambo più redditizi. Con gli inputbox iniziali si puo decidere liberamente come e che cosa analizzare.

Spero di essere stato chiaro

Lo so che ci sono altri che fanno script, e ho visto che il nonplusultra degli script è LuigiB,senza togliere nulla ai bravissimi del forum, ma sarebbe chiedere troppo.


Salute !



Frank

 

[claudio8]

X Kjo
Hai chiesto ti tutto,
io ci aggiungerei alla lista di input box se Pfca è daccordo anche queste due:

11)- Ti andrebbe un caffè ?
12)- Quanti cucchiaini di zucchero ?

Scherzo, non prendetevela

Una piccola previsione Ba VE ambata 32 o 37 con 1-61-4-64 ad ambo e TO-VE ambata 41 ambata

ciao,

Lo spot che conosciamo dice "Ti Piace vincere facile ? " .. io rispondo SI !!!"

 

[claudio8]

X chi ne puo fare uso ... l'ho copiato e modificato da joe91
x Kjo .... prova se funziona come script


Sub Main()
N = CInt(InputBox("Inserisci il numero","SOMMA",101))
R = CInt(InputBox("Inserisci il numero","RESTO",11))
'R=10
F = N
While F > 91
F = F - R
Wend
Scrivi "SOMMA " & N & " con resto = " & R & " = " & F
Scrivi
Scrivi
TestoInBandaPassante " Per il caffè... siamo spiacenti .... in questo periodo date le ristrettezze economiche generali... siamo senza zucchero... scusateci per il disguido ",1,3,0
End Sub

A buon rendere, ciao

Lo spot che conosciamo dice "Ti Piace vincere facile ? " .. io rispondo SI !!!"

 

[claudio8]

quote:Originally posted by claudio8

Una piccola previsione Ba VE ambata 32 o 37 con 1-61-4-64 ad ambo e TO-VE ambata 41 ambata
ciao,

Caffe con zucchero.... grazie

Lo spot che conosciamo dice "Ti Piace vincere facile ? " .. io rispondo SI !!!"

 

[pfca]

Ciao kjo,
ti posto la macro da utilizzare come Modulo da assegnare al tasto Calcola.
Ricordo che la ricerca avviene su foglio impostato come figura, a cui
puoi inserire un tot di estrazioni da analizzare:

Sub Calcola()
UR = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
Range("H1:H" & UR).Clear
PF = Cells(1, 9).Value
For N = 1 To UR
Sm = Cells(N, 1) + Cells(N, 2) + Cells(N, 3) + Cells(N, 4) + Cells(N, 5)
a = Int(Sm / PF)
Ris = 0
T = Sm - PF
For F = 1 To a
Ris = T - PF * F
If Ris < 90 Then
Cells(N, 8) = Ris
Exit For
End If
Next
Next
End Sub

Per Claudio:
se puoi aiutarmi a fare lo script ti sarei grato, io ci proverò.
Sicuramente dopo che hai preso il caffè, penso tu abbia capacità superiori alle mie per fare un buon lavoro.

Per kjo:
dammi qualche giorno e ti farò sapere se sono riuscito.

C'è vero progresso solo quando i vantaggi di una nuova tecnologia diventano per tutti.
Francesco

 

[Roby]

quote:Originally posted by claudio8

X Kjo
Hai chiesto ti tutto, MEGLIO ABBONDARE ! POI PUò ESSERE UTILE PER TUTTI[]
io ci aggiungerei alla lista di input box se Pfca è daccordo anche queste due:

11)- Ti andrebbe un caffè ? MAGARI ! IL MASSIMO CHE OTTENGO QUI DOVE STO E' UN BRODINO[}]
12)- Quanti cucchiaini di zucchero ?PER ME MORTALE, MA CERTE VOLTE LO FAREI FUORI A CUCCHIAIATE, COSI MUOIO CON IL SAPORE DOLCE IN BOCCA

Scherzo, non prendetevela MA TI PARE ! mattacchione!!! sei uno spasso !

Una piccola previsione Ba VE ambata 32 o 37 con 1-61-4-64 ad ambo e TO-VE ambata 41 ambata ANCORA ! UN ALTRA VOLTA ! MA HAI FATTO CASO IN QUESTE ULTIME ESTRAZIONI FRA BARI E VENEZIA CI SONO ESTRATTI E AMBI CHE ESCONO TALI E QUALI !!!

ciao,

Lo spot che conosciamo dice "Ti Piace vincere facile ? " .. io rispondo SI !!!"

Grazie per lo script con banda passante !


Salute !


Frank

 

[claudio8]

x Pfca ...
non scaricarmi la patata bollente
a volte mi diverto a fare gli script, ed a volte non ne ho voglia..
vedrò cosa posso fare.

X Kjo ho notato, se mi avessi avvisato prima....il 41 55 sarebbe andato a segno.
Hai provato lo script? funziona come vorresti ?
ti ho inserto un ciclo con tutti i valori RESTO da 1 a 90

Sub Main()
N = CInt(InputBox("Inserisci il numero","SOMMA",351))
R = CInt(InputBox("Inserisci il numero","RESTO",2))
For R = 1 To 90
F = N
While F > 90
F = F - R
Wend
Scrivi "SOMMA " & N & " con resto = " & R & " = " & F
Next
Scrivi
Scrivi
TestoInBandaPassante " Per il caffè... siamo spiacenti .... in questo periodo date le ristrettezze economiche generali... siamo senza zucchero... scusateci per il disguido ",1,3,0
End Sub
Lo spot che conosciamo dice "Ti Piace vincere facile ? " .. io rispondo SI !!!"

 

[Roby]

quote:Originally posted by pfca

Ciao kjo,
ti posto la macro da utilizzare come Modulo da assegnare al tasto Calcola.
Ricordo che la ricerca avviene su foglio impostato come figura, a cui
puoi inserire un tot di estrazioni da analizzare:

Sub Calcola()
UR = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
Range("H1:H" & UR).Clear
PF = Cells(1, 9).Value
For N = 1 To UR
Sm = Cells(N, 1) + Cells(N, 2) + Cells(N, 3) + Cells(N, 4) + Cells(N, 5)
a = Int(Sm / PF)
Ris = 0
T = Sm - PF
For F = 1 To a
Ris = T - PF * F
If Ris < 90 Then
Cells(N, 8) = Ris
Exit For
End If
Next
Next
End Sub

Per Claudio:
se puoi aiutarmi a fare lo script ti sarei grato, io ci proverò.
Sicuramente dopo che hai preso il caffè, penso tu abbia capacità superiori alle mie per fare un buon lavoro.

Per kjo:
dammi qualche giorno e ti farò sapere se sono riuscito.

C'è vero progresso solo quando i vantaggi di una nuova tecnologia diventano per tutti.
Francesco

Ciao Francesco

innanzi tutto grazie

Non lo so perchè, ma non mi funziona.

Ti spiego quello che ho fatto :

Ho creato il foglio come in figura, ci ho messo una dozzina di estrazioni nelle colonne (A1:E1).
In ( I1), ho messo il valore (9), come in figura.

Ho creato un pulsante, ci ho fatto doppio click, si è aperta la finestra per inserire il codice, ho cancellato tutto per
lasciare la finestra bianca, poi ci ho incollato il codice della macro, chiuso tutto e salvato.
Ho fatto una prova ma non mi funziona, temo che sbaglio qualcosa.

Non ti preoccupare per il tempo, non ci corre appresso nessuno.

Poi se Don Claudio ci mette anche lui le mani, esce fuori uno scriptone in giacca e cravatta

ciao





Frank