اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

جزاكم الله خيرا أساتذتنا الكبار

أريد كود لمسح بيانات نطاقين دفعة واحدة

النطاق الأول  D3:AK32

النطاق الثاني AM3:BL32

اسم الشيت res_gen

وأين يوضع الكود

و أحسن الله إليكم مسبقا

  • Like 1
قام بنشر

لم أقم بإرفاق ملف لأنني أركز أكثر على مبدأ التعلم و الاعتماد على الذات مع ما يترتب عن ذلك من إزعاج لأساتذة المنتدى ولكن رجائي كبير في كرمهم و سعة صدورهم

فلكم مني كل المحبة و التقدير

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

سؤال ثان هو : هل للكود نفس أداء ماكرو مسجل بالطريقة الاعتيادية ؟

قام بنشر

السلام عليكم

بعد اذن الاخ / احمد عبد الناصر  ... جزاه الله خيرا

 

ضع الكود هكذا في كود الزر المطلوب

Private Sub CommandButton1_Click()
Sheets("res_gen").Range("D3:AK32,AM3:BL32").ClearContents
End Sub

او قم بعمله كماكرو بالطريقة التاليه وربط هذا الكود باي شكل تلقائي تريده

Sub sohaib()
Sheets("res_gen").Range("D3:AK32,AM3:BL32").ClearContents
End Sub

اما بالنسبة للماكرو والكود فهما نفس الشئ بالضبط

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

ولكنه يؤدي نفس الغرض ونفس النتيجة

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

قام بنشر

جزاك الله خيرا أخي حمادة .

قمت باعتماد الحل الثاني على هذا الشكل :

06032013182249.jpg

 

و لكن النتيجة خطأ في التطبيق :

 

06032013182225.jpg

 

و ترجمة الرسالة و الله أعلم :  the index does not belong to the selection

كما أريد أن ترى الفرق بين الماكرو الثاني المختصر الذي قدمته لي و  الماكرو الأول الذي قمت بتسجيله بالطريقة الاعتيادية و الذي يبدو طويلا ... و هذا يدفعني للتساؤل ألا يؤدي هذا إلى فرق في الأداء و ثقل في البرنامج ؟

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information