دانلود نمونه فایل ساعت آنالوگ در اکسل به کمک نمودار و VBA

دانلود نمونه فایل ساعت آنالوگ در اکسل به کمک نمودار و VBA

خیلی از کاربران فکر می‌کنند اکسل فقط برای محاسبات جدولی و فرمول‌نویسی است؛ اما با کمی خلاقیت می‌توان ابزارهای جالبی در آن ساخت. یکی از این ابزارها ساعت آنالوگ (عقربه‌ای) است که با ترکیب فرمول‌ها، نمودارها و VBA ایجاد می‌شود. یک ساعت آنالوگ پویا در اکسل طراحی کنیم.

فایلی که از سایت دانلود می‌شود با پسوند .xlsm است (یعنی ماکرو فعال). این فایل یک شیت اصلی دارد که داخل آن یک ساعت آنالوگ کامل طراحی شده است.

اجزای اصلی فایل

1. قاب ساعت (Frame):
   با نمودار Doughnut ساخته شده که به شکل دایره است و مثل صفحه‌ی ساعت عمل می‌کند. روی این قاب، اعداد ۱ تا ۱۲ قرار دارند.

2. عقربه‌ها (Hands):

   • عقربه ساعت

   • عقربه دقیقه

   • عقربه ثانیه
     هر کدام با یک نمودار Pie رسم شده و به شکل خط باریک طراحی شده‌اند. این عقربه‌ها روی قاب قرار گرفته و مرکز آنها دقیقاً وسط قاب است.

3. داده‌های پشت‌صحنه (Data Table):
   در یک بخش از شیت، جدولی از فرمول‌ها وجود دارد که از تابع NOW() استفاده می‌کند. این جدول به سه قسمت ساعت، دقیقه و ثانیه تقسیم شده و خروجی‌اش مبنای حرکت عقربه‌هاست.

4. کدهای VBA:
   داخل فایل یک ماژول VBA وجود دارد که شامل دو ماکرو اصلی است:

   • StartClock: ساعت را راه‌اندازی می‌کند و هر ثانیه مقادیر جدول دوباره محاسبه می‌شوند.

   • StopClock: اجرای ساعت را متوقف می‌کند.

5. دکمه‌های کنترلی روی شیت:
   روی شیت دو دکمه تعبیه شده:

   • Start Clock → برای شروع حرکت ساعت

   • Stop Clock → برای توقف

عملکرد فایل

• وقتی دکمه Start Clock را فشار دهید:
  VBA فعال می‌شود، فرمول‌ها هر ثانیه آپدیت می‌شوند و عقربه‌ها روی نمودار حرکت می‌کنند.

• وقتی دکمه Stop Clock را بزنید:
  حلقه اجرای ماکرو متوقف شده و عقربه‌ها همان‌طور روی صفحه ثابت می‌مانند.

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

ویژگی‌ها:

• ظاهر جذاب و شبیه ساعت واقعی

• حرکت روان عقربه‌ها

• استفاده ساده فقط با دو دکمه

برای شما کاربران عزیز پیشنهاد دانلود داده می شود.