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

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

آموزش درج ساعت در یوزر فرم اکسل

خوب دوستان گرامی همانطر که میدونید برای نمایش ساعت در یوزر فرم اکسل نیاز به کد نویسی VBA هست
برای وارد شدن در محیط کد نویسی اکسل با کلید ترکیبی ALT+F11 وارد محیط کد نویسی میشیم

دوست عزیز پیشنهاد میشه این مطلب را هم ببینید

آموزش ساخت ایمیل مایکروسافت برای استفاده اکسل در گوشی

خب بعد از اینکه وارد محیط ویژوال بیسیک شدیم در قسمت سمت چپ راست کلیک میکنیم
و روی گزینه Insert کلیک می کنیم و گزینه UserForm انتخاب می کنیمتا فرم برامون ایجاد بشه.
و مجدداً وارد مسیر قبلی میشیم این بار روی گزینه Module کلیک میکنیم تا یک Module ایجاد بشه در تصویر زیر هم مشخص می باشید

کد نویسی VBA قسمت Module اکسل

توی مرحله قبلی ما هر دو فایل را ما ساختیم الآن نیاز هست کدنویسی آن‌ها را انجام بدیم کد های زیر را به صورت کامل کپی کنید.
و وارد محیط ویژوال بیسیک شید توی فایل Module جایگزین کنید

Option Explicit
Dim Tempo As Date

Sub clock1()
Tempo = Now + TimeValue("00:00:01")
Application.OnTime Tempo, Procedure:="Lable_Text", Schedule:=True
End Sub

Sub Lable_Text()
UserForm1.REPLY.Caption = Format(Now, "hh:mm:ss")
Call clock1
End Sub
<div style="clear:both; margin-top:1.5em; margin-bottom:1.5em;"><a href="https://7reply.com/flashing-text-in-excel/" target="_blank" class="IRPP_ruby"><!-- INLINE RELATED POSTS 2/3 //--><style> .IRPP_ruby , .IRPP_ruby .postImageUrl , .IRPP_ruby .centered-text-area { height: 130px; position: relative; } .IRPP_ruby , .IRPP_ruby:hover , .IRPP_ruby:visited , .IRPP_ruby:active { border:0!important; } .IRPP_ruby .clearfix:after { content: ""; display: table; clear: both; } .IRPP_ruby { display: block; transition: background-color 250ms; webkit-transition: background-color 250ms; width: 100%; opacity: 0.7; transition: opacity 250ms; webkit-transition: opacity 250ms; background-color: #C0392B; box-shadow: 0 1px 2px rgba(0, 0, 0, 0.17); -moz-box-shadow: 0 1px 2px rgba(0, 0, 0, 0.17); -o-box-shadow: 0 1px 2px rgba(0, 0, 0, 0.17); -webkit-box-shadow: 0 1px 2px rgba(0, 0, 0, 0.17); } .IRPP_ruby:active , .IRPP_ruby:hover { opacity: 1; transition: opacity 250ms; webkit-transition: opacity 250ms; background-color: #E74C3C; } .IRPP_ruby .postImageUrl { background-position: center; background-size: cover; float: right; margin: 0; padding: 0; width: 31.59%; } .IRPP_ruby .centered-text-area { float: left; width: 65.65%; padding:0; margin:0; } .IRPP_ruby .centered-text { display: table; height: 130px; right: 0; top: 0; padding:0; margin:0;float: left;width: 100%; } .IRPP_ruby .IRPP_ruby-content { display: table-cell; margin: 0; padding: 0 0px 0 74px; position: relative; vertical-align: middle; width: 100%; } .IRPP_ruby .ctaText { border-bottom: 0 solid #fff; color: #000000; font-size: 13px; font-weight: bold; margin: 0; padding: 0; } .IRPP_ruby .postTitle { color: #ECF0F1; font-size: 16px; font-weight: 600; margin: 0; padding: 0; } .IRPP_ruby .ctaButton { background: url(https://7reply.com/wp-content/plugins/intelly-related-posts-pro/assets/images/next-arrow.png)no-repeat; display: inline-block; height: 130px; width: 54px; } .IRPP_ruby .ctaButton { background-color: inherit; margin-left: 10px; position: absolute; left: 0; top: 0; } .IRPP_ruby:after { content: ""; display: block; clear: both; } </style><div class="postImageUrl" style="background-image:url(https://7reply.com/wp-content/uploads/2018/07/500--300x300.png);"></div><div class="centered-text-area"><div class="centered-text"><div class="IRPP_ruby-content"><div class="ctaText">دوست عزیز پیشنهاد میشه این مطلب را هم ببینید </div><div style="clear:both"></div><div class="postTitle">آموزش ساخت سلول چشمک زن در اکسل + رایگان</div></div></div><div class="ctaButton"></div></div></a></div>
Sub clock2()
On Error Resume Next
Application.OnTime Tempo, Procedure:="Lable_Text", Schedule:=False
End Sub

