5,140
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
northwolves 2005-09-23
- 打赏
- 举报
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox "LEFT: " & Target.Left & vbCrLf & "TOP: " & Target.Top & vbCrLf & "WIDTH: " & Target.Left + Target.Width & vbCrLf & "HEIGHT: " & Target.Top + Target.Height
End Sub
MsgBox "LEFT: " & Target.Left & vbCrLf & "TOP: " & Target.Top & vbCrLf & "WIDTH: " & Target.Left + Target.Width & vbCrLf & "HEIGHT: " & Target.Top + Target.Height
End Sub
icansaymyabc 2005-09-17
- 打赏
- 举报
With Application.ActiveCell
Debug.Print "活动单元格左上角坐标： "; .Left, .Top
Debug.Print "活动单元格右下角坐标： "; .Left + .Width, .Top + .Height
End With
Debug.Print "活动单元格左上角坐标： "; .Left, .Top
Debug.Print "活动单元格右下角坐标： "; .Left + .Width, .Top + .Height
End With
