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

[µo°Ý] ¦p¦ó¦b Excel ªº¹Ïªí¤¤±NµL¸ê®Æ¤é´Á¤£Åã¥Ü

[µo°Ý] ¦p¦ó¦b Excel ªº¹Ïªí¤¤±NµL¸ê®Æ¤é´Á¤£Åã¥Ü

¥»©«³Ì«á¥Ñ saleen ©ó 2013-10-29 18:11 ½s¿è


½×¾Â¤£ª¾¹D¬°¤°»ò¤£¯à¤W¶Ç¹Ï¤ù

¤p©f·Q½Ð°Ýªº¬O
¹³¹Ï¤¤¬õ°éªº³¡¥÷
¦]¬°¬O¤»¤é©Ò¥H¬O¨S¦³¸ê®Æªº
¥i¬O Excel ªº¹Ïªí«o·|¦Û¦æ¸É¤W¨S¦³¸ê®Æªº¤é´Á¾É­P¹³¹Ï¤¤¨º¼Ëªº±¡ªp

¦³¤°»ò¿ìªk¥i¥H¸õ¹L¨S¸ê®Æªº¤é´Á¤£­nÅã¥Ü¶Ü ?
§Ú¸Õ¹L¥Î¤å¦r®æ¦¡¤£­n¥Î¤é´Á , ¦ý³o¼Ë¹Ï·|Åܦ¨¥þ³¡À½¨ì³Ì¥ªÃ䤣ª¾¹D¤°»ò­ì¦]

ÁٽЦU¦ì¤j¤j±Ï±Ï¤p©f ><
¤p©f¦b¦¹¦V¦U¦ì¤j¤j¨D±Ð¤F Orz

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

TOP

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

TOP

¦^´_ 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)
¤p©f¦b¦¹¦V¦U¦ì¤j¤j¨D±Ð¤F Orz

TOP

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

TOP

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

§Ú±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. Private Sub Workbook_BeforeClose(Cancel As Boolean)
  11.     Me.Save
  12. End Sub

  13. Sub updateDate()
  14.     Dim Rng As Range

  15.     With ¤u§@ªí1
  16.         If .[A2] <> Date Then
  17.             '  .Range("A2:H2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
  18.             .Range("A2:H2").Insert Shift:=xlShiftDown
  19.             .[A2] = Date
  20.         End If
  21.     End With
  22. End Sub

  23. Sub upd()
  24.     Dim Rng As Range
  25.    
  26.     With ¤u§@ªí1
  27.         Set Rng = .[B2].Resize(1, 5)
  28.         
  29.         If .[A2] = Date Then
  30.             '  ¦]¬°­ì«ü©wªº J44 ·|¦]¸ê®Æ¤§¦æ¼Æ¼W´î¦Ó¦³©ÒÅÜ°Ê¡C
  31.             Rng(1) = "=XQNET|Quote!'TSEX5.TW-StockValueRatio'"
  32.             Rng(2) = "=XQNET|Quote!'TSEX5.TW-PriceChangeRatio'"
  33.             Rng(3) = "=XQNET|Quote!'TSEX8.TW-StockValueRatio'"
  34.             Rng(4) = "=XQNET|Quote!'TSEX8.TW-PriceChangeRatio'"
  35.             Rng(5) = "=100-B2-D2"
  36.             Rng.Value = Rng.Value              '  ±N¤½¦¡¥HÄæ­È¨ú¥N
  37.         End If
  38.     End With
  39.    
  40.     reDraw       '  ­«·sø»s¹Ïªí®y¼Ð­È
  41. End Sub

  42. Sub reDraw()
  43.     Dim shp As Integer, EndKBarRow As Long
  44.    
  45.     With ¤u§@ªí1
  46.         EndKBarRow = .Range("B" & Sheets("¤u§@ªí1").Rows.Count).End(xlUp).Row
  47.         shp = 0
  48.         For Each oShape In .Shapes
  49.             If oShape.Type = 3 Then            '  ¬J¦³ªº²Î­p¹Ïªí
  50.                 oShape.Select
  51.                 shp = shp + 1
  52.                  
  53.                 With ActiveChart
  54.                     .SetSourceData Source:=IIf(shp = 1, Range("¤u§@ªí1!$A$1:¤u§@ªí1!$A$" & CStr(EndKBarRow) & ", ¤u§@ªí1!$B$1:¤u§@ªí1!$B$" & CStr(EndKBarRow)), _
  55.                                            IIf(shp = 2, Range("¤u§@ªí1!$A$1:¤u§@ªí1!$A$" & CStr(EndKBarRow) & ", ¤u§@ªí1!$C$1:¤u§@ªí1!$C$" & CStr(EndKBarRow)), _
  56.                                            IIf(shp = 3, Range("¤u§@ªí1!$A$1:¤u§@ªí1!$A$" & CStr(EndKBarRow) & ", ¤u§@ªí1!$D$1:¤u§@ªí1!$D$" & CStr(EndKBarRow)), _
  57.                                                         Range("¤u§@ªí1!$A$1:¤u§@ªí1!$A$" & CStr(EndKBarRow) & ", ¤u§@ªí1!$E$1:¤u§@ªí1!$E$" & CStr(EndKBarRow)))))
  58.                     With .Axes(xlCategory)
  59.                         .CategoryType = xlTimeScale
  60.                         .MajorUnit = 1
  61.                         .MajorUnitScale = xlDays
  62.                         .MinorUnit = 1
  63.                         .MinorUnitScale = xlDays
  64.                     End With
  65.                 End With
  66.             End If
  67.         Next
  68.         .[A1].Select
  69.     End With
  70. End Sub
½Æ»s¥N½X

TOP

¦^´_ 4# saleen


    ½Ð°Ý¶}±ÒÀɮ׮ɷ|¥X²{¡AµLªk°õ¦æ XQNET.EXE¡A³o¬O­n¦w¸Ë¤°»òµ{¦¡
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

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

TOP

¦^´_ 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 ><...
¤p©f¦b¦¹¦V¦U¦ì¤j¤j¨D±Ð¤F Orz

TOP

¥»©«³Ì«á¥Ñ saleen ©ó 2013-11-4 14:56 ½s¿è

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



§Úªº¬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¤£·|°õ¦æ..
¤p©f¦b¦¹¦V¦U¦ì¤j¤j¨D±Ð¤F Orz

TOP

        ÀR«ä¦Û¦b : ­n¤ñ½Ö§ó¨ü½Ö¡D¤£­n¤ñ½Ö§ó©È½Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD