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

[mhab110]

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

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[Amir Ghasemiyan]

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

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

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

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