saleen

³oÃäªþ¤W¹Ï , ¥i¯à·|¤ñ¸û²M·¡¤@¨Ç

¤U¸ü (425.39 KB)

2013-11-4 14:50

§Úªº¬yµ{¬O :
1. ­Y A2 ¤£¬O¤µ¤é¤é´Á´N±N A2 ¨ì F2 ¤U²¾¨Ã·s¼W¤@¦æ , ¨Ã±N A2 ´¡¤J¤µ¤é¤é´Á
2. ±µµÛµ¥ 20 ¬í
3. ±N J44 ¨ì M44 ªº DDE ¼´¥X¤§¸ê®Æ§ó·s¨ì B2 ¨ì F2 ¤¤ (¦]¬°´¡¤J¨Ã¤U²¾ªº¬O A2 ¨ì F2 , ©Ò¥H J44 ¨ì M44 ¤£·|¦³³Q¤U²¾ªº°ÝÃD )

¨ä¤¤ J44 ¨ì M44 ¬O±q XQ ¼´ DDE ªº , ©Ò¥H¤£·|¦³°ÝÃD
©Ò¥H¤£ª¾¹D¬°¤°»ò 3 ¨C¦¸³£¤£·|°õ¦æ ><
³£­n¤â°Ê°õ¦æ

¦Ó¥B Excel ªº¹Ïªíø¹Ï³t«×¦nºC³á..
¨C¦¸¶}Àɮפ§«á³£­nµ¥¥¦µe§¹¹Ï
©Ò¥H§Ú¤~·|µ¹¥¦¹L 20 ¬í¦A¥h§ó·s
¦ý¥¦«o¤£·|°õ¦æ..

saleen

¦^´_ 8# c_c_lai


    c_c_lai ¤j¤j :

§Ú¥H±zªºµ{¦¡½X¥h°õ¦æ
°ÝÃD¦n¹³ÁÙ¬O¦s¦b
´N¬OµL¸ê®Æªº¤é´Á°Ï¶¡ÁÙ¬O·|¦Û°Ê²£¥ÍªÅ®æ ><
¥B upd ¤£ª¾¹D¬°¤°»òÁÙ¬O¤£·|¦Û°Ê°õ¦æ
¤@©w­n§Ú¤â°ÊÂI°õ¦æ¥¨¶°¥¦¤~·|¶]
§Ú³£¤w¸gµ¹¥¦ 20 ¬íªºµ¥­Ô®É¶¡¤F ><...

c_c_lai

