[新人求助]如何做一个只对自定义表内范围的聚光灯

freeze911

看了很多实例，一般都为聚光灯只有整行列的，或者是条件模式下的聚光灯
如果按照以下要求的话，如何做一个聚光灯呢
假设：
有自定义Table1，范围为A2:C10
聚光灯的效果仅限在表内显示

其实换句话说也就是范围内的灯光效果，不会辐射到整张表
尝试过用ActiveCell.End，如果选中A2会对A1也进行变色，而如果选中C2，又会对C2后方的Rows统统变色


求各位大神指导下，先谢谢各位了

李兴德

条件格式就好了。

liulang0808

Application.Intersect
考虑用这个控制下范围吧

freeze911

李兴德 发表于 2018-9-12 13:53
条件格式就好了。

请问有没有不用条件格式的方法呢？

freeze911

谢谢版主了，可以看下以下代码
Private Sub Worksheet_SelectionChange(ByVal targe As Range)
If Application.Union(Range("Table1"), ActiveCell).Address <> Range("Table1").Address Then

Exit Sub
End If
Cells.Interior.ColorIndex = xlNone
Dim i
Dim j
i = Range("Table1").Address(False, False)
j = VBA.Left(i, 1)
k = VBA.Mid(i, 4, 1)
Dim m
Dim n
m = ActiveCell.Address(False, False)
n = VBA.Left(m, 1)
Select Case n
Case Is = j
Range(ActiveCell, ActiveCell.End(xlToRight)).Interior.ColorIndex = 35
Case Is = k
Range(ActiveCell.End(xlToLeft), ActiveCell).Interior.ColorIndex = 35
Case Else
Range(ActiveCell.End(xlToLeft), ActiveCell.End(xlToRight)).Interior.ColorIndex = 35
End Select
End Sub
但是还有以下问题
1. 如果从表跳出去后，最后颜色会留在表内
2. 本来截取自定义字段，但是好像和函数截取方法完全不一样，比如K的取值，一旦Address地址范围3位数后4位数就会错误，是否可以帮忙改下可变长度自取，其实就是：后第一个字符
谢谢大家的帮忙