حسين مامون قام بنشر مارس 13, 2017 قام بنشر مارس 13, 2017 السلام عليكم ورحمة الله اخواني : احتاج الى كود لرسم حدود الخلايا المحددة في مدى a1:d10 جزاكم الله خيرا
سليم حاصبيا قام بنشر مارس 13, 2017 قام بنشر مارس 13, 2017 14 دقائق مضت, حسين مامون said: السلام عليكم ورحمة الله اخواني : احتاج الى كود لرسم حدود الخلايا المحددة في مدى a1:d10 جزاكم الله خيرا هذا الماكرو البسيط Sub My_Borders() Range("A1:D10").Borders.LineStyle = 1 End Sub 1
حسين مامون قام بنشر مارس 13, 2017 الكاتب قام بنشر مارس 13, 2017 اشكرك اخي واسال الله ان يجازيك على جميع اعمالك تحياتي 4 دقائق مضت, حسين مامون said: اشكرك اخي واسال الله ان يجازيك على جميع اعمالك تحياتي 8 دقائق مضت, سليم حاصبيا said: هذا الماكرو البسيط Sub My_Borders() Range("A1:D10").Borders.LineStyle = 1 End Sub وللعكس يعني مسح رسم حدود الخلايا ما الكود المطلوب
سليم حاصبيا قام بنشر مارس 13, 2017 قام بنشر مارس 13, 2017 15 دقائق مضت, حسين مامون said: اشكرك اخي واسال الله ان يجازيك على جميع اعمالك تحياتي وللعكس يعني مسح رسم حدود الخلايا ما الكود المطلوب استبدل الرقم 1 بالرقم 0 1
سليم حاصبيا قام بنشر مارس 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
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.