Condividi:        

EXcel Trova numero e conta

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

EXcel Trova numero e conta

Postdi Statix » 12/05/10 22:29

Ciao a tutti,
avrei bisogno di una macro,che mi trovi un numero (range J4=12) un Tot volte(range K4=3)
nel range C4:G1000 e successivamente dopo il ritrovamento del numero mi conti gli estratti del range M4:V4
come in figura
Immagine
in questo esempio,trovo il numero 12 per 3 volte,
dopo l'uscita del 12 cerco i numeri appartenenti al
Range M4:V4 =11-12-13-14-15-16-17-18-19-20
e li conto nel Range M5:V5,
la presenza del numero o dei numeri del Range M4:V4 vanno presi e contati una sola volta dopo il numero 12
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Sponsor
 

Re: EXcel Trova numero e conta

Postdi Statix » 12/05/10 22:36

questo è un altro esempio
il 12 viene trovato 4 volte,

Immagine
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: EXcel Trova numero e conta

Postdi Statix » 12/05/10 23:01

inserisco un altro esempio,
Immagine
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: EXcel Trova numero e conta

Postdi Flash30005 » 13/05/10 11:03

Per ora ho realizzato questa macro
Codice: Seleziona tutto
Sub Trova()
URS = Worksheets("Foglio1").Range("C" & Rows.Count).End(xlUp).Row
Range("K4").Value = 0
Range("M4:V4").ClearContents
Range("C4:G" & URS).ClearFormats
ValN = Range("J4").Value
For RR = 4 To URS
    For CC = 3 To 7
        If Cells(RR, CC).Value = ValN Then
        Range("K4").Value = Range("K4").Value + 1
        Cells(RR, CC).Interior.ColorIndex = 44
        End If
    Next CC
Next RR
For CN = 13 To 22
ValN2 = Cells(3, CN).Value
For RR = 4 To URS
    For CC = 3 To 7

        If Cells(RR, CC).Value = ValN2 Then
        If Cells(4, CN).Value <> 1 Then  '<<< commentando questa condizione avrai i conteggi di tutti le ripetizioni dei numeri della matrice M:V
            Cells(4, CN).Value = Cells(4, CN).Value + 1
                If ValN <> ValN2 Then Cells(RR, CC).Interior.ColorIndex = 6
            End If
        End If
    Next CC
Next RR
Next CN
End Sub


Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: EXcel Trova numero e conta

Postdi Statix » 13/05/10 13:16

Ciao Flash30005,
purtroppo non ci siamo,
la macro deve cercare il numero,nel primo esempio il 12 per 3 volte,
e contare la prima occorrenza del Range M4:V4=11-12-13-14-15-16-17-18-19-20,
se vedi le foto ti ho fatto alcuni esempi.
prima foto
trova il 12 e conta solo il 18 prima occorrenza,
trova il 12 e conta solo il 15 prima occorrenza
trova il 12 e conta solo il 17 e 13 prima occorrenza.
spero di essere stato chiaro.
grazie
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: EXcel Trova numero e conta

Postdi Flash30005 » 13/05/10 14:20

Prova questa
Codice: Seleziona tutto
Public Urs, Vett(10), Vr, ValN As Integer
Sub Trova()
Urs = Worksheets("Foglio1").Range("C" & Rows.Count).End(xlUp).Row
Range("K4").Value = 0
Range("M4:V4").ClearContents
Range("C4:G" & Urs).ClearFormats
ValN = Range("J4").Value
Vr = 0
For RR = 4 To Urs
    For CC = 3 To 7
        If Cells(RR, CC).Value = ValN Then
        Range("K4").Value = Range("K4").Value + 1
        Cells(RR, CC).Interior.ColorIndex = 44
        Vr = Vr + 1
        Vett(Vr) = RR
        End If
    Next CC
Next RR
Call Trova2
End Sub
Sub Trova2()
For VV = 1 To Range("K4").Value
If Vett(VV + 1) = 0 Then Vett(VV) = Urs
For Cn = 13 To 22
ValN2 = Cells(3, Cn).Value
For RR = Vett(VV) To Vett(VV + 1)
    For CC = 3 To 7
        If Cells(RR, CC).Value = ValN2 Then
            If RR = Vett(VV) Then
                Cells(4, Cn).Value = Cells(4, Cn).Value + 1
                Cells(RR, CC).Interior.ColorIndex = 6
            End If
            If Cells(4, Cn).Value < 1 Then
                Cells(4, Cn).Value = Cells(4, Cn).Value + 1
                If ValN <> ValN2 Then Cells(RR, CC).Interior.ColorIndex = 6
            End If
        End If
    Next CC
Next RR
Next Cn
Next VV
End Sub


Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: EXcel Trova numero e conta

Postdi Statix » 13/05/10 14:26

Ho provato la macro,
non succede nulla,
nessun errore
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: EXcel Trova numero e conta

Postdi Statix » 13/05/10 15:06

