Board logo

標題: [分享] EXCEL.利用〔格式化條件〕使儲存格呈現閃爍 [打印本頁]

作者: 准提部林    時間: 2015-10-1 14:42     標題: EXCEL.利用〔格式化條件〕使儲存格呈現閃爍

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

EXCEL.利用〔格式化條件〕使儲存格呈現閃爍
[attach]22126[/attach] [attach]22127[/attach]
以上圖片即為實際展示結果!
 
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
'==========================
<範例檔>下載:
[attach]22125[/attach]
作者: freeffly    時間: 2015-10-1 15:49

挺有趣的東西,感謝分享
作者: ShaoQiang    時間: 2015-10-3 11:07

版主真是太厲害了,但不知道如何應用呢
假設我要設定A1儲存格大於10000時就會出現那種一直閃的效果要怎麼設定呢
作者: 准提部林    時間: 2015-10-3 11:39

回復 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秒變化.類推∼∼
作者: Darius    時間: 2016-1-9 17:30

QQQQQQQQQQQQQQQQQQ
作者: Hannah    時間: 2016-4-23 08:55

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

回復 6# Hannah

只能示例,自行依實際資料去設定:
[attach]23946[/attach]
另一載址:http://www.funp.net/340302
作者: Hannah    時間: 2016-4-23 20:12

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




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)