Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
MsgBox Application.ActiveCell.Row
MsgBox Application.ActiveCell.Column
End Sub
MsgBox Application.ActiveCell.Row
MsgBox Application.ActiveCell.Column
End Sub
调试欢乐多
a=Application.Thiscell.Address
End Function