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

[µo°Ý] ¦p¦ó¨Ï¥Î VBA ¨C¬í§ó·s³sµ²¼Æ¾Ú

VBA ¨C¬í§ó·s³sµ²¼Æ¾Ú




»¡©ú:
¡u§ó·sÀÉ¡vA1='Z:\¦@¥Î¸ê®Æ§¨\[¸ê®Æ¨Ó·½.xls]¤u§@ªí1'!$A$2

½Ð°Ý¸Ó¦p¦ó¨Ï¥ÎVBA¹F¨ì¥H¤U®ÄªG¡G
1. §Æ±æ¡u§ó·sÀÉ¡vA1¥i¥H¨C¬í¦Û°Ê§ó·s¸ê®Æ³sµ²¡A¥H¹F¨ì¼Æ¾Ú§Y®É§ó·s®ÄªG
2. §Y«K¨S¦³¶i¦æ¥ô¦ó°Ê§@(¦sÀÉ¡B½s¿è¸ê®Æ)¡A¸ê®Æ¨Ó·½ÀɦpªG¼Æ¾Ú¦³¥ô¦óÅܰʮɡAA1¼Æ¾Ú¤]·|ÀH®É§ó·s(¨C¬í)


´ú¸Õ.rar (6.89 KB)
*¦v¤k¤@ªTµL»~*

TOP

[µo°Ý] ¦p¦ó¨Ï¥Î VBA ¨C¬í§ó·s³sµ²¼Æ¾Ú



»¡©ú:
¡u§ó·sÀÉ¡vA1='Z:\¦@¥Î¸ê®Æ§¨\[¸ê®Æ¨Ó·½.xls]¤u§@ªí1'!$A$2

½Ð°Ý¸Ó¦p¦ó¨Ï¥ÎVBA¹F¨ì¥H¤U®ÄªG¡G
1. §Æ±æ¡u§ó·sÀÉ¡vA1¥i¥H¨C¬í¦Û°Ê§ó·s¸ê®Æ³sµ²¡A¥H¹F¨ì¼Æ¾Ú§Y®É§ó·s®ÄªG
2. §Y«K¨S¦³¶i¦æ¥ô¦ó°Ê§@(¦sÀÉ¡B½s¿è¸ê®Æ)¡A¸ê®Æ¨Ó·½ÀɦpªG¼Æ¾Ú¦³¥ô¦óÅܰʮɡAA1¼Æ¾Ú¤]·|ÀH®É§ó·s(¨C¬í)


´ú¸Õ.rar (6.89 KB)
*¦v¤k¤@ªTµL»~*

¦^´_ 2# msmplay

§ó·sÀÉ ThisWorkbook¼Ò²Õªºµ{¦¡½X
  1. Option Explicit
  2. Dim Ex_Msg As Boolean
  3. Private Sub Workbook_Open()
  4.     Ex
  5. End Sub
  6. Private Sub Workbook_BeforeClose(Cancel As Boolean)
  7.     Ex_Msg = True
  8. End Sub
  9. Sub Ex()
  10.     Dim xSecond As Integer
  11.     ThisWorkbook.UpdateLink Name:="Z:\¦@¥Î¸ê®Æ§¨\¸ê®Æ¨Ó·½.xls", Type:=xlExcelLinks    '§ó·s¼Æ­È
  12.     '** ¦p¨Ó·½Àɪº¼Æ­È¦³§ïÅܦý¨S¦³¦sÀÉ, §ó·s¼Æ­Èªº°Ê§@¬O¨S¥Îªº
  13.    
  14.     xSecond = Second(Time)   '¬í¼Æ
  15.     Do
  16.         DoEvents
  17.         If Second(Time) > xSecond Then
  18.             ThisWorkbook.UpdateLink Name:="Z:\¦@¥Î¸ê®Æ§¨\¸ê®Æ¨Ó·½.xls", Type:=xlExcelLinks
  19.             xSecond = Second(Time) '·sªº¬í¼Æ
  20.         End If
  21.     Loop Until Ex_Msg
  22. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 3# GBKEE


   ÁÂÁÂG¤j~~~~~~~~
*¦v¤k¤@ªTµL»~*

TOP

        ÀR«ä¦Û¦b : ¹D¼w¬O´£ª@¦Û§Úªº©ú¿O¡A¤£¸Ó¬O¨þ¥¸§O¤HªºÃ@¤l¡C
ªð¦^¦Cªí ¤W¤@¥DÃD