درج تاریخ روز خودکار

[fidarbearing]

ممنونم درست شد

[Amir Ghasemiyan]

نصب کردم
الان توی یکی از سلول ها مینویسم =j_today() بهم جواب میده

فايلي كه پيوست كردم رو ملاحظه كنيد. بدون مشكل داره كار ميكنه
درضمن اگر خواستيد سال رو 4 رقمي درج كنه اينطوري بنويسيد:

j_today(1)

[fidarbearing]

عرض كردم كه ابتدا بايد افزونه شمسي ساز رو اضافه كنيد بعد از تابع j_today استفاده كنيد
لطفا فايل پيوست رو ملاحظه كنيد

نصب کردم
الان توی یکی از سلول ها مینویسم =j_today() بهم جواب میده

[Amir Ghasemiyan]

خدمت شما

عرض كردم كه ابتدا بايد افزونه شمسي ساز رو اضافه كنيد بعد از تابع j_today استفاده كنيد
لطفا فايل پيوست رو ملاحظه كنيد

[fidarbearing]

سلام
فايلتون كد نداره. با فرمت xls ذخيره كنيد بفرستيد

خدمت شما

[Amir Ghasemiyan]

سلام
ممنونم بابت پاسختون
من تابع رو پیدا کردم و جایگزین کردم اما ارور میده میشه شما فایل من رو چک کنید لطفا

سلام
فايلتون كد نداره. با فرمت xls ذخيره كنيد بفرستيد

[fidarbearing]

خب در این صورت شما باید افزونه شمسی ساز رو نصب کنید و در کدی که خدمتتون تقدیم کردم بجای Date عبارت J_TODAY() رو قرار بدید
اگر برای نصب افزونه مشکل دارید تو انجمن سرچ کنید. هم افزونه هست هم راه نصب

سلام
ممنونم بابت پاسختون
من تابع رو پیدا کردم و جایگزین کردم اما ارور میده میشه شما فایل من رو چک کنید لطفا

[saed.rasa]

سلام

می توانید در صورت نیاز، افزونه تاریخ شمسی را از لینک زیر دانلود کنید(تاپیک 4 - فایل Zip)

https://forum.exceliran.com/showthread.php/16769-%D8%A7%D8%AE%D8%AA%D9%84%D8%A7%D9%81-%D8%A8%DB%8C%D9%86-%D8%AF%D9%88-%D8%AA%D8%A7%D8%B1%DB%8C%D8%AE-%D8%B4%D9%85%D8%B3%DB%8C

شاداب باشید!

[fidarbearing]

سلام
از Add-in اضافه کنید لطفا

ممنون بابت کمکتون حالا به جای اون Date که گفتن باید تغییر بدم چی بنویسم من ؟

[saed.rasa]

سلام
از Add-in اضافه کنید لطفا

[fidarbearing]

سلام مرسی بابت کمکتون
من این افزونه رو نتونستم پیدا کنم یکی دیگه بود که از m2s استفاده میکرد اما اونو زدم ارور داد میشه لینک این افزونه رو برام بزارید ؟

[Amir Ghasemiyan]

آفیسم 2010 است

خب در این صورت شما باید افزونه شمسی ساز رو نصب کنید و در کدی که خدمتتون تقدیم کردم بجای Date عبارت J_TODAY() رو قرار بدید
اگر برای نصب افزونه مشکل دارید تو انجمن سرچ کنید. هم افزونه هست هم راه نصب

[fidarbearing]

براي اينكه در ستون D بنويسه كافيه

Target.Offset(0, 1)

رو به

Target.Offset(0, 2)

تغيير بديد.

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

آفیسم 2010 است

[Amir Ghasemiyan]

سلام
این تاریخ شمسی add in رو دانلود کردم از چنتا سایت اما کار نمیکنه نمیدونم چرا

- - - Updated - - -

مرسی این درست کار میکنه اما انگلیسی هست تاریخ و اینکه من اشتباه گفتم میخوام توی B بنویسم توی D تاریخ بزنه فارسی
باید چه تغییراتی بدم ؟

- - - Updated - - -


این کد رو زدم خیلی غیره منتظره درست جواب داد چون من اصلا نمیدونستم توی اکسل میشه کد نوشت
اصلا انتظار نداشتم بار اول که کپی پیست میکنم در جای درست این کار رو بکنم
فقط اینکه به جای ستون c میخوام توی D تاریخ بزنه و اینکه فارسی بزنه این تاریخ میلادی هست

براي اينكه در ستون D بنويسه كافيه

Target.Offset(0, 1)

رو به

Target.Offset(0, 2)

تغيير بديد.

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

[fidarbearing]

سلام
این تاریخ شمسی add in رو دانلود کردم از چنتا سایت اما کار نمیکنه نمیدونم چرا

- - - Updated - - -

مرسی این درست کار میکنه اما انگلیسی هست تاریخ و اینکه من اشتباه گفتم میخوام توی B بنویسم توی D تاریخ بزنه فارسی
باید چه تغییراتی بدم ؟

- - - Updated - - -

سلام دوست عزيز
شما بايد كدنويسي انجام بديد
اين كدها رو در قسمت كدهاي شيت مورد نظرتون قرار بديد

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Target.Column <> 2 Then Exit Sub
Application.EnableEvents = False
Target.Offset(0, 1) = Date
Application.EnableEvents = True
End Sub

این کد رو زدم خیلی غیره منتظره درست جواب داد چون من اصلا نمیدونستم توی اکسل میشه کد نوشت
اصلا انتظار نداشتم بار اول که کپی پیست میکنم در جای درست این کار رو بکنم
فقط اینکه به جای ستون c میخوام توی D تاریخ بزنه و اینکه فارسی بزنه این تاریخ میلادی هست