通过在复选框内打勾来切换”显示/隐藏行“

torquay

大家好！我在EXCEL中做了个复选框，想通过划勾来控制第5—12行的隐藏，但是不成功。能否帮我看看是什么错误？多谢了

可爱天使

到VBA版块看看

lpzxhjp

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If Target.Address = "$E$25" And Target = False Then
   
3.     Range("5:12").EntireRow.Hidden = True
   
4. Else
   
5.     ActiveSheet.UsedRange.EntireRow.Hidden = False
   
6. End If
   
7. End Sub
   

复制代码

torquay

可爱天使 发表于 2012-3-30 21:36
到VBA版块看看

看了，照着人家的代码改了半天也不行。

torquay

lpzxhjp 发表于 2012-3-30 21:48

• Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  
• If Target.Address = "$E$25" And Target = False Then
  
• Range("5:12").EntireRow.Hidden = True
  
• Else
  
• ActiveSheet.UsedRange.EntireRow.Hidden = False
  
• End If
  
• End Sub
  
  

Private Sub Worksheet_SelectionChange(ByVal Target As Range)<br />If Target.Address = "$E$25" And Target = False Then<br />    Range("5:12").EntireRow.Hidden = True<br />Else<br />    ActiveSheet.UsedRange.EntireRow.Hidden = False<br />End If<br />End Sub

这就是我的代码，请各位看是什么问题？

lpzxhjp

你仔细看看，是你的代码，但你是放在change事件中，
而我放在SelectionChange事件中

lpzxhjp

勾选“复选框”后，单击任意单元格即可

torquay

lpzxhjp 发表于 2012-3-30 22:07
你仔细看看，是你的代码，但你是放在change事件中，
而我放在SelectionChange事件中

不好意思，刚才没看清。

我把您的代码COPY进去，还是不行。您能发个EXCEL附件上来吗？

lpzxhjp

你再看看这个行吗？前一个效果不是很满意！

torquay

lpzxhjp 发表于 2012-3-30 22:30
你再看看这个行吗？前一个效果不是很满意！

太好了，非常感谢您的帮助~{:soso_e179:}{:soso_e179:}{:soso_e179:}