麻辣家族討論版版 - Powered by Discuz! Board

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

作者: K_Wing 時間: 2015-10-29 14:57 標題: 游標進入某個儲存格,如何可令相關區域顯示色彩

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

作者: 准提部林 時間: 2015-10-29 21:20

本帖最後由准提部林於 2015-10-31 09:35 編輯

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

測試檔下載:
[attach]22281[/attach]

＜工作表事件區＞　
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 時間: 2015-10-31 08:03

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

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

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

作者: 准提部林 時間: 2015-10-31 09:37

回復 3# K_Wing

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

作者: K_Wing 時間: 2015-10-31 11:04

回復 K_Wing

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

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

作者: K_Wing 時間: 2015-11-1 11:27

回復 4# 准提部林

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

作者: yen956 時間: 2015-11-1 16:00

試試看:

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

複製代碼

[attach]22292[/attach]
[attach]22293[/attach]

作者: K_Wing 時間: 2015-11-1 23:40

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

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

作者: K_Wing 時間: 2015-11-2 09:23

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

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