همزمانی درج اطلاعات در دو صفحه اکسل

در خیلی از دوره های آموزشی با این سوال مواجه می شوم :  

دو صفحه اکسل داریم که می خواهیم هرچه در اولی نوشته شد در دومی هم نوشته شود.

امروز فرصت یافتم تا پاسخ آن را با همه دوستان به اشتراک بگزارم.

برای انجام این کار باید در محیط اکسل با فشار دادن کلیدهای Alt + F11 به محیط VBA بروید.

سپس در پنجره سمت چپ (Project Explorer) روی عبارت This Workbook دابل کلیک کنید تا ماژول Workbook باز شود.

 سپس مطابق تصویر زیر درون رویداد Change از شیء Workbook کد زیر را بنویسید :

توضیح کد هم بسیار ساده است :

اینکه کد درون رویداد Change نوشته شده به این معنی است که به طور خودکار بعد از انجام هر تغییری در هر صفحه ای اجرا می شود.

آرگومان Target به محدوده ای که تغییر یافته اشاره می کند و حلقه موجود برای هر خانه از محدوده تغییر یافته همان مقدار را در همان آدرس از Sheet2 دوباره می نویسد.

به همین سادگی !

برای دریافت فایل نمونه به پیوست همین مقاله مراجعه کنید. داخل Sheet1 آن بنویسید و ببینید که عینا در Sheet2 کپی می شود.