تابع DAYS360 در اکسل

در برخی از سیستم های حسابداری یک سال را متشکل از دوازده ماه سی روزه فرض میکنند. تابع DAYS360 دقیقاً همان کاربرد تابع DAYS را دارد با این تفاوت که فرض محاسبه تعداد روزها، سیستم سال ۳۶۰ روزه میباشد. سینتکس این تابع به صورت زیر است:

DAYS360 (start_date,end_date,[method])

آرگومان اول و دوم دقیقاً مانند تابع DAYS با همان کاربرد میباشند، آرگومان سوم یک آرگومان اختیاری است.

آرگومان سوم یک مقدار منطقی (Logical) است که تعیین میکند شما از روش آمریکایی (U.S Method) یا اروپایی (European Method) برای محاسبه استفاده میکنید، در صورت True بودن روش اروپایی و در صورت خالی ماندن و یا False بودن روش آمریکایی (روش پیشفرض) مورد استفاده قرار میگیرد.

• در روش آمریکایی یا  NASD،اگر Starting Date (روز شروع) روز آخر ماه باشد، تبدیل به روز سی ام همان ماه میگردد. همینطور در این روش اگر Ending Date (روز پایان) روز آخر ماه باشد، در صورتی که روز شروع، روزی قبل از سی ام ماه باشد، تاریخ پایان تبدیل به روز اول ماه آتی میگردد و در غیر اینصورت روز پایان تبدیل به روز سی ام میگردد.
• در روش اروپایی، روز شروع و یا پایانی که در روز سی و یکم یک ماه واقع شوند تبدیل به روز سی ام همان ماه میشوند.

توابع تاریخ و زمان در اکسل

از بین بردن فایل اکسل در تاریخ مشخص

 تهیه فایل اکسل که پس از مدت زمان معین منقضی گردد

پاسخ :

با زدن همزمان کلیدهای Alt + F11 وارد صفحه VBpProject شده و سپس از کادر سمت چپ مربوط به BVroject PExcel بر روی ThisWorkBook دوبار کلیک کرده تا صفحه کد نویسی مربوط به این کاربرگ باز شود.

از لیست کشویی سمت چپ و بالا گزینه WorkBook را انتخاب کرده تا تابع Private Sub Workbook_Open() ایجاد گردد. سپس کد های زیر نیز زیر End Sub تابع ایجاد شده کپی نمائید.

---

Sub ExpirationCode()
Dim ExpirationDate As Date

ExpirationDate = DateSerial(2013, 5, 29)

If Now() >= ExpirationDate Then
MsgBox ("دوره آزمایشی نرم افزار در تاریخ ") & CStr(ExpirationDate) & " به پایان رسیده است"
ThisWorkbook.Close savechanges:=False
End If
End Sub

---

سپس نام تابع دوم که بنام ExpirationCode ایجاد نمودیم را در تابع اول  Workbook_Open قرار دهید

و در انتها این فایل را ذخیره نموده البته با پسوند Excel Macro-enabled workbook .xlsm ذخیره نمائید.(بدلیل ماکروی ایجاد شده)

نکته : همانطور که در خط سوم تابع ExpirationCode تاریخ انقضاء را مشخص کردیم، شما باید این تاریخ را به میلادی وارد نمائید.

و درکل باید کدهای شما بصورت زیر باشد.

---

Private Sub Workbook_Open()
ExpirationCode
End Sub
------------------------------------------------------
Sub ExpirationCode()
Dim ExpirationDate As Date

ExpirationDate = DateSerial(2013, 5, 29)

If Now() >= ExpirationDate Then
MsgBox ("دوره آزمایشی نرم افزار در تاریخ ") & CStr(ExpirationDate) & " به پایان رسیده است"
ThisWorkbook.Close savechanges:=False
End If

End Sub

نقل از http://www.farsimeeting.com

ScreenTip برنامه توضیحات فارسی اکسل

Office ScreenTip Language (صفحه ScreenTip را برای نشان دادن متن عناصر نمایش – مانند دکمه ها، منو ها و جعبه های گفتگو – در یک زبان دیگر استفاده کنید)

از لینک زیر میتوانید به دانلود سنتر  رفته و بر اساس ورژن آفیس خود این برنامه (Microsoft Office Language Interface Pack) برای آفیس های ۲۰۱۳ ، ۲۰۱۰، ۲۰۰۷ و ۲۰۰۳ را از وب سایت مایکروسافت دانلود کنید.

ارجاع به دانلود سنتر مایکرو سافت آفیس برای دانلود برنامه Microsoft Office Language Interface Pack برای آفیس ۲۰۱۳، ۲۰۱۰، ۲۰۰۷ و ۲۰۰۳

ماشین حساب اکسل

آموزش اضافه کردن ماشین حساب ویندوز به محیط اکسل

برای این کار ابتدا برنامه اکسل را باز کنید. سپس بر روی فلش کوچکی که در سمت راست نوار ابزار دسترسی سریع قرار گرفته است کلیک کنید تا منوی کشویی زیر مجموعه های آن باز شود.

حال از کادر باز شده، همانطور که در تصویر پایین مشاهده میکنید گزینه …More Commands را انتخاب نمایید.

با باز شدن پنجره مربوط به تنظیمات نوار ابزار دسترسی سریع (Quick Access Toolbar) و در قسمت بالای این پنجره با گزینه ای با عنوان : Choose commands from مواجه خواهید شد. دز قسمت زیر این گزینه فیلدی قرار گرفته است که شما باید بر روی فلش کوچک کناری این فیلد کلیک کرده و با باز شدن کادر کشویی زیر مجموعه های آن گزینه Commands Note in the Ribbon را انتخاب کنید.

در پنجره زیرین این فیلد، لیستی از برنامه های موجود در محیط انتخابی به همراه آیکون های آنها نمایش داده خواهد شد. حال شما باید از این کادر ماشین حساب (Calculator) را یافته و با کلیک بر روی آن، آن را در وضعیت انتخابی قرار دهید. در نهایت بر روی گزینه Add کلیک کنید.

با انجام این کار آیکون و نام برنامه در کادر سمت راست ظاهر خواهد شد که این نشانه ای از انجام موفقیت آمیز عمل قرار گیری ماشین حساب ویندوز در نوار ابزار دسترسی سریع (Quick Access Toolbar) نرم افزار اکسل خواهد بود. حال با کلیک نهایی بر روی دکمه OK (که در پایین این پنجره قرار گرفته است) کار به پایان خواهد رسید.

پس از انجام این مراحل، ایکون ماشین حساب (Calculator) در نوار ابزار دسترسی سریع گنجانده خواهد شد که در تصویر زیر آن را مشاهده میکند.

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

دو دستور VB در اکسل

چنانچه بخواهید فقط محدوده ای پرینت گرفته شود

کد: [انتخاب]

ActiveSheet.PageSetup.PrintArea = "$A$1:$D$10"
ActiveWindow.SelectedSheets.PrintPreview

 بشرط اینکه بخواید محدوده A4:D14 را حذف کنید (محدوده خود را واردکنید )

کد: [انتخاب]

ActiveSheet.Range("A4:D14").ClearContents