فعال بودن ثانیه شمار

[Amir Ghasemiyan]

سلام دوست عزيز
من محتواي اين تاپيك رو مطالعه نكردم اما در كل براي اينكه يك عملي هر دقيقه اتفاق بيفته بهترين راهي كه من بلدم اين روشه:

Sub my_Procedure()
    MsgBox "Excel Iran Team"        
    Call test ' for starting timer again
End Sub

Sub test()
    Application.OnTime Now + TimeValue("00:01:00"), "my_Procedure"
End Sub

اميدوارم جواب سوالتون رو داده باشم

[amoradi]

درود به همه اساتید گرانقدر

آخرش این تاپیک یه جواب درست و کاملی نداره !!!

مثلا توی کد زیر cup تا 70 درصد درگیر میشه

a:DoEvents
Label19.Caption = Format(Now, "hh:mm")
DoEvents
GoTo a:

سوال اینه که چطور کد رو ویرایش کنیم که هر 60 ثانیه یک بار اجرا بشه

در واقع من میگم اگه دقیقه ای یک بار باشه و ثانیه رو حذف کنیم و کد هر دقیقه یک بار اجرا بشه مشکل پردازش cpu هم حل میشه


لطفا به این سوال بنده حقیر جواب بدید و تاپیک رو کامل کنید

سپاس فراوان

[amin.p]

سپاس

[iranweld]

با سلام

در فایل پیوست وقتی فایل باز میگردد macro1 فراخوانی شده و در این ماکرو هر یک ثانیه عملیات calculate انجام میگیرد.

[amin.p]

کسی هست مرا یاری کند

[amin.p]

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

[mokaram]

سلام . میشه یه کمی توضیح بدی که این کد رو کجا بکار ببرم . ممنون

ابتدا یک فرم در محیط ویژوال ایجاد می کنید و در ایونت Activate فرم کد مربوطه را اضافه می کنید و با فرمت xls یا xlsm ذخیره کنید

[reza irandost]

سلام . میشه یه کمی توضیح بدی که این کد رو کجا بکار ببرم . ممنون

[امين اسماعيلي]

با درود
من نمیدونم یعنی موندم این سوال اخر به این تاپیک ربط داشت - یعنی این همه دوستان نحوه تاپیک جدید رو اموزش دادن و حتی نحوه ایجادشو گذاشتن فایده نداشت

[armag]

دوستان سلام.

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

با تشکر. اگر کسی بتونه کمکم کنه لطف بزرگی در حق من انجام داده

[mokaram]

استاد فایل را باز نمیکنه احتمالا خرابه
اقا مهدی میشه کد مربوطه را کامل بنویسی چون نمیدونم در کدوم اونت باید نوشته بشه؟ و کجا بنویسم؟

دوست عزیز به پست 19 مراجعه کنید اونجا توضیح کامل دادم

[حسینعلی]

استاد فایل را باز نمیکنه احتمالا خرابه
اقا مهدی میشه کد مربوطه را کامل بنویسی چون نمیدونم در کدوم اونت باید نوشته بشه؟ و کجا بنویسم؟

[علی فاطمی]

فایل ساده ای هست شما کد زیر را در قسمت مربوطه وارد کنید با این توضیح که caption 1 روی فرم شما وجود باشه

Private Sub UserForm_Activate()
a:
DoEvents
Label1.Caption = Time
DoEvents
GoTo a:
End Sub 

بعدش فرم را اجرا کنید

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

[mokaram]

آقا مهدی سلام ،
فایل یافت نشد.
ممنون میشم مجددا آپلود کنید.

فایل ساده ای هست شما کد زیر را در قسمت مربوطه وارد کنید با این توضیح که caption 1 روی فرم شما وجود باشه

Private Sub UserForm_Activate()
a:
DoEvents
Label1.Caption = Time
DoEvents
GoTo a:
End Sub 

بعدش فرم را اجرا کنید

[علی فاطمی]

سلام دوستان.
این فایلی که استاد شمس العلما گذاشتن واسه من باز نمیشه!!!
می گه corrupt شده!!!
درستش و ندارید؟

من هم همین مشکل رو دارم
لطفا کمک....