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

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

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

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
02.png
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. 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

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

¦^´_ 10# saleen
°ÝÃD¤@¡G
©pªºªþ¥ó­ì©lÀÉ¡A¤§«e§Ú¦b¶}±Ò¥¦®É´¿¸g¨¬¨¬µ¥¤F ¤­ ~ ¤Q¤ÀÄÁ¤£µ¥ÁÙµLªk¶i¤J¡A
©Ò¥H§Ú±Ä¥Î¤À¬q¤è¦¡¤~±N©p¹Ïªíªº°ÝÃD (#5 ¼Ó  -  ¦^¤å) ®ø°£¡C³o¤]¬O©p»¡ªº¡G
" Excel ªº¹Ïªíø¹Ï³t«×¦nºC³á..  ¨C¦¸¶}Àɮפ§«á³£­nµ¥¥¦µe§¹¹Ï "
" upd ¤£ª¾¹D¬°¤°»òÁÙ¬O¤£·|¦Û°Ê°õ¦æ¡A¤@©w­n§Ú¤â°ÊÂI°õ¦æ¥¨¶°¥¦¤~·|¶]
  §Ú³£¤w¸gµ¹¥¦ 20 ¬íªºµ¥­Ô®É¶¡¤F "
¨Æ¹ê¤W¡B©p¨º 20 ¬íªºµ¥­Ô®É¶¡¦­´N¹L¤F¤£ª¾¦h¤[®É­Ô¤F¡A³o¥ç¬O¤£·|°õ¦æ
upd() ªº¯u¥¿­ì¦]¡C°£«D§A¦³Åv­­¯à¤U¸üªþ¥ó¥hÂл\±¼©pªº "¦¨¥æ¤ñ­«¤ÀªR.xlsm"
°ÝÃD¤G¡G
TimeScale ªº°ÝÃD¬O¹Ïªí¤º³¡±±¨î¡AµLªk¥ô¥Ñ¨Ï¥ÎªÌ²§°Ê¡C³o¤è­±¥i¯à­nª½±µ¥h
½Ð±Ð·L³n¤F¡C

TOP

¦^´_ 10# saleen
¦¨¥æ¤ñ­«¤ÀªR.rar (35.04 KB)

TOP

¦^´_ 10# saleen
§Ú·Q¨ì¤F¤@­Ó¸Ñ¨M¨}¤è¡I
­è¤~§Ú¸Õ¤F¤@¤U¶}±Ò¨ì§¹¥þ¶i¤J§@·~ªº®É¶¡
¤j¬ù»Ý®É 30 ¬í ~ ©Î¤§¤W¡A©p§âµ¥­Ô®É¶¡¥[¤W
newSecond = Second(Now()) + 30    '   ©ÎªÌ 35 ¬í
«K¸Ñ¨M°ÝÃD¤F¡C

TOP

§Ú§ï¦¨ 40 ¬í¥¦ÁÙ¬O¤@¼Ë
³£Åã¥Ü #N/A
>
saleen µoªí©ó 2013-11-6 14:25

½Ð§A¬d¬Ý¤@¤U  J44 ¨ì M44 ¸ê®Æ¼Æ¾Ú¬O§_¬° ³£Åã¥Ü #N/A¡A
¦pªGµª®×¬O Yes¡G
1.   ©pªº¨é°Ó³nÅé¬O§_¤w¶}±Ò¡H
2.  ¶}±Ò¶¶§ÇÀ³¬°¡G ¨é°Ó³nÅé  --->   Excel  --->  ³s½u§@·~¡C
¦pªGµª®×¬O No¡G
1.  B2 ¨ì E2 Ä椺®e¬°¦ó¡H

TOP

¦^´_ 17# saleen
©p§â upd()  §ó´«¦¨¥H¤Uªºµ{¦¡½X«KOK ¤F¡C
  1. Sub upd()
  2.     Dim Rng As Range
  3.    
  4.     With ¤u§@ªí1
  5.         Set Rng = .[B2].Resize(1, 5)
  6.         
  7.         If .[A2] = Date Then
  8.             Rng(1) = "=J44"
  9.             Rng(2) = "=K44"
  10.             Rng(3) = "=L44"
  11.             Rng(4) = "=M44"
  12.             Rng(5) = "=100-B2-D2"
  13.             Rng.Value = Rng.Value              '  ±N¤½¦¡¥HÄæ­È¨ú¥N
  14.         End If
  15.     End With
  16.    
  17.     reDraw       '  ­«·sø»s¹Ïªí®y¼Ð­È
  18. End Sub
½Æ»s¥N½X
¸Õ¸Õ¬Ý¡I

TOP

        ÀR«ä¦Û¦b : ºw¤ô¦¨ªe¡C²É¦Ì¦¨ÅÚ¡A¤Å»´¤vÆF¡A¤Å¥Hµ½¤p¦Ó¤£¬°¡C
ªð¦^¦Cªí ¤W¤@¥DÃD