Condividi:        

Operazione numeriche in celle

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

Operazione numeriche in celle

Postdi ikwae » 04/06/20 20:46

Ciao a tutti … sono qui a chiedere il vostro prezioso aiuto. Espongo il problema ho una serie di ripetizioni e per capire
Indico il primo terno che recita:
la cinquina 7, del gruppo 0, della ruota di CA ha realizzato un terno sul concorso 13 sulla stessa ruota di Cagliari e, lo
stesso terno, è stato sortito dopo 10 estrazioni e ancora dopo 11 estrazioni.

Ma se lo volessi giocare dopo 12 (10 11 12) estrazioni lo posso fare?

CA_Gr0_C-07 - 013 terno Cagliari
10
11

E questo se lo volessi giocare dopo 12 estrazioni (12 12 12) in quale estrazione devo puntare?
VE_Gr0_C-04 - 151 terno Roma
12
12

Oppure questo dopo 5 estrazioni (3 4 5) come sopra a quale estrazione devo puntare?
PA_Gr1_C-06 - 149 terno Torino
3
4

Per sapere se si possono ancora giocare oppure sono “scaduti” si devono fare le somme dei concorsi e per il terno di
Cagliari e abbastanza semplice basta fare la somma algebrica dei concorsi mentre per i rimanenti due terni è un po'
più complesso perché i concorsi sono a “cavallo” di due anni il 2019 e il 2020.

L’aiuto che cerco è una macro che percorre la colonna, legge i vari concorsi e, dopo aver fatto i conteggi,
scrivere in colonna a fianco, il concorso raggiunto.

A chi è interessato ad aiutarmi in allegato un file con tre fogli:
1) di nome “Originale” con tutti gli ambi ho preferito gli ambi che sono di più per avere una maggiore
scelta ma la stessa macro si può poi applicare ai terni e quaterne.
2) di nome “Info” con le semplici spiegazioni passo-passo sembrano complesse ma una volta capito il meccanismo (sperando che lo abbia spiegato bene) risultano semplicissime.
3) di nome “Fine” che è quello che mi auguro che la macro possa fare.

Ringraziando anticipatamente tutti coloro che mi possono aiutare 73 ikwae
http://www.filedropper.com/asommaconcorsipervincite
Excel 2007
Avatar utente
ikwae
Utente Senior
 
Post: 309
Iscritto il: 27/12/17 23:14

Sponsor
 

Re: Operazione numeriche in celle

Postdi Anthony47 » 05/06/20 14:22

Siamo partiti come al solito, cioe' non ho capito un'acca...
In MAIUSCOLO intercalato col tuo messaggio le domande che mi sono fatto:
Ciao a tutti … sono qui a chiedere il vostro prezioso aiuto. Espongo il problema ho una serie di ripetizioni e per capire
Indico il primo terno (QUALE E' IL PRIMO TERNO?) che recita:
la cinquina 7 (DOVE TROVO LA CINQUINA 7?), del gruppo 0 (COS'E' IL GRUPPO 0?), della ruota di CA ha realizzato un terno (OGNI ESTRAZIONE DA 5 NUMERI IMPLICA LA COSTRUZIONE DI 10 TERNI, SE HO FATTO BENE LE PERMUTAZIONI; COMME E' CHE STAVOLTA CE N'E' UNO SOLO?) sul concorso 13 (DA DOVE LO POSSO VEDERE) sulla stessa ruota di Cagliari e, lo
stesso terno, è stato sortito dopo 10 estrazioni (DOVE LO VEDO?) e ancora dopo 11 estrazioni (IDEM).

Ma se lo volessi giocare dopo 12 (10 11 12) estrazioni lo posso fare? (LA RISPOSTA E' SEMPRE "Sì": PIU' GIOCHI E TEORICAMENTE PIU' TI DIVERTI)


Quindi ripartendo dall'inizio
I dati di partenza sono quelli del foglio Originale; che cosa di questi dati va tenuto presente e che cosa bisogna cercare di ottenere?

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19220
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Operazione numeriche in celle

Postdi ikwae » 05/06/20 15:43

ciao grazie di avermi risposto gentile come sempre...
Prova a vedere se così è meglio togliendo tutto il preambolo che ho scritto all'inizio e scusamdomi come sempre dei mieri errori...
ikwae ha scritto:Ciao a tutti …
A chi è interessato ad aiutarmi in allegato un file con tre fogli:
1) di nome “Originale” con tutti gli ambi ho preferito gli ambi che sono di più per avere una maggiore
scelta ma la stessa macro si può poi applicare ai terni e quaterne.
2) di nome “Info” con le semplici spiegazioni passo-passo sembrano complesse ma una volta capito il meccanismo (sperando che lo abbia spiegato bene) risultano semplicissime.
3) di nome “Fine” che è quello che mi auguro che la macro possa fare
.

