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

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • mhab110
    • 2017/12/03
    • 3
    • 47.00

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

    با سلام
    در یک شیت که شامل یک لیست است و تعدادی سطر این لیست ثابت نیست
    می خواهم با ماکرو نویسی این لیست را از ابتدا تا جایی که متن دارد و یا ( به طور مثال از ابتدا تا max(a1:a10) در این محدوده تعدادی عدد هست) را انتخاب و سپس همه سلول ها را کادر دار all border کند و در آخر این محدوده را چاپ کند
    چطور می توانم این کار را انجام دهم
    با تشکر
    Last edited by mhab110; 2018/01/08, 16:40.
  • Amir Ghasemiyan

    • 2013/09/20
    • 4598
    • 100.00

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

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

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

    کد:
    Range("A1").CurrentRegion.BorderAround xlContinuous, xlThin

    کامنت

    چند لحظه..