دانلود ساعت آنالوگ در اکسل – Analog Clock in Excel
ساعت آنالوگ در اکسل – نسخه حرفه ای و پیشرفته
متن باز و قابل ویرایش
کاملاً ساده و بدون پیچیدگی در کد.
به عبارت دیگر تنها کد موجود در برنامه، کد زیر می باشد:
Sub Start_Clock() Dim sh As Worksheet Set sh = ActiveSheet sh.Range("N1").Value = "Start" x: VBA.DoEvents If sh.Range("N1").Value = "Stop" Then Exit Sub Application.Calculate GoTo x End Sub Sub Stop_Clock() Dim sh As Worksheet Set sh = ActiveSheet sh.Range("N1").Value = "Stop" End Sub
این برنامه ( ساعت آنالوگ در اکسل ) توسط نمودار و یک تکه کد بالا ایجاد شده است! ( باور می کنید؟ )
البته ساعت دیجیتال هم طراحی کرده ایم که می توانید با کلیک در اینجا، این محصول را نیز ببینید!
کارمند سونار وب –
امتیاز من
مهدی دیبا –
بسیار عالی و زیبا
ممنون
کارمند سونار وب –
لطف دارید