1. Dim currentRow As Long, currentCol As Long
   
2.                     Dim colorIndex As Long
   
3.                         If GL Then
   
4.                             ' 获取当前选中单元格的行号和列号
   
5.         '                        msgbox("1")
   
6.                             currentRow = e.RangeSelection.Row
   
7.                             currentCol = e.RangeSelection.Column
   
8.         '                    msgbox(currentRow & "12" & currentCol)
   
9.                             ' 定义要使用的颜色索引（可以根据需要修改）
   
10.                             colorIndex = 16 ' 例如，使用黄色（索引6）
    
11.                             
    
12.                             ' 清除之前的高亮（如果有的话）
    
13.                             With AW.ActiveWorksheet.UsedRange.Interior
    
14.                                         .Pattern = SpreadsheetGear.Pattern .None
    
15.                             End With
    
16.         '                    msgbox("1234")
    
17.                             ' 高亮显示当前行和列
    
18.                                 If e.RangeSelection.Intersect(Range("T_113")) IsNot Nothing Then
    
19.                                     With e.RangeSelection.EntireRow.Interior  
    
20.         '                                With Range("T_113").Rows(currentRow).EntireRow.Interior
    
21.                                         .colorIndex = colorIndex
    
22.                                     End With
    
23.                 '                        msgbox("12345")
    
24.                                     With e.RangeSelection.EntireColumn.Interior
    
25.         '               With Range("T_113").EntireColumn.Interior
    
26.                                         .colorIndex = colorIndex
    
27.                                     End With       
    
28.                                 End If
    
29.                         End If

复制代码

e.RangeSelection.EntireRow.Interior 只能设置到整行 或是整列

将currentRow与 currentCol限制在T_113的区域行列之内，也即是行号大于区域的第一行 小于最后一行，列大于第一列小于最后一列，在整个范围内起作用
另：企业版默认支持该功能，不用自定义写VBA

将currentRow与 currentCol限制在T_113的区域行列之内，也即是行号大于区域的第一行 小于最后一行，列大于第一列小于最后一列，在整个范围内起作用
另：企业版默认支持该功能，不用自定义写VBA