网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
excel吧 关注：280,888贴子：1,543,902
  • 3回复贴，共1页

求助关于用VBA自动隐藏若干行的问题

A1到A5单元格内是公式，我想在这5个单元格中某个单元格显示为空时，自动隐藏该行，而且单元格显示不为空时，自动取消隐藏，且不用设命令按钮，打开工作簿就自动运行(和excel时钟一样)，请问代码该怎么写？谢谢！


工作表change事件，限定检测范围a1到a5，对单元格内容进行判定，是空就该行高为0，不是就设置该行高为默认。


也许这段VBA可以帮到你，
Private Sub Worksheet_Calculate()
' 关闭屏幕更新以避免闪烁
Application.ScreenUpdating = False
Dim i As Integer
For i = 1 To 5
' 检查A1到A5范围内的每个单元格
If Me.Range("A" & i).Value = "" Then
' 如果单元格的值为空，则隐藏当前行
Me.Rows(i).Hidden = True
Else
' 如果单元格的值不为空，则取消隐藏当前行
Me.Rows(i).Hidden = False
End If
Next i
' 打开屏幕更新，显示更改
Application.ScreenUpdating = True
End Sub


扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
  • 3回复贴，共1页
分享到: