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

[حسين مامون]

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

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

  

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

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

  في 13‏/3‏/2017 at 15:26, حسين مامون said:

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

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

  

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

Expand  

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

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

 

[حسين مامون]

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

تحياتي

  في 13‏/3‏/2017 at 15:45, حسين مامون said:

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

تحياتي

Expand  

 

  في 13‏/3‏/2017 at 15:41, سليم حاصبيا said:

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

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

 

Expand  

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

 

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

  في 13‏/3‏/2017 at 15:45, حسين مامون said:

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

تحياتي

 

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

 

Expand  

استبدل الرقم 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

 

[حسين مامون]

حفظك الله اخي