²M°£¯S©wÀx¦s®æ¤º®e

jim

¦U¦ì°ª¤â§A¦n¨Ã½Ð«ü¾É   ¦p¤U»Ý¨D  VBA À³¦p¦ó?
  ¤u§@ªí¤º  A1~FZ170    (    Row  AJ ¬OÅÜ¼Æ )
  ¦pªG Àx¦s®æ AJ7 ªÅ¥Õ ©Î¬O =0  «h EY7 ~ FV7 Àx¦s®æ¤º¤º®e²M°£
           Àx¦s®æ AJ10 ªÅ¥Õ ©Î¬O =0  «h EY10 ~ FV10 Àx¦s®æ¤º¤º®e²M°£
           Àx¦s®æ AJ43 ªÅ¥Õ ©Î¬O =0  «h EY43 ~ FV43 Àx¦s®æ¤º¤º®e²M°£
¥H¤UÃþ±À    TKS

register313

¦^´_ 1# jim

1. Sub xx()
   
2. Set R = [EY1:FV1]
   
3. For Each A In [AJ1:AJ170]
   
4.   If A = "" Or A = 0 Then
   
5.      R.Value = ""
   
6.   End If
   
7.   Set R = R.Offset(1, 0)
   
8. Next
   
9. End Sub

½Æ»s¥N½X

jim

register313  ÁÂÁ«ü¾É
­Y¬O§Ú­n¦h¥[¤@­Ó±ø¥óÀ³¦p¦ó±Ô­z
    ¨Ò¦p aj7="" and c7=""  or  aj7<>"" and c7<>""  «h ²M°£¤º®e

register313

¦^´_ 3# jim

1. Sub xx()
   
2. Set R = [EY1:FV1]
   
3. For I = 1 To 170
   
4.   X = (Cells(I, "C") & Cells(I, "AJ") = "") Or (Cells(I, "C") <> "" And Cells(I, "AJ") <> "")
   
5.   If X Then
   
6.      R.Value = ""
   
7.   End If
   
8.   Set R = R.Offset(1, 0)
   
9. Next I
   
10. End Sub

½Æ»s¥N½X

jim

¦^´_ 4# register313
register313
  «D±`§¹¬ü !  ÁÂÁÂ