غیر فعال کردن فرمول در صورت تحقق شرط

[کاکرودی]

فرض کنید فاصله بین دو تاریخ را اکسل از طریق فرمولی که بهش داده ایم محاسبه میکنه . حال میخواهیم در صورتیکه در ستون a1 مقدار ok وارد شد فرمول محاسبه توقف و همان عدد فیکس بشود
مثال تاریخ 1 : 1394/03/10 تاریخ روز : 1394/03/23 محاسبه اکسل از طریق فرمول برای فاصله بین دو تاریخ : 13
چون هر روز تاریخ دوم بروز رسانی می شود در نتیجه عدد هم تغییر می کند اگر 1394/03/24 تغییر پیدا کند عدد فاصله 14 خواهدشد .
بنظر شما دوستان آیا راهی وجود داره که من در روز 1394/03/23 مقدار ok را وارد کردم فاصله دیگه تغییر نکنه ؟
امیدوارم مفهوم باشه
ممنون

[Ali Parsaei]

سلام،
اين کار فقط توسط کد نويسي و ماکروها قابل اجرا است و به صورت معمول قابل اجرا نيست، البته در آن صورت بايد فايلتان را با پسوند خاص ذخيره کرده و تنظيمات اکسل را عوض کنيد تا ماکروها فعال گردد و ....
حال اگر کد نويسي به دردتان مي خورد بفرماييد تا بيشتر توضيح دهم.

[182075]

سلام بر همگی دوستان

سلام،
اين کار فقط توسط کد نويسي و ماکروها قابل اجرا است و به صورت معمول قابل اجرا نيست، البته در آن صورت بايد فايلتان را با پسوند خاص ذخيره کرده و تنظيمات اکسل را عوض کنيد تا ماکروها فعال گردد و ....
حال اگر کد نويسي به دردتان مي خورد بفرماييد تا بيشتر توضيح دهم.

من هم چنین مشکلی دارم اگه امکان داره کد vba را دوستان توضیح بدند

[182075]

من هم چنین مشکلی دارم اگه امکان داره کد vba را دوستان توضیح بدند

[iranweld]

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

[182075]

دوستان من هم چنین مشکلی دارم که در فایل پیوست مطرح کردم خواهش می کنم هر کی میتونه کمک کنهفایل خرید1.xlsx

[generalsamad]

با paste special مسئلتون حل نمیشه ؟
یا نمیخواهید دستی اینکار رو انجام بدید؟

[کاکرودی]

نمیخوام دستی عمل کنم

[کاکرودی]

دوست عزیز ممنون از زحمتی که کشیدین . نمیشه کاری کنیم که اکسل اتوماتیک وار این کارو انجام بده ، بجای کلیک روی دکمه اگه سلول مقدار گرفت ؟

[کاکرودی]

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

[Ali Parsaei]

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

سلام،
به طور اتوماتيک مي شود ولي فايل کند خواهد شد!
بايد alt+f11 را زده و وارد قسمت ويژوال بيسيک شويد، در آنجا شيتهاي شما در سمت چپ نمايان است، بايد روي شيت يک دوبار کليک کنيد تا يک پنجره در سمت راست باز شود (ممکن است ابتدا به ساکن پنجره ياد شده باز باشد)
بعد در آن پنجره کد درج شده در عکس زير را وارد کنيد:

[iranweld]

دوستان من هم چنین مشکلی دارم که در فایل پیوست مطرح کردم خواهش می کنم هر کی میتونه کمک کنه[ATTACH]7404[/ATTACH]

با سلام
یک فایل تهیه گردید ولی یک مشکل کوچک داره که تو فایل قید شده است

[182075]

خیلی ممنون از راهنمایتون فقط اگه بخواهیم رو تمام worksheets ها این کد اعمال گردد چکار باید بکنم
باز هم ممنون از کمکتون

[iranweld]

خیلی ممنون از راهنمایتون فقط اگه بخواهیم رو تمام worksheets ها این کد اعمال گردد چکار باید بکنم
باز هم ممنون از کمکتون

با سلام

کدهای مورد نظر را از مسیر نشان داده شده در عکس را در worksheet های مورد نظر کپی و پیست کنید

[182075]

ممنون از راهنمایتون
یک سوال دیگه داشتم می تونیم به جای( If columnNumberValue = 4 And Cells(rowNumberValue, 4).Value = Range("j1به جای Range(“j1 شرط را برابر با "تحویل شده" قرار دهیم یعنی "تحويل شده" = If columnNumberValue = 4 And Cells(rowNumberValue, 4).Value قرار دهیم