Filtrare valori decimali tramite macro.

Question

Ciao,

ho la seguente maschera:

per filtrarmi i dati uso la seguente macro:

Sub CECKPOINT_Rettangolo1_Click()

ActiveSheet.Range("$H$12:$H$2000").AutoFilter Field:=6, Criteria1:=(">=" & Range("H2").Value - Range("H4").Value), \_ 

Criteria2:="<=" & Range("H2").Value + Range("H4").Value, Operator:=xlAnd 

End Sub

il problema però è che il filtro avviene solo se nelle celle H2 e H4 ci sono numeri interi, mentre con i decimali non funziona.

Come si può risolvere?

Ci sarebbe anche un'altra possibilità.

Siccome un mio amico mi ha fatto vedere che in un programma, purtroppo chiuso con password, i dati vengono filtrati inserendo tramite macro i numeri direttamente nella mascherina predefinita di Excel:

mi sapete dire quale codice usare?

Vladimiro

Answer 1

Ciao Vladimiro,

Un'altra soluzione preferibile sarebbe adottare il seguente approccio:

'========>>

Option Explicit

'-------->>

Public Sub CECKPOINT_Rettangolo1_Click()

Dim dVal As Double 

Dim dVal2 As Double 

With ActiveSheet 

    dVal = .Range("H2").Value - .Range("H4").Value 

    dVal2 = .Range("H2").Value + .Range("H4").Value 

    .Range("$H$12:$H$2000").AutoFilter Field:=6, Criteria1:=">=" & **Str(dVal)**, \_ 

        Criteria2:="<=" & **Str(dVal2)**, Operator:=xlAnd 

End With 

End Sub

'<<========

Per comprendere la logica di questo approccio, guarda i valori restituiti dalla macro per un determinato insieme di valori H2 e H4:

Noterai che la funzione VBA Str converte i valori numerici in valori stringa e sostituisce il separatore decimale virgola con un punto.

===

Regards,

Norman

Answer 2

Ciao Vladimiro,

Ciao Norman

spiegazione impeccabile e risultato perfetto.

Grazie e alla prossima,

Mi fa piacere che tu abbia risolto il problema e ti ringrazio il cortese riscontro.

Alla prossima.

===

Regards,

Norman

Answer 3

Ciao Vladimiro,

Un'altra soluzione preferibile sarebbe adottare il seguente approccio:

'========>>

Option Explicit

'-------->>

Public Sub CECKPOINT_Rettangolo1_Click()

Dim dVal As Double

Dim dVal2 As Double

With ActiveSheet

dVal = .Range("H2").Value - .Range("H4").Value

dVal2 = .Range("H2").Value + .Range("H4").Value

.Range("$H$12:$H$2000").AutoFilter Field:=6, Criteria1:=">=" & Str(dVal), _

Criteria2:="<=" & Str(dVal2), Operator:=xlAnd

End With

End Sub

'<<========

Per comprendere la logica di questo approccio, guarda i valori restituiti dalla macro per un determinato insieme di valori H2 e H4:

Noterai che la funzione VBA Str converte i valori numerici in valori stringa e sostituisce il separatore decimale virgola con un punto.

===

Regards,

Norman

Ciao Norman

spiegazione impeccabile e risultato perfetto.

Grazie e alla prossima,

Vladimiro

Answer 4

Ciao Vladimiro,

ho la seguente maschera:

per filtrarmi i dati uso la seguente macro:

Sub CECKPOINT_Rettangolo1_Click()

ActiveSheet.Range("$H$12:$H$2000").AutoFilter Field:=6, Criteria1:=(">=" & Range("H2").Value - Range("H4").Value), _

Criteria2:="<=" & Range("H2").Value + Range("H4").Value, Operator:=xlAnd

End Sub

il problema però è che il filtro avviene solo se nelle celle H2 e H4 ci sono numeri interi, mentre con i decimali non funziona.

Come si può risolvere?

Ci sarebbe anche un'altra possibilità.

Siccome un mio amico mi ha fatto vedere che in un programma, purtroppo chiuso con password, i dati vengono filtrati inserendo tramite macro i numeri direttamente nella mascherina predefinita di Excel:

mi sapete dire quale codice usare?

Questo è un problema causato dall'incapacità di VBA di gestire un separatore decimale virgola quando viene utilizzato come criterio di filtro.

Per superare questa difficoltà prova qualcosa del genere:

'========>>

Option Explicit

'-------->>

Public Sub CECKPOINT_Rettangolo1_Click()

Dim dVal As Double 

Dim dVal2 As Double 

With ActiveSheet 

    dVal = .Range("H2").Value - .Range("H4").Value  

   dVal2 = .Range("H2").Value + .Range("H4").Value       

   .Range("$H$12:$H$2000").AutoFilter Field:=6, Criteria1:=">=" & **Replace(dVal, ",", ".")**, \_ 

        Criteria2:="<=" & **Replace(dVal2, ",", ".")**, Operator:=xlAnd 

End With 

End Sub

'<<========

===

Regards,

Norman