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

[´Á«ü§Y®ÉÁͶÕ]½Ðª©¤jExcel°ª¤â­Ì½ç±Ð¡F

[´Á«ü§Y®ÉÁͶÕ]½Ðª©¤jExcel°ª¤â­Ì½ç±Ð¡F

[´Á«ü§Y®ÉÁͶÕ]½Ðª©¤jExcel°ª¤â­Ì½ç±Ð¡F
¦p¦ó¯à¨C¤ÀÄÁ¡Aµn¿ý[¥D¤O±±½L][ÁͶÕ]­È­pºâ¡C
[ÁͶÕ]Äæ¬O¨C¤ÀÄÁ·|§ó·s¡÷°»´ú¨ìÅÜ°Ê¡÷µn¿ý¡C
ÁÂÁ½ç±Ð~~

0402.jpg (88.52 KB)

0402.jpg

50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

§A¥i¥H°Ñ¦Ò Excel µ{¦¡¶°->½L¤¤ DDE ¦sÀÉ»P VBA ªº¹ê»ÚÀ³¥Î½d¨Ò
¨Ì§A­Ó¤H»Ý¨Dµy¥[­×§ïÅܦ¨¬°§A¹ê¥Îªº VBA µ{¦¡¤F¡C

TOP

¦^´_ 2# c_c_lai
·PÁ¦^À³¡A§Ú¸Õ¬Ý¬Ý...ÁÂÁÂ!!
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 2# c_c_lai
c_c_lai¤j¤j¡G§A¦n
ºN¯Á¦h¤é¡m½L¤¤ DDE ¦sÀÉ»P VBA ªº¹ê»ÚÀ³¥Î½d¨Ò¡n
¶i¤£¤Fª¬ªp¡A¤µªþ¤WÀɮסAÀµ½Ð¤£§[«ü¾É!ÁÂÁÂ~~

´Á«ü§Y®ÉÁͶÕ.zip (10.57 KB)

50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-4-13 06:26 ½s¿è

¦^´_ 4# cfuxiong
´Á«ü§Y®É.rar (17.22 KB)

§AªþÀÉ Sheet1  'ÁͶլã§P AÄ檺®É¶¡½Ð§ï¦¨  08:40:00 AM ªº¤º®e   
¤£­n¬O ¤é´Á+®É¶¡ ªº¤º®e ¥H°t¦Xµ{¦¡ªº°õ¦æ.
½Ð±Nµ{¦¡½X½Æ»s©ó ThisWorkbook ¼Ò²Õ¸Ì
  1. Option Explicit
  2. Private Sub Workbook_Open()         '¬¡­¶Ã¯¶}±Ò®É ¦Û°Ê°õ¦æªº¹w³]µ{§Ç
  3.     With Sheet1.Range("a9:a" & Sheet1.[a9].End(xlDown).Row)
  4.         .Parent.Activate
  5.         .Offset(, 1).Resize(, 3).Clear
  6.         .Interior.ColorIndex = xlNone
  7.     End With
  8.     Dee
  9. End Sub
  10. Private Sub Workbook_BeforeClose(Cancel As Boolean)    '¬¡­¶Ã¯Ãö³¬®É ¦Û°Ê°õ¦æªº¹w³]µ{§Ç
  11.      With Sheet1.QueryTables(1)       '²Ä¤@­Ó ¥~³¡¸ê®Æ
  12.         .RefreshOnFileOpen = False    '¥~³¡¸ê®Æ ©ó¬¡­¶Ã¯¶}±Ò®É¦Û°Ê¶×¤J ³]©w¬°False
  13.                                       '¥i°±¤î ¬¡­¶Ã¯¶}±Ò®É¸ß°Ý  ¥~³¡¸ê®Æ¬O§_§ó·s
  14.         .RefreshPeriod = 0            '¥~³¡¸ê®Æ ¦Û°Êe§ó·s®É¶¡ªº¶¡®æ ¬°0
  15.     End With
  16.     Save                              '¦sÀÉ
  17. End Sub
  18. Private Sub Dee()
  19.     Dim xf As Range, Rng As Range, xlQuery As QueryTable
  20.      With Sheet1  'ÁͶլã§P
  21.         Set Rng = .Range("a9:a" & .[a9].End(xlDown).Row)    '©óAÄ檺®É¶¡½d³ò¤º
  22.         If Time < Rng(1) Then                               '®É¶¡ ¤p©ó [A9]ªº®É¶¡
  23.             Application.OnTime Rng(1), "ThisWorkbook.Dee"   '³]©wA9]ªº®É¶¡  °õ¦æ DEE µ{§Ç
  24.         ElseIf Time > Rng(Rng.Rows.Count) Then              '®É¶¡ ¤j©ó AÄæ³Ì«á¤@¦Cªº®É¶¡
  25.             Exit Sub
  26.         Else
  27.             Sheet1.QueryTables(1).Refresh False                 '¥~³¡¸ê®Æ §ó·s
  28.             With Rng.Find(TimeSerial(Hour(Time), Minute(Time), 0), LookIn:=xlFormulas)     '´M§ä¨ìAÄ檺®É¶¡
  29.                 .Parent.Activate
  30.                 .Cells.Select
  31.                 .Cells(1, 2).Resize(, 3) = Application.Transpose(.Parent.[D3:D5].Value)    '§ä¨ìAÄ檺®É¶¡: ¥k¤TÄ檺ªº­È
  32.                 .Resize(, 4).Interior.ColorIndex = 34                                      '§ä¨ìAÄ檺®É¶¡¥|Ä檺¹Ï¼Ë
  33.                 .Cells(0).Resize(, 4).Interior.ColorIndex = xlNone                         '¨ú®ø: §ä¨ìAÄ檺®É¶¡¤W¤@¦Cªº¥|Äæ¹Ï¼Ë
  34.                 If .Cells(2) <> "" Then
  35.                     Application.OnTime .Cells(2), "ThisWorkbook.Dee"                    '³]©w©ó¤U¤@¤ÀÄÁ®É¶¡ °õ¦æ DEE µ{§Ç
  36.                 Else
  37.                     MsgBox "¤w¹L ¦¬½L ®É¶¡ " & Rng(Rng.Rows.Count).Text
  38.                 End If
  39.             End With
  40.         End If
  41.     End With   
  42. End Sub
½Æ»s¥N½X

TOP

¦^´_ 5# GBKEE
GBKEE¤j¤j¡G§A¦n
¯à§_«ô°UGBKEE¤j¤j¡A¦]§Ú¬OExcel¥Í¤â¡A¥¿¾Ç²ß¤¤¡C
½ÐÀ°§Ú[µ{¦¡½X½Æ»s©ó ThisWorkbook ¼Ò²Õ¸Ì]µ¹§ÚZipÀÉ¡A±N·P¿E¤£ºÉ¡CÁÂÁÂ~~
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 5# GBKEE
¶}±Ò[ÀÉ®×]«ö[±Ò¥Î¥¨¶°]¡÷·|¶]¥X¦p[¹Ï¥Ü]ªº¹Ï=>½Ð«ü±Ð¦p¦ó³B²z~~ÁÂÁÂ

°õ¦æ¶¥¬q¿ù»~.jpg (14.26 KB)

°õ¦æ¶¥¬q¿ù»~.jpg

50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 7# cfuxiong
Private Sub Dee()  ­×§ï ³o¸Ì
  1.   If Time < Rng(1) Then                               '®É¶¡ ¤p©ó [A9]ªº®É¶¡
  2.             'Application.OnTime Rng(1), "ThisWorkbook.Dee"   
  3.              '³o¸Ì§Ú¥[¤Wµù¸Ñ µ{¦¡¤£·|°õ¦æ ½Ð¨ú®ø¦p¤U¦¡
  4.             Application.OnTime Rng(1), "ThisWorkbook.Dee"   '³]©wA9]ªº®É¶¡  °õ¦æ DEE µ{§Ç
  5.         ElseIf Time > Rng(Rng.Rows.Count) Then              '®É¶¡ ¤j©ó AÄæ³Ì«á¤@¦Cªº®É¶¡
  6.            ' Exit Sub         
  7.             '³o¸Ì§Ú¥[¤Wµù¸Ñ µ{¦¡¤£·|°õ¦æ ½Ð¨ú®ø¦p¤U¦¡
  8.             Exit Sub
  9.         End If
½Æ»s¥N½X

TOP

¥i§_±H¨Ó¬ã¨s¬Ý¬Ý©O
[email protected]

TOP

¦^´_ 8# GBKEE
GBKEE¤j¤j¡G§A¦n
¬O¦p¹Ï³o¼Ë¶Ü¡HÁÂÁ§󥿡A¦ý§ÚÁÙ¬O·d¤£¨Ó~~
¯àÀ°§Ú¥Í¦¨OK~~ZipÀÉ¡A§Úª¾¹D³o¼Ë¬O°½Ãi¡A¦ýÁÙ¬O«ô°UGBKEE¡C
¦ýÁÙ¬O½Ð¼·ªÅ«ü¾É¡C·P¿E¤£ºÉ¡CÁÂÁÂ~~

½sĶ¿ù»~.jpg (103.05 KB)

½sĶ¿ù»~.jpg

50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

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