امين اسماعيلي
2014/04/12, 03:09
به نام خداوندگار ایران زمین
با درود
Copy page setups to other sheets
اعمال تنظیمات Page setup یک شیت برای شیت های دیگر .
منظور چیه : منظور اینه که ما یه شیت رو از نظر مثلا portrait یا landscape بودن و header و ..... تنظیم کردیم و میخواهیم این تغییر برای مابقی شیت ها هم اعمال شود . پس ابتدا شیت مورد نظر را انتخاب و بعد با نگه داشتن Ctrl مابقی شیت ها رو که میخوایم انتخاب میکنیم . البته شاین ذکر است که اگر شیت ها پشت سر هم بودن بخوایم میتونیم shift رو نگه داریم (یادت نره اول اون شیتی رو که میخوایم page setup اون رو بقیه اعمال بشه رو انتخاب کرده باشیم) و سپس اخرین شیت رو انتخاب کنیم که همه اون شیت هایی که مابین هستن انتخاب شن. حالا از قسمت تب بالا (2010 و 2007) بخش بخش page layout/ page setup رو انتخاب و بدون اینکه بخوایم حتی تنظیماتی رو که لحاظ کردیمو نگاه کنیم Ok میزنم . سپس شیت ها رو از حالت Group خارج میکنیم با کلیک بر رو یکیش .
نکتهاگر همه شیت ها رو یه جا خاصین که رو همون شیتی که میخواین کلیک راست و سپس گزینه select all sheet رو زده و مابقی طبق بالا.
2-Copy page setups across workbooks
حالا فرض میکنیم خواستیم یه سری فایل اکسل باز داریم و page setup یکی از شیت های یکی شو به شیتهای ورک بوک های باز انتقال بدیم حالا چیکار کنیم واییی من
برای اینکار با من قدم به قدم پیش برین
1- ابتدا تو هر کدومشون طبق گفته بالا شیتهایی رو که میخواین تغییرات page setup وش لحاظ بشه گروپ کنید . بعد فایل ای رو که اون شیت اصلی که تغییراتش باید رو فایل های دیگه لحاظ بشه رو انتخاب و یه خط کد تو قسمت ویژوال بنویسین (Alt+F11 ) سپس insert و بعد یک module بعد مثلا بنویسین sub amin و اینتر کنین حال یه خط مثل End sub اخرش اظافه شد مابین این 2 تا کد زیر رو بنویسین
Application.Dialogs(xlDialogWorkgroup).Show
حالا صفحه کد خودتونو ببندید (Alt |+F4 یا ضربدر بالای بالا سمت راست ) حالا اون شیت اصلی رو انتخاب اگرم میخواین تو همین اکسل مذکور هم تغییرات روی شیتهای دیگه ای لحاظ بشه پس از انتخاب شیت اصلی بقیه اونهارو هم گروپ کنین همانطور که بالا گفته شد حالا اون خط کد باید اجرا بشه که میتونین مانند قبل همونجا که نوشتین رفته و مابین اون خطوط مکان نا رو قرار بدین و F5 رو بزنیمن یا در تب Developer بخش macro رانش کنین(البته میبخشین این همه قصه رو ساده بیان میکنم با توضیح چون ممکنه بقیه دوستان هم که قصه میخوان تا خوابشون ببره متوجه نشن وگرنه همتون واردینااااا) حالا یه پنجره با ران شدن فعال میشه که همه شیت های فعال تمام ورک بوک های باز و فعال رو نشون میده الان همه اکتیوند اگر چشیمون شدین میتونین شیت هایی رو از حالت select ohv خارج کنین ok رو بزنین بعدش page layout/ page setup و سپس اکی تموم. یادتون نره شیت ها رو از گروچ خارج کنین.
میدونم همه بلد بودین ولی خب قصه بود دیگه ................
وای خسته شدم به خدا چقدر حرف زدم تا شبی دیگه و قصه ای دیگه خداوندگار ایران زمین نگهدار همتون
با درود
Copy page setups to other sheets
اعمال تنظیمات Page setup یک شیت برای شیت های دیگر .
منظور چیه : منظور اینه که ما یه شیت رو از نظر مثلا portrait یا landscape بودن و header و ..... تنظیم کردیم و میخواهیم این تغییر برای مابقی شیت ها هم اعمال شود . پس ابتدا شیت مورد نظر را انتخاب و بعد با نگه داشتن Ctrl مابقی شیت ها رو که میخوایم انتخاب میکنیم . البته شاین ذکر است که اگر شیت ها پشت سر هم بودن بخوایم میتونیم shift رو نگه داریم (یادت نره اول اون شیتی رو که میخوایم page setup اون رو بقیه اعمال بشه رو انتخاب کرده باشیم) و سپس اخرین شیت رو انتخاب کنیم که همه اون شیت هایی که مابین هستن انتخاب شن. حالا از قسمت تب بالا (2010 و 2007) بخش بخش page layout/ page setup رو انتخاب و بدون اینکه بخوایم حتی تنظیماتی رو که لحاظ کردیمو نگاه کنیم Ok میزنم . سپس شیت ها رو از حالت Group خارج میکنیم با کلیک بر رو یکیش .
نکتهاگر همه شیت ها رو یه جا خاصین که رو همون شیتی که میخواین کلیک راست و سپس گزینه select all sheet رو زده و مابقی طبق بالا.
2-Copy page setups across workbooks
حالا فرض میکنیم خواستیم یه سری فایل اکسل باز داریم و page setup یکی از شیت های یکی شو به شیتهای ورک بوک های باز انتقال بدیم حالا چیکار کنیم واییی من
برای اینکار با من قدم به قدم پیش برین
1- ابتدا تو هر کدومشون طبق گفته بالا شیتهایی رو که میخواین تغییرات page setup وش لحاظ بشه گروپ کنید . بعد فایل ای رو که اون شیت اصلی که تغییراتش باید رو فایل های دیگه لحاظ بشه رو انتخاب و یه خط کد تو قسمت ویژوال بنویسین (Alt+F11 ) سپس insert و بعد یک module بعد مثلا بنویسین sub amin و اینتر کنین حال یه خط مثل End sub اخرش اظافه شد مابین این 2 تا کد زیر رو بنویسین
Application.Dialogs(xlDialogWorkgroup).Show
حالا صفحه کد خودتونو ببندید (Alt |+F4 یا ضربدر بالای بالا سمت راست ) حالا اون شیت اصلی رو انتخاب اگرم میخواین تو همین اکسل مذکور هم تغییرات روی شیتهای دیگه ای لحاظ بشه پس از انتخاب شیت اصلی بقیه اونهارو هم گروپ کنین همانطور که بالا گفته شد حالا اون خط کد باید اجرا بشه که میتونین مانند قبل همونجا که نوشتین رفته و مابین اون خطوط مکان نا رو قرار بدین و F5 رو بزنیمن یا در تب Developer بخش macro رانش کنین(البته میبخشین این همه قصه رو ساده بیان میکنم با توضیح چون ممکنه بقیه دوستان هم که قصه میخوان تا خوابشون ببره متوجه نشن وگرنه همتون واردینااااا) حالا یه پنجره با ران شدن فعال میشه که همه شیت های فعال تمام ورک بوک های باز و فعال رو نشون میده الان همه اکتیوند اگر چشیمون شدین میتونین شیت هایی رو از حالت select ohv خارج کنین ok رو بزنین بعدش page layout/ page setup و سپس اکی تموم. یادتون نره شیت ها رو از گروچ خارج کنین.
میدونم همه بلد بودین ولی خب قصه بود دیگه ................
وای خسته شدم به خدا چقدر حرف زدم تا شبی دیگه و قصه ای دیگه خداوندگار ایران زمین نگهدار همتون