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

[أب مارية]

السلام عليكم

في الملف المرفق أريد عند عمل كليك على الدائة الخضراء والضغط على زر supprimer يقوم بحذف بيانات الجدول

شكرا على الافادة

Classeur1.rar

[البروفسير]

تفضل اخي
اتمنى ان يكون المرفق هو المطلوب


* طريقة الحل :

- حدد ثم عرف منطقة الحذف فى الجدول باسم : TR1

- من خلال طرفية vba قم بالضغط مرتين على زر الحذف من خلال الفورم .. وذلك لفتح منطقة الاكواد
سيظهر الحدث
 

Private Sub CommandButton1_Click()


End

 

اضف الكود التالي لمحو محتويات نطاق الحذف  :  Range("TR1").ClearContents

لكي يصبح الكود هكذا :
 

Private Sub CommandButton1_Click()
Range("TR1").ClearContents

End Sub

تقبل تحياتى واحترامي 

Classeur1_prof.rar

تم تعديل أكتوبر 29, 2013 بواسطه البروفسير

[أب مارية]

مشكور أخي البروفسير على المجهود الرائع 

هناك استفسار ثاني وهو على افتراض ان العمود H هو عبارة عن حاصل ضرب العمودين F و G في هذه الحالة كيف يمكن الحفاظ على هذا التنسيق بعد الضغط على زر Supprimer  

[حمادة عمر]

بعد اذن اخي الحبيب / البروفسير

 

يمكنك اخي الكريم من استثناء العمود المطلوب من النطاق الذي تريده

وذلك قم بتحد الاعمدة باستخدام الماوس وانت تضغط علي زر Ctrl  وحدد النطاقات التي تريدها واترك التي لا تريد مسحها

 

شاهد المرفق ... ضع اي شي في العمود h  لا يتم مسحة بعد الضغط علي الزر المذكور

 

جزاك الله خيرا

 

 

 

Classeur1.rar

[أب مارية]

أخي حمادة مشكور على الاهتمام

لكن المطلوب هو أنه على افتراض أنه لدينا ثلاثة أعمدة كلها تحتوي على أرقام العمود الرابع هو حاصل ضرب العمود الثاني والثالث

هنا نريد الحفاظ على هذا التنسيق بعد الحذف أي عند كتابة الأرقام في العمود الثاني والثالث فتكون النتيجة في العمود الرابع تلقائية وهذ بالطبع في كل مرة نقوم بحذف معلومات الجدول

أرجو أن يكون المطلوب واضح وأي استفسار أنا حاضر

[جمال عبد السميع]

بعد إذن أخى ( حمادة عمر )

سوف أجازف وأقدم هذا الكود لعله يكون المطلوب ، وأعدك أخى حمادة إنى لن أكررها لأنك تدرك إهتمامى بالمعادلة

ومن الداخل غير مدى العواميد التى تريد حذفها

كود حذف.rar

[أب مارية]

مشكور أخي جمال على الحل الرائع بس ماذا لو أنه كان لدينا عدة صفحات بها نفس الجدول ونريد تطبيق هذا الاجراء على الصفحة الثانية مثلا sheet2 فكيف يكون الكود

[البروفسير]

بعد اذن اخي الحبيب / البروفسير

 

يمكنك اخي الكريم من استثناء العمود المطلوب من النطاق الذي تريده

وذلك قم بتحد الاعمدة باستخدام الماوس وانت تضغط علي زر Ctrl  وحدد النطاقات التي تريدها واترك التي لا تريد مسحها

 

شاهد المرفق ... ضع اي شي في العمود h  لا يتم مسحة بعد الضغط علي الزر المذكور

 

جزاك الله خيرا

ولا يهمك استاذنا حمادة عمر مجرد زيارتك تسرنا فما بالك بتعليق منك .. ؟؟

بارك الله لنا فيك ونفعنا الله بعلمك ..  استاذنا الحبيب

 

 

[البروفسير]

بعد إذن أخى ( حمادة عمر )

سوف أجازف وأقدم هذا الكود لعله يكون المطلوب ، وأعدك أخى حمادة إنى لن أكررها لأنك تدرك إهتمامى بالمعادلة

ومن الداخل غير مدى العواميد التى تريد حذفها

بالعكس استاذنا جمال عبد السميع .. استاذ بالمعادلات وبالاكواد .. كود رائع بارك الله فيك ..

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

تقبل تحياتى

[البروفسير]

مشكور أخي جمال على الحل الرائع بس ماذا لو أنه كان لدينا عدة صفحات بها نفس الجدول ونريد تطبيق هذا الاجراء على الصفحة الثانية مثلا sheet2 فكيف يكون الكود

