حسين مامون قام بنشر مارس 13, 2017 مشاركة قام بنشر مارس 13, 2017 السلام عليكم ورحمة الله اخواني : احتاج الى كود لرسم حدود الخلايا المحددة في مدى a1:d10 جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مارس 13, 2017 مشاركة قام بنشر مارس 13, 2017 14 دقائق مضت, حسين مامون said: السلام عليكم ورحمة الله اخواني : احتاج الى كود لرسم حدود الخلايا المحددة في مدى a1:d10 جزاكم الله خيرا هذا الماكرو البسيط Sub My_Borders() Range("A1:D10").Borders.LineStyle = 1 End Sub 1 رابط هذا التعليق شارك More sharing options...
حسين مامون قام بنشر مارس 13, 2017 الكاتب مشاركة قام بنشر مارس 13, 2017 اشكرك اخي واسال الله ان يجازيك على جميع اعمالك تحياتي 4 دقائق مضت, حسين مامون said: اشكرك اخي واسال الله ان يجازيك على جميع اعمالك تحياتي 8 دقائق مضت, سليم حاصبيا said: هذا الماكرو البسيط Sub My_Borders() Range("A1:D10").Borders.LineStyle = 1 End Sub وللعكس يعني مسح رسم حدود الخلايا ما الكود المطلوب رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مارس 13, 2017 مشاركة قام بنشر مارس 13, 2017 15 دقائق مضت, حسين مامون said: اشكرك اخي واسال الله ان يجازيك على جميع اعمالك تحياتي وللعكس يعني مسح رسم حدود الخلايا ما الكود المطلوب استبدل الرقم 1 بالرقم 0 1 رابط هذا التعليق شارك More sharing options...
حسين مامون قام بنشر مارس 13, 2017 الكاتب مشاركة قام بنشر مارس 13, 2017 جزاك الله خيرا اخي رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مارس 13, 2017 مشاركة قام بنشر مارس 13, 2017 يمكنك استعمال هذا الماكرو للتبديل 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 2 رابط هذا التعليق شارك More sharing options...
حسين مامون قام بنشر مارس 13, 2017 الكاتب مشاركة قام بنشر مارس 13, 2017 حفظك الله اخي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان