تابع iferror

[پیام]

درود به همه. جدولی داریم که مثلا حدود 500 ردیف و 40 ستون داره و با فرمول تک تک سلول هاش محاسبه انجام میده. در ابتدای فرمول نویسی تابع iferror استفاده نشده و به همین دلیل خیلی از خونه هاش پیغام خطای تقسیم بر صفر میده. چطور باید برای تک تک خونه هاش تابع iferror تعریف کنم که به جای پیام خطا، صفر نمایش بده؟ تک تک سلول ها رو نمیشه فرمول نویسی مجدد کرد. راه حلی غیر از تک تک کار کردن هست؟ ممنونم.

[mokaram]

شما برای یه خونه بنویس تعمیم بده به بقیه خونه ها با درگ کردن فرمول

[پیام]

آخه فرمول سلول ها با هم متفاوته.نمیشه درگ کرد.

[Amir Ghasemiyan]

درود به همه. جدولی داریم که مثلا حدود 500 ردیف و 40 ستون داره و با فرمول تک تک سلول هاش محاسبه انجام میده. در ابتدای فرمول نویسی تابع iferror استفاده نشده و به همین دلیل خیلی از خونه هاش پیغام خطای تقسیم بر صفر میده. چطور باید برای تک تک خونه هاش تابع iferror تعریف کنم که به جای پیام خطا، صفر نمایش بده؟ تک تک سلول ها رو نمیشه فرمول نویسی مجدد کرد. راه حلی غیر از تک تک کار کردن هست؟ ممنونم.

Sub iferroradd()
Dim c As Range
For Each c In Range("[COLOR="#FF0000"][COLOR="#FF0000"]A1:A3
سلام دوست عزيز
شما ميتونين از اين كد ماكرو كمك بگيرين.
فقط محدوده رو بايد مطابق محدوده خودتون تغيير بدين. با رنگ قرمز مشخصش كردم
[/COLOR]")
    a = Right(c.Formula, Len(c.Formula) - 1)
    c = "=iferror(" & a & "," & """"")"
Next c
End Sub

[/COLOR]