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

[µo°Ý] ¦]¬°¨ç¼Æ¶W¹L¦r¤¸¼Æ¡A¯à§_§ï¼g¨ìµ{¦¡°Ï¡H

[µo°Ý] ¦]¬°¨ç¼Æ¶W¹L¦r¤¸¼Æ¡A¯à§_§ï¼g¨ìµ{¦¡°Ï¡H

±qC2¶}©l¡A
¨C·íC2§ïÅܮɡAG2±a¤J¤@¤j¦ê¨ç¼Æ¡C
¨C·íC3§ïÅܮɡAG3±a¤J¤@¤j¦ê¨ç¼Æ¡C
............................................................................
............................................................................
............................................................................
............................................................................
¨C·íC100§ïÅܮɡAG100±a¤J¤@¤j¦ê¨ç¼Æ¡C

¥Ñ©ó¨ç¼Æ¦r¤¸¼Æ¹L¦h¡A¥L·|Åã¥ÜµLªk¡A¤£ª¾¹D¬O¥i¥H¦bµ{¦¡°Ï¨Ï¥Î
¨ç¼Æ§Ú¥ý¼È®É¦C¥X¤@¤p¬q
=IF(AND(DATEDIF(C2,H2,"y")=0,DATEDIF(C2,H2,"ym")<6),
IF(AND(DATEDIF(H2,I2,"ym")=0,DATEDIF(H2,I2,"md")<>0),"¦A"&DATEDIF(H2,I2,"md")&"¤Ñ¡Aº¡6­Ó¤ë¡A¯S¥ð3¤Ñ¡C",
IF(AND(DATEDIF(H2,I2,"ym")<>0,DATEDIF(H2,I2,"md")=0),"¦A"&DATEDIF(H2,I2,"ym")&"­Ó¤ë¡Aº¡6­Ó¤ë¡A¯S¥ð3¤Ñ¡C",
IF(AND(DATEDIF(H2,I2,"ym")<>0,DATEDIF(H2,I2,"md")<>0),"¦A"&DATEDIF(H2,I2,"ym")&"­Ó¤ë¤S"&DATEDIF(H2,I2,"md")&"¤Ñ¡Aº¡6­Ó¤ë¡A¯S¥ð3¤Ñ¡C"))),

¦^´_ 1# av8d


    ¥Ø«e¤wª¾
  1. Private Sub Worksheet_Change(ByVal Target As Range)

  2.     With Target
  3.         i = 2
  4.         For j = i To 100
  5.             If .Row = j And .Column = 3 Then
  6.                 If .Value <> "" Then
  7.                 .Offset(0, 4) = ""
  8.                 End If
  9.             End If
  10.         Next
  11.     End With
  12. End Sub
½Æ»s¥N½X
.Offset(0, 4) = ""  ¦]¬° ""­n¼g¤J¨ç¼Æ
¥Ø«eÁÙ¦b¬ã¨s¤¤¡A§Ú¥ýºI¨ú¤@­Ó³Ìµuªº¨ç¼Æ¦p¤U¡G
IF(AND(DATEDIF(C2,H2,"y")=0,DATEDIF(C2,H2,"ym")<6),
IF(AND(DATEDIF(H2,I2,"ym")=0,DATEDIF(H2,I2,"md")<>0),"¦A"&DATEDIF(H2,I2,"md")&"¤Ñ¡Aº¡6­Ó¤ë¡A¯S¥ð3¤Ñ¡C",
IF(AND(DATEDIF(H2,I2,"ym")<>0,DATEDIF(H2,I2,"md")=0),"¦A"&DATEDIF(H2,I2,"ym")&"­Ó¤ë¡Aº¡6­Ó¤ë¡A¯S¥ð3¤Ñ¡C",
IF(AND(DATEDIF(H2,I2,"ym")<>0,DATEDIF(H2,I2,"md")<>0),"¦A"&DATEDIF(H2,I2,"ym")&"­Ó¤ë¤S"&DATEDIF(H2,I2,"md")&"¤Ñ¡Aº¡6­Ó¤ë¡A¯S¥ð3¤Ñ¡C"))),

TOP

        ÀR«ä¦Û¦b : ¡i®É¤é²öªÅ¹L¡j¤@­Ó¤H¦b¥@¶¡°µ¤F¦h¤Ö¨Æ¡A´Nµ¥©ó¹Ø©R¦³¦hªø¡C¦]¦¹¥²¶·»P®É¶¡Ävª§¡A¤Á²ö¨Ï®É¤éªÅ¹L¡C
ªð¦^¦Cªí ¤W¤@¥DÃD