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

[gfevran]

Καλημέρα,
θέλω να αθροίσω π.χ. στήλη (Α1:A10) που στο τέλος του αριθμού περιέχουν το σύμβολο του €
δηλ. 10€+15€ κ.τ.λ.
Ευχαριστώ για όποια βοήθεια.

[ChrisGT7]

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

Μια προσέγγιση είναι μέσω κώδικα. Δηλαδή, δημιούργησε στο βιβλίο εργασίας σου μια module και επικόλλησε τον παρακάτω κώδικα:

Public Function Eval(Rng As Range) As Currency
    Eval = Evaluate("SUM(" & Replace(Replace(Rng, "€", ""), ",", ".") & ")")
End Function

Αυτό δημιουργεί τη συνάρτηση Eval(). Μ' αυτόν τον τρόπο αν πληκτρολογήσεις π.χ. =Eval(A1) θα υπολογίσει το άθροισμα που χρειάζεσαι, όπου Α1 το κελί που βρίσκεται το κείμενο προς μετατροπή.

[gfevran]

Σ' Ευχαριστώ πολύ Χρήστο.
Δούλεψε τέλεια.