كود رسم حدود الخلايا

[حسين مامون]

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

اخواني :  احتاج الى كود لرسم حدود الخلايا المحددة في مدى a1:d10

  

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

[سليم حاصبيا]

14 دقائق مضت, حسين مامون said:

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

اخواني :  احتاج الى كود لرسم حدود الخلايا المحددة في مدى a1:d10

  

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

هذا الماكرو البسيط

Sub My_Borders()
Range("A1:D10").Borders.LineStyle = 1
End Sub

 

[حسين مامون]

اشكرك اخي واسال الله ان يجازيك على جميع اعمالك

تحياتي

4 دقائق مضت, حسين مامون said:

اشكرك اخي واسال الله ان يجازيك على جميع اعمالك

تحياتي

 

8 دقائق مضت, سليم حاصبيا said:

هذا الماكرو البسيط

Sub My_Borders()
Range("A1:D10").Borders.LineStyle = 1
End Sub

 

وللعكس يعني مسح رسم حدود الخلايا ما الكود المطلوب 

 

[سليم حاصبيا]

15 دقائق مضت, حسين مامون said:

اشكرك اخي واسال الله ان يجازيك على جميع اعمالك

تحياتي

 

وللعكس يعني مسح رسم حدود الخلايا ما الكود المطلوب 

 

استبدل الرقم 1 بالرقم 0

[حسين مامون]

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

[سليم حاصبيا]

يمكنك استعمال هذا الماكرو للتبديل

Sub My_Borders1()
If Range("A1:D10").Borders.LineStyle = -4142 Then
 Range("A1:D10").Borders.LineStyle = 1
 Else
 Range("A1:D10").Borders.LineStyle = -4142
 End If
End Sub

 

[حسين مامون]

حفظك الله اخي