حرکت سلولی مختلف در یک کاربرگ واحد

Question

پاتریک به این فکر می کند که آیا راهی وجود دارد که حرکت سلول در یک کاربرگ در یک ورک بوک به سمت راست و در کاربرگ دیگر در همان ورک بوک به پایین حرکت کند. تنها چیزی که او می تواند پیدا کند یک تنظیم جهانی برای همه کاربرگ های ورک بوک است.

پاتریک درست می گوید؛ این تنظیم چیزی است که به صورت جهانی در اکسل مدیریت می شود. با دنبال کردن مراحل زیر می توانید تنظیمات را تغییر دهید:

شکل 1. گزینه های پیشرفته از کادر محاوره ای Excel Options.

1. کادر محاوره ای Excel Options را نمایش دهید. (در اکسل 2007 روی دکمه Office کلیک کنید و سپس روی Excel Options کلیک کنید. در اکسل 2010 یا نسخه جدیدتر، تب File را در نوار نمایش داده و سپس روی گزینه ها کلیک کنید.)
2. در سمت چپ کادر محاوره ای روی Advanced کلیک کنید. (شکل 1 را ببینید.)
3. در قسمت Editing Options، مطمئن شوید که تیک "After Pressing Enter, Move Selection" را علامت بزنید. (به طور پیش فرض باید بررسی شود.)
4. با استفاده از لیست کشویی Direction، جهت را به دلخواه تغییر دهید.
5. روی OK کلیک کنید.

این امر جهت حرکت را برای همه کتاب هایی که در اکسل باز می کنید تغییر می دهد. اگر می خواهید حرکت برای یک کاربرگ متفاوت باشد، می توانید این کار را با استفاده از چند کنترل کننده رویداد انجام دهید. دو مورد از اینها به کاربرگ متصل شده اند که می خواهید به طور متفاوتی با آن کار شود. فقط بر روی برگه کاربرگ راست کلیک کرده و کد را از منوی زمینه ایجاد شده انتخاب کنید. سپس می توانید موارد زیر را در پنجره کد قرار دهید:

Private Sub Worksheet_Activate()
    Application.MoveAfterReturnDirection = xlToRight
End Sub

Private Sub Worksheet_Deactivate()
    Application.MoveAfterReturnDirection = xlDown
End Sub

زمانی که کاربرگ فعال می شود و زمانی که کاربرگ را با انتخاب کاربرگ دیگری غیرفعال می کنید، این کنترل کننده های رویداد فعال می شوند. توجه داشته باشید که پس از فعال سازی، جهت روی xlToRight تنظیم می شود، به این معنی که حرکت به سمت راست خواهد بود. هنگامی که کاربرگ غیرفعال می شود، جهت روی xlDown تنظیم می شود که جهت پیش فرض در نظر گرفته می شود.

شما همچنین به یک کنترل کننده رویداد سوم نیاز دارید. این یکی باید به ماژول ThisWorkbook اضافه شود:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.MoveAfterReturnDirection = xlDown
End Sub

این امر ضروری است زیرا اگر اکسل را در حالی که کاربرگ "حرکت به راست" فعال است ببندید، جهت حرکت روی xlToRight تنظیم می شود. این بدان معناست که دفعه بعد که اکسل را راه اندازی می کنید، جهت پیش فرض تبدیل می شود. با قرار دادن کنترل کننده رویداد BeforeClose، اطمینان حاصل می کنید که پیش فرض آن طور که باید تنظیم شده باشد.

با این رویکرد تنها یک مشکل کوچک بالقوه وجود دارد: وقتی برای اولین بار یک ورک بوک را باز می کنید، رویداد Activate برای هر کاربرگ که ابتدا نمایش داده می شود فعال نمی شود. این بدان معناست که اگر کاربرگ "حرکت به سمت راست" شما برای ورک بوک نمایش داده شود، به طور پیش فرض، حرکت به xlToRight تغییر نخواهد کرد. همچنان روی پیش فرض تنظیم می شود که احتمالاً xlDown است. برای اجبار کنترل کننده رویداد برای اجرا، باید کاربرگ دیگری را در ورک بوک نمایش دهید و سپس به کاربرگ اصلی بازگردید. اگر ترجیح می دهید این کار را به صورت دستی انجام ندهید، می توانید یک کنترل کننده رویداد چهارم را اضافه کنید، این یکی نیز در ماژول ThisWorkbook:

Private Sub Workbook_Open()
    Sheets("Sheet2").Select
    Sheets("Sheet1").Select
End Sub

این ماکرو کاربرگ به نام Sheet2 را انتخاب می کند و سپس بلافاصله صفحه ای به نام Sheet1 را انتخاب می کند. البته باید نام کاربرگ ها را تغییر دهید تا نام های مناسب برای ورک بوک شما را نشان دهند—فقط مطمئن شوید که آخرین کاربرگ انتخاب شده، کاربرگ «حرکت به سمت راست» باشد.