返回列表 上一主題 發帖

excel 儲存格內文字閃爍

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
1# 跳轉到 »
發表於 2015-9-30 13:02 | 顯示全部帖子
已儘量避免對檔案操作產生的干擾，請自行去套用，
只能每秒去閃字（估計在實用性上應不高，畢竟 EXCEL 是較適合資料處理）：
VBA + 定義名稱 + 格式化條件（三合一運動）　
　
  1. '＜模組區＞
  2. Public uTime　'頂端共用變數宣告
  3. 　
  4. Sub Change_SND()　'每秒自動程式
  5. [IV65536].Calculate　'利用一個儲存格產生變化
  6. uTime = Now + TimeValue("00:00:01")
  7. Application.OnTime uTime, "Change_SND"
  8. End Sub
複製代碼
　
  1. '＜活頁簿事件區＞
  2. Private Sub Workbook_BeforeClose(Cancel As Boolean)
  3. If uTime <> "" Then
  4. 　　Application.OnTime uTime, "Change_SND", Schedule:=False
  5. End If
  6. End Sub
  7. 　
  8. 　
  9. Private Sub Workbook_Open()
  10. Call Change_SND
  11. End Sub
複製代碼
　

定義名稱〔X_SND〕：=MOD(SECOND(NOW()),2)
　
格式化條件〔Ａ１〕：
條件一．文字設〔綠色〕：=(A1="異常")*X_SND
條件二．文字設〔紅色〕：=(A1="異常")

TOP

        靜思自在 : 時時好心就是時時好日。
返回列表 上一主題