close 
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
              

                        


    

        

                    

    

    

        arrow
    

    

        arrow
    

    
    

    


                        

    
    
    
            
    
    
    
        
    
            
    全站熱搜
    
        
    
        
    
                
    
    
    

    




                            
                
    
                        
                        



                                                    
                                                            
     
        
        

    
    
    
        
    
    
    
        
    
            alyoou 發表在 痞客邦                    留言(0) 人氣()
                    
     
        
    
            E-mail轉寄