【问题标题】:Vb macro excel 2007 hide rows if cell equal zero如果单元格为零,Vba宏excel 2007隐藏行
【发布时间】:2015-03-03 05:35:54
【问题描述】:

我想在作为工作表一部分的表格上运行宏,它从 A18 到 J33,第 18 行是标题。 宏应隐藏 J 列单元格中为零的行。

请帮忙!!!!!!

【问题讨论】:

  • 要求代码的问题必须表明对所解决问题的最低理解。包括尝试的解决方案、它们为什么不起作用以及预期的结果。另见:Stack Overflow question checklist

标签: excel vba


【解决方案1】:

当您看到您的电子表格时,点击 ALT+F11。这将为您打开 VBE(Visual Basic 编辑器)。

右键单击VBA Project Explorer(如果看不到,请单击查看 -> 项目资源管理器或 CTRL+R

插入一个模块

复制并粘贴以下代码

Sub HideRows()
    Dim cell As Range
    For Each cell In Range("J19:J33")
        If Not isEmpty(cell) Then
            If cell.Value = 0 Then 
                cell.EntireRow.Hidden = True
            End If
        End If
    Next
End Sub

F5 运行宏。

之前

之后

【讨论】:

  • 谢谢你,对不起,我是文盲,当谈到 vb 宏时,它不能以红色突出显示:对于每个单元格。并给出编译错误:synthax error
  • 您是否按原样复制和粘贴?你把代码粘贴到哪里了?
  • @mehow:上面的代码也会隐藏空白的J 单元格。你可能想把它改成If cell.Value <> "" And cell.Value = 0 Then ?
  • 顺便说一句,恭喜 5k ;)
  • 你说得对@SiddharthRout 我忘记了空行,也没有提到代码尚未测试。
猜你喜欢
  • 1970-01-01
  • 1970-01-01
  • 2016-01-11
  • 2022-01-16
  • 2018-12-18
  • 2018-12-13
  • 1970-01-01
  • 2016-04-01
  • 1970-01-01
相关资源
最近更新 更多