پر شدن اتوماتیک سلول های یک ستون بر اساس سلول اول آن ستون

[mahdi63]

با سلام و ادب خدمت اساتید و دوستان معزز
میخوام وقتی که در سلول k4 نوشته بشه مثلا «سه شنبه» (یا هر روز دیگه) به صورت اتوماتیک در سلول های بعدی همون ستون نام روز بعد (در این مثال چهارشنبه) نوشته بشه و تا سلول k34 این کار انجام بشه (یعنی ایام مربوط به یک ماه 31 روزه)

[M_ExceL]

با سلام و ادب خدمت اساتید و دوستان معزز
میخوام وقتی که در سلول k4 نوشته بشه مثلا «سه شنبه» (یا هر روز دیگه) به صورت اتوماتیک در سلول های بعدی همون ستون نام روز بعد (در این مثال چهارشنبه) نوشته بشه و تا سلول k34 این کار انجام بشه (یعنی ایام مربوط به یک ماه 31 روزه)
سلام
این کد رو داخل رویداد change شیت مورد نظر پیست کنید :


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("K3")) Is Nothing Then
On Error Resume Next
Application.EnableEvents = False
Range("K3").AutoFill Destination:=Range("K3:K34")
Application.EnableEvents = True
End If
End Sub


فایل رو ذخیره کرده سپس ببندید و دوباره باز کنید.

[Amir Ghasemiyan]

با سلام و ادب خدمت اساتید و دوستان معزز
میخوام وقتی که در سلول k4 نوشته بشه مثلا «سه شنبه» (یا هر روز دیگه) به صورت اتوماتیک در سلول های بعدی همون ستون نام روز بعد (در این مثال چهارشنبه) نوشته بشه و تا سلول k34 این کار انجام بشه (یعنی ایام مربوط به یک ماه 31 روزه)

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

علاوه بر روشي كه دوستمون فرمودن ميتونين از ابزارهاي خود اكسل هم استفاده كنيد

كافيه يك روز رو در سلول اول بنويسيد. بعد محدوده اي كه ميخواهيد ايام نوشته بشه رو انتخاب كنيد. از تب home گزينه fill و سپس series و در پنجره اي كه باز ميشه auto fill رو بزنيد

دقت داشته باشيد كه در صورتي كه اين روش عمل نكرد علتش اينه كه در custom list اكسل شما ايام هفته تعريف نشده كه بايد تعريف بشه

[mahdi63]

سلام
این کد رو داخل رویداد change شیت مورد نظر پیست کنید :


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("K3")) Is Nothing Then
On Error Resume Next
Application.EnableEvents = False
Range("K3").AutoFill Destination:=Range("K3:K34")
Application.EnableEvents = True
End If
End Sub


فایل رو ذخیره کرده سپس ببندید و دوباره باز کنید.

سلام
از راهنمایی های شما بسیار ممنونم
فقط اینکه این کد ظاهرا برای روز یکشنبه مشکل داره یعنی وقتی در سلول اول روز یکشنبه رو وارد می کنم همه سلول ها یکشنبه میشن!
امکان اصلاح این مورد وجود داره؟

- - - Updated - - -


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

علاوه بر روشي كه دوستمون فرمودن ميتونين از ابزارهاي خود اكسل هم استفاده كنيد

كافيه يك روز رو در سلول اول بنويسيد. بعد محدوده اي كه ميخواهيد ايام نوشته بشه رو انتخاب كنيد. از تب home گزينه fill و سپس series و در پنجره اي كه باز ميشه auto fill رو بزنيد

دقت داشته باشيد كه در صورتي كه اين روش عمل نكرد علتش اينه كه در custom list اكسل شما ايام هفته تعريف نشده كه بايد تعريف بشه

سلام
از راهنمایی جالب شما هم متشکرم
کاربردی بود اما این مورد هم با روز یکشنبه مشکل داره یعنی مثل کد دوست خوبمون وقتی در سلولی یکشنبه رو می نویسی همه سلول ها یکشنبه میشن!
آیا این مشکل مشترک نشانه چیزیه؟؟!؟!

[Amir Ghasemiyan]

سلام
از راهنمایی های شما بسیار ممنونم
فقط اینکه این کد ظاهرا برای روز یکشنبه مشکل داره یعنی وقتی در سلول اول روز یکشنبه رو وارد می کنم همه سلول ها یکشنبه میشن!
امکان اصلاح این مورد وجود داره؟

- - - Updated - - -



سلام
از راهنمایی جالب شما هم متشکرم
کاربردی بود اما این مورد هم با روز یکشنبه مشکل داره یعنی مثل کد دوست خوبمون وقتی در سلولی یکشنبه رو می نویسی همه سلول ها یکشنبه میشن!
آیا این مشکل مشترک نشانه چیزیه؟؟!؟!

احتمالا بخاطر سر هم نوشتن یا ننوشتن یکشنبس
یک شنبه
یکشنبه

و یک مورد دیگه هم ممکنه بخاطر حرف ی باشه که عربی یا فارسی نوشته شده باشه

[M_ExceL]

سلام
از راهنمایی های شما بسیار ممنونم
فقط اینکه این کد ظاهرا برای روز یکشنبه مشکل داره یعنی وقتی در سلول اول روز یکشنبه رو وارد می کنم همه سلول ها یکشنبه میشن!
امکان اصلاح این مورد وجود داره؟

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