73 ikwae
Excel 2007
Avatar utente
ikwae
Utente Senior
 
Post: 309
Iscritto il: 27/12/17 23:14

Re: Operazione numeriche in celle

Postdi Anthony47 » 06/06/20 14:31

Guarda che avevo letto il messaggio completo; e avevo anche letto anche il contenuto del file allegato e del foglio Info.
Nonostante cio' non sono riuscito a capire quali elaborazioni servono per produrre il risultato atteso; cioe' per passare da Partenza ad Arrivo:
Codice: Seleziona tutto
       PARTENZA                              ARRIVO
-------------------------------   ---------------------------------|-------
BA_Gr2_C-01 - 147 ambo Cagliari   BA_Gr2_C-01 - 147 ambo Cagliari
                             28                                 28   18
BA_Gr2_C-01 - 145 ambo Genova     BA_Gr2_C-01 - 145 ambo Genova
                              8                                  8   153-19
                             21                                 21   17
                              5                                  5   22

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19220
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Operazione numeriche in celle

Postdi ikwae » 06/06/20 20:26

Con il tuo secondo post non saprei coda dire che non sia stato scritto sul foglio info ma non si deve dare nulla per
scontato e aggiungo che proverò a dare maggiori info sulle procedure che la macro deve eseguire:
1) Scansionare la colonna B
2) Leggere il concorso nella stringa (il numero evidenziato)
3) Fare delle semplici operazioni
4) Scrivere il risultato in colonna C (a dx di ogni ripetizione)

ricordarsi che dal concorso 140 al 157 sono del 2019 e se con i conteggi si rimane nel 2019 si deve aggiungere
il suffisso 19 al concorso appena calcolato. Se invece si supera si deve detrarre 157 dalla somma appena eseguita.
mentre dall’1 al 139 sono del 2020 sono semplici addizioni senza aggiungere nulla.

