برنامه نویسی تخصصی

GIS, Autocad, Access, Excel

محدودیت تاریخ برای اکسل


  بهمن ۲۴, ۱۳۹۶   /     /   برنامه نویسی اکسل,ویژوال بیسیک (vba)
excel-vba

در این پست میخوام یک نوع محدودیت گذاری بسیار پرکاربرد را برای برنامه های تولید شده تحت vba اکسل رو آموزش بدم که میتوانید برای برنامه های خودتان محدودیت زمانی تعیین کنید که بعد از یک مدت زمان مشخص قایل اجرا نباشد و یک پیغامی را نمایش دهد، منطق کار بسیار ساده هست به این صورت که ابتدا باید با یک تابع به نام Date تاریخ فعلی سیستم را بگیریم سپس یک شرط تعیین میکنیم که اگر این تاریخ از تاریخ تعیین شده ما بیشتر شد برنامه پیغام نمایش داده و اجرا نمی شود:

 

Dim date1 As Date

date1 = "12/06/2018"

if Date > date1 then
Application.DisplayAlerts = False
Application.Visible = False

MsgBox "تاریخ برنامه تمام شده است"
ActiveWorkbook.Close
End if

ابتدا یک متغیر تعریف میکنیم از نوع تاریخ که تاریخ مورد نظر را در داخل آن وارد می نماییم سپس با یک رابطه شرطی به این صورت که اگر تاریخ فعلی از تاریخ مورد نظر بیشتر شد ابتدا هر گونه خطا را غیرفعال  سپس نمایش اکسل رو هم غیر فعال کند و بعدا پیغام مورد نظر ما را نمایش دهد حالا در نهایت میتوانیم با یک کد ساده برنامه را ببندیم.

 





این مطلب را در شبکه های اجتماعی به اشتراک بگذارید

فیس نما   فیس نما  فیس نما   فیس نما   فیس نما   فیس نما   فیس نما  کلوب   فیس نما  
برای مطلب "محدودیت تاریخ برای اکسل" دیدگاهی وجود ندارد

دیدگاهتان را بنویسید

نشانی ایمیل شما منتشر نخواهد شد. بخش‌های موردنیاز علامت‌گذاری شده‌اند *

*

code