slip

¦^´_ 27# GBKEE
ÁÂÁ¤j¤j

§Ú¶]¥X¨Óªº¹Ï¼Æ¦C1»P¼Æ¦C2
¨S¦³Åܦ¨³Ì¤j­È,»P³Ì¤p­È£®
½ÐÀ°§Ú¦A¬Ý¬Ý
·P®¦

¤U¸ü (28.38 KB)

2013-7-18 13:30

Book3.rar (20.87 KB)

¤U¸ü¦¸¼Æ: 8

2013-7-18 13:31

GBKEE

¦^´_ 26# slip

1. Sub GetDDE()
   
2.     Dim T As Date, xMax As Integer, xMin As Integer
   
3.     T = Now  '¨ú±o²{¦b®É¶¡
   
4.     If Not IsError(Sheets(1).[B2]) Then
   
5.         With Sheets(2).[A65536].End(xlUp).Offset(1)
   
6.             .Resize(, 7) = Sheets(1).[A2:G2].Value                      '¤u§@ªí1ªº¸ê®ÆDDE³sµ²¦¨¥\¼g¤J¤u§@ªí2
   
7.             .Range("H1") = .Range("D1") - .Range("C1")                  'Hø󪺤½¦¡=>Døó-Cøó
   
8.             .Range("I1") = .Range("H1") - .Range("H1").Offset(-1)       'I413=H413-H412......¼Æ¦C2
   
9.             .Range("J1") = .Range("E1")                                 'Jø󪺤½¦¡=Eøó
   
10.             xMax = Application.Max(.Parent.[i:j])                       '³Ì¤j­È
    
11.             xMin = Application.Min(.Parent.[i:j])                       '³Ì¤p­È
    
12.             
    
13.             '**  .Parent.ChartObjects(1): ª«¥ó (¤u§@ªíªº²Ä1­Ó¹Ïªí)  *****
    
14.             With .Parent.ChartObjects(1).Chart.Axes(xlValue)
    
15.                 .MinimumScale = xMin
    
16.                 .MaximumScale = xMax
    
17.                 .ScaleType = xlLinear                                    '¼Æ­È®y¼Ð¶bªº¨è«×Ãþ«¬
    
18.             End With
    
19.         End With
    
20.     End If
    
21.     Application.OnTime T + TimeValue("00:01:00"), "GetDDE"               '¶¡¹j5¤ÀÄÁ§ï¦¨TimeValue("00:05:00"),
    
22. End Sub

½Æ»s¥N½X

slip

¦^´_ 25# GBKEE
ÁÂÁÂ"GBKEE¤j¤j"À°¦£
»Ý¨D¦³¤p¤p§ïÅÜ,½ÐÀ°¦£¦p¤U

H=D-C
I413=H413-H412......¼Æ¦C2
JÄæ¦ì...............¼Æ¦C1
¹Ïªí§e²{¬O I¦C»PJ¦C

¤U¸ü (70.44 KB)

2013-7-18 11:53

¥i§_À°¦£¦b¹Ïªí§e²{®É
¹Ïªí¥i¦Û°Ê­×¥¿
¼Æ¦C1»P¼Æ¦C2ªº³Ì¤j­È»P³Ì¤p­ÈªºªÅ¶¡(¥Ø«e§Ú³£¥Î¤â­×§ï)
ÁÂÁÂÀ°¦£
   

¤U¸ü (35.51 KB)

2013-7-18 11:54

Book3.rar (19.24 KB)

¤U¸ü¦¸¼Æ: 5

2013-7-18 11:54

GBKEE

¦^´_ 24# slip
¥ý§R°£H:Iø󪺤½¦¡

1. Sub GetDDE()
   
2.     Dim T As Date
   
3.     T = Now  '¨ú±o²{¦b®É¶¡
   
4.     If Not IsError(Sheets(1).[B2]) Then
   
5.         With Sheets(2).[A65536].End(xlUp).Offset(1)
   
6.             .Resize(, 7) = Sheets(1).[A2:G2].Value  '¤u§@ªí1ªº¸ê®ÆDDE³sµ²¦¨¥\¼g¤J¤u§@ªí2
   
7.             .Range("H1") = .Range("D1") - .Range("C1")             'Hø󪺤½¦¡=>Døó-Cøó
   
8.             .Range("I1") = .Range("E1")                                  'Iø󪺤½¦¡=Eøó
   
9.         End With
   
10.     End If
    
11.     Application.OnTime T + TimeValue("00:01:00"), "GetDDE"  '³o¬O¥H2¬í´ú¸Õ¡A¶¡¹j5¤ÀÄÁ§ï¦¨TimeValue("00:05:00"),
    
12. End Sub

½Æ»s¥N½X

slip

¦^´_ 22# GBKEE
ÁÂÁÂ"GBKEE &  c_c_lai"¨â¦ì¤j¤j¦^ÂÐ
¥Ø«e¤´ªu¥Î¹B§@¤¤

¥t¥~¦³·s°ÝÃD·Q½Ð±Ð¦p¤U
Sheet2
¦]ÁÙ¨S¥X²{·s¼Æ¦r,³£·|¬O0
¼Æ¦C1´N·|©Ô¥X«Üªøªº³s½u(¦p¹Ï¾ï¦â®Ø®Ø³¡¥÷)
½Ð°Ý¦p¦ó¥i¥HÅý³o±ø±ø½u¤£¨£©O?
ÁÂÁÂ

c_c_lai

¦^´_ 21# slip

¤U¸ü (90.92 KB)

2013-7-16 09:23

GBKEE

¦^´_ 21# slip
³o¬O¥¿±`ªº,¥i¦A°Ñ¦Ò¤@¤U17#ªºµ{¦¡½X.

slip

¦^´_ 20# GBKEE
·PÁª©¥D"GBKEE"
¤w¸g¥i¥H¶]
¥i¬O¥t¥~·Q½Ð°Ý
¬°¦ó§ÚÃÒ¨é°Ó³nÅé¨S¦³¶}±Ò
¦ý,§Úexcel¶}±Ò«á,excel¦Û°Ê¹B°µ£®
³o¬O¥¿±`ªº¶Ü?

·P®¦Åo

GBKEE

¦^´_ 19# slip

1. '¦pµ{¦¡½XThisWorkbookª«¥ó¼Ò²Õ¤¤
   
2. Private Sub Workbook_Open() 'ThisWorkbookª«¥ó¼Ò²Õ:¶}±Ò¾×¹w³]¦Û°Ê°õ¦æªºµ{§Ç¨Æ¥ó
   
3.      GetDDE  '©I¥sµ{§Ç
   
4. End Sub
   
5. Sub GetDDE()
   
6.     Dim T As Date
   
7.     T = Now  '¨ú±o²{¦b®É¶¡
   
8.     If Not IsError(Sheets(1).[B2]) Then Sheets(2).[A65536].End(xlUp).Offset(1).Resize(, 7) = Sheets(1).[A2:G2].Value  '¤u§@ªí1ªº¸ê®ÆDDE³sµ²¦¨¥\¼g¤J¤u§@ªí2
   
9.     Application.OnTime T + TimeValue("00:00:30"), "ThisWorkbook.GetDDE"  '³o¬O¥H2¬í´ú¸Õ¡A¶¡¹j5¤ÀÄÁ§ï¦¨TimeValue("00:05:00"),
   
10.     'ThisWorkbook¬Oª«¥ó¼Ò²Õ,¶·¥[¤W¼Ò²Õªº¦WºÙ
    
11. End Sub

½Æ»s¥N½X

2# Hsieh¶Wª© ¦³»¡:[¤@¯ë¼Ò²Õ¿é¤J¥H¤Uµ{¦¡½X¡A¦sÀÉ«á¶}±ÒÀɮסA´ú¸Õ¬Ý¬Ý] ¦p¹Ï

¤U¸ü (36.08 KB)

2013-7-15 20:04

slip

¦^´_ 2# Hsieh
"Hsieh"¤j¤j§A¦n
§ä¸ê®Æ¤¤,¬Ý¨ì³o­Ó§Ú¥i¥Îªº¸ê®Æ

¥i¬O§ÚµLªk°õ¦æ
¥X²{ªº°T®§¹Ï
Àɮצp¥k
¯à§_¤j¤jÀ°§Ú¬Ý¤@¤U
·P®¦