اگر بخواهی که userform ما label ای داشته باشد که هر لحظه زمان کارکرد را نمایش داده و به کاربر نشان دهد، باید از روش های MultiThreading استفاده کنید! این روش ها در Vb.net بسیار ساده است اما برای VBA نیز کد هایی نوشته شده است که بتوانید از MultiThreading استفاده کنید! یه جستجوی ساده بکنید. MultiThreading ابزاری است که امکان پردازش موازی چندین فرمان را به شما می دهد. مثلا نمایش تاریخ و پردازش های دیگر در برنامه!
اگر فقط می خواهید که زمان کارکرد را در موقع بستن به شما بدهد. می توانید دو متغیر Public به نام های StartDate و EndDate را ایجاد کنید که نوع آنها Date باشد.
در Event های Workbook فایل خود این دو مقدار را مقدار دهی کنید:
کد:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
EndDate = Now
Userform1.show()
End Sub
Private Sub Workbook_Open()
StartDate = Now
End Sub
در فرم و در Label مورد نظر تفاوت این دو مقدار را بنویسید. دقت کنید که چون Public هستند در همه استفاده می شوند.
علاقه مندی ها (Bookmarks)