小编E. *_*ckx的帖子

背景:我有一个大型的Excel工作表,我在其中创建了一个"十字准线",以便在与当前所选单元格相同的行和列中的数据之间轻松进行比较.我见过的大多数"十字准线"导航技巧使用格式化,这将删除或覆盖我现有的条件格式.我的解决方法是使用透明线突出显示当前所选单元格的行和列.

问题:代码适用于大多数选择集,但非相邻单元格选择除外.对于非相邻单元格,它仅突出显示选择中的第一个单元格.例如:如果我选择F10然后选择H6,我期待两个十字准线:一个以中心为中心F10,另一个以中心为中心H6.相反,有一个以十字形为中心的十字准线F10.

问题:有没有办法创建一个适用于非相邻单元格选择的选择十字准线？

现行代码:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

    Dim On_Off As Boolean
    On_Off = True
    If On_Off = False Then Exit Sub

    Dim Sht As Worksheet
    Dim Rng As Range
    Set Sht = ActiveSheet
    Set Rng = Selection
    Dim Shp As Shape
    Dim Clr As Long
    Dim RWt As Double
    Dim CWt As Double
    Dim Trns As …