نمایش زمان کارکرد Work Book در User Form

[Almasi]

با سلام

لطفاً اگر امکان داره کمکم کنید .
مشکل من عدم درج زمان کارکرد Work Book در یکی از Label های User Form است .
قصد دارم زمان کارکرد کاربر را در پایان در یک یوزر فرم بصورت فرمت Time ببینم .

[m_d6712]

اگر بخواهی که 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 هستند در همه استفاده می شوند.

[hooman_tt]

با سلام
میشه خواهش کنم یک نمونه فایل بزارین برای من بیسواد که با مهندسی معکوس از روی آن تلمذ کنیم در محضرتون ؟!
ممنون و متشکر