AIUTO LINGUAGGIO MACRO EXCELL

[enea11]

Ciao a tt sono un nuovo utente e ho trovato questo forum molto interessante perchè tanti di voi sono molto esperti nei linguaggi VB per le macro di excell...

per questo volevo chiedere gentilmente il vostro aiuto in quanto non sono molto pratico di questi linguaggi..

Vorrei creare un foglio excell dedicato al lotto, e creare delle macro.

Possiedo excell 2007

una volta cricata l'estrazione su excell nel range b2-b11-------f2-f11, vorrei creare delle macro in grado di fare le seguenti 2 ricerche:

1) visualizzare ed evidenziare nell'estrazione tutti i numeri ripetuti dell'estrazione in automatico,
cioè schiaccio il pulsante della macro (RICERCA RIPETUTI) e mi vengono visualizzati ed evidenziati IN COLORE nell'estrazione tt i numeri ripetuti, quindi la ricerca è automatica nn manuale, cioè non devo inserire io i numeri da ricercare ma dovanno essere visualizzati automaticamente
-------------------------------------------------------------------------------------------------------------------------------------------------------
2) ricerca di tutte le distanze su tutte le ruote (orizzontali(stessa ruota) e verticali( isotope e non) ) in base alla distanza da me

desiderata, cioè inserisco la distanza che mi serve esempio distanza 30, schiaccio il pulsante esegui della macro che mi va a

visualizzare evidenziando nell'estrazione tutte le distanze le distanze 30, quindi mi serve una casella dove inserire la distanza da ricercare, a cui sara associata il pulsate macro dedicato alla ricerca.

//LA COSA IMPORTANTE E CHE I RISULTATI DELLA RICERCA DEVONO ESSERE VISUALIZZATI ED EVIDENZIATI NELLA TABELLA DELLE ESTRASTIONI CHE IO ANDRò A CARICARE NEL RANGE b2-b11---------f2-f11., e quindi NON DEVONO ESSERE RESTITUITI IN ALTRE CELLE QUALSIASI.

QUESTO è TUTTO VORREI REALIZZARE QUESTO PROGRAMMINO EXCELL grazie al vostro aiuto,

OVVIAMENTE VI CHIEDO DI POSTARE SOLO I CODICI DI LINGUAGGIO DELLA MACRO che io non so realizzare, poi al resto provvederò io.

VI RINGRAZIO E SAREI MOLTO GRATO SE POTRESTE AIUTARMI

nel caso vi servono chiarimenti sulle ricerche chiedete pure

ciao e buona giornata

[Flash30005]

Ciao enea11 e benvenuto nel Forum

non fai alcun rifermento a quale tipo di estrazione ti riferisci
ed è opportuno l'invio del file con i dati estrazione d esempio sul foglio per rendere più comprensibile ciò che vorresti ottenere

ciao

[enea11]

ciao flash grazie per la risposta e per l'interessamento.

per quanto riguarda l'estrazione di riferimento intendevo per esempio che copiavo ed incollavo l'ultima estrazione mensile o un estrazione a caso, quindi non mi interessa un archivio ma solo fare ricerche su una qualsiasi estrazione da me inserita in excell nel range b2-f11. provo a farti un esempio qui xke nn riesco ad allegare le immagini.

estrazione di ieri( esempio)

Estrazione n. 54 del 06/05/2014
RUOTA
Bari 81 43 31 90 56
Cagliari 35 47 31 67 74
Firenze 4 64 56 32 16
Genova 52 17 13 38 89
Milano 35 3 34 16 28
Napoli 69 25 70 37 59
Palermo 80 86 19 78 50
Roma 9 2 85 24 44
Torino 2 14 51 66 3
Venezia 85 12 22 6 29
Nazionale 6 89 28 85 75

in questo esempio ti ho mostrato quello che vorrei ottenere con la ricerca automatica dei numeri ripetuti.
cioè io inserisco in excell l'estrazione nel range di celle b2-f11 che apparirà con tt i numeri dello stesso colore, cliccando poi sul pulsante della macro (ricerca ripetuti), la macro mi va a visualizzare ed evidenziare in rosso e in automatico le celle dei numeri ripetuti.

l'idea era questa , purtroppo io da solo nn riesco a farlo perchè nn conosco le giuste sintassi per far ciò per questo mi sono rivolto a te.
vorrei chiederti gentilmente se saresti in grado di riprodurre ciò o quanto meno di darmi le indicazioni sulle sintassi che poi proverò a fare io.

idealmente penso si dovra fare un confronto di ogni singola cella da b2 a f11 per poi colorare le celle che presentano gli stessi numeri.

pensi si possa fare.........se hai domande chiedi pure ciao

[Flash30005]

Non mi tornano i conti
se inizi dalla riga 2 (B2) e hai anche la ruota nazionale da controllare allora l'ultima riga sarà 12 e non 11 come dici con F11
comunque questa macro comprenderà anche la ruota nazionale altrimenti modifica la macro adattandola alla riga 11 se vuoi escludere la ruota nazionale

Codice: Seleziona tutto

