要用VBA实现。按Alt+F11,双击一个工作表名称,将下面代码粘贴到右边框中,那么这个工作表就能实现你的要求。
选中一个工作表,右击,查看代码,添加即可。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r, c
r = Target.Row
c = Target.Column
Cells.Interior.ColorIndex = xlNone
Rows(r).Interior.ColorIndex = 35
Columns(c).Interior.ColorIndex = 35
End Sub
Private Sub Chart_MouseMove(ByVal Button As Long, ByVal Shift As Long, ByVal X As Long, ByVal Y As Long)
MsgBox "X = " & X & " Y = " & Y
End Sub
Private Sub Chart_MouseDown(ByVal Button As Long, _
ByVal Shift As Long, ByVal X As Long, ByVal Y As Long)
MsgBox "Button = " & Button & chr$(13) & _
"Shift = " & Shift & chr$(13) & _
"X = " & X & " Y = " & Y
End Sub
高亮显示形状
鼠标移动到label2 label2即显示红色。
Option Explicit
Private Sub Label1_Click()
End Sub
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label2.BackColor = vbWhite
End Sub
Private Sub Label2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label2.BackColor = vbRed
End Sub