[µo°Ý] ¿ù»~13 «¬ºA¤£²Å¦X

av8d

¿ù»~13 «¬ºA¤£²Å¦X.rar (38.83 KB)

¤U¸ü¦¸¼Æ: 4

2023-2-22 16:01

®É¶¡§PÂ_¤W¤]¦³°ÝÃD¡A·í¤Ñ­â±á2ÂI¡A¦ý¬O«o§PÂ_²Å¦X¡A½Ð«e½ú«ü¾É¡AÁÂÁÂ

av8d

¦^´_ 6# Andy2483


    ·PÁ«e½ú¤£¹½¨ä·Ð¦a»¡©ú¡A³ºµMÁÙ¦³§Ú³Ì´Á«Ýªºµù¸Ñ¡AÅý§ó¦h¤£À´ªº¤H¥i¥Hª¾¹D¼¶¼g¨ä­ì¦]¡AÁÂÁ¡I

Andy2483

¦^´_ 3# av8d
¦^´_ 4# singo1232001


    ÁÂÁ¨â¦ì«e½ú
«á¾Ç½Æ²ß¤F¤@¤U°µ¤F¤ß±oµù¸Ñ,½Ð«e½ú«ü±Ð

Option Explicit
Sub ¶}©l_1()
Dim T As Date, i&
'¡ô«Å§iÅܼÆ:T¬O¤é´ÁÅܼÆ,i¬Oªø¾ã¼Æ
For i = 2 To Cells(Rows.Count, "A").End(3).Row
'¡ô³]¶¶°j°é!i±q2¨ì AÄæ³Ì«á¦³¤º®eªºÀx¦s®æ¦C¸¹
   T = Cells(i, 8)
  '¡ô¥OT³o¤é´ÁÅܼƬO i°j°é¦CHÄæÀx¦s®æ­ÈÂà¤Æ¬°¤é´Á­ÈªºÅܼÆ
   If Trim(Cells(i, 9)) = "" Then
   '¡ô¦pªGi°j°é¦CIÄæÀx¦s®æ­È¥h°£«e«áªÅ¥Õ¦r¤¸«áªº¦r¦ê¬O ªÅ¦r¤¸??
      Cells(i, 9) = IIf(T < Now(), "¤w¶W®É", (Now() - T))
      '¡ôIf±ø¥ó¦¨¥ß!´N¥Oi°j°é¦CIÄæÀx¦s®æ­È ¥HIIf()¦^¶Ç­È±a¤J
      'IIf():¦pªGTÅÜ¼Æ < ²{¦b®É¶¡!´N¦^¶Ç "¤w¶W®É"¦r¦ê,§_«h¦^¶Ç(²{¦b®É¶¡-TÅܼÆ)
   End If
Next
End Sub


Sub ¶}©l_2()
Dim i&
'¡ô«Å§iÅܼÆ:i¬Oªø¾ã¼Æ
For i = 2 To Cells(Rows.Count, "A").End(3).Row
'¡ô³]¶¶°j°é!i±q2¨ì AÄæ³Ì«á¦³¤º®eªºÀx¦s®æ¦C¸¹
   If Trim(Cells(i, 9)) = "" Then
   '¡ô¦pªGi°j°é¦CIÄæÀx¦s®æ­È¥h°£«e«áªÅ¥Õ¦r¤¸«áªº¦r¦ê¬O ªÅ¦r¤¸??
      Cells(i, 9) = IIf(CDate(Cells(i, 8)) < Now(), "¤w¶W®É", (Now() - CDate(Cells(i, 8))))
      '¡ôIf±ø¥ó¦¨¥ß!´N¥Oi°j°é¦CIÄæÀx¦s®æ­È ¥HIIf()¦^¶Ç­È±a¤J
      'IIf():¦pªGCDate()¨ç¼ÆÂà¤Æi°j°é¦CHÄæÀx¦s®æ­È < ²{¦b®É¶¡!´N¦^¶Ç "¤w¶W®É"¦r¦ê,
      '§_«h¦^¶Ç(²{¦b®É¶¡-i°j°é¦CHÄæÀx¦s®æ­È)
      'https://support.microsoft.com/zh-tw/office/%E9%A1%9E%E5%9E%8B%E8%BD%89%E6%8F%9B%E5%87%BD%E6%95%B8-8ebb0e94-2d43-4975-bb13-87ac8d1a2202
   End If
Next
End Sub

av8d

¦^´_ 4# singo1232001

ÁÙ¦n¦³ÂI¶i¨Ó¬Ý«e½úªº¯d¨¥¡ACDate()¯uªº¶W¦n¥Îªº¡A¤]¯à·Ç½T¦aª¾¹DT¬O¤°»ò¡A¤£¥Î©¹¤W¥h§ä¡AÁÂÁ±z¡C

singo1232001

¦^´_ 3# av8d

CDate(Cells(i, 8))

av8d

¦^´_ 2# Andy2483

¨ü¯q¨}¦h¡AÁÂÁ«e½ú´£¨Ñ¨âºØ¼gªk

Andy2483

¦^´_ 1# av8d


    ÁÂÁ«e½úµoªí¦¹¥DÃD»P½d¨Ò
«á¾Ç¥u·|±NÀx¦s®æ¸Ìªº®É¶¡¥Î«Å§i¬°DATEªºÅܼƸ˰_¨Ó°µ¹Bºâ·|¦¨¥\­pºâ,¨ä¥L¤èªk«á¾Ç¤]·Q¾Ç
¥H¤U¤èªk½Ð°Ñ¦Ò

¤U¸ü (25.99 KB)

2023-2-22 16:41

Option Explicit
Sub ¶}©l()
Dim T As Date, i&
For i = 2 To Cells(Rows.Count, "A").End(3).Row
   T = Cells(i, 8)
   If Trim(Cells(i, 9)) = "" Then
      If T < Now() Then
         Cells(i, 9) = "¤w¶W®É"
      End If
      If T > Now() Then
         Cells(i, 9) = Now() - T
      End If
   End If
Next
End Sub

Sub ¶}©l_1()
Dim T As Date, i&
For i = 2 To Cells(Rows.Count, "A").End(3).Row
   T = Cells(i, 8)
   If Trim(Cells(i, 9)) = "" Then
      Cells(i, 9) = IIf(T < Now(), "¤w¶W®É", Now() - T)
   End If
Next
End Sub