[Συναρτήσεις] άθροισμα τιμών που περιέχουν σύμβολο του €

[gfevran]

Καλημέρα.
Πως αθροίζω σε μια στήλη με τιμές που περιέχουν το σύμβολο του "€"
Χρήστο καλημέρα.
αναζητώντας τη λύση πρόσεξα ότι σε παλαιότερη ανάρτηση είχα ζητήσει βοήθεια λύση μου έδωσες εσύ
εδώ:
Public Function Eval(Rng As Range) As Currency
Eval = Evaluate("SUM(" & Replace(Replace(Rng, "€", ""), ",", ".") & ")")
End Function

Έβαλα στο module1 την πιο πάνω συνάρτηση αλλά δεν δούλεψε
δες Φύλλο2
Συνημμένο

[gfevran]

Είναι σε μορφή Νομισματική
ανέβασα συνημμένο πιο πάνω!

[ChrisGT7]

Καλημέρα Γιώργο,

Η παραπάνω συνάρτηση Eval() αναφέρεται σε εύρος κελιών.

Τι ακριβώς θέλεις να προσθέσεις; Τιμές από το Listbox; Γιατί τότε χρειαζόμαστε λίγο διαφορετική προσέγγιση.

[gfevran]

Καλησπέρα Χρήστο.
Θέλω να αθροίσω σε μια στήλη, (E2:E100) που περιέχει αριθμητικές τιμές ακολουθούμενες με το σύμβολο του €
π.χ. Ε2 10€ έως :Ε20 και να πάρω το αποτέλεσμα του αθροίσματος στο κελί D1
δες στο πιο πάνω στο συνημμένο στο φύλλο2 στο κελί D1 που βγαίνει σφάλμα #ΤΙΜΗ!
όταν υπάρχει το σύμβολο του € δεν μου κάνει άθροιση, χωρίς αυτό βέβαια είναι μια απλή SUM

[ChrisGT7]

Αυτή η Eval() δέχεται μόνο ένα κελί ως εύρος και όχι πολλά.

Αντικατέστησε τον παλιό κώδικα της Eval() με τον παρακάτω να δεις αν έχεις σωστά αποτελέσματα:

Public Function Eval(Rng As Range) As Currency
    Dim MyCell As Range
    For Each MyCell In Rng
        Eval = Eval + Evaluate("SUM(" & Replace(Replace(MyCell, "€", ""), ",", ".") & ")")
    Next
End Function

[gfevran]

Καλησπέρα Χρήστο.
Θέλω να αθροίσω σε μια στήλη, (E2:E100) που περιέχει αριθμητικές τιμές ακολουθούμενες με το σύμβολο του €
π.χ. Ε2 10€ έως :Ε20 και να πάρω το αποτέλεσμα του αθροίσματος στο κελί D1
δες στο πιο πάνω στο συνημμένο στο φύλλο2 στο κελί D1 που βγαίνει σφάλμα #ΤΙΜΗ!
όταν υπάρχει το σύμβολο του € δεν μου κάνει άθροιση, χωρίς αυτό βέβαια είναι μια απλή SUM

[ChrisGT7]

Δοκίμασε αυτόν τον τροποποιημένο κώδικα για την Eval():

Public Function Eval(Rng As Range) As Currency
    Dim MyCell As Range, TtlSum As Currency
    For Each MyCell In Rng
        If Len(MyCell.Value) Then _
            If IsNumeric(Evaluate("SUBSTITUTE(" & MyCell.Address & ",""€"","""")") + 0) Then _
                TtlSum = TtlSum + Evaluate("SUBSTITUTE(" & MyCell.Address & ",""€"","""")")
    Next
    Eval = TtlSum
End Function

Επίσης, στο D1 δοκίμασε αυτόν τον τύπο:

=" Σύνολο: "&TEXT(Eval(E2:E100);"#.###0,00 €")

Υποθέτω πως τα δεδομένα στο Φύλλο2 γίνονται επικόλληση από κάποια εξωτική πηγή και γι' αυτό δεν θεωρούνται ως αριθμοί.

Θεωρώ όμως, στη στήλη Ε πως με μια απλή αντικατάσταση του "€" με τίποτα, οι τιμές θα γίνουν αριθμοί και με μια απλή SUM() έχεις το ίδιο αποτέλεσμα χωρίς να μπλέκεις με κώδικα.

[gfevran]

Καλημέρα Χρήστο,
με την τελευταία πρόταση σου δούλεψε τέλεια!
Σε υπερευχαριστώ.