تغییر خودکار فرمول یک سلول با تغییر لیست

[khademmahdy]

با سلام و خسته نباشید به همه دوستان عزیز
در فایل پیوست میخواستم با تغییر ایام هفته، فرمول کارکرد لازم و کارکرد خالص برا پنجشنبه ها به صورت خودکار تغییر کند..
متشکر از راهنماییتون و صبوری در جواب به این سوال مبتدیانه...

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

[ordouei]

با سلام

شما میتوانید با فرمول IF(A7="پنج شنبه","c","k") به راحتی این کار را انجام دهید . بجای C و K فرمول محاسباتی را کپی و پیست نمایید..

[khademmahdy]

با تشکر اینکار را انجام دادم ولی فرمول بسیار طولانی میشود خواهشمندم اگر راهکار دیگری هم دارد راهنمایی فرمایید؟

[iranweld]

فرمول ستون k شما خیلی طولانی هستش و اصلاحش کلی وقت میگیره ولی یک نمونه برای تغییر فرمول c براتون ردیف میکنم ببینید

[khademmahdy]

با تشکر از زحمتتاتون با if درستش کردم اما نمیشه ماکرو نویسی کرد؟ که خودکار عوض بشه؟

[iranweld]

با سلام

با استفاده از قابلیت رویدادها در اکسل فایل پیوست تهیه گردید

فرمول برای روز جمعه مشخص نبود

Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Me.Range("A:A")) Is Nothing Then
       
   I = Target.Row
    
   If Target <> "" And Target = "پنچ شنبه" Then
    
   Target.Offset(0, 2).Value = "=$R$5-$R$4"
   
    Target.Offset(0, 10).Value = "=IF(D" & I & "=0,0,IF(E" & I & "<$R$5,(E" & I & "-$R$4),($R$5-$R$4))+IF(AND(F" & I & "<$R$5,G" & I & "<$R$5),(G" & I & "-F" & I & "),0)+IF(F" & I & ">$R$5,0,IF(G" & I & ">=$R$5,$R$5-F" & I & ",0))+IF(OR(J" & I & "=E" & I & ",J" & I & "=G" & I & "),0,IF(AND(J" & I & ">$R$5,H" & I & ">$R$5),0,(IF(H" & I & "<$R$5,$R$5-H" & I & ",J" & I & "-H" & I & "))))-IF(D" & I & ">$R$4,D" & I & "-$R$5,0))"
    
    ElseIf Target <> "" Then
    
    Target.Offset(0, 2).Value = "=$R$3-$R$2"
    
  Target.Offset(0, 10).Value = "=IF(D" & I & "=0,0,IF(E" & I & "<$R$3,(E" & I & "-$R$2),($R$3-$R$2))+IF(AND(F" & I & "<$R$3,G2<$R$3),(G" & I & "-F" & I & "),0)+IF(F" & I & ">$R$3,0,IF(G" & I & ">=$R$3,$R$3-F" & I & ",0))+IF(OR(J" & I & "=E" & I & ", J" & I & "=G" & I & "),0,IF(AND(J" & I & ">$R$3,H" & I & ">$R$3),0,(IF(H" & I & "<$R$3,$R$3-H" & I & ",J" & I & "-H2))))-IF(D" & I & ">$R$2,D" & I & "-$R$2,0))"


  End If
   
  End If
    
   End Sub 

[khademmahdy]

متشکرم از شما... انشالله موفق باشین...