Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

[Excel 2003] Ricerca valori corrispondenti

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 2003] Ricerca valori corrispondenti

Postdi enrico43 » 15/10/14 13:09

Buongiorno, la sottostante macro per cercare la corrispondenza dei moltissimi valori (euri) contenuti nella colonna G con valori presi da foglio cartaceo.
Dovrei risolvere 2 problemi, prevedere una tolleranza (cioè ci possono essere differenze di pochi euro tra il numero della colonna G e quello del foglio di carta di max 10 euro che credevo di risolvere con gli asterischi) ed i numeri “somiglianti”, cioè che contengono (nella colonna G) le cifre digitate.
http://www.filedropper.com/riepilogoneincorso
Molto depurato.
La macro è
Codice: Seleziona tutto
Option Compare Text
Sub CercaValore()
Dim CL As Object
Set Zona = ActiveSheet.Range("G:G")
Dimmi = InputBox("Scrivi il valore")
If Dimmi = "" Then Exit Sub
For Each CL In Zona
If CL.Value Like "*" & Dimmi & "*" Then
‘CL.Select
‘Dove = CL.Address(rowabsolute:=False, columnabsolute:=False)
CL.EntireRow.Select
Selection.Interior.ColorIndex = 6
End If
Next
10:
MsgBox "Ricerca Terminata"
End Sub

Ringrazio anticipatamente per l’attenzione.
Cordiali saluti
Enrico
enrico43
Utente Senior
 
Post: 138
Iscritto il: 13/09/14 15:33
Località: Fiumicino

Sponsor
 

Re: [Excel 2003] Ricerca valori corrispondenti

Postdi Anthony47 » 15/10/14 22:13

Non so se questa variante risponde al tuo obiettivo:
Codice: Seleziona tutto
Sub cerca2()
Dim CL As Range, TollPc As Single, TollVal As Long, myRan As String, I As Long
Dim ApproxL As Single, ApproxU As Single, LastG As Long, Dimmi As String
'
TollPc = 0.5        '<< esempio per 0,5 % di tolleranza
'TollVal = 10
ApproxL = (100 - TollPc) / 100
ApproxU = (100 + TollPc) / 100
LastG = Cells(Rows.Count, "G").End(xlUp).Row
Dimmi = InputBox("Scrivi il valore")
If Dimmi = "" Then Exit Sub
For I = 1 To LastG
    If IsNumeric(Cells(I, "G")) Then
        If Cells(I, "G").Value * ApproxL <= CLng(Dimmi) And Cells(I, "G").Value * ApproxU >= CLng(Dimmi) Then
            myRan = myRan & Cells(I, "G").Address & ", "
        End If
    End If
Next I
If myRan <> "" Then
    myRan = Left(myRan, Len(myRan) - 2)
    Range(myRan).Select
    Selection.Interior.ColorIndex = 4
End If
End Sub
Essa imposta una tolleranza percentuale sul valore da cercare (vedi riga marcata <<) ; in alternativa puoi inserire la tolleranza in una cella del tuo foglio di lavoro (come valore "intero", cioe' scrivendo 0,5 per indicare 0,5%), e poi invece di TollPc = 0.5 scrivi TollPc = Range("LaMiaCella").value
Con lo stesso approccio, invece di una tolleranza percentuale potresti utilizzare una tolleranza di valore; in questo caso modificherai la "If" centrale in
Codice: Seleziona tutto
        If Cells(I, "G").Value - TollVal <= CLng(Dimmi) And Cells(I, "G").Value + TollVal >= CLng(Dimmi) Then


Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13904
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: [Excel 2003] Ricerca valori corrispondenti

Postdi enrico43 » 16/10/14 15:19

Stasera la provo (non sei solo tu a fare gli straordinari, gratuiti, in favore di noi VBnauti) e poi ti aggiorno.
Insieme ad un grosso Grazie, ti saluto
Enrico
enrico43
Utente Senior
 
Post: 138
Iscritto il: 13/09/14 15:33
Località: Fiumicino


Torna a Applicazioni Office Windows


Topic correlati a "[Excel 2003] Ricerca valori corrispondenti":


Chi c’è in linea

Visitano il forum: Nessuno e 6 ospiti