Forum - Συναρτήσεις Αφαίρεση IFERROR από πολλά και διαφορετικά κελιά

Forum (https://www.ms-office.gr/forum/)

- Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)

- - [Συναρτήσεις] Αφαίρεση IFERROR από πολλά και διαφορετικά κελιά (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/4645-afairesi-iferror-apo-polla-kai-diaforetika-kelia.html)

vasilis79

30-07-17 18:59

Αφαίρεση IFERROR από πολλά και διαφορετικά κελιά

Καλησπέρα σας.
Όπως λέει κ ο τίτλος του θέματος έχω διάφορα κελιά με την συνάρτηση IFERROR.
π.χ =IFERROR(POISSON.DIST(5;A1;FALSE);0)
Αυτήν την μορφή την έχουν αρκετά κελιά.Εγώ θέλω να αφαιρέσω το =IFERROR και να μείνει μόνο το =POISSON.DIST(5;A1;FALSE).
Για να γλυτώσω να τα κάνω όλα ένα-ένα υπάρχει κάποιος τρόπος να γίνουν όλα μαζεμένα ?
Ευχαριστώ εκ των προτέρων !

Spirosgr

30-07-17 20:59

Κώδικας:

Sub Delete_IFERs()

    Dim iRng As Range

    With ActiveSheet

        Set iRng = .Cells.Find("IFERROR", LookIn:=xlFormulas, lookat:=xlPart, MatchCase:=False)

        While Not iRng Is Nothing

            iRng.Formula = "=" & Mid(iRng.Formula, 10, InStrRev(iRng.Formula, ",") - 10)

            Set iRng = .Cells.FindNext(iRng)

        Wend

    End With
 End Sub

*Λειτουργεί στο Ενεργό φύλλο.
*Αν οι συναρτήσεις που περιέχουν την =IFERROR(), καταλήγουν σε σφάλμα,
το σφάλμα θα εμφανιστεί στο κελί (πχ διαίρεση με 0)

Η ώρα είναι 17:19.

Search Engine Optimization by vBSEO 3.3.2