فعال بودن ثانیه شمار
سلام / در حالت اکتیو فرم وقتی کپشن یک لیبل خاص رو به تایم اختصاص میدهیم ثانیه شمار آن در روی فرم کاملا ثابت است مگر اینکه با یک ایونت خاص هر بار ساعت جدید را مشاهده کنیم آیا راهی وجود دارد که ثانیه و دقیه شمار ها در روی فرم بصورت فعال نمایش داده شوند ؟متشکرم:shy:
-
-
RE: فعال بودن ثانیه شمار
منم همین مشکل را دارم اگه میشه اساتید کمک کنن[CENTER][IMG]http://forum.exceliran.com/signaturepics/sigpic909_10.gif[/IMG]
[/CENTER] -
RE: فعال بودن ثانیه شمار
برای اینکار از توابع خود اکسل نباید استفاده کرد فک میکنم باید به توابع کتاب خانه ای دسترسی بدید به هر حال برنامه تقریبا پیچیده ای میطلبه اگه سواد یاری کرد یا فایلی پیدا کردم حتما ارائه میدم[CENTER]
[SIGPIC][/SIGPIC]
[/CENTER]کامنت
-
RE: فعال بودن ثانیه شمار
با سلام دوستان از کد زیر استفاده کنید
کد PHP:a:
DoEvents
Label1.Caption = Time
DoEvents
GoTo a:
[B][COLOR=#000080]مهدی کریمی[/COLOR][/B]کامنت
-
RE: فعال بودن ثانیه شمار
احسنت آقا مهدی یک تشکر کفایت نمیکرد بسیار هوشمندانه بود به این قضیه اصلا فک نکرده بودم احسنتنوشته اصلی توسط MEYTI
[CENTER]
[SIGPIC][/SIGPIC]
[/CENTER]کامنت
-
RE: فعال بودن ثانیه شمار
خواهش میکنم دوست من این ترفندو من از اساتید همین سایت یاد گرفتم[B][COLOR=#000080]مهدی کریمی[/COLOR][/B]کامنت
-
RE: فعال بودن ثانیه شمار
با سلام استاد meyti
میشه لطفاً برای من بیسواد یک فایل نمونه درست کنید و بگذارید ...
ممنون میشم قربان
کامنت
-
[B][COLOR=#000080]مهدی کریمی[/COLOR][/B]کامنت
-
RE: فعال بودن ثانیه شمار
با درود فراوان
راه های که دوستان فرمودند خوب هست و شدنی
ولی اگر قرار هست که شما ساعتی رو روی یوزر فرم داشته باشید که کار کنه چه دیجیتال و چه آنالوگ می تونید از ساعت های فلاش استفاده کنید روی فرم چون برای ساعتی که با یک تابع و یا کد نویسی آن را بنویسید یک حلقه بدون پایان نیاز دارید که این می تونه برنامه رو کند کنه
اینم چند نمونه ساعت فلش برای تو صفحه اکسل و روی فرم
نمونه:
[attachment=1087]---------------------------------------------------------------------------------------------------
بمانیم تا کاری کنیم ،نه کاری کنیم تا بمانیم [size=x-small](دکتر شریعتی)[/size]
shamsololama@yahoo.com
09177733411کامنت
-
RE: فعال بودن ثانیه شمار
سلامنوشته اصلی توسط shamsololama
من این فایل را دانلود کردم اما میگه برای شما فعال نیست . چطور باید از این ساعت ها استفاده کنم ؟
ممنون
کامنت
-
RE: فعال بودن ثانیه شمار
با سلام خدمت استاد عزیز و گرامینوشته اصلی توسط shamsololama
من چطوزی میتونم ساعت هایی را که تو شیت اول گذاشتید را به فرم اضافه کنم
هر کاری می کنم کپی نمیشه ممنون میشم اگه راهنمایی کنید
[CENTER][IMG]http://forum.exceliran.com/signaturepics/sigpic909_10.gif[/IMG]
[/CENTER]کامنت
-
RE: فعال بودن ثانیه شمار
با درود
با اجازه از استاد. راه اصولیش چیزه دیگست اما خوب غیر اصولیشو میگیم ببین عمل میکنه
اول در تب developer
design mode رو بزن بعد انتخاب کن هر کدومشو بعد تو اون فایل که میخوای پیست کندر پناه خداوندگار ایران زمین باشید و پیروزکامنت
-
دیزاین مود در اکسل 2010 کجاست؟
Get Design Mode in Excel 2010 Ribbon if you do not have Classic Menu for Office
There are some differences to add Developer Tab into Ribbon between Excel 2010 and Excel 2007. Here is the way to add Developer Tab into Excel 2010 Ribbon:
* Click the File tab;
* Click the Options at the left to enter into Excel Option window;
* Click the Customize Ribbon at the left;
* At the right, select the Main Tabs from Customize The Ribbon drop down box;
* Check the Developer item;
* Click the OK button to finish customizing.
Add Developer Tab into Excel 2010 Ribbon
Figure 4: Add Developer Tab into Excel 2010 Ribbon
Go back to the Excel 2010 window, you will find the Developer Tab is added besides Home Tab.
* Click the Developer tab;
* Go to the Controls group;
* Then you will view the design mode buttonDesign Mode button there.
[hr]
برای اضافه کردن ساعت های قلش به این پست استاد شمس العلما مراجعه کنید:
ساخت splashکامنت
-
RE: فعال بودن ثانیه شمار
این هم یک مجموعه از ساعت های فلش
دانلودساعت های زیبا فلش
توی گوگل اگه ساعت فلش را جستجو کنید خیلی زیادندکامنت
-
RE: فعال بودن ثانیه شمار
از این کد من جهت نشان دادن ساعت در سررسیدی که در اکسل تهیه کردم استفاده کردم ولی همون طور که استاد شمس العلما گفتند بهتر از ساعت های فلش استفاده کرد تا برنامه کند نشهکد PHP:Private Sub UserForm_Activate()
Do
If CM = True Then Exit Sub
Label1 = Format(Now, "h:mm:ss AM/PM")
DoEvents
Loop
End Sub
'
کامنت
کامنت