ثابت بودن فرمول در یک سطر و ستون با شرط تاریخ

**rezayavar** · 2017/02/14

سلام خدمت اساتید
یک مشکلی که در اکسل دارم برای خیلی از برنامه ها بدین صورت است که چند شیت داری و محاسباتی رو انجام دادی مثلا: با شرط تاریخ که اگه تاریخ شیت 1 با تاریخ شیت 2 برابر بود مثلا یک جمع و یا یک نمایش رو نشون بده تا اینجا همه چیز درست است ولی به محض اینکه به روز بعد میره هم اون سطر ستون ایراد پیدا میکنه و هم سطر و ستون جدید چه راهکاری برای تابت شدن این فرمول رو اساتید پیشنهاد میفرمایند .(یکی از تاریخها بروز است)

اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

سیستم تبلیغات اکسل ایران

**rahi_feri** · 2017/02/14

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

**rezayavar** · 2017/02/14

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

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

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

**rahi_feri** · 2017/02/14

سلام
اگه سوال برنامه نویسی هستش در بخش برنامه نویسی مطرح کنید اگه برای پاسخ به سوال بودن ماکرو لازمه فایل های xlsm رو به صورت زیپ (Zip) و فشرده ارسال کنید

**rahi_feri** · 2017/02/14

ایراد اصلی کار در تابع J_TODAY هستش که مثل "تابع تاریخ روز" در اکسل، تاریخ روز رو میده ولی وقتی میبندید و فرداش باز می کنید آپدیت میشه (همونطور که خودتون گفتید)...!
یه روشش این میشه که ضمیمه کردم...
در بخش برنامه نویسی اگه مطرح کنید بهتون گزینه های بیشتر و بهتری پیشنهاد میشه!
با سپاس

کد:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error GoTo errhandler
todaydate = Sheet14.Range("c9")
Set c = Sheet3.Range("f:f").Find(todaydate, LookIn:=xlValues, MatchCase:=True)
c.Offset(, 3).Resize(, 2).Copy
c.Offset(, 3).Resize(, 2).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
If Me.Saved = False Then Me.Save
errhandler:
Exit Sub
End Sub