ارجو كود مسح محتويات جدول

[roushdy]

ارجو كود او مكرو يقوم بمسح محتويات جدول

[سالم شباني]

السلام عليكم

تفضل أخي الملف التالي وهو عبارة عن نموذج فاتورة

عند الضغط على زر فاتورة جديدة يقوم بمسح كل محتويات الفاتورة

وهناك زر طباعة يقوم بإخفاء الصفوف الفارغة عند المعاينة

يعني ليس هناك حاجة لحذف الصفوف الفارغة فهي تختفي تلقائيا

كما يوجد في الملف دالة التفقيط

كود المسح هو :

Sub clear()

Range("A14:G45").ClearContents

End Sub

تستطيع تحديد المدى الذي تريد مسحه من خلال ("Range("A14:G45

فاتورة.rar

[roushdy]

عمل رائع ولى سؤال لو سمحت

هل يمكن ان يكون رقم الفاتورة تلقائى

[سالم شباني]

السلام عليكم

أخي رشدي أسعد الله أيامك

لكي يتم الترقيم التلقائي بعد كل مسح زد السطر التالي

[f11] = [f11] + 1

إلى الكود الخاص بالمسح المسمى clear فيصير هكذا

Sub clear()

Range("A14:G45").ClearContents

[f11] = [f11] + 1

End Sub

تم تعديل مارس 19, 2010 بواسطه سالم شباني

[roushdy]

بارك الله فيك

الف شكر

[zoom10]

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

طيب هل بالإمكان وضع كود لمحو بيانات أكثر من 40 ورقة ومحدد فيها الخلايا المطلوب محوها . أتمنى أن تساعدوني في ذلك . والله يحفظكم

0

[ammarbely]

مشكور اخي .. يعطيك العافية

[sharmsaad]

بسم الله

ارجو المساعدة في معادلة التفقيط ( تحويل الارقام الي احرف ) مبالغ بالمصري

وشكرا