اخي  foular

جرب المرفق

لعله يكون المطلوب .. تم تنفيذه على ثلاث شيتات .. اذا اردت اكثر من هذا او تعديلها يمكنك من خلال طرفية vba

تقبل تحياتى

_profكود حذف.rar

[حمادة عمر]

السلام عليكم

الاخ الحبيب / البروفسير

بارك الله فيك

لك مني ارق واجمل التحيات

تقبل خالص تحياتي

جزاك الله خيرا

[حمادة عمر]

السلام عليكم 

الاستاذ الحبيب القدير / جمال عبد السميع

بارك الله فيك

ومن البداية والي النهاية انت استاذي القدير

ولا يمكن القول بغير ذلك ... تعلمت وتتلمذت علي يديك  .... فأنا واحد من تلاميذك

ومثلك لا يستأذن بل يأمر دائما ونحن ننفذ

وانت كما قال اخي الحبيب / البروفسير  .... ملك واستاذ المعادلات والاكواد 

تقبل تحيات تلميذك النجيب

جزاك الله خيرا

[حمادة عمر]

ولاثراء الموضوع اكثر واكثر

يمكن وضع هذا الكود لمسح النطاق المحدد ثم وضع المعادلات المطلوبة

في الاعمدة المطلوبة بالكود بعد المسح

Sub sama1()
Range("SAMA").ClearContents
    Range("H7").FormulaR1C1 = "=RC[-2]*RC[-1]"
    Range("H7").Select
    Selection.AutoFill Destination:=Range("H7:H22"), Type:=xlFillDefault
    Range("H7:H22").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .MergeCells = False
    End With
   Range("F7").Select
End Sub

Classeur22.rar

 

[أب مارية]

شكر لكل الاخوة على هذا الجهد المبذول ولكم مني فائق التقدير والاحترام

لكن أخي البروفسير الاشكال بقي مطروح المطلوب هو عندما تكون لدينا أكثر من ورقة عمل مثلا لدينا خمس أوراق عمل كل واحدة بها جدول لكن نريد تطبيق الكود في الورقة التي نحن بصدد العمل بها أي إذا كنا في الورقة الأولى وقمنا بالضغط على زر Supprimer فيقوم بمسح محتويات جدول الورقة الأولى وإذا كنا في الورقة الثاني فيقوم بمسح محتويات جدول الورقة الثانية وهكذا.

[حمادة عمر]

هل جميع الصفحات التي تقصدها لها نفس الشكل والتنسيق

اي ان نفس الجدول هو الموجود بجميع الصفحات دون تغيير ام ماذا

 

ياريت لو ترفق ملف به مثال علي ما تريد

[أب مارية]

آسف على التأخير 

الملف المطلوب في المرفقات 

وعند الضغط على O.vernts ستظهر نافذة بها عدة أزرار نريد تطبيق المطلوب على زر Vider chemps

Projet.rar

[البروفسير]

جرب المرفق لعله يكون المطلوب
يعمل الزر على الصفحة النشطة لا يهم اسمها ..
تقبل تحياتى
 

_prof2كود حذف.rar

[أب مارية]

تسلم أخي البروفسير  هذا هو المطلوب أسال الله أن يتقبل منك ومن جميع الاخوة الكرام

لي سؤال ثاني وهو كالآتي:

لتك لدينا صفحتان الأولى بها جدول به مجموعة من السلع مرقمة ومرتبة ترتيبا أبجديا وبها معلومات متعلقة بسعر الشراء وعدد الوحدات الفعلية بالمخزون وتاريخ الشراء إلى غير ذلكمن المعلومات

والورقة الثانية عبارة عن يومية يدون بها ما تم بيعه خلال الشهر.

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

[أب مارية]

للرفع

[البروفسير]

الحمد لله ان الطلب الاول تم على خير
هحاول اخلص لك التانى .. بس اليومين دول مضغوط فى الشغل قوي .. اعذرنى اخي

[أب مارية]

مشكور أخي البروفسير على الاهتمام والله يكون في عونك وأنا في انتظار ردك

[أب مارية]

للرفع

[أب مارية]

السلام عليكم لدي مشكل لمم أجد له حل منذ مدة طويلة وهو كالتالي:

لتكن لدينا صفحتان الأولى بها جدول به مجموعة من السلع مرقمة ومرتبة ترتيبا أبجديا وبها معلومات متعلقة بسعر الشراء وعدد الوحدات الفعلية بالمخزون وتاريخ الشراء إلى غير ذلكمن المعلومات

والورقة الثانية عبارة عن يومية يدون بها ما تم بيعه خلال الشهر.

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

أرجو المساعدة