改变单元格选择区域即调动某段语句

江月初照

当工作表的单元格选择改变时，自动显示整行。这样的功能可以通过以下语句实现。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    UsedR = ActiveSheet.UsedRange.Rows.Count '已经使用行
    UsedC = ActiveSheet.UsedRange.Columns.Count '已经使用列
    lur = Selection(1).Row '已选左上角行数
    luc = Selection(1).Column '已选左上角行数
    If lur > 2 Then
        rdr = Selection(Selection.Count).Row '已选右下角行数
        rdc = Selection(Selection.Count).Column '已选右下角列数
        If lur > 2 And lur <= UsedR And rdr <= UsedR And rdc <= UsedC Then
            Range(Cells(lur, 1), Cells(rdr, UsedC)).Select
            ActiveSheet.Cells(lur, luc).Activate
        End If
    End If
End Sub

但当有多张工作表时，如果每个工作表都写重复的触发语句，则显得麻烦。如何达到调用同一段语句的效果呢？
假如把这些语句写在If_Choose_AllRows里，如何顺利调用呢？
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  Call If_Choose_AllRows
End Sub

lcs_2046

为什么不用Target?试试Targe.entirerow.Select ，可能会有用。想在选择事件中避免重复触发事件可以用application.enableevents=false来临时关闭事件，当选择结束后再application.enableevents=true来打开事件。那个if_choose_allrows可以放在模块里。

taller

如果希望对所有工作表都有效，那么应该使用这个工作簿事件

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

End Sub

代码中应使用Sh和Target，避免使用ActiveSheet和Selection

江月初照

学习了，谢谢。