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

EXCEL±µ¦¬§Y®É¼Æ¾Ú®É¡A­Y¦³·f°t§é½u¹Ï·|¹BºâºCªº°ÝÃD

EXCEL±µ¦¬§Y®É¼Æ¾Ú®É¡A­Y¦³·f°t§é½u¹Ï·|¹BºâºCªº°ÝÃD

ª©¥D¤Î¦U¦ì¤j¤j  ±z¦n:
¤p§Ì¦³¤@¨Æ½Ð±Ð¡C
§Ú¥Îexcel ±µ¦¬¬Ý½L³nÅéddeªº¸ê®Æ¡A¥i¥H¨C1¬í±µ¦¬¤@µ§¸ê®Æ¡A¤]´N¬O¨C¤@¬í¦³¤@­ÓÄæ¦ìªº¼Æ¾Ú¡A¦ý¬O¦pªG½L¤¤§â³o¨Ç¸ê®Æ¡A¤Æ¦¨§é½u¹Ïªº¸Ü¡A´N·|Åܦ¨¬ù¨C8¬í¡A¤~¯à±µ¦¬¤@µ§¸ê®Æ¡A½Ð°Ý³o¦³¸Ñ¨M¤§¹D¶Ü?
§Ú¸Õ¹L¦P¤@¥x¹q¸£¡A½L¤¤¦P®É¶}¨â®M¬Ý½L³nÅé¡A²Ä¤@®M¬Ý½L³nÅ馳¹Ï§Î¡A¤@¼Ë¬O¬ù8¬í¤~¯à²£¥X¬ö¿ý¤@µ§¼Æ¾Ú¡A²Ä¤G®M¬Ý½L³nÅé¡A«h¨S¦³¹Ï§Î¡A¦ý¤]¬O¬ù4¬í¤~¯à²£¥Í¬ö¿ý¤@µ§¼Æ¾Ú¡C

ª©¥D¤Î¦U¦ì¤j¤j  ±z¦n:
¤p§Ì¦³¤@¨Æ½Ð±Ð¡C
§Ú¥Îexcel ±µ¦¬¬Ý½L³nÅéddeªº¸ê®Æ¡A¥i¥H¨C1¬í±µ¦¬¤@µ§¸ê®Æ¡A¤]´N ...
wengin66 µoªí©ó 2018-11-8 15:12



  ³Â·Ð¤j¤jÀ°§Ú¬Ý¬Ý¬O§_¥i¥H¦³Àu¤Æªº¦a¤è~~~·P®¦ 4.zip (101.55 KB)

TOP

¦^´_ 2# wengin66
¥H¤U¬OVBA ªº»¡©ú

Application.OnTime ¤èªk
¦w±Æ¤@­Óµ{§Ç¦b±N¨Óªº¯S©w®É¶¡°õ¦æ (¬J¥i¬°¬Y­Ó¤é´Áªº«ü©w®É¶¡¡A¤]¥i¬°«ü©wªº®É¶¡¤§«á)¡C
»yªk ¹Bºâ¦¡.OnTime(EarliestTime, Procedure, LatestTime, Schedule)
°Ñ¼Æ
¦WºÙ ¥²­n/¿ï¥Î ¸ê®ÆÃþ«¬ ´y­z
EarliestTime ¥²­n Variant ·Q­n°õ¦æµ{§Çªº®É¶¡¡C

Procedure ¥²­n String ­n°õ¦æªºµ{§Ç¦WºÙ¡C
'LatestTime ¿ï¥Î Variant ¥i¥H¶}©l°õ¦æµ{§Çªº³Ì±ß®É¶¡¡C¨Ò¦p¡A°²³] LatestTime ³]¬° EarliestTime + 30¡A·í®É¶¡¨ì¤F EarliestTime ®É¡A¦pªG¥Ñ©ó¨ä¥Lµ{§Ç¥¿¦b°õ¦æ¤¤¦Ó¨Ï Microsoft Excel ¤£³B©ó [´Nºü]¡B[½Æ»s]¡B[°Å¤U] ©Î [´M§ä] ¼Ò¦¡¡A«h Microsoft Excel ·|µ¥«Ý 30 ¬í¥H§¹¦¨²Ä¤@­Óµ{§Ç¡C¦pªG 30 ¬í¤º Microsoft Excel µLªk¦^¨ì [´Nºü] ¼Ò¦¡¡A«h¤£·|°õ¦æ¦¹µ{§Ç¡C¦pªG¬Ù²¤¦¹¤Þ¼Æ¡AMicrosoft Excel ·|¤@ª½µ¥¨ì¥i¥H°õ¦æ¸Óµ{§Ç¬°¤î¡C ****ÃöÁä¦b³o¥i¯à¬O¦bµ¥­Ô³oÀɮפ½¦¡¤Wªº¹Bºâ  ***

Schedule ¿ï¥Î Variant ­Y¬° True¡A±Æµ{·sªº OnTime µ{§Ç¡C­Y¬° False¡A²M°£¥ý«e³]©wªºµ{§Ç¡C¹w³]­È¬° True¡C

¥t­×¥¿§A¦U¹Ïªí¤W¦WºÙ°Ñ·Óªº¦ì¸mÀ³¬O±q²Ä14¶}©l,(¬°¦ó±q24)
  1. Sub Ex()
  2.     Dim N As Name
  3.     For Each N In ThisWorkbook.Sheets("Sheet1").Names
  4.         N.RefersToR1C1 = Replace(N.RefersToR1C1, "R24", "R14")  '­×¥¿¬°²Ä14¦C¶}©l
  5.         N.RefersToR1C1 = Replace(N.RefersToR1C1, "-1", "-2")    '-1 ·|¦h¤@®æªÅ®æ
  6.         Debug.Print N.Name, N.RefersToR1C1
  7.     Next
  8. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 3# GBKEE

·PÁª©¥Dªº«ü¾É~~~

TOP

        ÀR«ä¦Û¦b : ¤H­nª¾ºÖ¡B±¤ºÖ¡B¦A³yºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD