2011年8月14日 星期日

Excel vba 選取亮顯整列

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

 


使用CheckBox來開關亮顯


image

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

LinkWithin

Related Posts Plugin for WordPress, Blogger...

熱門文章