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

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

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

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

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

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

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

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

خب بعد از اینکه وارد محیط ویژوال بیسیک شدیم در قسمت سمت چپ راست کلیک میکنیم
و روی گزینه 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
<div style="clear:both; margin-top:1.5em; margin-bottom:1.5em;"><a href="https://7reply.com/unhide-excel-sheets/" 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/2019/11/نمایش-شیت-های-پنهان.jpg);"></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">نحوه نمایش شیت های پنهان اکسل با 3 روش حرفه ای</div></div></div><div class="ctaButton"></div></div></a></div>
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

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

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

مشخص کردن سطر و ستون فعال با رنگ در اکسل - VBA excel همراه با فیلم آموزشی + 56 رنگ اصلی

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

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

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

از مجموع ۱ رای

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

محمدرضا بهشتی 1400/21/06

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

پاسخ

روح الله وکیل زاده 1400/21/06

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

afshin53 1399/22/11

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

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

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

hesami54 1399/26/07

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

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

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

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

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

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

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

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

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

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

لیست دانلود

آموزش ورود به محیط ویژوال بیسیک با 3 روش

آموزش تغییر فونت پیشفرض اکسل

جدا کردن عدد از متن فارسی در اکسل

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