ساخت کرنومتر در اکسل

نحوه ایجاد کرونومتر در اکسل (Basic + Toastmasters Style): راهنمای جامع و کامل

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

مرحله اول: طراحی صفحه‌کار (Sheet) و ساختار اولیه

برای شروع، یک صفحه‌کار جدید در اکسل باز کنید. در این صفحه، نیاز است که بخش‌هایی برای شروع، توقف، ریست کردن، و نمایش زمان داشته باشید. بهتر است، این بخش‌ها را به صورت واضح و مرتب بچینید. مثلا:
- یک دکمه برای شروع کرونومتر

- یک دکمه برای توقف

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

- یک جعبه متنی برای نمایش زمان جاری
برای این کار، می‌توانید از امکانات فرم‌های کنترلی اکسل، مثل دکمه‌های ActiveX یا فرم‌های فرم، بهره ببرید. همچنین، قرار دادن یک TextBox برای نشان دادن زمان، بسیار مهم است.

مرحله دوم: فعال‌سازی و نوشتن کدهای VBA

اکسل برای پیاده‌سازی این نوع ابزار، نیازمند نوشتن کدهای VBA است. ابتدا، باید وارد محیط ویرایشگر VBA شوید. این کار با فشردن کلیدهای ALT + F11 صورت می‌گیرد.
در این محیط، باید یک ماژول جدید ایجاد کنید. سپس، متغیرهای مورد نیاز را تعریف می‌نمایید، مثلا:

vba  


Dim StartTime As Date  


Dim StopTime As Date  


Dim Running As Boolean  


Dim TimerRunning As Boolean  

در ادامه، کدهای مربوط به شروع، توقف و ریست کردن کرونومتر را می‌نویسید. برای مثال، کد مربوط به شروع، شامل ثبت زمان شروع است و فعال کردن یک حلقه یا تایمر است. در VBA، تایمرها معمولاً با استفاده از تابع `Application.OnTime` پیاده‌سازی می‌شوند.

مرحله سوم: تنظیم تایمر و بروزرسانی زمان

برای بروزرسانی مداوم زمان، باید از تابع `Application.OnTime` بهره ببرید. این تابع، امکان اجرای مکرر یک تابع در فواصل زمانی مشخص را فراهم می‌کند. بنابراین، باید تابعی بنویسید که هر چند میلی‌ثانیه، زمان جاری را محاسبه و نمایش دهد.
مثلاً، می‌توانید یک تابع به نام `UpdateTimer` بنویسید:

vba  


Sub UpdateTimer()


    If TimerRunning Then  


        Dim ElapsedTime As TimeSpan  


        ElapsedTime = Now - StartTime  


        Sheet
TextBox1.Value = Forma...  ← ادامه مطلب در magicfile.ir 
 

  
باکس دانلود (ساخت کرنومتر در اکسل)
  
    
    دانلود
  

		  

    

        

            
            

                
 پیشنهاد برای دانلود ( ساخت کرنومتر در اکسل )
            
        
        
            برای دانلود کردن اینجا را کلیک فرمایید