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 的頭像
        
        
    
            alyoou
            
    電腦學習園地
    
            
        
    
                    
            
    

    


                                                    
                                                            
    
        
                
    

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