Esempio esecutivo:
BA_Gr2_C-01 - 147 ambo Cagliari
(concorso 147 + ripetizione 28= 175 dato che è > di 157 si deve detrarre 157 quindi 175-157= 18
28(in colonna C a fianco scrivere)18

Risultato finale
BA_Gr2_C-01 - 147 ambo Cagliari
28(in colonna C a fianco scrivere)18
‘***********************
altro esempio
BA_Gr2_C-01 - 145 ambo Genova (concorso 145 + 1à ripetizione 8 = 153 dato che è < di 157 (si deve aggiungere il suffisso 19 ad indicare il 2019)
8 (in colonna C a fianco scrivere) 153-19 (e si legge siamo al concorso 153 del 2019)
quindi riportando il concorso appena calcolato sopra 153 + 2à ripetizione 21=174-157=17
21(in colonna C a fianco scrivere) 17 e si legge siamo al concorso 17 del 2020
quindi riportando il concorso appena calcolato sopra 17 + 3à ripetizione 5=22
5(in colonna C a fianco scrivere)22

Risultato finale
BA_Gr2_C-01 - 145 ambo Genova
8 (in colonna C a fianco scrivere) 153-19
21(in colonna C a fianco scrivere) 17
5(in colonna C a fianco scrivere)22

‘*******************
Altro esempio semplice
BA_Gr2_C-01 - 001 ambo Milano
13 (in colonna C a fianco scrivere)14 (perché concorso 1 + la ripetizione 13=14)

‘*******************
Altro esempio
BA_Gr2_C-01 - 145 ambo Napoli
11(in colonna C a fianco scrivere)156-19 (perché concorso 145 + la ripetizione 11=156 che è < di 157 siamo ancora nel 2019 quindi il suffisso 19)
3(in colonna C a fianco scrivere)2 (perché riportando il dato sopra 156+3=159 che è > di 157 quindi 159-157=2)

Sono esempi copiati del foglio Info dell’allegato del primo post. Se ti sono utili queste maggiori indicazioni
puoi adesso “leggere” meglio il file Info probabilmente lo capirai meglio perché ci sono maggiori info.

Ricordo che hai già affrontato con esiti positivi lo “scoglio” dei concorsi con le macro.

Sub GodSaveIkWae() 'di Anthony47 » 19/02/20 01:54
Sub GSIkWae() ‘di Anthony47 » 20/02/20 18:09

Ho lavorato diversi giorni a risolvere il problema ma non ci sono riuscito l’unica cosa che ha realizzato è una macro che
estrae dalla stringa il numero del concorso e lo scrive in colonna C. Per i conteggi ho provato la macro su menzionata
e dopo ore e ore di prove ho capito che è “lontana” dal mio livello da poter riuscire a recuperare qualche riga di codice
da utilizzare. Cordialmente ikwae
Excel 2007
Avatar utente
ikwae
Utente Senior
 
Post: 309
Iscritto il: 27/12/17 23:14

Re: Operazione numeriche in celle

Postdi Anthony47 » 07/06/20 00:17

A me fare i calcoli semplici semplici che non hanno logica mi viene sempre mal di testa; il risultato di questa emicrania:
Codice: Seleziona tutto
Sub GSAnthony()
Dim cNum As Long, I As Long
Dim CSUno As Long
'
lastb = Cells(Rows.Count, "B").End(xlUp).Row
For I = 2 To lastb
    If Len(Cells(I, 2)) > 3 Then
        cNum = CLng(Mid(Cells(I, 2), 15, 3))
        CSUno = 0
    Else
        CSUno = CSUno + Cells(I, 2)
        If cNum > 139 Then
            If cNum + CSUno > 157 Then
                Cells(I, 3) = cNum + CSUno - 157
            Else
                Cells(I, 3) = CStr(cNum + CSUno) & "-19"
            End If
        Else
            If cNum + CSUno > 157 Then
                Cells(I, 3) = cNum + CSUno
            Else
                Cells(I, 3) = cNum + CSUno
            End If
        End If
    End If
Next I
MsgBox ("Completato...")
End Sub
Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19220
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Operazione numeriche in celle

Postdi ikwae » 07/06/20 18:26

Anthony47 ha scritto:A me fare i calcoli semplici semplici che non hanno logica mi viene sempre mal di testa; il risultato di questa emicrania

Questa riposta è per l’emicrania per le altre affrmazioni scriverò qualche riga dopo l'aiuto.

Mi dispiace per l'emicrania ma posso ovviare se mi dai il consenso di venire dalle tue parti a pagarti il caffè e, con un sostanzioso contributo, per l’acquisto di vitamine per l’emicrania. Dico sostanzioso contributo che serviranno una parte, per la prossima volta che chiederò aiuto, nel caso sia tua ad aiutarmi. La prossima macro altro che calcoli dovrebbe trovare delle soluzioni intrecciando delle IF di possibilità tipo calcoli semplici-semplici.
*********
La tua macro funziona al 100% e non ci sono equivoci di nessun genere nei calcoli. Tuttavia è da stamattina che cerco “indegnamente” di modificarla e sono riuscito al 70% e per tutto il giorno non sono stato capace di oltrepassare tale soglia e quindi ne ho scritto una che viene richiamata alla fine della tua macro.

Sub GSAnthony_Aggiunta()
Dim I As Long, dopo As Long
'
dopo = 10
lastb = Cells(Rows.Count, "C").End(xlUp).Row
For I = 2 To lastb
If Cells(I, 3) <> "" And IsNumeric(Cells(I, 3)) Then
Cells(I, 3) = Cells(I, 3).Value & " dopo " & dopo & " = " & Cells(I, 3).Value + dopo
End If
Next I
MsgBox ("Completato...")
End Sub


Questa macro percorre la colonna C e, in tutte le celle che trova, che non siano
vuote oppure stringe, lascia il valore presente e aggiunge un semplice calcolo.

Se da codice inserisco il dato 10 nelle celle aggiunge:

Se in cella c’è il valore 32 lanciando la macro in cella viene scritto “32 dopo 10 = 42”
Se in cella c’è il valore 11 lanciando la macro in cella viene scritto “11 dopo 10 = 21”
Se in cella c’è il valore 13 lanciando la macro in cella viene scritto “13 dopo 10 = 23”

Mentre invece se da codice inserisco come dato 5 nelle celle viene aggiunto:

Se in cella c’è il valore 32 lanciando la macro in cella viene scritto “32 dopo 5 = 37”
Se in cella c’è il valore 11 lanciando la macro in cella viene scritto “11 dopo 5 = 16”
Se in cella c’è il valore 13 lanciando la macro in cella viene scritto “13 dopo 5 = 18”

Quindi la macro funziona al 100% ma scrivendo in tutte le celle come richiesto si crea confusione di lettura mentre io vorrei che scrivesse solo nell'’ultima cella di ogni ripetizione. Ossia se c’è una sola ripetizione la scrive nell’unica cella come segue:

Se c'è una sola ripetizione:
23 solo in questa “23 dopo 5 = 28”

Se ci sono due ripetizioni:
21
44 solo in questa “44 dopo 5 = 49”

Se ci sono tre ripetizioni:
13
3
15 solo in questa “15 dopo 5 = 20”

Se ci sono 4 ripetizioni:
1
2
3
4 solo in questa “4 dopo 5 = 9”

e cosi di seguito per tutte le altre ripetizioni. Rammento che deve evitere di scrivere in celle che contengono stringhe o vuote.

Se puoi modificare la mia macro è inutile dirtelo perché ormai ne sono certo che se hai capito il motivo dell’aiuto e il procedimento che la macro deve fare fai prima a scrivere due righe di codice che a modificare le macro che hanno scritto altri. Quindi direttamente ti chiedo se puoi ulteriormente scrive una nuova macro con poche righe di codice. Io per le prove ho usato il foglio Fine dell’allegato del primo post. La procedura è sul foglio Fine lanciare la tua macro e di segiuto la mia. Cordialmente ikwae
Excel 2007
Avatar utente
ikwae
Utente Senior
 
Post: 309
Iscritto il: 27/12/17 23:14

Re: Operazione numeriche in celle

Postdi Anthony47 » 08/06/20 01:38

Hai fatto bene a pensare a una sub separata, da "chiamare" in coda alla mia Sub GSAnthony
Se vuoi che la modifica sia fatta solo sull'ultima annotazione, allora modifica il ciclo:
Codice: Seleziona tutto
    If Cells(I, 3) <> "" And IsNumeric(Cells(I, 3)) Then
        If Len(Cells(I + 1, 2)) > 3 Or I = LastB Then           '<<< Aggiunto Questo Livello If /End If
            Cells(I, 3) = Cells(I, 3).Value & " dopo " & dopo & " = " & Cells(I, 3).Value + dopo
        End If
    End If

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19220
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Operazione numeriche in celle

Postdi ikwae » 08/06/20 09:08

Gentilissimo Anthony… la modifica alla mia macro funziona bene come da richiesta e aggiungo;

Innanzi tutto ti ringrazio per il tempo che hai dedicato alle mie molteplici richieste.
Potrebbe sembrare scontato ma il fatto che qualcuno abbia messo a mia disposizione, gratuitamente, il suo tempo e le sue competenze cercando di risolvere i miei piccoli problemidi programmazione e di conseguenza mi facilita a fare
tranquillamente il mio hobby, altrimenti non potrei fare, è un gesto molto nobile che io apprezzo moltissimo. In ogni istante c’è in me gratitudine, rispetto, e devozione verso questa persona con queste capacità che ormai sono,in un periodo che percorriamo, del tutto assenti. Concludendo posso dire di vero cuore grazie Anthony47.
************************
Anthony47 ha scritto:A me fare i calcoli semplici semplici che non hanno logica mi viene sempre mal di testa; il risultato di questa emicrania:

Quello che sto per scrivere sono semplici indicazioni di studio, senza apparentemente nessuna logica e, queste indicazioni, di studio, sono per appassionati di lotto e per chiunque ha voglia di leggerli.

Sotto sono riportati due ambi che entrambi hanno una doppia e, uguale, ripetizione ossia l’ambo di Bari su Bari è l’ambo di Roma su Genova. Entrambi si nota che hanno una doppia ripetizione una di 19 estrazioni e l’altra dopo 29 estrazioni.
BA_Gr2_C-04 - 142 ambo Bari
19
29
RM_Gr0_C-15 - 001 ambo Genova
19
29
Quindi con la macro richiesta in questo post e, l’aggiunta da me fatta, sono riuscito all’istante (senza eseguire i conteggi a mano come si notano sotto) a sapere il numero del concorso e, concorsi, delle ripetizioni alle quali ogni ripetizione è abbinato.

BA_Gr2_C-04 - 142 ambo Bari 60 61 64 73 90 concorso 142-2019 5.na nr.4 gr2 Bari
88 26 64 43 61 estrazione 142-2019 ruota Bari

(19)-->142+19=161-157=4 conc 4 05 08 26 42 54 concorso 004-2020 5.na 4 gr2 Bari
60 50 61 26 08 estrazione 004-2020 ruota Bari

(29) -->29+4=33 con 33 09 44 66 69 88 concorso 033-2020 5.na 4 gr2 Bari
44 67 16 34 66 estrazione 033-2020 ruota Bari

RM_Gr0_C-15 - 001 ambo Genova 04 06 71 62 53 concorso 001-2020 5.na 15 gr0 Roma
62 42 47 25 04 estrazione 001-2020 ruota Genova

(19)--> 19+1=20 conc 20 76 79 03 16 87 concorso 020-2020 5.na 15 gr0 Roma
75 87 40 50 16 estrazione 020-2020 ruota Genova

(29)--> 20+29=49 conc 49 63 74 09 02 64 concorso 049-2020 5.na 15 gr0 Roma
74 68 77 64 31 estrazione 049-2020 ruota Genova

Una gioia di “goduria” notando dal confronto, delle cinquine pronosticate, con le estrazioni avvenute con le date su riportare. La gioia è stata dell’abbinamento dei numeri che il programma ha pronosticato vivini-vivini (tipo Striscia la Notizia) e puntualmente sortiti anche se in ordine diverso ma sono stati sortiti.

Seconda “goduria” osservando sia gli ambi che sono completamente diversi tra loro e anche le 6 cinquine non hanno nulla in
comune (probabilmente qualche numero) ma il “grosso” delle cinquine è diverso è tutto diverso.

La domanda arriva spontanea ma cosa “lega” questi due ambi con ruote diverse e cinquine diverse? La risposta che riesco a dare è la posizione delle cinquine (4 e 15) e il numero delle ripetizioni 19 e 29. Quindi si può ipotizzare che se trovo qualsiasi ruota che abbia come ripetizione 19 c’è la possibilità che fra 29 estrazioni, la stesa ruota con la stessa posizione possa dare un ambo indipendentemente dai numeri?

Quindi mi sono fiondato a trovare tutte gli ambi che hanno come ripetizione 19 estrazioni e con la macro di aiuto in questo post e, la mia semplice macro di aggiunta, sono riuscito all’istante ad avere i numeri dei concorsi che devono essere sortiti dopo 29 ripetizioni.

RM_Gr2_C-04 - 003 ambo Palermo 051/069
RN_Gr0_C-08 - 010 ambo Napoli 058/076
CA_Gr1_C-08 - 020 ambo Torino 069/087
RM_Gr0_C-14 - 021 ambo Bari 070/088
VE_Gr1_C-14 - 024 ambo Napoli 073/091

Il primo scade martedì con il concorso del lotto nr.69 quindi posso puntare, per hobby il minimo consentito, la cinquina 4 del gruppo 2 della ruota di Roma puntandolo sulla ruota di Palermo indipendentemente dai numeri che verranno sorteggiati dal programma.

In verità ancora devo pronosticare i numeri ma non sono importanti importa il numero della posizione della cinquina e la prima ripetizione. Quindi i numeri possono essere anche 1 2 3 4 5 oppure qualsiasi sequenza di 5 numeri.

Concludo dicendo sono troppe le indicazioni “strutturali” per essere considerate “fortunate” o casuali intanto la curiosità è tanta e aspetto che finiscono i pronostici per avere un’altra indicazione di valutazione allo studio effettuato.
Cordialmente ikwae
Excel 2007
Avatar utente
ikwae
Utente Senior
 
Post: 309
Iscritto il: 27/12/17 23:14


Torna a Applicazioni Office Windows


Topic correlati a "Operazione numeriche in celle":


Chi c’è in linea

Visitano il forum: Nessuno e 61 ospiti