انتخاب یک محمدوه در اکسل و all border کردن و سپس چاپ

[mhab110]

با سلام
در یک شیت که شامل یک لیست است و تعدادی سطر این لیست ثابت نیست
می خواهم با ماکرو نویسی این لیست را از ابتدا تا جایی که متن دارد و یا ( به طور مثال از ابتدا تا max(a1:a10) در این محدوده تعدادی عدد هست) را انتخاب و سپس همه سلول ها را کادر دار all border کند و در آخر این محدوده را چاپ کند
چطور می توانم این کار را انجام دهم
با تشکر

[Amir Ghasemiyan]

با سلام
در یک شیت که شامل یک لیست است و تعدادی سطر این لیست ثابت نیست
می خواهم با ماکرو نویسی این لیست را از ابتدا تا جایی که متن دارد و یا ( به طور مثال از ابتدا تا max(a1:a10) در این محدوده تعدادی عدد هست) را انتخاب و سپس همه سلول ها را کادر دار all border کند و در آخر این محدوده را چاپ کند
چطور می توانم این کار را انجام دهم
با تشکر

سلام دوست عزيز

خيلي راحت ميتونيد با اين كد محدوده اي كه با A1 شروع ميشه رو انتخاب كنيد. بعد فقط كافيه تنظيمات مورد نظرتون در مورد پرينت رو بعدش اعمال كنيد :

Range("A1").CurrentRegion.BorderAround xlContinuous, xlThin