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

🖤 پیام تسلیت

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

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

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


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

تداخل رویداد

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • كامران

    • 2016/06/29
    • 147
    • 41.00

    پرسش تداخل رویداد

    سلام من یک فایل دارم شامل این رویداد است

    کد:
    Dim SchedRecalc As Date
    
    Sub Recalc()
            
            Calculate
            Call SetTime
                    
    End Sub
    Sub SetTime()
    
    
        SchedRecalc = Now + TimeValue("00:00:30")
                Application.OnTime SchedRecalc, "Recalc"
            
    End Sub
    که بطور کامل کار میکند و مشکلی ندارد ولی چیزی که هست اگر یک برنامه دیگر اکسل باز باشد و بعد این برنامه را باز کنم بعد از تمام شدن کار و بستن بعد از 30 ثانیه دوباره خودبخود باز میشود
    (اگر همه فایلهای باز را ببندم دیگر باز نمیشود)

    آیا کدی چیزی هست که در برنامه بگذارم که موقع بستن فایل رویداد را از کار بیندازد ممنون میشوم راهنمائی کنید
  • Amir Ghasemiyan

    • 2013/09/20
    • 4600
    • 100.00

    #2
    سلام دوست عزيز

    شما كافيه در ايونت Workbook_BeforeClose مشخص كنيد كه تايمر غير فعال بشه

    کامنت

    • كامران

      • 2016/06/29
      • 147
      • 41.00

      #3
      نوشته اصلی توسط Amir Ghasemiyan
      سلام دوست عزيز

      شما كافيه در ايونت Workbook_BeforeClose مشخص كنيد كه تايمر غير فعال بشه
      با چه کدی؟؟

      کامنت

      • Amir Ghasemiyan

        • 2013/09/20
        • 4600
        • 100.00

        #4
        نوشته اصلی توسط كامران
        با چه کدی؟؟


        کد:
        Application.OnTime EarliestTime:=SchedRecalc, Procedure:="Recalc", Schedule:=False

        کامنت

        • كامران

          • 2016/06/29
          • 147
          • 41.00

          #5
          نوشته اصلی توسط Amir Ghasemiyan


          کد:
          Application.OnTime EarliestTime:=SchedRecalc, Procedure:="Recalc", Schedule:=False
          سلام انجام دادم این خطا را میدهد
          Click image for larger version

Name:	Capture.JPG
Views:	1
Size:	17.2 کیلو بایت
ID:	134243

          کامنت

          • Amir Ghasemiyan

            • 2013/09/20
            • 4600
            • 100.00

            #6
            نوشته اصلی توسط كامران
            سلام انجام دادم این خطا را میدهد
            [ATTACH=CONFIG]17050[/ATTACH]

            فايلتون رو بذاريد بررسي كنم

            کامنت

            • كامران

              • 2016/06/29
              • 147
              • 41.00

              #7
              شرمنده خیلی زحمتتان میدهم
              فایل های پیوست شده

              کامنت

              • كامران

                • 2016/06/29
                • 147
                • 41.00

                #8
                آقای Amir Ghasemiyan ببخشید اینجا منشنتان میکنم ولی این مشکل راه حلی داره ؟

                کامنت

                چند لحظه..