كود يضع حدود للخلية + طريقة لتحديد رسالة التحقق من الصحة

[الجزيرة]

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

توكلوا على الله بارك الله فيكم وفي علمكم

المطلوب تم شرحه بالمرفق : )

Book3.rar

[Ahmed Emannan]

مشكور اخي

[الجزيرة]

العفو أخي DVB

[وائل احمد المصري]

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

توكلوا على الله بارك الله فيكم وفي علمكم

المطلوب تم شرحه بالمرفق : )

اخي السلام عليكم

تفضل الجزء الاول من طلبك لعلة يلبي حاجتك ضعة في زر تشغيل وتوكل على الله

Selection.Borders(xlDiagonalDown).LineStyle = xlNone

    Selection.Borders(xlDiagonalUp).LineStyle = xlNone

    With Selection.Borders(xlEdgeLeft)

        .LineStyle = xlContinuous

        .Weight = xlMedium

        .ColorIndex = 3

    End With

    With Selection.Borders(xlEdgeTop)

        .LineStyle = xlContinuous

        .Weight = xlMedium

        .ColorIndex = 3

    End With

    With Selection.Borders(xlEdgeBottom)

        .LineStyle = xlContinuous

        .Weight = xlMedium

        .ColorIndex = 3

    End With

    With Selection.Borders(xlEdgeRight)

        .LineStyle = xlContinuous

        .Weight = xlMedium

        .ColorIndex = 3

    End With

[الجزيرة]

أخي الكريم abc_abc_196

بارك الله فيك ، وجعله في موازين أعمالك

وإن شاء الله نتوصل لحل الجزء الثاني عن طريق أحد الأخوه : )