نمایش نتایج: از شماره 1 تا 3 , از مجموع 3

موضوع: اکسپایر نمودن فایل اکسل ( کمک در ادغام دستورات )

  1. #1


    آخرین بازدید
    2018/01/06
    تاریخ عضویت
    May 2012
    نوشته ها
    18
    امتیاز
    7
    سپاس
    0
    سپاس شده
    1 در 1 پست
    تعیین سطح نشده است

    اکسپایر نمودن فایل اکسل ( کمک در ادغام دستورات )

    ضمن سلام خدمت استاتید عزیز و گرامی

    لازم است که دستورات زیر رو قبل از اجرای دستوراتی دیگر در ابتدای باز شدن فایل اکسلی که ایجاد کردم بزارم ، تاریخ رو تغییر میدم و فایل رو اجرا میکنم اما اگه

    تاریخ سیستم رو به عقب ببرم فایل باز میشه ( نتیجه اینکه قسمت اول دستورات اجرا نمیشه ) ممنون مبیشم اگه راهنمایی بفرمایید چگونه این دو دستور رو با هم ادغام کنم
    لازم بذکره که دستورات بتنهایی در فایل جداگانه اجرا میشه

    Private Sub Workbook_BeforeClose(Cancel As Boolean)

    If Now() >= Sheets("sheet1").Range("aa1") Then

    Sheets("sheet1").Range("aa1") = Now()

    End If

    End Sub

    ----------------------------------------------------------------

    Private Sub Workbook_Open()

    Dim expiredate As Date

    expiredate = "30/01/2012"

    Dim i

    If (Now() < expiredate) And Now() >= Sheets("sheet1").Range("aa1") Then

    Sheets("sheet1").Range("aa1") = ""

    For i = 1 To Sheets.Count

    Sheets(i).Visible = xlSheetVisible

    Next i

    Else

    MsgBox ("erorr 10000004")

    Dim k

    For k = 2 To Sheets.Count

    Sheets(k).Visible = xlSheetVeryHidden

    Next k

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

  2.  

  3. #2


    آخرین بازدید
    2021/12/05
    تاریخ عضویت
    February 2010
    محل سکونت
    بوشهر
    نوشته ها
    940
    امتیاز
    718
    سپاس
    29
    سپاس شده
    863 در 365 پست
    تعیین سطح نشده است

    shamsololama به Yahoo ارسال پیام

    RE: اکسپایر نمودن فایل اکسل ( کمک در ادغام دستورات )

    با درود فراوان

    برای اینکه تاریخ انقضاء که برای فایل نوشتیم با عقب کشیدن تاریخ سیستم نشه دورش زد درسته که زمان خارج شدن از فایل آخرین تاریخ که فایل باز شده رو هم ثبت بشه و برای ورد این تاریخ چک بشه که تاریخ سیستم از این تاریخ عقب تر نباشه و از تاریخ انقضاء هم بیشتر نباشه

    ولی در زمان خروج نیاز هست به کد اضاف کنید که پس از وارد کردن آخرین تاریخ فایل نیز سیو کند

  4. #3


    آخرین بازدید
    2018/01/06
    تاریخ عضویت
    May 2012
    نوشته ها
    18
    امتیاز
    7
    سپاس
    0
    سپاس شده
    1 در 1 پست
    تعیین سطح نشده است

    RE: اکسپایر نمودن فایل اکسل ( کمک در ادغام دستورات )

    با تشکر از استاد عزیز و گرامی جناب شمس العلماء
    من کد رو در قسمت اول نوشتم اما بعد از خروج ، مجدداً که وارد برنامه شدم دیدم که دستوری که برای درج زمان هست وارد سل aa1 نمیکنه اگه میشه مجددا راهنمایی بفرمایید



    Private Sub Workbook_BeforeClose(Cancel As Boolean)

    If Now() >= Sheets("sheet1").Range("aa1") Then

    Sheets("sheet1").Range("aa1") = Now()

    End If
    ActiveWorkbook.Save
    End Sub


اطلاعات موضوع

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

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. سود سپرده گذاری
    توسط moslemi در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 11
    آخرين نوشته: 2014/05/19, 02:12
  2. ساختار صحیح دستورات شرطی در vb
    توسط امیر رضا دهقان در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 1
    آخرين نوشته: 2013/01/05, 09:40
  3. حذف ردیف با دستور
    توسط khorasan66 در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 4
    آخرين نوشته: 2013/01/03, 16:39
  4. اتصال اکسل با اسپریدشیت در google doc ?
    توسط m.estreji در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 4
    آخرين نوشته: 2012/11/05, 20:57
  5. دستوری برای فیلتر کردن
    توسط farzin24622 در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 5
    آخرين نوشته: 2011/12/28, 00:55

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

دستورات آماری در excel

اکسپایر کردن فایل اکسل

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است
با ما در تماس باشيد