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

مهر ۱۰, ۱۳۹۹

آموزش رایگان اکسل

ارسال شده توسط: روح الله وکیل زاده

166 بازدید

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

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

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

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

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

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

2 راه آسان برای تبدیل اکسل به PDF همراه فیلم آموزشی به صورت رایگان

خب بعد از اینکه وارد محیط ویژوال بیسیک شدیم در قسمت سمت چپ راست کلیک میکنیم
و روی گزینه 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/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 data-bg="https://7reply.com/wp-content/uploads/2019/11/نمایش-شیت-های-پنهان.jpg" class="postImageUrl rocket-lazyload" style=""></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 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("۰۰:۰۰:۰۱")

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 - فعال سازی و رفع محدودیت زمانی آفیس 2016

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

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

حجم	پسورد در صورت نیاز	دریافت فایل
698 B	7reply.com	دانلود کد های مورد نیاز

دیدگاهتان را بنویسید لغو پاسخ

روح الله وکیل زاده مهر ۲۷, ۱۳۹۹

سلام و درود خدمت شما دوست گرامی چه اروری میده ارور را برام ارسال کنید تا بتونم راهنماییتون کنم موفق و پیروز باشید
hesami54 مهر ۲۶, ۱۳۹۹

سلام چرا اجرا نمیشه
روح الله وکیل زاده مهر ۱۶, ۱۳۹۹

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

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

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

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

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

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

حتما" بخوانید پیشنهاد سون ریپلای

ایجاد لیست کشویی وابسته به هم در اکسل

قرار دادن عکس در پس زمینه اکسل آموزش قرار دادن (بک گراند)

اموزش حل مشکلی ذخیره سازی فایل اکسل همراه با فیلم آموزش + رایگان

دیدگاهتان را بنویسید لغو پاسخ

دوره های جامع طراحی سایت

دوره های جامع اکسل

نماد های اعتماد