ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Ð°ÝÁôÂÃÀx¦s®æªº¼gªk

[µo°Ý] ½Ð°ÝÁôÂÃÀx¦s®æªº¼gªk

½Ð°Ý§Ú±ý±NE3:F1000¦CÀx¦s®æ¤¤¡AªÅ¥Õ©Î¼Æ¦r¬° 0 ªºÀx¦s®æ¾ã¦CÁôÂð_¨Ó¡A½Ð°ÝVBA­n«ç»ò¼g¡H

¦^´_ 1# 3083kbna
  1. Sub nn()
  2. Dim Rng As Range
  3. [E3:F1000].EntireRow.Hidden = False
  4. For Each a In [E3:F1000]
  5.   If a = 0 Or a = "" Then
  6.      If Rng Is Nothing Then
  7.         Set Rng = a
  8.         Else
  9.         Set Rng = Union(Rng, a)
  10.      End If
  11.     End If
  12. Next
  13. If Not Rng Is Nothing Then Rng.EntireRow.Hidden = True
  14. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh


    ½Ð°ÝHsiehª©¥D¡A­YE3:F1000¦C¡A¥u­n¡]EÄæ©ÎFÄæ¡^¨ä¤¤¤@Ä榳¼Æ¦rªº¸Ü´N¤£¥ÎÁôÂáA¨º­n«ç»ò§ï¡HÁÂÁ¡I

TOP

¦^´_ 3# 3083kbna
  1. Sub nn()
  2. Dim Rng As Range
  3. [E3:F1000].EntireRow.Hidden = False
  4. For Each a In [E3:E1000]
  5.   If Application.Sum(a.Resize(, 2)) = 0 Then
  6.      If Rng Is Nothing Then
  7.         Set Rng = a
  8.         Else
  9.         Set Rng = Union(Rng, a)
  10.      End If
  11.     End If
  12. Next
  13. If Not Rng Is Nothing Then Rng.EntireRow.Hidden = True
  14. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

ÁÂÁ¡IHsieh ª©¥D¡A¤w¸g¥i¥H¤F¡A¥Ñ©ó±zªºÀ°§U¨Ï§Úªº¤u§@³t«×¯àÀò±o§ïµ½¡A¦A¦¸ÁÂÁ¡I

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2010-6-1 15:49 ½s¿è
½Ð°ÝHsiehª©¥D¡A­YE3:F1000¦C¡A¥u­n¡]EÄæ©ÎFÄæ¡^¨ä¤¤¤@Ä榳¼Æ¦rªº¸Ü´N¤£¥ÎÁôÂáA¨º­n ...
3083kbna µoªí©ó 2010-6-1 14:16
¤£½×¼Æ¦r ¥¿­t©Î¬°0 ¶Ü?
Sub Ex()
    Dim Rng As Range
    Set Rng = [E3:F1000]
    Rng.EntireRow.Hidden = True
    Rng.SpecialCells(xlCellTypeConstants, xlNumbers).EntireRow.Hidden = False
End Sub

TOP

³o­ÓÀ³¸Ó¤]¥i¥H¥Î¶i¶¥¿z¿ï ªº¤è¦¡¨Ó¸Ñµª

­Y¥Î¤W©w¸q»PVBAµ²¦X´N§ó¦n¤F

TOP

¯u¤£¦n·N«ä¡I¨Sªí¹F²M·¡¡IÀ³¸Ó¬OE3:F1000¨âÄ椤ªºÀx¦s®æ¦P®É ¬O 0 ©ÎªÅ¥Õ¡]¤£¥]¬A­t¼Æ©Î¤å¦r¡^¡A¤~»Ý­nÁôÂáAHsieh ª©¥Dªº³o­ÓVBA¡G·|§âEÄæÀx¦s®æ¬O¹s©MªÅ¥Õªº¨º¤@¦CÁôÂáA½Ð°Ý­n¦p¦ó§ï©O¡HÁÂÁ¡I
Sub nn()
Dim Rng As Range
[E3:F1000].EntireRow.Hidden = False
For Each a In [E3:E1000]
  If Application.Sum(a.Resize(, 2)) = 0 Then
     If Rng Is Nothing Then
        Set Rng = a
        Else
        Set Rng = Union(Rng, a)
     End If
    End If
Next
If Not Rng Is Nothing Then Rng.EntireRow.Hidden = True
End Sub
·|§âEÄæÀx¦s®æ¬O¹s©MªÅ¥Õªº¨º¤@¦CÁôÂÃ

TOP

For Each a In [E3:E1000]
  If (a= 0 or a="") and (a.offset(,1)=0 or a.offset(,1)="" )Then
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 9# Hsieh

ÁÂÁÂHsiehª©¥D¡A§ï¹L¥H«á¤w§¹¥þ²Å¦X»Ý¨D¡A¦A¦¸ÁÂÁ¡I

TOP

        ÀR«ä¦Û¦b : ¥ÌÄ@°µ¡BÅw³ß¨ü¡C
ªð¦^¦Cªí ¤W¤@¥DÃD