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

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

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

¦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

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

TOP

¦^´_ 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

TOP

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

TOP

¦^´_ 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

TOP

        ÀR«ä¦Û¦b : ¤£©È¨Æ¦h¡A¥u©È¦h¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD