返回列表 上一主題 發帖

excel 儲存格內文字閃爍

hiasohu

帖子
2 
主題
1 
精華
0 
積分
3 
點名
0  
作業系統
winxp 
軟體版本
office2010 
閱讀權限
10 
性別
男 
註冊時間
2015-9-24 
最後登錄
2017-7-28 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2015-9-24 16:16 | 只看該作者

excel 儲存格內文字閃爍

請教~若工作表內輸入內容為"異常"時，希望該文字可閃爍
查文~vba好像可以完成此需求，煩請大師協助:dizzy:
收藏 分享

准提部林

帖子
2831 
主題
10 
精華
0 
積分
2887 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-5 
4#
發表於 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

hiasohu

帖子
2 
主題
1 
精華
0 
積分
3 
點名
0  
作業系統
winxp 
軟體版本
office2010 
閱讀權限
10 
性別
男 
註冊時間
2015-9-24 
最後登錄
2017-7-28 
3#
發表於 2015-9-30 09:51 | 只看該作者
哈哈~~閃爍只是突發其想啦!!
不過~~還是希望大師能協助~~
所謂~~異常~~~指的是~~儲存格內輸入"異常"兩字~~即閃爍
有嚐試用ontime~~但還是失敗了!!還望大師幫忙....

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2015-9-25 19:00 | 只看該作者
本帖最後由 stillfish00 於 2015-9-25 19:02 編輯

回復 1# hiasohu
一定要閃爍? 高亮底色不好嗎?
做得到是做得到...但是不管是用 loop 或 ontime
如果考慮複雜工作表有許多巨集/觸發事件時，閃爍只是自找麻煩。
*還有沒定義什麼叫做'異常'
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

        靜思自在 : 人要知福、惜福、再造福。
返回列表 上一主題