اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

الكود التالي ينفذ ما طلبت:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim MyRange As Range
Dim Cell As Range

Set MyRange = [D5:E11]
For Each Cell In MyRange
If Cell = "" Then Cell = 0
Next Cell

End Sub

__________________________________________.rar

  • Like 1
قام بنشر

هكذا تكون الخبرة التى تصنع فارقا حقيقيا جوهريا

مشكور اخى على الاضافة والتى استفدت انا منها واتمنى ان يستفيد الجميع ايضا

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information