تنظیم حرکت بین سل ها

[kohan]

با سلام خدمت اساتید محترم
در یک شیت میخواهم بگونه ای تنظیمات داشته باشم که با فشردن دکمه اینتر حرکت در سل ها به ترتیبی که مورد نظر است انجام شود نه ترتیب اکسل
در واقع سئوال اینست که حرکت در سل ها با فشردن اینتر طبق چه تنظیماتی هست و چگونه میتوان این تنظیمات را تغییر داد
با تشکر از عنایت شما

[mohammad_ashooryan]

سلام از تنظيمان اكسل طبق شكل زير انتخاب كنيد.

[حسام بحرانی]

با سلام خدمت اساتید محترم
در یک شیت میخواهم بگونه ای تنظیمات داشته باشم که با فشردن دکمه اینتر حرکت در سل ها به ترتیبی که مورد نظر است انجام شود نه ترتیب اکسل
در واقع سئوال اینست که حرکت در سل ها با فشردن اینتر طبق چه تنظیماتی هست و چگونه میتوان این تنظیمات را تغییر داد
با تشکر از عنایت شما

با سلام،
در حالت کلی در زمان اینتر حرکت به سلول را از روش زیر می توان تغییر داد.

در حالت اختصاصی، یعنی حرکت به سلول ها طبق قاعده خاص، پیشنهاد می کنم به اینجا مراجعه نمایید.
موفق باشید.

[s.cheraghi]

سلام
شما میتونین از مسیر زیر به صورت دستی مسیر حرکت را بعد از فشردن اینتر مشخص کنین:

Options>Advance>After Pressing Enter, Move Selection 

و از لیست مسیر آن را مشخص کنین.
برای اینکه به صورت کد این کار رو انجام بدین از کد زیر استفاده کنین:

Application.MoveAfterReturnDirection = xlDown 

میتونین مقادیر مختلف رو از این طریق انتخاب کنین و یا به هر متغیر دیگر متصل بشه.
موفق باشین

[kohan]

سلام
شما میتونین از مسیر زیر به صورت دستی مسیر حرکت را بعد از فشردن اینتر مشخص کنین:

options>advance>after pressing enter, move selection 

و از لیست مسیر آن را مشخص کنین.
برای اینکه به صورت کد این کار رو انجام بدین از کد زیر استفاده کنین:

application.moveafterreturndirection = xldown 

میتونین مقادیر مختلف رو از این طریق انتخاب کنین و یا به هر متغیر دیگر متصل بشه.
موفق باشین

با کمال تشکر از جنابعالی
میشود در مورد نحوه نگارش کلی کد کمی توضیح بدهید که چگونه آنرا گسترش بدهم
میخواهم از سل b1 به c1 سپس d1 سپس q4 و p4 بروم

[s.cheraghi]

کد زیر برای تعیین حرکت در کل ورک بوک هست که میتونین در یک ساب نوشته بشه یا در هر رویدادی که شما مدنظر دارین:

Sub Change_Direction()
application.moveafterreturndirection = xldown
End Sub 

اگر قصد دارین که زدن اینتر مسیر مشخصی را طی کند (از

سل b1 به c1 سپس d1 سپس q4 و p4):
به ترتیب این سلول ها را انتخاب کنید و شروع به وارد کردن اطلاعاتتون کنین، بعد از زدن اینتر، سلول فعال به ترتیب انتخاب سلول ها تغییر میکند.

[حسام بحرانی]

البته دقت داشته باشید، سلولی را که قصد دارید اولین داده را در آن ثبت کنید را در آخر انتخاب کنید.

در این مثال ابتدا c1 و سپس d1 و q4 و بعد r4 و در نهایت b1 را انتخاب کنید.

اینکار از طریق ضبط یک ماکرو ساده نیز امکان پذیر است.

موفق باشید.

[kohan]

متاسفانه جوابگوی نیاز من نبود
من میخواهم مثل اکسس بتوانم ترتیب هر سل را مشخص کنم انتخاب سل ها به صورتی که در همین سات فرا گرفتم در زمان لاک شدن شیت امکانپذیر نیست
اگر امکان دارد روش ماکرو را بفرمایید با این فرض که میخواهم بعضی از سلول ها قفل باشند

[حسام بحرانی]

متاسفانه جوابگوی نیاز من نبود
من میخواهم مثل اکسس بتوانم ترتیب هر سل را مشخص کنم انتخاب سل ها به صورتی که در همین سات فرا گرفتم در زمان لاک شدن شیت امکانپذیر نیست
اگر امکان دارد روش ماکرو را بفرمایید با این فرض که میخواهم بعضی از سلول ها قفل باشند

آیا در شیت مورد نظر فقط همین سلول ها باز هستند و بقیه سلول ها قفل؟

[حسام بحرانی]

اگر در زمان قفل کردن شیت، تیک گزینه ی select loocked cells رو هم مثل تصویر زیر بردارید،

در زمان Enter تنها در سلول هایی که قفل نشده اند حرکت خواهید نمود.
موفق باشید.

[ordouei]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then [C1].Select
If Target.Address = "$C$1" Then [A3].Select
If Target.Address = "$A$3" Then [E1].Select
If Target.Address = "$E$1" Then [A5].Select
If Target.Address = "$A$5" Then [G1].Select
If Target.Address = "$G$1" Then [A7].Select
End Sub