30-07-17, 20:59
|
 | Συντονιστής Όνομα: Σπύρος Τσιλιγιάννης Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 22-11-2011 Περιοχή: Αθήνα
Μηνύματα: 2.321
| |
Κώδικας: 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) |