Sub ContaC()
Range("B2:F12").Font.ColorIndex = 0
For CC = 2 To 6
For RR = 2 To 12  '<<<<<< inserire 11 invece che 12 se non vuoi considerare la Ruota nazionale
NumA = Cells(RR, CC).Value
If Application.WorksheetFunction.CountIf(Range("B2:F12"), NumA) > 1 Then Cells(RR, CC).Font.ColorIndex = 3
Next RR
Next CC
End Sub


Ugualmente modificherai anche il codice in application.....Range("B2:F11"), NumA
Ciao

[Statix]

Ciao enea11,
ti ho allegato un link
il file funziona con excel 2010
il programma evidenzia cadenze figure decine, numeri ripetuti e numeri personali,
eventualmente poi decidi cosa aggiungere.
con i tastini ti sposti l'estrazioni,l'archivio è aggiornabile nel foglio archivio in alto aggiorna da web o lottomatica,
consiglio di aggiornare dopo un paio d'ore dopo l'uscita della nuova estrazione, in quanto il sito si può bloccare dai tanti collegamenti in quell'ora.
http://www.filedropper.com/lottoarchivio_1

[enea11]

grazie mille flash e statix ora provo a studiarmeli bene....graziw di nuovo

[enea11]

volevo chiedere se potete di spiegarmi come scrivere in linguaggio vba della seguente operazione

supponiamo di avere 5 numeri disposti in sequenza sulla stessa riga ( esempio riga 3) nelle celle B-C-D-E-F >>

22 6 55 87 27 >> Vorrei creare un linguaggio che mi confronta ogni singolo numero della riga, facendo di ognuno la

differenza>> cioè >> (22-6); (22-55); (22-87); (22-27); (6-55); (6-87);(6-27); (55-87);(55-27); (87-27)

dopo aver fatto tt le differenze vorrei che venissero colorate in rosso solo le celle dei numeri la cui differenza è pari a 5 o -5

quindi nell'esempio dovrebbero colorarsi in rosso soltanto le celle B3 e F3 xke 22 - 27= -5

io ho già provato a scrivere il codice vba ma nn mi funziona perchè mi colora in rosso tt le celle , nn lo posto perchè è lunghissimo

PENSO CHE IL PROBLEMA SIA SOPRATTUTTO CHE NON RIESCO A FAR FARE LA DIFFERENZA DEI VALORI DELLA CELLA

SE POTETE MI INDICATE COME FARE QUESTA OPERAZIONE

GRAZIE CIAO

[enea11]

ho provato con questo codice ma di nuovo mi colora tt le celle anzichè solo quelle che contengono la differenza 5

ho pensato di usare una cella principale , nel codice avente coordinate R1, C1 che rimane fissa
e una cella secondaria di confronto , RR, CC , che si sposta di volta in volta di colonna e che viene sottratta alla cella

principale attraverso >> diff= NumA-Numb e poi con l'if se la diff è = 5 dovrebbe colorare di rosso solo le due celle con quelle coordinate

quindi in pratica ho messo due cicli For, il primo controlla la coordinata C1 che verrà incrementata solo al finire del secondo ciclo For che invece controlla la coordinata CC.

In questo modo speravo di ottenere una scansione sequenziale del tipo 22 meno 6; 22 meno 55; come segue sotto:


numeri da controllare >> 22 6 55 87 27 riga 2 e sotto ce la scansione

(22-6); (22-55); (22-87); (22-27); (6-55); (6-87);(6-27); (55-87);(55-27); (87-27)

Codice: Seleziona tutto

Sub differenza5 ()

Dim diff As Integer
RR = 2  'riga della cella di confronto che rimane sempre fissa a 2
R1 = 2  'riga della cella principale che rimane sempre fissa a 2
For C1 = 2 To 6    'colonna cella principale
For CC = 3 To 6    'colonna cella di confronto

NumA = Cells(R1, C1).Value 'cella principale
NumB = Cells(RR, CC).Value 'cella confronto
diff = NumA - NumB

If diff = 5 Then Cells(R1, C1).Interior.Color = vbRed
                             Cells(RR, CC).Interior.Color = vbRed

Next CC
Next C1

End Sub

[enea11]

ok ok lasciate stare sono riuscito a risolvere il problema......


VOLEVO CHIEDERE INVECE COME SI FA UNA MACRO PER LA FUNZIONE DESTRA E SINISTRA

application.worksheets.function.DESTRA(......?.......)......>> COME SCRIVO DENTRO

[Flash30005]

Per sinistra (riferita alla cella A1)

Codice: Seleziona tutto

Left(Range("A1"), 2) ' 2 è il numero dei caratteri da prendere in considerazione partendo da sinistra

e per destra

Codice: Seleziona tutto

Right(Range("A1"), 2)

ciao

[Statix]

ok ok lasciate stare sono riuscito a risolvere il problema......


VOLEVO CHIEDERE INVECE COME SI FA UNA MACRO PER LA FUNZIONE DESTRA E SINISTRA

application.worksheets.function.DESTRA(......?.......)......>> COME SCRIVO DENTRO

Ciao enea11, visto che hai risolto ,potresti postare la macro che hai usato,
a favore di tutti gli utenti che seguono questo forum che vogliono imparare.

[enea11]

statix era una vera cavolata.....il codice è giusto era solo un problema dell' if dove ho inserito male 2 istuzioni......basta andare a capo dopo then e mettere end if , tutto qua......è solo che non sono esperto di programmazione e quindi faccio cavolate