Sub userform_show()
UserForm1.Show
End Sub

Option Explicit

Dim Tempo As Date

Sub clock1()

Tempo = Now + TimeValue("00:00:01")

Application.OnTime Tempo, Procedure:="Lable_Text", Schedule:=True

End Sub

Sub Lable_Text()

UserForm1.REPLY.Caption = Format(Now, "hh:mm:ss")

Call clock1

End Sub

Sub clock2()

On Error Resume Next

Application.OnTime Tempo, Procedure:="Lable_Text", Schedule:=False

End Sub

Sub userform_show()

UserForm1.Show

End Sub

کد نویسی VBA قسمت UserForm اکسل

تو این مرحله رسیدیم برای قسمت کدنویسی خود فرم کدهای زیر را به صورت کامل کپی کنید.
با زدن کلید های ترکیبیCtrl+V کد های کپی شده وارد فایل خواهد شد

Private Sub UserForm_Activate()
Application.Run "clock1"
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
clock2
End Sub

Private Sub UserForm_Activate()

Application.Run "clock1"

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

clock2

End Sub

خب دیگه کدنویسی ما به صورت کامل تموم شد الان نیاز هست داخل خود UserForm ما بیایم یک Label1 ایجاد بکنیم و اسمLabel1 را تغییر REPLY بدیم
دیگه کار تموم شد با اجرا کردن فرم برای ما ساعت نمایش خواهد داده شد

دوست عزیز پیشنهاد میشه این مطلب را هم ببینید

آموزش ایجاد ردیف به صورت اتوماتیک در اکسل 2016 همراه با فیلم آموزشی

توجه داشته باشید که دوستان عزیز شما میتونید برای ساعت استایل های متفاوتی در نظر داشته باشید.
مثل اندازه فونت تغییر رنگ فونت و بسیاری امکانات دیگر که میتونید داخل لیبل اضافه کنید

خوب دوستان عزیز این آموزش رایگان اکسل هم به پایان رسید امیدوارم که براتون مفید واقع شده باشه
بازم هر گونه نظر یا پیشنهادی داشتید در قسمت نظرات برام کامنت بزارید
بازم هر دوست عزیزی که درخواست آموزش داشته باشه میتونید در قسمت نظرات برام بنویسه تا براش ضبط و آماده کنم
این آموزش توسط یکی از کاربران سایت https://7reply.com/ درخواست شده بود تا یک آموزش رایگان اکسل دیگر شما را میسپارم به خدای منان خدانگهدار

میانگین امتیازات ۵ از ۵

نظر یا سوال شما در این مورد چیست؟ انصراف

afshin53 1399/22/11

مهندس وکیل زاده با سلام :
بسیار عالی
بسیار ممنون …
ارادتمند افشین .

پاسخ

روح الله وکیل زاده 1399/22/11

ارادت خدمت شما دوست عزیز
خوشحال هستم که برای شما هم مفید بود است
بابت ارسال نظر شما هم سپاس گزارم
موفق باشید مثل همیشه

hesami54 1399/26/07

سلام چرا اجرا نمیشه

روح الله وکیل زاده 1399/27/07

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

عایرضا خسروی اقکند 1399/15/07

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

روح الله وکیل زاده 1399/16/07

ارادت خدمت شما دوست گرامی
کد ها هم توی همین صفحه موجود است هم در قسمت پایین صفحه توی باکس دانلود البته باید عضو سایت باشید تا بتوانید دانلود نمایید موفق باشید

آموزش درج ساعت در یوزر فرم اکسل

آموزش درج ساعت در یوزر فرم اکسل

کد نویسی VBA قسمت Module اکسل

کد نویسی VBA قسمت UserForm اکسل

شاید از این نوشته‌ها هم خوشتان بیاید

نظر یا سوال شما در این مورد چیست؟ انصراف