آموزش درج ساعت در یوزر فرم اکسل به صورت فیلم آموزش + کد نویسی VBA

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

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

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

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

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

آموزش کامل msgbox excel 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

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/show-hide-file-extensions/" 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/05/show-hide-file-extensions.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">آموزش نمایش پسوند فایل ها در ویندوز 10، 8،7 همراه با فیلم آموزش رایگان</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 بدیم
دیگه کار تموم شد با اجرا کردن فرم برای ما ساعت نمایش خواهد داده شد

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

آموزش اضافه کردن صفر به ابتدای شماره در اکسل-Excel با 3 روش مختلف

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

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

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

حجم	پسورد در صورت نیاز	دریافت فایل
	7reply.com	بعد از لاگین فعال خواهد شد

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

hesami54 1399/26/07

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

پاسخ

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

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

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

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

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

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

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

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

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

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

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

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