کلید ض+ctrl به جای ctrl +q

**misammisam** · 2014/07/28, 02:55

با سلام
كافيه يه ماكرو براي همين ctrl+ q ذخيره كني و كليد تركيبيشو بزاري روي ض + ctrl

**beheshty** · 2014/07/30, 01:25

نوشته اصلی توسط misammisam

با سلام
كافيه يه ماكرو براي همين ctrl+ q ذخيره كني و كليد تركيبيشو بزاري روي ض + ctrl

چه جوری باید این کارو انجام بدم با ظبط ماکرو که نشد
تو کجای افزونه Persian Function For EXCEL_V2 دستور درج تاریخ با ctrl+ qآمده که برم و اوضش کنم من هرچه تو کدها نگاه کردم چیزی ندیدم

**Amir Ghasemiyan** · 2014/07/30, 06:44

نوشته اصلی توسط beheshty

چه جوری باید این کارو انجام بدم با ظبط ماکرو که نشد
تو کجای افزونه Persian Function For EXCEL_V2 دستور درج تاریخ با ctrl+ qآمده که برم و اوضش کنم من هرچه تو کدها نگاه کردم چیزی ندیدم

شما بايد يك سابروتين تعريف كنيد. مثلا به اين صورت:

کد:

Sub jtoday()ActiveCell.Formula = "=j_today()" End Sub

بعد از تب developer گزينه macros از ليست jtoday رو انتخاب كنيد و options رو بزنين و در قسمت مربوطه حرف ض رو وارد كنيد.

**Javid Mokhtari** · 2014/07/30, 14:31

نوشته اصلی توسط beheshty

چه جوری باید این کارو انجام بدم با ظبط ماکرو که نشد
تو کجای افزونه Persian Function For EXCEL_V2 دستور درج تاریخ با ctrl+ qآمده که برم و اوضش کنم من هرچه تو کدها نگاه کردم چیزی ندیدم

با سلام.احتمالا ضبط ماکرو رو درست انجام نمی دید.

**beheshty** · 2014/07/30, 14:35

نوشته اصلی توسط amir ghasemiyan

شما بايد يك سابروتين تعريف كنيد. مثلا به اين صورت:

کد:

Sub jtoday()ActiveCell.Formula = "=j_today()" End Sub

بعد از تب developer گزينه macros از ليست jtoday رو انتخاب كنيد و options رو بزنين و در قسمت مربوطه حرف ض رو وارد كنيد.
[ATTACH=CONFIG]4227[/ATTACH]

این کار مشکل منو حل نمیکنه چون بعد از اجرای ماکرو در خانه مورد نظر فرمل =j_today() درج میشه و من میخوام در آن خانه نتیجه فرمل یعنی تاریخ روز درج بشه و فردا اون تاریخ عوض نشه
مثلا تارخ فروش کالا در مقابلش درج میشه و باید ثابت باشه

**Amir Ghasemiyan** · 2014/07/30, 14:56

نوشته اصلی توسط beheshty

این کار مشکل منو حل نمیکنه چون بعد از اجرای ماکرو در خانه مورد نظر فرمل =j_today() درج میشه و من میخوام در آن خانه نتیجه فرمل یعنی تاریخ روز درج بشه و فردا اون تاریخ عوض نشه
مثلا تارخ فروش کالا در مقابلش درج میشه و باید ثابت باشه

خب پس كار راحت تر شد :دي

کد:

ActiveCell.Value = J_TODAY()