¦^´_ 4# GBKEE
¯u¬O¸U¤À·PÁÂ,§Ú¬Ý¤F¤@¤U¥Îì¨Ó¨ºÓ¤Ñ¼ÆªºÁÙ¬O¤£·|ק墨ÓBUG,¦A³Â·Ð±z¤@¤U,·P®¦!
°ÝÃD¤@:
- For J1 = 2 To Sheets("Sheet1").[C65536].End(xlUp).Row
- I1 = DateDiff("D", Date, Range("C" J1))
- If I1 < 0 Then S1 = "¤w¸g¶W¹L¤F" " " & (-1) * (I1) & " ¤Ñ"
- If S1 <> "" Then S2 = S2 "¶ZÂ÷" & " " & Sheets("Sheet1").Range("A" & J1) & " ªº®É¶¡" & S1 & vbNewLine
- S1 = "": I1 = 0
- Next
- If S2 <> "" Then MsgBox S2
- S2 = ""
½Æ»s¥N½X------------------------------------------------------------------------------------------------------------------
°ÝÃD¤G:
µM«á¦pªG¬O³oÓ ¤p®É ¤ÀÄÁ ¬í¼Æªº
·s¼W¤@ÓIF§PÂ_, µM«á§Ú·s¼W¤@ÓTextBox,¨Ì·Ó§Ú¶ñ¤Jªº¼ÆÈX, Åý®É¶¡¨ì«eX¤ÀÄÁ´£¿ô
¶ñ¤JªºX©M®É¶¡¨ì«eX¤ÀÄÁªºX¬O¦P¤@Ó.