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

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

قام بنشر

اولا : اريد ان اقدم عذري لانني مستجد في هذا البرنامج العريق ( الإكسيل ) .

ثانيا ً : آمل ان يكون الموضوع غير مكرر . :imsorry:

ثالثاً : صلب الموضوع

عندما تكون في حاجة ماسة و عاجلة لكتابة كود معين (مثلاً ازالة الحدود عن مجموعة من الخلايا ) وأنت لا تعرف كيف تفعل ذلك اتبع الخطوات التالية :

1- اذهب الى ادوات - ماكرو - تسجيل ماكرو .

2- ضع اسماً للماكرو حسب الاستخدام - ثم موافق .

3- حدد الخلايا التي تريد ازالة الحدود عنها .

4- من تنسيخ خلايا ( قم بازالة الحدود المطلوبة ) .

5- من ادوات - ماكرو - ايقاف التسجيل.

6- من ادوات - ماكرو - محرر Visual Basic .

7- من محرر الفيجول بيسك اذهب الى Module .

8- سوف تجد الماكرو الذي سجلته .

رابعاً : آمل ان تكون الخطوات السابقة واضحة . :blink:

خامساً : ارجو ارفاق ابداعتكم مثلاً :

Sub حذف_الحدود()
'
' ماكرو حذف_الحدود
'  mn20      اضيف بواسطة 
'

'
    Range("D8:F12").Select
    Range("F8").Activate
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
End Sub

:cool2::cool2:

سادساً : للجميع تحياتي و تقديري :fff::fff:

قام بنشر (معدل)

اخي ابا عبدالله ( الجزيرة ) اشكرك على المشاركة

الموضوع يحتاج تجارب و ابداعات الاعضاء

و شكرا لمرور من شرفنا

و اقدم اعتذاري لانشغالي قليلا عن المنتدى

تم تعديل بواسطه mn20
قام بنشر

كل عام وانتم بخير بمناسبة شهر رمضان الكريم

ندعو الله أن يشارك أساتذة المنتدى ومرتاديه

في هذا الموضوع المفيد فعلا للميتدئين

ولكم تحياتنا

قام بنشر

ارجو من الاخوة الكرام التجربة و افادتنا بابداعاتهم . .

شكرا اخي انس علي على المشاركة

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

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

Important Information