Ciao Flash3005,
ho notato che l'ultima foto postata ha il range spostato, riga 4 invece di riga3 come le altre 2,
ho provato a correggere qualcosina,ma mi da errore,
Vett(Vr) = RR diventa giallo
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: EXcel Trova numero e conta

Postdi Statix » 13/05/10 17:05

Cerco di fare il riepilogo,
della ricerca della macro,
facendo riferimento alla prima foto,
La macro deve evidenziare il numero del range J4 (12)tante volte quanto il range K4(3 volte)
quindi nel range C4:G1000 il numero 12 verrà evidenziato in arancione 3 volte partendo da C4:G1000 a scendere,
dopodiche la macro deve contare i numeri presenti nel range M4:V4 quante volte sono usciti dopo il primo 12 evidenziato,dopo il secondo 12,dopo il terzo 12,ma solo la prima occorrenza,cosi come nella prima foto.
i numeri da contare sono solo quelli che ho evidenziato in giallo.
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: EXcel Trova numero e conta

Postdi Anthony47 » 13/05/10 22:46

Quando dici " dopo il primo 12 [..],dopo il secondo 12,dopo il terzo 12" intenti che la riga in cui e' presente il 12 va esclusa dal calcolo (per i numeri in M4:V4)?

Ciao.

PS: ma che servira' mai??!
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: EXcel Trova numero e conta

Postdi Statix » 13/05/10 22:49

Ciao Anthony
si la riga del 12 va esclusa.
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: EXcel Trova numero e conta

Postdi Statix » 13/05/10 23:07

Comunque ci sono alcuni casi in cui il numero si ripete,come questo esempio che anche la riga del 12 va conteggiata.
N.B. il numero 12 in questo esempio viene cercato per solo 5 volte,evidenziato in arancione.
Immagine
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: EXcel Trova numero e conta

Postdi Statix » 13/05/10 23:18

allego un file per il test


http://www.megaupload.com/?d=VDBNDVO7
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: EXcel Trova numero e conta

Postdi Flash30005 » 13/05/10 23:24

Non so il motivo pqer il quale a te non funziona
se è una questione di riga aggiustiamo...
se hai fogli con nome diverso potrebbe non funzionare e non dare errore soprattutto se non hai un foglio denominato "Foglio1"

comunque prova il file da me utilizzato come test
file download

ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: EXcel Trova numero e conta

Postdi Statix » 13/05/10 23:36

Ciao Flash30005,
la macro non esegue perfettamente ,
se io metto in Volte 2,significa che il numero 12 me lo deve trovare solo 2 volte e contare i numeri
del Range M4:V4
dopo il primo 12 per una sola occorrenza,
poi successivamente passa al secondo 12
e conta sempre per una sola occorrenza.
vedi file test allegato precedente
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: EXcel Trova numero e conta

Postdi Statix » 13/05/10 23:54

esempio con il tuo file
Immagine
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: EXcel Trova numero e conta

Postdi Flash30005 » 14/05/10 09:57

Prova questo file

non è proprio come nell'ultima immagine da te postata perché vengono evidenziati i numeri 11 e 20 che si trovano nella stessa riga del 12, rispettando, così, le specifiche dei tuoi primi post.

Fai sapere
Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: EXcel Trova numero e conta

Postdi Statix » 14/05/10 12:40

Ciao Flash30005,
purtroppo non ci siamo ancora,
Quando la macro fa la ricerca deve trovare il numero,in questo caso 12 e contare dalla riga successiva
l'occorrenza dei numeri del range M4:V4,
il numero o i numeri del range M4:V4 vanno presi cioè contati una sola volta,se vedi la foto i numeri in blu
non vengono contati ma solo i gialli,
questo per 5 volte,
scarica il file di test che ho allegato,e con la macro provi finche ti dà i risultati così come sono visibili all'apertura del file.
allego foto,

Immagine
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: EXcel Trova numero e conta

Postdi Statix » 14/05/10 12:42

Dimenticavo il numero ricercato 12 non va conteggiato tranne nel caso sia ripetuto,
vedi foto.
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: EXcel Trova numero e conta

Postdi Statix » 14/05/10 22:56

Ciao Flash3005,ciao a tutti.
Ti allego una nuova foto della ricerca,dopo
alcuni chiarimenti con un amico,ci siamo accorti che le estrazioni erano capovolte,
quindi in realtà la macro dovrebbe contare i numeri del range M4:V4
dalla prima occorrenza,partendo dal numero in arancione a salire e non scendere come avevo descritto prima.
La prima macro Trova() va perfettamente benissimo,bisognerebbe modificare solo la seconda macro Trova2().
mi scuso anticipatamente per l'errore.
la macro dovrebbe dare esattamente i dati come impostato sul foglio per essere giusta.
Immagine
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Prossimo

Torna a Applicazioni Office Windows


Topic correlati a "EXcel Trova numero e conta":


Chi c’è in linea

Visitano il forum: Nessuno e 110 ospiti