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

موضوع: ذخیره فایل با یک عنوان دلخواه مثل ساعت کنونی

  1. #1


    آخرین بازدید
    31 _ 03 _ 2017
    تاریخ عضویت
    May_2010
    محل سکونت
    بلژیک
    نوشته ها
    175
    امتیاز
    92
    سپاس
    0
    سپاس شده
    103 در 45 پست

    ذخیره فایل با یک عنوان دلخواه مثل ساعت کنونی

    [font=Times New Roman]دوستی سوال فرمودند:

    نقل قول نوشته اصلی توسط hajih[/font
    adi]
    سلام

    میشه در این مورد راهنمایی بفرمائید.

    1-وقتی فایل ذخیره میشود میخواهم به تاریخ و ساعت جاری سیستم ذخیره شود (در واقع می خواهم در سلول B1 فرمول ()now= را درج کنم و اسم برنامه از این سل خوانده شود)



    با احترامات فراوان

    برای این کار کافی است که کد زیر را در فایل اکسل در قسمت workbook کپی کنید:

    Dim ISSAVEAS As Boolean

    Private Sub Workbook_Activate()
    ISSAVEAS = False
    End Sub

    Private Sub Workbook_AfterSave(ByVal Success As Boolean)
    If Success = True Then
    MsgBox ("saved")
    Else
    MsgBox ("not saved")
    End If
    End Sub

    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If ISSAVEAS = False Then
    Sheet1.Range("B1").Calculate
    Dim str As String
    str = Sheet1.Range("B1").Value
    str = Replace(str, "/", "_")
    str = Replace(str, " ", "_")
    str = ActiveWorkbook.Path + "\" + Replace(str, ":", "_")
    ISSAVEAS = True
    ActiveWorkbook.SaveAs (str + ".xlsm")
    ISSAVEAS = False
    Cancel = True
    End If
    End Sub



    یک فایل هم آماده کردم :
    http://www.mediafire.com/view/?tvy8gguwmw3d8lk

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

  2.  

  3. #2


    آخرین بازدید
    22 _ 05 _ 2013
    تاریخ عضویت
    February_2013
    نوشته ها
    31
    امتیاز
    1
    سپاس
    0
    سپاس شده
    1 در 1 پست

    RE: ذخیره فایل با یک عنوان دلخواه مثل ساعت کنونی

    سلام
    خیلی لطف کردید
    متشکرم


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

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

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

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

  1. ثبت خودکار تاریخ و ساعت
    توسط mstfatata در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 10
    آخرين نوشته: 02 _ 06 _ 2016, 12:02
  2. کم کردن ساعت
    توسط 3pahan در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 4
    آخرين نوشته: 01 _ 01 _ 2013, 13:03
  3. فرمت ساعت را در کمبو باکس
    توسط amirgolshan در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 3
    آخرين نوشته: 29 _ 11 _ 2012, 11:13
  4. درج اعداد ساعت بدون ":"
    توسط ff7ss در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 13
    آخرين نوشته: 26 _ 06 _ 2012, 10:39
  5. تفريق ساعت
    توسط Mod در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 1
    آخرين نوشته: 23 _ 02 _ 2011, 10:09

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

تابع ساعت جاری اکسل

ذخيره ساعت

ذخیره ساعت

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

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