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

[µo°Ý] ¦p¦óÅV¥Ü·í¤U¿é¤J®É¶¡

[µo°Ý] ¦p¦óÅV¥Ü·í¤U¿é¤J®É¶¡

¥»©«³Ì«á¥Ñ kkooo15 ©ó 2016-3-17 08:01 ½s¿è


½Ð°Ý¤j¤j¡A¦p¦óÅýa5ÅV¥Ü¬O·í¤U¿é¤J®É¶¡?
§Ú²{¦ba5 = IFERROR(IF(B5>0,TODAY(),""),"")
¦ý¬O®æ¤Ñ¶}Àɮ׮ɶ¡´NÅܤF
test.rar (18.33 KB)
excel¾Ç²ß¤¤!¿v¥X¹Ú·Q
https://www.youtube.com/channel/UCPAiRNsHX3k_omp0YDgfDiA

¦^´_ 2# stillfish00
·PÁ¡A«Ü¹ê¥Î¡AÁÂÁ¡C
excel¾Ç²ß¤¤!¿v¥X¹Ú·Q
https://www.youtube.com/channel/UCPAiRNsHX3k_omp0YDgfDiA

TOP

¦^´_ 1# kkooo15
¥Î¤½¦¡¨S¿ìªk§a¡AVBA¥Î¸Ó¤u§@ªíªº Change ¨Æ¥ó
²Ä¤@¦¸¶ñ¤JBÄæ®É¬ö¿ý®É¶¡
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.     If Target.Column = 2 And Len(Cells(Target.Row, 1).Text) = 0 And Len(Target.Cells(1).Text) > 0 Then
  3.         Cells(Target.Row, 1).Value = Now
  4.     End If
  5. End Sub
½Æ»s¥N½X
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

        ÀR«ä¦Û¦b : ¬°¦Û¤v§äÂǤfªº¤H¥Ã»·¤£·|¶i¨B¡C
ªð¦^¦Cªí ¤W¤@¥DÃD