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

[µo°Ý] DDE¸ê®Æ¬ö¿ý°ÝÃD

¦^´_ 40# GBKEE
GBKEE  ¤j¤j ±z¦n;
¤µ¤Ñ®M¤W¥h
ÁÙ¬OµLªk°õ¦æ Book8.rar (12.89 KB)
½Ð±zÀ°§Ú­×¥¿
(sorry,§Ú´X¥G¨S¦³°ò¦)
slip

TOP

¦^´_ 41# slip
GBKEE  ¤j¤j ±ß¦w;
§Ú¤S®M¶iµ{¦¡ Book9.rar (13.09 KB)
¥X²{°T®§¦p¤U

½Ð±zÀ°¦£
ÁÂÁÂ+·P®¦
slip

TOP

¦^´_ 42# slip

¥¼­×§ï«e ¨Ï¥Î°Ï¶ô§Î¦¡»yªk¡G¦³End If
  1. If condition Then
  2. [statements]
  3. [ElseIf condition-n Then
  4. [elseifstatements]...
  5. [Else
  6. [elsestatements]]
  7. End If
½Æ»s¥N½X
  1.   If Not IsError(Sheets(1).[B2]) Then  '
  2.   '
  3. '
  4. End If
½Æ»s¥N½X
­×§ï«á if »yªk¬°
  1. If condition Then [statements][Else elsestatements
½Æ»s¥N½X
¤£¥Î¦³ End If
  1. If Not IsError(Sh(1).[B2]) Then Sh(2).[A65536].End(xlUp).Offset(1).Resize(, 7) = Sh(1).[A2:G2].Value  '¤u§@ªí1ªº¸ê®ÆDDE³sµ²¦¨¥\¼g¤J¤u§@ªí2
  2. '
  3. '
  4. '³Ì«áªº End If  ­n§R±¼
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 43# GBKEE
¤j¤j,§Ú¯uªº«Ü»{¯uªº¸Õ
¥i¬OÁÙ¬O¤£¦æ
¤´µM¥X²{¿ù»~°T®§
Book9.rar (14.28 KB)
·q½ÐÀ°¦£
ÁÂÁÂ
slip

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2013-8-4 07:27 ½s¿è

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

TOP

¦^´_ 45# c_c_lai
ÁÂÁÂ"c_c_lai "¤j¤j

¦­¤W¦³´ú¸Õ¤@¤U
¥X²{ª¬ªp¦p¹Ï
Book9.rar (14.36 KB)
½ÐÀ°¦£¦b¬Ý¬Ý
·P®¦
slip

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2013-8-4 12:05 ½s¿è
¦^´_  c_c_lai
ÁÂÁÂ"c_c_lai "¤j¤j

¦­¤W¦³´ú¸Õ¤@¤U
¥X²{ª¬ªp¦p¹Ï

½ÐÀ°¦£¦b¬Ý¬Ý
·P®¦
slip µoªí©ó 2013-8-4 10:38

§Aªºµ{¦¡¬J¨S¦³°_©l¡Bµ²§ô®É¬q±±¨î³]©w¡A¥B¥u­n¤@±Ò°Ê«K·|¶}©l°õ¦æ¡C
©Ò¥H§A¥Ø«e±o­n¦Ò¶q¶}¥«®É¬qªº³B¸Ì¡A¥H¤Î½L«e½L«áªºª¬ªp¡C
  1. If (Weekday(Date, 2) > 5 Or TimeValue(Now) > TimeValue("13:45:00") Then
  2.     '  ¨C³{¬P´Á°²¤é¡B©Î¤wÃö½L®É¡A «h  ...  ¥h°Û­Óºq
  3. ElseIf TimeValue(Now) >= TimeValue("08:45:00") Then
  4.     '  »{¯u¨Ó¬Ý½L§a¡I
  5. End If
½Æ»s¥N½X
¶È´£¨Ñ°Ñ¦Ò¡A¨C­Ó¤Hªº»Ý¨D¤£¦P¡B§P©w¤è¦¡¥ç¤]·|¦³©Ò¥X¤J¡C

TOP

¦^´_ 44# slip
c_c_lai  À°§A¸Ñ¨M¤F¿ù»~,§Aª¾¹D¬O¨º¸Ì¥X¿ù¶Ü?
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 47# c_c_lai
ÁÂÁÂ"c_c_lai"¤j¤j;

§Ú¥u¦³¦b¶}½L®É¤~·|¨Ï¥Î¦¹ÀÉ®×
¨º§Ú¥ý¤£¥h°µ­×§ï

¶g¤@¶}½L®É°õ¦æ,¦p¦³¨ä¥¦°ÝÃD
¦A½Ð±Ð±z

ÁÙ¦³,ÁÂÁ±zªº"¶W¯Å«ÕÀq"
slip

TOP

¦^´_ 48# GBKEE
GBKEE  ¤j¤j¤È¦w;
§Ú¤j¬ùÀ´c_c_lai"¤j¤jªº±Ð¾É

¤]·PÁ¤j¤j­Ì,µL¨p+¶W¦³­@¤ßªº±Ð¾É
slip

TOP

        ÀR«ä¦Û¦b : ¦³¦h¤Ö¤O¶q´N°µ¦h¤Ö¨Æ¡A¤£­n¤ß¦sµ¥«Ý¡Aµ¥«Ý¤~·|¸¨ªÅ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD