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

cfuxiong

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

c_c_lai

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

cfuxiong

¦^´_ 2# c_c_lai
·PÁ¦^À³¡A§Ú¸Õ¬Ý¬Ý...ÁÂÁÂ!!

cfuxiong

¦^´_ 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Àµ½Ð¤£§[«ü¾É!ÁÂÁÂ~~

GBKEE

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

¤U¸ü¦¸¼Æ: 21

2012-4-13 06:21

§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

cfuxiong

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

cfuxiong

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

GBKEE

¦^´_ 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

loveking53

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

cfuxiong

¦^´_ 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ÁÂÁÂ~~