Somma if con decimali

Hai un problema con Excel?

Nuova discussione

Somma if con decimali
di Mangusta (utente non iscritto) data: 01/04/2013 21:14:54
Mi rifaccio alla discussione dello storico! sto usando il codice allegato facendo delle piccole modifiche per evidenziare i valori uguali niente di importante.
Mi sono accorto che il codice non considera i decimali e questo per me è un problema! come posso modificarlo per considerare decimali? non ci sono riuscito(ho modificato da integer a long la dichiarazione delle variabili per evitare errore over flow)

(precedente discussione Operazioni su Collection data: 28/12/12)

Option Explicit

Sub check()
Dim cella As Range, valore_foglio1 As Integer, sum_valori_foglio2 As Integer, evaluate_string As String

    For Each cella In Foglio1.[A1:A10]
        
        If cella = "" Then Exit For
    
        valore_foglio1 = cella.Offset(, 1)
        
        evaluate_string = "SUMIF(foglio2!A1:A10, " & Chr(34) & cella & Chr(34) & ", foglio2!B1:B10)"
        
        sum_valori_foglio2 = Evaluate(evaluate_string)
        
        If valore_foglio1 = sum_valori_foglio2 Then cella.Offset(, 2) = "coincide!"
    
    Next
    
End Sub

di Vecchio Frac data: 01/04/2013 21:26:59
Non Long (rappresenta numeri interi) ma Single e, se proprio vuoi esagerare con lo spreco, Double ^_^

Vuoi Approfondire?