返回列表 上一主題 發帖

[分享] EXCEL.利用〔格式化條件〕使儲存格呈現閃爍

[分享] EXCEL.利用〔格式化條件〕使儲存格呈現閃爍

本帖最後由 准提部林 於 2015-10-1 14:45 編輯

EXCEL.利用〔格式化條件〕使儲存格呈現閃爍
20151001a2.gif   20151001a1.gif
以上圖片即為實際展示結果!
 
1.使用〔VBA.定義名稱.格式化條件〕三合一搭配
2.檔案開啟即自動執行
3.不會觸動〔Worksheet_Change〕及〔Worksheet_Calculate〕
4.不影響〔復原〕功能 
'==========================
'<程式碼.模組區>
Public uTime '頂端共用變數宣告
 
Sub Change_SND() '每秒自動程式
[IV65536].Calculate '利用一個儲存格產生變化
uTime = Now + TimeValue("00:00:01")
Application.OnTime uTime, "Change_SND"
End Sub 
'==========================
'<程式碼.活頁簿事件區>
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If uTime <> "" Then
  Application.OnTime uTime, "Change_SND", Schedule:=False
End If
End Sub
 
Private Sub Workbook_Open()
Call Change_SND
End Sub
'==========================
<定義名稱>
〔X_SND〕:=SECOND(NOW()) 
'==========================
<格式化條件>
條件一:=(A1="異常")*MOD(X_SND,2)
條件二:=(A1="異常")
'==========================
<同步發表網頁>
http://blog.xuite.net/smile1000mile/blog/346442535
'==========================
<範例檔>下載:
20151001a01(儲存格閃爍).rar (9.52 KB)

挺有趣的東西,感謝分享
字典兩各字 還真難理解

TOP

版主真是太厲害了,但不知道如何應用呢
假設我要設定A1儲存格大於10000時就會出現那種一直閃的效果要怎麼設定呢

TOP

回復 3# ShaoQiang


條件一:=(A1>10000)*MOD(X_SND,2)  藍色
條件二:=(A1>10000)  紅色

X_SND 值為當前時間的〔秒數〕,介於0~59
MOD(X_SND,2) 則每秒以0及1變化,
MOD(X_SND,5) = 0  則每5秒變化.類推~~

TOP

QQQQQQQQQQQQQQQQQQ

TOP

版大好厲害@@想問如果是要用來提醒天數排程該如何應用呢?
例如依照日期判斷BC欄位時間到就閃爍提醒呢?
A           B           C         
3/14    3/20      3/24
3/19    3/25      3/28

TOP

回復 6# Hannah

只能示例,自行依實際資料去設定:
20160423a01(儲存格閃爍).rar (8.64 KB)
另一載址:http://www.funp.net/340302

TOP

謝謝回覆^^上班時再來試試看

TOP

        靜思自在 : 要比誰更受誰.不要比誰更怕誰。
返回列表 上一主題