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

¿ë§O ¤½¦¡ ©Î ¼Æ¦r

¿ë§O ¤½¦¡ ©Î ¼Æ¦r

¦U¦ì«e½ú§A­Ì¦n!
¡@¡@      «e½ú!¦pªG [AA2] = "=$A$3+6" «h [A5] = [AA2]
               ¦pªG [AA2] = 9 «h [A5] = [AA2] +1   
               ¤]´N¬O»¡·í[AA2] =¤½¦¡ ®É [A5] = [AA2]
               ·í[AA2] =¼Æ¦r ®É [A5] = [AA2]+1
               ¤£ª¾¿ë§O¤½¦¡ªºµ{¦¡¦p¦ó¼g
               ½Ðª¾¹Dªº«e½ú,¤£§[½ç±ÐÁÂÁ¦A¤T!!

¦^´_ 1# myleoyes
  1. Sub XX()
  2. Dim Rng As Range
  3. On Error Resume Next
  4.   Set Rng = [AA2].SpecialCells(xlCellTypeFormulas)
  5. On Error GoTo 0
  6. If Not Rng Is Nothing Then
  7.    [A5] = [AA2]
  8. ElseIf WorksheetFunction.IsNumber([AA2]) Then
  9.    [A5] = [AA2] + 1
  10. Else
  11.    [A5] = "AA2¬°¤å¦r"
  12. End If
  13. Set Rng = Nothing
  14. End Sub
½Æ»s¥N½X

TOP

¦^´_ 1# myleoyes


If Left([AA2].Formula, 1) = "=" Then
   [A5] = [AA2]
   ElseIf IsNumeric([AA2].Value) Then
   [A5] = [AA2] + 1
End If
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 3# Hsieh
   °¸¹³«e½ú!ÁÂÁ¦A¤T!!
   register313«e½ú!
        ªGµM¼F®` , ¤ß«ä²Ó¿°
        ¦n¤@­Ó
        Else
        [A5] = "¿ù»~¼Æ¾Ú"
        ©R¤¤­n®`«¢«¢!!ÁÂÁ¦A¤T!!
    ¤£¦n·N«ä¤p§ÌÁÙ¦³°ÝÃD½Ð±Ð¨â¦ì«e½ú!
    ¦pªþÀÉ»¡©ú,¨¯­WÅo!!¤£§[½ç±ÐÁÂÁ¦A¤T!!

LeoV58.rar (7.13 KB)

TOP

¦^´_ 4# myleoyes

=IF(TODAY()<=G3,"",INDIRECT("'"&TEXT(EDATE(G2,12),"e")&"¦~«×¦¬¤ä'!$A$4"))

TOP

¦^´_ 4# myleoyes

=IF(TODAY()<=G3,"",IF(ISERROR(INDIRECT(TEXT(G3,"e¦~«×")&"¦¬¤ä!$A$4")),"",INDIRECT(TEXT(G3,"e¦~«×")&"¦¬¤ä!$A$4")))
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 6# Hsieh
    ¨â¦ì«e½ú!ÁÂÁ¦A¤T!!
   ¤½¦¡¦³»~¦pªþÀɦA¨¯­WÅo!!

LeoV58-1.rar (4.87 KB)

TOP

¦^´_ 7# myleoyes

=IF(F3="","",IF(F4="",¦¬¤ä!$A$4,INDIRECT(TEXT(G3,"e")&"¦~«×¦¬¤ä!$A$4")))

TOP

¦^´_ 8# register313
      «e½ú!¨¯­WÅo!ÁÂÁ¦A¤T!!

TOP

        ÀR«ä¦Û¦b : ¤@¥y·Å·xªº¸Ü¡A´N¹³©¹§O¤H¨­¤WÅx­»¤ô¡A¦Û¤v·|ªg¨ì¨â¤Tºw¡C
ªð¦^¦Cªí ¤W¤@¥DÃD