GBKEE

¦^´_ 4# c_c_lai
¤u§@ªí2 ªºÄæ¦ì ¶·³]¦n®æ¦¡
¬°¤°»ò ¤u§@ªí1 ªº A2 ¸ê®Æ¤@Âà¨ì ¤u§@ªí2 ªºÄæ¦ì¡A01:44 PM -> 0.572905 ¡H
0.572905¬O¼Æ¦r   01:44 PM ¬OÀx¦s®æªº®æ¦¡

Sheets("¤u§@ªí2").Cells(CIndex + 2, 1) = Sheets("¤u§@ªí1").Cells(2, 1).Text

GBKEE

¦^´_ 11# usana642
¥»¨­ªº¼Ò²Õ¤¤ ª½±µ©I¥s  µ{§Ç¦WºÙ§Y¥i ->  GetDDE

ª«¥ó¼Ò²Õ¤º :¤u§@ªíª«¥ó¼Ò²Õ (SHEET1 . SHEET2.....) , ¬¡­¶Ã¯ª«¥ó¼Ò²Õ ThisWorkbook ,¤¤
¤½¥Î:   Sub  GetDDE ()  =    Public Sub  GetDDE ()     Public  ¼Ò²Õ¼h¦¸ªºÃöÁä¦r¡A¥Î¨Ó«Å§i¦b©Ò¦³¼Ò²Õùتº©Ò¦³µ{§Ç¤¤³£¥i¥H¨Ï¥Î±`¼Æ
¦b¨ä¥L¼Ò²Õªºµ{§Ç¤¤ ¥G¥sGetDDE    ->    SHEET1.GetDDE
¨p¥Î:  Private  Sub  GetDDE ()                                        Private ¼Ò²Õ¼h¦¸ªºÃöÁä¦r¡A¥Î¨Ó«Å§i¥u¦b¤w«Å§iªº¼Ò²Õùؤ~¥i¥H¨Ï¥Î±`¼Æ
¦b¨ä¥L¼Ò²Õªºµ{§Ç¤¤ ¥G¥sGetDDE   ->     Run  "SHEET1.GetDDE"

¤@¯ë¼Ò²Õ¤º :   Module1,¤¤
Sub  GetDDE ()  =    Public Sub  GetDDE ()     ¦b¨ä¥L¼Ò²Õªºµ{§Ç¤¤ ¥G¥sGetDDE  ->      GetDDE
¨p¥Î:  Private  Sub  GetDDE ()     ¦b¨ä¥L¼Ò²Õªºµ{§Ç¤¤ ¥G¥sGetDDE    ->    Run  "Module1.GetDDE"

GBKEE

¦^´_ 13# 14# usana642
¥iªþÀɤW¨Ó¬Ý§A¦p¦ó¼gªº
PS:½Ð«ö¦^´_Áä ¦^¤åªÌ¤~·|ª¾¹Dªº

GBKEE

¦^´_ 16# usana642

1. Option Explicit
   
2. Sub Auto_Open() '¶}Àɮɦ۰ʰõ¦æ¦¹¥¨¶°
   
3.     GetDDE  '©I¥sµ{§Ç
   
4. End Sub
   
5. Sub GetDDE()
   
6.     Dim T As Date, A
   
7.     'T = Now  'Now ¥]§t¤é´Á     >1,,' T = Time '¥u¦³24¤p®Éªº¼Æ­È <1
   
8.     '¿é¤J  #9:00#  ->¨t²Î¦Û°Ê¦¨  #9:00:00 AM#
   
9.     '¿é¤J  #13:00# ->¨t²Î¦Û°Ê¦¨  #1:00:00 PM#
   
10.     '¿é¤J  #00:05# ->¨t²Î¦Û°Ê¦¨  #12:05:00 AM#   :  5¤ÀÄÁ
    
11.     '------  1.¦A¥[¤J¥xªÑ©Î¬üªÑ¶}¦¬½L®É¶¡,¨Ó³]©w±µ¦¬®É¶¡
    
12.     If Time > #9:00:00 AM# And Time < #1:30:00 PM# Then    '©ó¥æ©ö®É¶¡¤º
    
13.         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
    
14.     '------  2.±N±µ¦¬¶i¨Óªº¸ê®Æ®É¶¡­×¥¿¬°" ¤ÀÄÁ¾ã¼Æ",¨Ò¦p 10:15:10  ---> 10:15:00
    
15.     End If
    
16.     T = Time + #12:00:30 AM#                         '--¶¡¹j30¬í---------
    
17.     'T = Time + #12:01:00 AM#                         '--¶¡¹j1¤ÀÄÁ---------
    
18.     'T = Time + #12:05:00 AM#                         '--¶¡¹j5¤ÀÄÁ---------
    
19.     Application.OnTime T, "GetDDE"
    
20. End Sub

½Æ»s¥N½X

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

GBKEE

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

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

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

GBKEE

¦^´_ 28# slip
¸Õ¸Õ¬Ý

1. Sub GetDDE()
   
2.     Dim T As Date, xMax As Integer, xMin As Integer, i As Integer
   
3.     T = Now  '¨ú±o²{¦b®É¶¡
   
4.     If Not IsError(Sheets(1).[B2]) Then
   
5.         Application.ScreenUpdating = False
   
6.         With Sheets(2).[A65536].End(xlUp).Offset(1)                     'ª«¥ó
   
7.             i = .Row                                                    'Row(ª«¥óÄÝ©Ê):¦C¸¹
   
8.             .Resize(, 7) = Sheets(1).[A2:G2].Value                      '¤u§@ªí1ªº¸ê®ÆDDE³sµ²¦¨¥\¼g¤J¤u§@ªí2
   
9.             .Range("H1") = .Range("D1") - .Range("C1")                  'Hø󪺤½¦¡=>Døó-Cøó
   
10.             .Range("I1") = .Range("H1") - .Range("H1").Offset(-1)       'I413=H413-H412......¼Æ¦C2
    
11.             .Range("J1") = .Range("E1")                                 'Jø󪺤½¦¡=Eøó
    
12.             xMax = Application.Max(.Parent.[i:j])                       '³Ì¤j­È
    
13.             xMin = Application.Min(.Parent.[i:j])                       '³Ì¤p­È
    
14.             '**  .Parent.ChartObjects(1): ª«¥ó (¤u§@ªíªº²Ä1­Ó¹Ïªí)  *****
    
15.             With .Parent.ChartObjects(1).Chart
    
16.                 .SeriesCollection(1).Values = .Parent.Parent.Range("J2:J" & i)              '«ü©w¼Æ¦C¸ê®Æªº½d³ò
    
17.                 .SeriesCollection(1).ChartType = 52                                         '«ü©w¼Æ¦C¹ÏªíÃþ«¬
    
18.                 .SeriesCollection(2).Values = .Parent.Parent.Range("i2:i" & i)
    
19.                 .SeriesCollection(2).ChartType = 65
    
20.                 If .SeriesCollection(2).AxisGroup <> xlSecondary Then .SeriesCollection(2).AxisGroup = xlSecondary '¼Æ¦C¤£¦b²Ä2Y®y¼Ð¶b(°Æ®y¼Ð): ¼Æ¦C«ü©w¨ì²Ä2Y®y¼Ð¶b(°Æ®y¼Ð)
    
21.                                                                                             '.AxisGroup = 2 ->  °Æ®y¼Ð
    
22.                 .Parent.Top = .Parent.Parent.Range("L" & IIf(i <= 39, 1, i - 38)).Top       '«ü©w¹Ïªí³»ºÝªº¦ì¸m
    
23.                 With .Axes(xlValue)             'Y®y¼Ð¶b
    
24.                     .MinimumScale = xMin
    
25.                     .MaximumScale = xMax
    
26.                     .MajorUnitIsAuto = True      '¥D­n¨è«×¶¡¶Z=¦Û°Ê³]©w
    
27.                     .MinorUnitIsAuto = True      '¦¸­n¨è«×¶¡¶Z=¦Û°Ê³]©w
    
28.                     .Crosses = xlAutomatic       '®y¼Ð¶b»P¨ä¥L®y¼Ð¶b¥æ¤eªºÂI=¦Û°Ê³]©w
    
29.                     .ScaleType = xlLinear        '¼Æ­È®y¼Ð¶bªº¨è«×Ãþ«¬=xlLinear
    
30.                 End With
    
31.                 With .Axes(xlValue, xlSecondary) '²Ä2Y®y¼Ð¶b(°Æ®y¼Ð)
    
32.                     .MinimumScale = xMin
    
33.                     .MaximumScale = xMax
    
34.                     .MaximumScaleIsAuto = True
    
35.                     .MajorUnitIsAuto = True
    
36.                     .MinorUnitIsAuto = True
    
37.                     .Crosses = xlAutomatic
    
38.                     .ScaleType = xlLinear
    
39.                 End With
    
40.             End With
    
41.         End With
    
42.         Application.ScreenUpdating = True
    
43.     End If
    
44.    Application.OnTime T + TimeValue("00:01:00"), "GetDDE"               '¶¡¹j5¤ÀÄÁ§ï¦¨TimeValue("00:05:00"),
    
45. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 30# slip
½Ð¦Û¦æ¨Ì·Ó¦p¤U­×§ï

1. With .Axes(xlValue)             'Y(¥D)®y¼Ð¶b
   
2.                     .MinimumScale = Application.Min(.Parent.Parent.Parent.[I:I])                        '³Ì¤p­È
   
3.                     .MaximumScale = Application.Max(.Parent.Parent.Parent.[I:I])                        '³Ì¤j­È
   
4.                     .MajorUnitIsAuto = True      '¥D­n¨è«×¶¡¶Z=¦Û°Ê³]©w
   
5.                     .MinorUnitIsAuto = True      '¦¸­n¨è«×¶¡¶Z=¦Û°Ê³]©w
   
6.                     .Crosses = xlAutomatic       '®y¼Ð¶b»P¨ä¥L®y¼Ð¶b¥æ¤eªºÂI=¦Û°Ê³]©w
   
7.                     .ScaleType = xlLinear        '¼Æ­È®y¼Ð¶bªº¨è«×Ãþ«¬=xlLinear
   
8.                 End With
   
9.                 With .Axes(xlValue, xlSecondary) 'Y(°Æ)®y¼Ð¶b
   
10.                     .MinimumScale = Application.Min(.Parent.Parent.Parent.[J:J])                        '³Ì¤p­È
    
11.                     .MaximumScale = Application.Max(.Parent.Parent.Parent.[J:J])                        '³Ì¤j­È
    
12.                     .MaximumScaleIsAuto = True
    
13.                     .MajorUnitIsAuto = True
    
14.                     .MinorUnitIsAuto = True
    
15.                     .Crosses = xlAutomatic
    
16.                     .ScaleType = xlLinear
    
17.                 End With

½Æ»s¥N½X