- ©«¤l
- 26
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 30
- ÂI¦W
- 0
- §@·~¨t²Î
- Win10
- ³nÅ骩¥»
- Office2019
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2018-10-12
- ³Ì«áµn¿ý
- 2022-7-25
|
¥»©«³Ì«á¥Ñ dreamsway ©ó 2018-11-9 16:12 ½s¿è
¦^´_ 35# GBKEE
G¤j¤È¦w¡A¨ºÓ¡ô¡õ«ü¼Ðªº§PÂ_¬O¥¿½Tªº¡A
§Ú¥Ø«e´ú¨ì¥Î³o¼Ë¦Û°Ê§ó·sªº¤è¦¡¡A±Ä¥Î¸û¤§«e±zÀ°§Úק諸³ø»ù¹Bºâsub·f°t¦hªÅ¬ö¿ýsub¡A©ñ¦b¦Û°Ê§ó·sªºsub¤º¡A³ø»ù¤Î¹Bºâ¤w´ú¸Õ¨â¤Ñ¬Ò¥i¶¶§Q¹B¦æ¡A´N¬O...½L¤¤¥æ©ö¶q¤j¤@ÂIªºÀþ¶¡·|µy·L¹y¤@¤U(¥i¯à¹q¸£¸Ó´«¤F...)
ÁöµM¦³ÂI¯Ç´e¬°¤°»ò¦Û°Ê§ó·s¥i¥H¡A¤§«eªº«·s¾ã²z´N¤£¦æ...- Sub °õ¦æ()
- Call ¦@¥Î°Ñ·Ó
- Sht1.Range("J1") = "¹B¦æ¤¤.."
- uMode = "Start"
- Call ¦Û°Ê§ó·s
- If uMode = "Stop" Then
- Sht1.Range("J1") = ">°±¤î<"
- Exit Sub
- End If
- End Sub
½Æ»s¥N½X- Sub ¦Û°Ê§ó·s()
- On Error Resume Next
- ActiveWorkbook.RefreshAll
- If uMode = "Stop" Then Exit Sub
- Application.OnTime Now + TimeValue("00:00:15"), "¦Û°Ê§ó·s"
- Call ³ø»ù¹Bºâ '¸Ì±·|¦Acall ¦hªÅ¬ö¿ý
- Call °ª§C§ó·s
- Call K15
- Call °ÊºA»ù
- End Sub
½Æ»s¥N½X ¦ýY¬O§Ú§â¦Û°Ê§ó·ssub¸Ì±ªºcall ³ø»ù¹Bºâ§ï¬°K¤ßºAsub
Y¶]¤@½ü¨S¦b¦Û°Ê§ó·s³]©wªº15¬í¤º¶]§¹¡A´N·|¶}©l¤§«eªº±¡ªp¡A¾ÉP³ø»ù¤@ª½§ó·s¦ýK¤ßºA¤]¶]¤£§¹ªºª¬ªp
¥t¥~¡A¦]¬°¨ä¥Lªºsub³£»Ýn³ø»ù®É¶¡¨Ó°µ§PÂ_¡A§Ú¸ÕµÛ¦bK¤ßºA¤º¥[¤W³ø»ù®É¶¡¶Ç°e¨ìsht1.Range("C1") ¡Aµ²ªG³t«×Åܱo©_ºCµL¤ñ..
½Ð°Ý¬O¤£¬O³oºØ¼gªk¤£¾A¥Î³oºØ³vµ§§ó·s¥t¤@ÓÀx¦s®æ¤º®eªºª¬ªp©O¡A¦]¬°¥Ø«eªºK¤ßºA¬OK´Î®É¶¡¦¬©w«á¬Ý¨ì¤W¤@®Ú¹Bºâªºµ²ªG(¨Ò¦p²{¦b09:49¦ý¥u·|¬Ý¨ì09:45¹Bºâªºµ²ªG)
¤£¾å±o¯à§_¬Ý¨ì§Y®Éªº¹Bºâ(¨Ò¦p³ø»ù®É¶¡09:49´N¬Ý¨ì¹Bºâ¨ì09:49ªº¼Æ¾Ú¡A¦Ó¤£¥Îµ¥¨ì09:50¹L«á)
¦pªG¤£¦æªº¸Ü´N¥ý±Ä¥Î¥Ø«e¤w¯à¶¶§Q¹B¦æªº¤è¦¡¥h¶]¡A¦]¬°G¤j±zÀ°§Ú§ï¹Lªº¦hªÅ¬ö¿ý¡A¤w¸g¤ñ§Ú³Ìì©lªº¬ö¿ý¤è¦¡¹B¦æ³t«×§Ö«D±`¦h¤F
ÀÉ®× |
|