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

الاكسل يساعدك على كتابة الكود


mn20

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

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

ثانيا ً : آمل ان يكون الموضوع غير مكرر . :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