電腦學習園地

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    Rows(Selection.Row & ":" & Selection.Row).Select 
End Sub

使用CheckBox來開關亮顯

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    a = Selection.Row
    If CheckBox1.Value Then Rows(a & ":" & a).Select
End Sub