پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
یوزرفرم پیشرفته -Advanced  User Form
داشبورد (مقدماتی) – Dashboards(Elementary)
ابزارهای اعتبار سنجی و اخطار دهنده
بسته آموزشی userform
مدیریت و کنترل خطا در اکسل
توابع متنی
گرافیک در اکسل
جزوه آموزشی جداول و نمودارهای پاشنه ای
فایل آموزشی نحوه تهیه فرمت عددی دلخواه یا custom number format cell
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
نمایش نتایج: از شماره 1 تا 3 , از مجموع 3

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

  1. #1


    آخرین بازدید
    10 _ 01 _ 2016
    تاریخ عضویت
    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


    آخرین بازدید
    03 _ 04 _ 2017
    تاریخ عضویت
    February_2010
    محل سکونت
    بوشهر
    نوشته ها
    922
    امتیاز
    653
    سپاس
    29
    سپاس شده
    799 در 342 پست

    shamsololama به Yahoo ارسال پیام فرستادن پیام با Skype به shamsololama

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

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

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

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

  4. #3


    آخرین بازدید
    10 _ 01 _ 2016
    تاریخ عضویت
    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
    آخرين نوشته: 19 _ 05 _ 2014, 01:12
  2. ساختار صحیح دستورات شرطی در vb
    توسط امیر رضا دهقان در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 1
    آخرين نوشته: 05 _ 01 _ 2013, 08:40
  3. حذف ردیف با دستور
    توسط khorasan66 در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 4
    آخرين نوشته: 03 _ 01 _ 2013, 15:39
  4. اتصال اکسل با اسپریدشیت در google doc ?
    توسط m.estreji در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 4
    آخرين نوشته: 05 _ 11 _ 2012, 19:57
  5. دستوری برای فیلتر کردن
    توسط farzin24622 در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 5
    آخرين نوشته: 27 _ 12 _ 2011, 23:55

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

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

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

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

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