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

[µo°Ý] §ó·s¤é´Á+°²¤é¤£§ó·s

¦^´_ 5# cowww


    B = Format(Switch(A = 7, Date - 1, A = 1, Date - 2, A > 1, Date) -1, "yyyy.mm.dd")
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 4# Andy2483

¦]¬°¦Û°Ê°õ¦æªº®É¶¡¬O«ü©w¦b¦­¤W06:00¶}©l¡A¤]´N¬O»¡§ìªº¥~³æ¦ìÀɮצWºÙªº¤é´Á·|¬O¬Q¤Ñªº(¹L¤F00:00)
Private Sub Workbook_Open()
    Application.OnTime TimeValue("06:00:00"), "full_calc"
End Sub

½Ð°ÝAndy2483¤j¤j¡A¥i¤£¥i¥H§âWorkbooks.Open......"B"§ï¦¨"B-1"´N¥i¥H¦b¦­¤W06:00¦Û°Ê°õ¦æ®É§ì¨ì¬Q¤Ñ¤é´Áªº¥~³æ¦ì¸ê®Æ??
A = Format(Date, "W")
B = Format(Switch(A = 7, Date - 1, A = 1, Date - 2, A > 1, Date), "yyyy.mm.dd")
Workbooks.Open ("\\SMK\B.¦U²Õ¸ê®Æ (Team inform)\E.¥ÍºÞ²Õ (PPC group)\D.¥Í²£¬ÛÃö\2.¨C¤é¼Ò¨ã²§°Ê\¼Ò¨ã²§°Ê-¤»ºÖ\" & B - 1 & " ¨C¤é¼Ò¨ã²§°Ê.xlsx")

TOP

¦^´_ 3# cowww

ÁÂÁ«e½ú¦A¦^´_
"¹J¨ì¤»¤é®É´NÅýVBA¥h§ì¬P´Á¤­ªº¤é´Á´N¦n"
«á¾Ç¹ï¦¹±¡¹Òªº¸Ñ¨M¤è®×¦p¤U,½Ð«e½ú°Ñ¦Ò

Sub ¤»¤é§ì¤­() '¨C¶gªº²Ä¤@¤Ñ¬O¬P´Á¤é
Dim A%, B$
A = Format(Date, "W")
B = Format(Switch(A = 7, Date - 1, A = 1, Date - 2, A > 1, Date), "yyyy.mm.dd")
MsgBox B
End Sub
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 2# Andy2483

«D±`·PÁÂAndy2483¤j¤jªº¸Ñµª
²Ä¤@­Ó°ÝÃD¸Ñ¨M¤F

²Ä¤G­Ó¸Ñ¨M¿ìªk¡A¤p§Ì¯uªº¬Ý¤£À´
¥i¥H½ÐAndy2483¤j¤j»¡©ú¶Ü??
¨ä¹ê§Úªº»Ý¨D«Ü²³æ¡A¹J¨ì¤»¤é®É´NÅýVBA¥h§ì¬P´Á¤­ªº¤é´Á´N¦n
¸É¯Zor³s°²ªº°ÝÃD¥i¥H¥ýÁ׶}¨SÃö«Y

TOP

¦^´_ 1# cowww


    ÁÂÁ½׾Â,ÁÂÁ¦U¦ì«e½ú,ÁÂÁ«e½úµoªí¦¹¥DÃD
«á¾Ç¾Ç²ßªº«Øij¦p¤U:

Sub Format_Date() '¨C¶gªº²Ä¤@¤Ñ¬O¬P´Á¤é
MsgBox "-¤»ºÖ\" & Format(Date, "yyyy.mm.dd") & " ¨C¤é¼Ò¨ã²§°Ê.xlsx"
MsgBox Format("2023/4/13", "W")
End Sub
'¨ä¥L«D¤».¤é°ê©w°²¤é.¸É°².¸É¯Z¶·­n¹ï·Óªí,½Ð°Ñ¦Ò
http://forum.twbts.com/thread-23838-1-1.html
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

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