返回列表 上一主題 發帖

[發問] 游標進入某個儲存格,如何可令相關區域顯示色彩

准提部林

帖子
2842 
主題
10 
精華
0 
積分
2898 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2025-4-28 
1# 跳轉到 »
發表於 2015-10-29 21:20 | 顯示全部帖子
本帖最後由 准提部林 於 2015-10-31 09:35 編輯

提供以下方案，參考看看（此方式不影響復原功能）

測試檔下載:
20151031-01(公式參照格填色).rar (8.48 KB)

＜工作表事件區＞　
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
　　　On Error Resume Next
　　　Set xArea = Nothing
　　　If .Count > 1 Then Exit Sub
　　　Application.EnableEvents = False
　　　Set xArea = .DirectPrecedents
　　　If Not xArea Is Nothing Then Set xArea = Union(.Cells, xArea)
End With
Application.EnableEvents = True
[IV1].Calculate
End Sub
　
　
＜一般模組區＞　　
Public xArea As Range
　
Function XXX(xA As Range) As Long
If Not Intersect(xArea, xA) Is Nothing Then XXX = 1
End Function
　
　
＜儲存格．格式化條件＞　
Ｂ５：=xxx(B5)　設黃底色或自訂

公式格，及被參照格都要照此設定

TOP

准提部林

帖子
2842 
主題
10 
精華
0 
積分
2898 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2025-4-28 
2#
發表於 2015-10-31 09:37 | 顯示全部帖子
回復 3# K_Wing

已補上測試檔, 試看看吧!
_複雜公式就不太適用
_因事件觸發程式, 可能會有預期不到的狀況

TOP

        靜思自在 : 一個人不怕錯，就怕不改過，改過並不難。
返回列表 上一主題