كود برمجي مهمته مسح البيانات المسجلة

[skyblue]

السلام عليكم ورحمة الله وبركاته

اخواني الافاضل عندي برنامج لتسجيل القيود المالية عملته بنفسي فاسجل عليه مجموعة من القيود المالية وعند الانتهاء من قيود هذا اليوم اقوم بحفظها ,ففي اليوم التالي عندي قيود اخرى اريد ان اسجلها على نفس الصفحة مما اضطر الى مسح البيانات السابقة عن طريق التضليل ثم المسح وهذه الطريق تؤدي الى مسح بعض المعادلات احيانا واحيانا الى مسح المجاميع ومشاكل اخرى فسؤالي هو :

ماهي طريقة وضع كود برمجي يؤدي الى مسح تلك البيانات ( تصفير االشاشة من البيانات )

وتقبلوا تحياتي :)

[محمد حجازي]

السلام عليكم ...

الكود في غاية البساطة ، فقط ضع المجال الذي تريده في الكود التالي:

Sub ClearCells()
  Sheets("Sheet1").Range("---ضع المجال هنا---").ClearContents
End Sub

وانتبه إلى استخدام الفاصلة العادية في كتابة المجالات وليس الفاصلة المنقوطة ، مثال:

Sub ClearCells()
  Sheets("Sheet1").Range("A1:D5,E10,F5,G1:G4").ClearContents
End Sub