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

K_Wing

未知Excel可否使用以下方法顯示組合數
如附件中
H11=SUM(C5+B5)
我可否用游標移入H11儲存格後
C5和B5這兩個儲存格會顯示顏色(字色或者底色)
又或者這三個儲存格都顯示顏色

下載 (138.2 KB)

2015-10-29 14:56

准提部林

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

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

下載次數: 4

2015-10-31 09:34

＜工作表事件區＞　
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)　設黃底色或自訂

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

K_Wing

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

＜工作表事件區＞　
Private Sub Worksheet_Selectio ...
准提部林 發表於 2015-10-29 21:20

感謝指導
可惜此方法在我來說
不懂得如何設置
謝謝你

准提部林

回復 3# K_Wing

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

K_Wing

回復  K_Wing

已補上測試檔, 試看看吧!
_複雜公式就不太適用
_因事件觸發程式, 可能會有預期不到的狀 ...
准提部林 發表於 2015-10-31 09:37

公司的電腦解不開rar
讓我放工回家後再試試
謝謝幫忙

K_Wing

回復 4# 准提部林

這個測試檔很簡單
但未能滿足上司的要求
暫時使用以下方法

下載 (169.31 KB)

2015-11-1 11:27

yen956

試試看:

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Dim Rng As Range
   
3.     Dim col1, row1 As Integer
   
4.     col1 = Target.Column
   
5.     row1 = Target.Row Mod 5
   
6.     Set Rng = Union([H4:K5], [H9:K10], [H14:K15], [H19:K20])   '設定 Worksheet_SelectionChange 觸動區域
   
7.     [B4:K20].Interior.ColorIndex = xlNone
   
8.     If Not Intersect(Target, Rng) Is Nothing Then
   
9.         Target.Interior.ColorIndex = 7
   
10.         If row1 = 4 Then
    
11.             Select Case col1
    
12.                 Case Is = 8:  Target.Offset(1, -6).Resize(1, 2).Interior.ColorIndex = 7
    
13.                 Case Is = 9:  Target.Offset(0, -7).Resize(1, 2).Interior.ColorIndex = 7
    
14.                 Case Is = 10: Target.Offset(0, -8).Resize(2, 1).Interior.ColorIndex = 7
    
15.                 Case Is = 11: Target.Offset(0, -8).Resize(2, 1).Interior.ColorIndex = 7
    
16.             End Select
    
17.         Else
    
18.             Select Case col1
    
19.                 Case Is = 8:  Target.Offset(0, -4).Resize(1, 2).Interior.ColorIndex = 7
    
20.                 Case Is = 9:  Target.Offset(-1, -5).Resize(1, 2).Interior.ColorIndex = 7
    
21.                 Case Is = 10: Target.Offset(-1, -6).Resize(2, 1).Interior.ColorIndex = 7
    
22.                 Case Is = 11: Target.Offset(-1, -6).Resize(2, 1).Interior.ColorIndex = 7
    
23.             End Select
    
24.         End If
    
25.     End If
    
26. End Sub

複製代碼

下載 (62.62 KB)

2015-11-1 15:59

令相關區域顯示色彩.rar (8.93 KB)

下載次數: 3

2015-11-1 16:00

K_Wing

回復 7# yen956
看圖片所示
正是我想要的效果
可惜下載後解壓後
點選範圍沒有顯示色彩

我將問題放到Excelㄧ般區
原因是我不懂得放入代碼
可否告知代碼該放在那裡
真抱歉
不斷給你添麻煩

K_Wing

回復 7# yen956
我明白為何找不到放代碼的地方了
因為我的 Excel版本沒有『開發人員』
看來仍是用回自己的圖表好了
謝謝你的一再幫忙