国产一区二区欧美精品免费-欧美国产日韩在线视频-欧美亚洲国语精品一区二区-欧美激情五月综合啪啪-国产69精品麻豆久久久久-亚洲人成精品久久久久桥网站-欧美刺激肥熟在线视频-十七岁日本免费完整版BD-黑夜在线拖拽不卡第一页

' 類模塊: clsEventClassModule
Option Explicit

Private WithEvents App As Application

Private Sub Class_Initialize()
Set App = Application
End Sub

Private Sub App_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If TypeOf Sh Is Worksheet Then
Call HighlightActiveCellRowAndColumn(Sh, Target)
End If
End Sub


' 標準模塊
Option Explicit

Public EventClassModule As New clsEventClassModule

Sub Auto_Open()
Set EventClassModule.App = Application
End Sub

Sub Auto_Close()
Set EventClassModule = Nothing
End Sub

Public Sub HighlightActiveCellRowAndColumn(ws As Worksheet, Target As Range)
On Error GoTo l_err

' 清除之前的高亮顯示
ws.Cells.Interior.ColorIndex = xlNone

' 設(shè)置行范圍并高亮顯示
With ws.Rows(Target.Row)
.Interior.Color = RGB(255, 255, 0) ' 黃色
End With

' 設(shè)置列范圍并高亮顯示
With ws.Columns(Target.Column)
.Interior.Color = RGB(255, 255, 0) ' 黃色
End With

Exit Sub

l_err:
MsgBox "發(fā)生錯誤：" & Err.Description, vbCritical
End Sub