مرحوم محمد محمدی

🖤 پیام تسلیت

با نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفته‌اند.

ایشان سال‌ها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند.

مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.


انا لله و انا الیه راجعون

لینک فایل

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • ali.b

    • 2014/01/12
    • 798

    لینک فایل

    سلام
    وقت دوستان عزیز بخیر و شادی
    دوستان من دو تا فایل دارم که به هم لینک هستن
    که با دستور if error لینک کردم که اگه محتوای اون سلول مشکل داشت به جای 0 ثبت کنه

    اما مشکل اصلی من اینه که گاهی نیاز هست فایل من پاک بشه یعنی فایل 1 وجود داره و فایل 2 ممکنه چند ماه بعد ایجاد بشه. چکار میشه کرد که فایل داده ها رو وقتی فایل نیست 0 نشون بده و وقتی فایل ایجاد شد مقدارش رو نشون بده و وقتی هم فایل وجود نداره ارورو edit link رو نده.
    چون وقتی من فایل رو پاک میکنم موقع باز شدن فایل اول ارور لینک میده و بعدش داده های قبلی رو نشون میده و یا کلا قاطی میکنه

    اخه ی برنامه تحت اکسل امار ماهیانه دارم که داده ها هر ماه ذخیره میکنن و در یک فایل اصلی لینک میشن و نشون داده میشه و زمانی که فایل جدید ایجاد میشه در فایل اصلی هم تغییراتش ثبت بشه
    چون من از قبل پیشفرض فایل ها رو درست کردم وبراشون لینک تعریف کردم و دوباره اون فایل ها رو پاک کردم تا به وقت و زمانش و با داده های واقعی پر شن
    [CENTER]
    [/CENTER]
  • Amir Ghasemiyan

    • 2013/09/20
    • 4600
    • 100.00

    #2
    سلام
    من پيشنهاد ميكنم يك كد بذارين كه موقع اجراي فايل چك كنه آيا فايل وجود داره يا خير
    اگه وجود داشت فرمول ها رو بذاره در غير اين صورت هيچي نذاره يا به قول شما صفر بذاره
    يه كدي مثل اين:
    کد:
    Sub filefinder()
    If Len(Dir(ActiveWorkbook.Path & "\2.xlsx", vbDirectory)) <> 0 Then Range("A2").Formula = "=IFERROR('" & ActiveWorkbook.Path & "\[2.xlsx]Sheet1'!$A$1,0)"
    End Sub

    کامنت

    چند لحظه..