¦^´_  saleen


    ½Ð°Ý¶}±ÒÀɮ׮ɷ|¥X²{¡AµLªk°õ¦æ XQNET.EXE¡A³o¬O­n¦w¸Ë¤°»òµ{¦¡
ML089 µoªí©ó 2013-11-2 20:17

·í²Ä¤@¦¸¶}±Ò§t¦³ DDE ³sµ²ªº Excel Àɮ׮ɡA¨ä¨BÆJ¦p¤U¡G
1.  ¦p§A¥Ø«e¤§®×¨Ò¡A­º¥ý±N§A¤w¶×¤J³B¸ÌªºÀɮקR°£±¼¡A¦A­«·s¤U¸ü¤@¦¸¡C
2.  ¶}±Ò¸ÓÀɮסA¨ä¤W¤è¦C·|´£¥Ü§A¬O§_ "±Ò°Ê"¡A½Ð§A¥ýÀˬdµ{¦¡½X
      Workbook_BeforeClose(Cancel As Boolean) ¤º¬O§_¦³ Me.Save¡A
      ¦p¦³«h±N¥¦¥ý¦æ Mark (  '  Me.Save ) ¡AµM«á±N¦¹­×¥¿¤©¥HÀx¦s (¬O VBA ªºÀÉ®×Àx¦s)¡A
      ±µ«á¦A¥hÂI¿ï "±Ò°Ê"¡A±Ò°Ê¸Ó Excel¡C
3.  «ö§¹ "±Ò°Ê"¡A«h¦A¦¸±N¸Ó Excel ÀÉÃö³¬¤£Àx¦s¡C
4.  ¦A¦¸¶}±Ò¸ÓÀɮסA¿ï¾Ü¤£³s½u¡C¤§«á´N¤@¤Á OK ¤F¡I

ML089

¦^´_ 4# saleen


    ½Ð°Ý¶}±ÒÀɮ׮ɷ|¥X²{¡AµLªk°õ¦æ XQNET.EXE¡A³o¬O­n¦w¸Ë¤°»òµ{¦¡

c_c_lai

¦^´_ 4# saleen
¬O¤£¬O©pªº»Ý¨D¡H

¤U¸ü (67.39 KB)

2013-11-1 18:27

§Ú±N©pªºµ{¦¡½X¥[¤J¤F¸ê®Æ®y¼Ð­È­Èªº°ÊºA²§°Ê¡A
¥u­n¸ê®ÆÅÜ°Ê¡A¥¦©ó°õ¦æ upd() ®É·|¦P®É­×¥¿¡C

1. Private Sub Workbook_Open()
   
2.      Call updateDate     ' µ{¦¡¤@±Ò©l¡A«K¥h¦Û°Ê°õ¦æ updateDate     
   
3.     newHour = Hour(Now())
   
4.     newMinute = Minute(Now())
   
5.     newSecond = Second(Now()) + 20
   
6.     waittime = TimeSerial(newHour, newMinute, newSecond)
   
7.     Application.Wait waittime     '   µy«Ý 20 ¬í«á°õ¦æ upd()
   
8.     Call upd
   
9. End Sub
   
10. 
    
11. Private Sub Workbook_BeforeClose(Cancel As Boolean)
    
12.     Me.Save
    
13. End Sub
    
14. 
    
15. Sub updateDate()
    
16.     Dim Rng As Range
    
17. 
    
18.     With ¤u§@ªí1
    
19.         If .[A2] <> Date Then
    
20.             '  .Range("A2:H2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    
21.             .Range("A2:H2").Insert Shift:=xlShiftDown
    
22.             .[A2] = Date
    
23.         End If
    
24.     End With
    
25. End Sub
    
26. 
    
27. Sub upd()
    
28.     Dim Rng As Range
    
29.    
    
30.     With ¤u§@ªí1
    
31.         Set Rng = .[B2].Resize(1, 5)
    
32.         
    
33.         If .[A2] = Date Then
    
34.             '  ¦]¬°­ì«ü©wªº J44 ·|¦]¸ê®Æ¤§¦æ¼Æ¼W´î¦Ó¦³©ÒÅÜ°Ê¡C
    
35.             Rng(1) = "=XQNET|Quote!'TSEX5.TW-StockValueRatio'"
    
36.             Rng(2) = "=XQNET|Quote!'TSEX5.TW-PriceChangeRatio'"
    
37.             Rng(3) = "=XQNET|Quote!'TSEX8.TW-StockValueRatio'"
    
38.             Rng(4) = "=XQNET|Quote!'TSEX8.TW-PriceChangeRatio'"
    
39.             Rng(5) = "=100-B2-D2"
    
40.             Rng.Value = Rng.Value              '  ±N¤½¦¡¥HÄæ­È¨ú¥N
    
41.         End If
    
42.     End With
    
43.    
    
44.     reDraw       '  ­«·sø»s¹Ïªí®y¼Ð­È
    
45. End Sub
    
46. 
    
47. Sub reDraw()
    
48.     Dim shp As Integer, EndKBarRow As Long
    
49.    
    
50.     With ¤u§@ªí1
    
51.         EndKBarRow = .Range("B" & Sheets("¤u§@ªí1").Rows.Count).End(xlUp).Row
    
52.         shp = 0
    
53.         For Each oShape In .Shapes
    
54.             If oShape.Type = 3 Then            '  ¬J¦³ªº²Î­p¹Ïªí
    
55.                 oShape.Select
    
56.                 shp = shp + 1
    
57.                  
    
58.                 With ActiveChart
    
59.                     .SetSourceData Source:=IIf(shp = 1, Range("¤u§@ªí1!$A$1:¤u§@ªí1!$A$" & CStr(EndKBarRow) & ", ¤u§@ªí1!$B$1:¤u§@ªí1!$B$" & CStr(EndKBarRow)), _
    
60.                                            IIf(shp = 2, Range("¤u§@ªí1!$A$1:¤u§@ªí1!$A$" & CStr(EndKBarRow) & ", ¤u§@ªí1!$C$1:¤u§@ªí1!$C$" & CStr(EndKBarRow)), _
    
61.                                            IIf(shp = 3, Range("¤u§@ªí1!$A$1:¤u§@ªí1!$A$" & CStr(EndKBarRow) & ", ¤u§@ªí1!$D$1:¤u§@ªí1!$D$" & CStr(EndKBarRow)), _
    
62.                                                         Range("¤u§@ªí1!$A$1:¤u§@ªí1!$A$" & CStr(EndKBarRow) & ", ¤u§@ªí1!$E$1:¤u§@ªí1!$E$" & CStr(EndKBarRow)))))
    
63.                     With .Axes(xlCategory)
    
64.                         .CategoryType = xlTimeScale
    
65.                         .MajorUnit = 1
    
66.                         .MajorUnitScale = xlDays
    
67.                         .MinorUnit = 1
    
68.                         .MinorUnitScale = xlDays
    
69.                     End With
    
70.                 End With
    
71.             End If
    
72.         Next
    
73.         .[A1].Select
    
74.     End With
    
75. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 4# saleen
°ÝÃD¥X¦b©p¹Ïªíªº "¿ï¨ú¸ê®Æ(E)" ->  ½s¿è¼Æ¦C -> ¼Æ¦C­È(Y) -> "=¤u§@ªí1!$C$2:$C$67"
¬O§_¥¿½T³]©w¡H
§ÚÆ[¹î¨ì©pªº¨C¤@²Õ¿ï¨ú¸ê®Æ¤§¼Æ¦C­È½d³ò³£Ãþ¦ü¬° "=(¤u§@ªí1!$C:$C,¤u§@ªí1!$C$1)" ¡H¡H¡H¡H¡A
½Ð±N¥¦­Ì³£­×¥¿¬°¨ä¬Û¹ïÀ³¤§½T¹ê¼Æ¦C­È¡A¨Ò¦p¡G "=¤u§@ªí1!$C$2:$C$67"¡C
§Ú­ì¥»·Q¶i¤J¤@¤@­×¥¿¡A¦ý¬O«oµL¯à¬°¤O (¶}±ÒÀɮ׫ᵥ¤F±Nªñ¤Q¨Ó¤ÀÄÁ³£ÁÙ¦b¦£¸L¤¤¡A¤j·§
¬O¦b³B²z¹Ïªí§a¡H)

saleen

¦^´_ 2# c_c_lai

³Â·Ð Lai ¤jÀ°¤p©f¬Ý¬Ý ><
¦Ó¥B¤p©f¦Û¤v¼gªº¥¨¶°¤]¶]±o¤£¥¿±`
upd ¨º¬q³£¤£·|±µ¦b update «á­±¶]...
¤£ª¾¹D­þ¸Ì¼g¿ù¤F
¦¨¥æ¤ñ­«¤ÀªR.rar (32.72 KB)

½d¨Ò
¤U¸ü¦¸¼Æ: 13

2013-11-1 14:04

Hsieh

¦^´_ 1# saleen
¹Ïªí·|©¾¹ê§e²{¸ê®Æ¡A¥i§Q¥Î¿z¿ï±Æ°£¤£·QÅã¥Üªº¸ê®Æ¡C

c_c_lai

¦^´_ 1# saleen
©p±N Excel ÀÉ®×À£ÁY¦¨ .rar «K¥i¥H¨Ï¥Îªþ¥ó¤W¶Ç¡C