µù¥U
µn¿ý
º¶
½×¾Âª©³W
¸T¤î¦Cªí
»¡©ú
¦a¹Ï
¼Æ¦ì®Ñ»
¨p¤H®ø®§ (0)
¤½¦@®ø®§ (0)
½×¾Â¥ô°È (0)
¨t²Î®ø®§ (0)
¦n¤Í®ø®§ (0)
©«¤l®ø®§ (0)
³Â»¶®a±Ú°Q½×ª©ª©
»
Excelµ{¦¡°Ï
» ¿ù»~13 «¬ºA¤£²Å¦X
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
µo©«
[µo°Ý]
¿ù»~13 «¬ºA¤£²Å¦X
Andy2483
µoµu®ø®§
¥[¬°¦n¤Í
Andy2483
(«pÁy¥Öªº¾Ç¥Í)
·í«eÂ÷½u
UID
36777
©«¤l
1425
¥DÃD
40
ºëµØ
0
¿n¤À
1449
ª÷¿ú
1449
ÂI¦W
0
§@·~¨t²Î
Windows 7
³nÅ骩¥»
Excel 2010 & 2016
¾\ŪÅv
50
©Ê§O
¨k
¨Ó¦Û
¥xÆW
¦b½u®É¶¡
1426 ¤p®É
µù¥U®É¶¡
2020-7-15
³Ì«áµn¿ý
2024-4-16
¡@¼ÊºÙ:
«pÁy¥Öªº¾Ç¥Í
¤j¾Ç¥Í
©«¤l
1425
¥DÃD
40
ºëµØ
0
¿n¤À
1449
ÂI¦W
0
§@·~¨t²Î
Windows 7
³nÅ骩¥»
Excel 2010 & 2016
¾\ŪÅv
50
©Ê§O
¨k
¨Ó¦Û
¥xÆW
µù¥U®É¶¡
2020-7-15
³Ì«áµn¿ý
2024-4-16
1
#
¸õÂà¨ì
»
µoªí©ó 2023-2-22 16:41
|
Åã¥Ü¥þ³¡©«¤l
¦^´_
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
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y
TOP
Andy2483
µoµu®ø®§
¥[¬°¦n¤Í
Andy2483
(«pÁy¥Öªº¾Ç¥Í)
·í«eÂ÷½u
UID
36777
©«¤l
1425
¥DÃD
40
ºëµØ
0
¿n¤À
1449
ª÷¿ú
1449
ÂI¦W
0
§@·~¨t²Î
Windows 7
³nÅ骩¥»
Excel 2010 & 2016
¾\ŪÅv
50
©Ê§O
¨k
¨Ó¦Û
¥xÆW
¦b½u®É¶¡
1426 ¤p®É
µù¥U®É¶¡
2020-7-15
³Ì«áµn¿ý
2024-4-16
¡@¼ÊºÙ:
«pÁy¥Öªº¾Ç¥Í
¤j¾Ç¥Í
©«¤l
1425
¥DÃD
40
ºëµØ
0
¿n¤À
1449
ÂI¦W
0
§@·~¨t²Î
Windows 7
³nÅ骩¥»
Excel 2010 & 2016
¾\ŪÅv
50
©Ê§O
¨k
¨Ó¦Û
¥xÆW
µù¥U®É¶¡
2020-7-15
³Ì«áµn¿ý
2024-4-16
2
#
µoªí©ó 2023-2-23 07:33
|
Åã¥Ü¥þ³¡©«¤l
¦^´_
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
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y
TOP
ÀR«ä¦Û¦b :
ºw¤ô¦¨ªe¡C²É¦Ì¦¨ÅÚ¡A¤Å»´¤vÆF¡A¤Å¥Hµ½¤p¦Ó¤£¬°¡C
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
EXCEL±MÄÝ°Q½×°Ï
Excel£¸¯ë°Ï
Excelµ{¦¡°Ï
¶i¶¥À³¥Î±M°Ï
OFFICE ¨t¦C
Word
PowerPoint
Access
Office¤£¤À°Ï
µ{¦¡»y¨¥
VB »P VB.Net
C »P C#
Java »P J#
µ{¦¡³]p¤£¤À°Ï
¸ê®Æ®w
ORACLE
My SQL
MS SQL
ºô¶³]p
ASP »P ASP.NET
PHP
PHP+MySQL ¤Jªù¹ê§@
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
ºô¶³]p¤£¤À°Ï
¹q¸£»P§@·~¨t²Î
¹q¸£¦UºØµwÅé°Q½×
¤@¯ë¹q¸£³nÅé°Q½×
½×¾Â¨Æ°È
ºÞ²z¤½§i
§ë¶D¤Ï¬M
·s¤â´ú¸Õ
·R ¡E ¥Í¬¡
¤½¯q§G§iÄæ
¥Í¬¡»P·P°Ê
[¦¬Âæ¹¥DÃD]
[Ãöª`¦¹¥DÃDªº·s¦^´_]
[³q¹L QQ¡BMSN ¤À¨Éµ¹ªB¤Í]
¥Ó½Ð¤Í±¡Ãì±µ
Facebook¯»µ·