鄙人不会用VBA,那位大虾帮个忙,帮忙编个小程序'

28592009

<div style="MARGIN-TOP: 10px; FONT-SIZE: 9pt; MIN-HEIGHT: 200px; WORD-BREAK: break-all; TEXT-INDENT: 24px; LINE-HEIGHT: normal; WORD-WRAP: break-word;">鄙人不会用VBA,那位大虾帮个忙,帮忙编个小程序' <br/>&nbsp; 在Excel行中某一个单元格值为零时,隐藏本行. <br/>&nbsp; 谢.</div>

element

<p>参考</p><p>Sub test()<br/>&nbsp;&nbsp;&nbsp; Dim mUnion As Range<br/>&nbsp;&nbsp;&nbsp; Dim FirstAddress<br/>&nbsp;&nbsp;&nbsp; Dim Rng As Range<br/>&nbsp;&nbsp;&nbsp; Dim pt As Range</p><p>&nbsp;&nbsp;&nbsp; With Sheet1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; On Error GoTo ErrH<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set Rng = .UsedRange.SpecialCells(xlCellTypeConstants, xlNumbers)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; On Error GoTo 0<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set pt = Rng.Find(0, MatchCase:=True, Lookat:=xlWhole)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Not pt Is Nothing Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; FirstAddress = pt.Address<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Do<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If mUnion Is Nothing Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set mUnion = pt<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set mUnion = Union(mUnion, pt)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set pt = Rng.FindNext(pt)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Loop While Not pt Is Nothing And pt.Address &lt;&gt; FirstAddress<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If mUnion Is Nothing Then Exit Sub<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; mUnion.EntireRow.Select<br/>&nbsp;&nbsp;&nbsp; End With<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; Exit Sub<br/>ErrH:<br/>End Sub</p>

[此贴子已经被作者于2007-4-3 15:42:06编辑过]

7dong502

进来学习[em01]

element

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>7dong502</i>在2007-4-3 15:42:33的发言：</b><br/>进来学习[em01]</div><p></p>你也太快了点....[em05]

兰色幻想

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>element</i>在2007-4-3 15:43:36的发言：</b><br/><div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>7dong502</i>在2007-4-3 15:42:33的发言：</b><br/>进来学习[em01]</div><p></p>你也太快了点....[em05]</div><p>呵呵</p>

zjautocad

这里大多是完ＥＸＣＥＬ的白领，我无法帮你啊！