Board logo

標題: excel 儲存格內文字閃爍 [打印本頁]
作者: hiasohu    時間: 2015-9-24 16:16     標題: excel 儲存格內文字閃爍

請教~若工作表內輸入內容為"異常"時，希望該文字可閃爍
查文~vba好像可以完成此需求，煩請大師協助:dizzy:
作者: stillfish00    時間: 2015-9-25 19:00

本帖最後由 stillfish00 於 2015-9-25 19:02 編輯

回復 1# hiasohu
一定要閃爍? 高亮底色不好嗎?
做得到是做得到...但是不管是用 loop 或 ontime
如果考慮複雜工作表有許多巨集/觸發事件時，閃爍只是自找麻煩。
*還有沒定義什麼叫做'異常'
作者: hiasohu    時間: 2015-9-30 09:51

哈哈~~閃爍只是突發其想啦!!
不過~~還是希望大師能協助~~
所謂~~異常~~~指的是~~儲存格內輸入"異常"兩字~~即閃爍
有嚐試用ontime~~但還是失敗了!!還望大師幫忙....
作者: 准提部林    時間: 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="異常")



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