سلول های چشمک زن در اکسل

Question

بسیاری از افراد از ویژگی های قالب بندی شرطی اکسل برای جلب توجه به مقادیر یا مناطق خاصی از کاربرگ خود استفاده می کنند. به عنوان مثال، یک سلول ممکن است به گونه ای قالب بندی شود که اگر بالاتر یا کمتر از یک آستانه مشخص باشد، محتوای آن به رنگ قرمز یا پررنگ نمایش داده شود.

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

برای ایجاد سبک خاص، مراحل زیر را دنبال کنید:

شکل 1. کادر محاوره ای Style.

1. سلولی را که می خواهید فلش روشن و خاموش کنید انتخاب کنید. (مطمئن شوید که سلول چیزی در خود دارد؛ نباید خالی باشد.)
2. مطمئن شوید که تب Home روی نوار نمایش داده می شود.
3. در گروه Styles، روی Cell Styles کلیک کنید. اکسل انتخاب هایی از سبک های از پیش تعریف شده را نمایش می دهد.
4. New Cell Style را انتخاب کنید. اکسل کادر محاوره ای Style را نمایش می دهد. (شکل 1 را ببینید.)
5. در کادر Style Name نام "Flashing" (بدون علامت نقل قول) را وارد کنید.
6. با استفاده از کنترل‌های موجود در کادر محاوره‌ای، هر ویژگی را برای سبک، به دلخواه تغییر دهید.
7. روی OK کلیک کنید.

با این سبک که اکنون تعریف شده است، باید آن استایل را برای هر سلولی که می خواهید "فلش" کنید، اعمال کنید. مطمئن شوید که استایل را روی سلول های دیگر اعمال نکنید.

اکنون ماکروها را ایجاد کنید (دو عدد از آنها وجود دارد) به صورت زیر:

Dim NextTime As Date

Sub StartFlash()
    NextTime = Now + TimeValue("00:00:01")
    With ActiveWorkbook.Styles("Flashing").Font
        If .ColorIndex <> 2 And .ColorIndex <> 3 Then
            .ColorIndex = 3
        End If
        .ColorIndex = 5 - .ColorIndex
    End With
    Application.OnTime NextTime, "StartFlash"
End Sub

Sub StopFlash()
    Application.OnTime NextTime, "StartFlash", schedule:=False
    ActiveWorkbook.Styles("Flashing").Font.ColorIndex = xlAutomatic
End Sub

برای شروع چشمک زدن آیتم ها، به سادگی StartFlash را اجرا کنید. سلول های فرمت شده با سبک Flashing تقریباً یک بار در ثانیه بین متن قرمز و سفید متناوب می شوند. هنگامی که می خواهید چشمک زن را خاموش کنید، به سادگی ماکرو StopFlash را اجرا کنید.

ماکرو با تغییر سبکی که قبلاً در این نکته تعریف کرده‌اید، کار می‌کند. (کاملاً مطمئن شوید که همانطور که در مرحله 5 نشان داده شده است، نام سبک را "فلشینگ" می گذارید.) تنها کاری که انجام می دهد این است که خاصیت ColorIndex را تغییر می دهد تا بین دو مقدار - 3 و 2 سوئیچ شود. این تغییر در سبک منجر به افکت چشمک زن می شود. همانطور که رنگ متن از قرمز (3) به سفید (2) تغییر می کند و دوباره برمی گردد.

یک نکته مهم دیگر در مورد این ماکرو وجود دارد: متغیر NextTime خارج از رویه واقعی که در آن استفاده می شود، اعلام می شود. این کار به گونه ای انجام می شود که NextTime مقدار خود را از یک فراخوانی StartFlash به دیگری حفظ کند. این مقدار است که برای تعیین بار بعدی (یک ثانیه در آینده) که StartFlash باید دوباره اجرا شود استفاده می شود.