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

[µo°Ý] ¤j®a¦n , ½Ð±ÐÃö©óDDE¦Û°Ê´«¦æ»P¤@¨Ç°ÝÃD

¦^´_ 6# GBKEE


«z ~ ·PÁ GBKK ¶W¯Åª©¥D >~<
¥i¥H¥Î¤F..¶W±jªº ^"^
¤£¹L¤£ª¾¹D¬°¤°»ò³o¥÷ Excel ³t«×Åܱo«ÜºC(¶}±ÒÃö³¬Àx¦s³£ÅܫܺC,·s¼W¤@¦æ®É¤]ÅܺC)
¤Ó¼F®`¤F! :D
¤p©f¦b¦¹¦V¦U¦ì¤j¤j¨D±Ð¤F Orz

TOP

¦^´_ 10# saleen
¨ä¹ê GBKEE ª©¤j¥L¤w¸gµ¹©p¤F¥¿½Tªºµª®×¡A°ß¤@¤£¦Pªº³B²z
¥L¬O±q¸ê®Æ¿ý³Ì«á©¹¤W»¼¼W¡A¦ý¬O©p­n¨D¸ê®Æ¶·¬Ò¥Ñ A2 ¦æ»¼¼W
(´¡¦æ)¡A ©Ò¥H§Úµyµy´N¦a¨ú§÷§ï¤F¼g¤JÂI¡G
  1. Sub updateFollow()
  2.     Dim Rng As Range
  3.    
  4.     On Error Resume Next
  5.      If (TimeValue(Now) < TimeValue("08:45:00") Or TimeValue(Now) > TimeValue("13:45:00")) Then Exit Sub

  6.     With ¤u§@ªí1
  7.         .Range("A2:L2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove        '  ´¡¤J¸ê®Æ¡A­ì¥»¸ê®Æ¦C§¡¤U²¾¤@¦æ¡C
  8.         '  Set Rng = .[A2]
  9.         '  Rng = Sheet1.[c2]
  10.         '  Rng.Offset(, 1) = "=XQTISC|Quote!'FITX06.TF-Time'"
  11.         '  Rng.Offset(, 2) = "=R2-Q2"
  12.         '  Rng.Offset(, 3) = "=X2-W2"
  13.         '  Rng.Offset(, 4) = "=T2-U2"
  14.         '  Rng.Offset(, 5) = "=IF(ISNUMBER(R[1]C[-3]),RC[-3]-R[1]C[-3],0)"
  15.         '  Rng.Offset(, 6) = "=IF(ISNUMBER(R[1]C[-3]),RC[-3]-R[1]C[-3],0)"
  16.         '  Rng.Offset(, 7) = "=IF(ISNUMBER(R[1]C[-3]),RC[-3]-R[1]C[-3],0)"
  17.         '  Rng.Offset(, 8) = "=Y2"
  18.         '  Rng.Offset(, 9) = "=Z2"
  19.         '  Rng.Offset(, 10) = "=Z2-Q5"
  20.         '  Rng.Offset(, 11) = "= AA2 - AB2"
  21.         '  Rng.Offset(, 12) = "=AD2"
  22.         '  ¤W­±¤§±Ô­zªí¹F»P¤U¦Cªº±Ô­zµ²ªG¬O¤@¼Ëªº¡A®t²§¥u¦b©ó¨Ï¥Î»yªk¤§¥©§®¤£¦P¡C
  23.         Set Rng = .[A2].Resize(1, 12)
  24.         Rng(1) = "=XQTISC|Quote!'FITX06.TF-Time'"
  25.         Rng(2) = "=R2-Q2"
  26.         Rng(3) = "=X2-W2"
  27.         Rng(4) = "=T2-U2"
  28.         Rng(5) = "=IF(ISNUMBER(R[1]C[-3]),RC[-3]-R[1]C[-3],0)"
  29.         Rng(6) = "=IF(ISNUMBER(R[1]C[-3]),RC[-3]-R[1]C[-3],0)"
  30.         Rng(7) = "=IF(ISNUMBER(R[1]C[-3]),RC[-3]-R[1]C[-3],0)"
  31.         Rng(8) = "=Y2"
  32.         Rng(9) = "=Z2"
  33.         Rng(10) = "=Z2-Q5"
  34.         Rng(11) = "= AA2 - AB2"
  35.         Rng(12) = "=AD2"
  36.         Rng.Value = Rng.Value              '  ±N¤½¦¡¥HÄæ­È¨ú¥N
  37.         Rng(1).NumberFormat = "hh:mm:ss"
  38.     End With
  39.     If timerEnabled Then Call timerStart
  40. End Sub
½Æ»s¥N½X
¦ý¬O ½Ð¦Û¦æ¨ú®ø {A1:L1] ¶¡ªº¤U©Ô¿z¿ï¡A§_«h±NµLªk  "´¡¤J" ¸ê®Æ¦C¡C

TOP

¦^´_ 12# c_c_lai

^^~·PÁÂ c_c_lai ¤j¤j !
§Ú²{¦b°¨¤W¥h¸Õ¸Õ¬Ý ~~
¤£¹L¤£ª¾¹D§Ú¥u¬O­n§âªí®æ¤W¦â¬°¤°»ò´N¶]¥X¤U©Ô¿ï³æ¨Ó¤F
¥u¦n·Q¿ìªk§â¥¦®³±¼ ><
¤p©f¦b¦¹¦V¦U¦ì¤j¤j¨D±Ð¤F Orz

TOP

¦^´_ 12# c_c_lai


¤Ó±j¤F ! ·PÁÂ c_c_lai ¤j¤j >~~<
¶W¯Å¦¨¥\­C !
ÁöµM¬Ý¤£¤ÓÀ´      
Rng(5) = "=IF(ISNUMBER(R[1]C[-3]),RC[-3]-R[1]C[-3],0)"
Rng(6) = "=IF(ISNUMBER(R[1]C[-3]),RC[-3]-R[1]C[-3],0)"
Rng(7) = "=IF(ISNUMBER(R[1]C[-3]),RC[-3]-R[1]C[-3],0)"

³o¤T¦æ¨s³º¬O¤°»ò·N«ä D:
³£¨S°Ñ·Ó rng 2 3 4 «ç»òºâ¥X¨Ó®t­Èªº  Ê¨
¤p©f¦b¦¹¦V¦U¦ì¤j¤j¨D±Ð¤F Orz

TOP

¦^´_  c_c_lai


¤Ó±j¤F ! ·PÁÂ c_c_lai ¤j¤j >~~<
¶W¯Å¦¨¥\­C !
ÁöµM¬Ý¤£¤ÓÀ´      
Rng(5) = "=IF ...
saleen µoªí©ó 2013-6-6 11:17

.Range("A2:L2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
¦b A2 ¨ì L2 ¶¡´¡¤J¤@¸ê®Æ¦C (¥u²§°Ê A ~ L Ä椧¦ì¸m¡FM ~ ¥H«á¤§¤º®e§¡«O«ù¤£ÅÜ)¡A­ì¥»¸ê®Æ¦C§¡¤U²¾¤@¦æ«á¡A
Rng ³]©w©ó A2 ¦C  (Set Rng = .[A2].Resize(1, 12))¡A ©Ò¥H¦¹®É¡G
E = ²Ö©e½æ¤ñ¤­¤ÀÅܶq   ("=IF(ISNUMBER(R[1]C[-3]),RC[-3]-R[1]C[-3],"""")") (=IF(ISNUMBER(B3),B2-B3,"")) B2(·í®Ú)-B3(«e¸ò)
F = ²Ö½æ¦¨¤ñ¤­¤ÀÅܶq   ("=IF(ISNUMBER(R[1]C[-3]),RC[-3]-R[1]C[-3],"""")") (=IF(ISNUMBER(C3),C2-C3,"")) C2(·í®Ú)-C3(«e¸ò)
G = ²Ö©e¶R¤f¤­¤ÀÅܶq   ("=IF(ISNUMBER(R[1]C[-3]),RC[-3]-R[1]C[-3],"""")") (=IF(ISNUMBER(D3),D2-D3,"")) D2(·í®Ú)-D3(«e¸ò)
¥H E Ä欰¨Ò¡G ¥Ø«e¦b²Ä¤G¦æ¤W E2 Äæ¦ì¸m¡F E ªº©¹«e¤TÄæ (D¡BC¡BB) ¦ì¸m§Y¬° B2 Äæ¡A¦P²z¡BB2 Ä橹¤U¤@¦æ [1] ¤£´N¬O B3 Äæ¶Ü¡H
¦A¥H F Ä欰¨Ò¡G ¥Ø«e¦b²Ä¤G¦æ¤W F2 Äæ¦ì¸m¡F F ªº©¹«e¤TÄæ (E¡BD¡BC) ¦ì¸m§Y¬° C2 Äæ¡A¦P²z¡BC2 Ä橹¤U¤@¦æ [1] ¤£´N¬O C3 Äæ¶Ü¡H
¥H¦¹Ãþ±À¡C

TOP

¦^´_ 15# c_c_lai


    ®@®@ ! ­ì¨Ó¦p¦¹ ! ¬O©¹«eºâ¤T¦æªº·N«ä !
½Ð±Ð c_c_lai ¤j¹³³o¨Çµ{¦¡½X­n¦p¦ó¾Ç²ß ?
¦³±Mªù¾ã¥»³£¬Oµ{¦¡½Xªº®Ñ±ÀÂ覆 ?

¥t¹³¬O .Range("A2:L2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove ³o¬q
§Ú·Q§â¥¦§ï¼g¦¨ §Y®É¸ê®Æ¦b³Ì¤W­±¤@¦æ
µM«á¨C¤­¤ÀÄÁ¥Ñ²Ä¤T¦æ°_ºâ©¹¤U¥[¤@¦æ
§Ú¼g¦¨  .Range("A3:L3").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
³o¼Ë¹ï¶Ü ?
¦]¬°²{¦b³o¼Ë³Ì·sªº§Y®É¸ê®Æ·|³QÀ½¨ì¤U­± ><
¦n¹³¦³ÂI§xÃø...
¤p©f¦b¦¹¦V¦U¦ì¤j¤j¨D±Ð¤F Orz

TOP

¦^´_ 16# saleen
¬O³o¼Ë¶Ü¡H
  1. Sub updateFollow()
  2.     Dim Rng As Range
  3.    
  4.     On Error Resume Next
  5.     ' If (TimeValue(Now) < TimeValue("08:45:00") Or TimeValue(Now) > TimeValue("13:45:00")) Then Exit Sub

  6.     With ¤u§@ªí1
  7.         .Range("A3:L3").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove        '  ´¡¤J¸ê®Æ¡A­ì¥»¸ê®Æ¦C§¡¤U²¾¤@¦æ¡C
  8.         '  Set Rng = .[A3]
  9.         '  Rng.Offset(, 1) = "=XQTISC|Quote!'FITX06.TF-Time'"
  10.         '  Rng.Offset(, 2) = "=R2-Q2"
  11.         '  Rng.Offset(, 3) = "=X2-W2"
  12.         '  Rng.Offset(, 4) = "=T2-U2"
  13.         '  Rng.Offset(, 5) = "=IF(ISNUMBER(R[1]C[-3]),RC[-3]-R[1]C[-3],0)"
  14.         '  Rng.Offset(, 6) = "=IF(ISNUMBER(R[1]C[-3]),RC[-3]-R[1]C[-3],0)"
  15.         '  Rng.Offset(, 7) = "=IF(ISNUMBER(R[1]C[-3]),RC[-3]-R[1]C[-3],0)"
  16.         '  Rng.Offset(, 8) = "=Y2"
  17.         '  Rng.Offset(, 9) = "=Z2"
  18.         '  Rng.Offset(, 10) = "=Z2-Q5"
  19.         '  Rng.Offset(, 11) = "= AA2 - AB2"
  20.         '  Rng.Offset(, 12) = "=AD2"
  21.         '  ¤W­±¤§±Ô­zªí¹F»P¤U¦Cªº±Ô­zµ²ªG¬O¤@¼Ëªº¡A®t²§¥u¦b©ó¨Ï¥Î»yªk¤§¥©§®¤£¦P¡C
  22.         Set Rng = .[A3].Resize(1, 12)
  23.         Rng(1) = "=XQTISC|Quote!'FITX06.TF-Time'"
  24.         Rng(2) = "=R2-Q2"
  25.         Rng(3) = "=X2-W2"
  26.         Rng(4) = "=T2-U2"
  27.         Rng(5) = "=IF(ISNUMBER(R[1]C[-3]),RC[-3]-R[1]C[-3],0)"
  28.         Rng(6) = "=IF(ISNUMBER(R[1]C[-3]),RC[-3]-R[1]C[-3],0)"
  29.         Rng(7) = "=IF(ISNUMBER(R[1]C[-3]),RC[-3]-R[1]C[-3],0)"
  30.         Rng(8) = "=Y2"
  31.         Rng(9) = "=Z2"
  32.         Rng(10) = "=Z2-Q5"
  33.         Rng(11) = "= AA2 - AB2"
  34.         Rng(12) = "=AD2"
  35.         Rng.Value = Rng.Value              '  ±N¤½¦¡¥HÄæ­È¨ú¥N
  36.         Rng(1).NumberFormat = "hh:mm:ss"
  37.     End With
  38.     If timerEnabled Then Call timerStart
  39. End Sub
½Æ»s¥N½X
²Ä¤G¦æ´NÀH©p¦Û¥ÑÂ\§G¤F (¦]¬°¦¨¬°¥¼¨Ï¥ÎªºªÅ¦æ¤F)¡C

TOP

¦^´_ 17# c_c_lai


§¹¥þ¦¨¥\­C !
·PÁÂ c_c_lai ¤j¤j !
­ì¨Ó§Ú¬O a3 ¨ºÃä¨S§ï¨ì..
^^
±µ¤U¨Ó­n¸ÕµÛ§ì¹q¤lª÷¿Ä¶Ç²£ªº¦¨¥æ¤ñ­«
c_c_lai ¤j¥i§_«Øij¤@­Ó¤è¦V¤p©f¸Ó±q¦óµÛ¤â ><
¤p©f¦b¦¹¦V¦U¦ì¤j¤j¨D±Ð¤F Orz

TOP

¦^´_  c_c_lai


§¹¥þ¦¨¥\­C !
·PÁÂ c_c_lai ¤j¤j !
­ì¨Ó§Ú¬O a3 ¨ºÃä¨S§ï¨ì..
^^
±µ¤U¨Ó­n¸ÕµÛ§ì ...
saleen µoªí©ó 2013-6-6 12:56

¦³Ãö¹q¤lª÷¿Ä¶Ç²£ªº¦¨¥æ¤ñ­«¤è­±¡A
©p¥i¯à´N­n¥h½Ð±Ð½Ñ¦ìª©¤j»P¨ä¥L¥ý¶i¤F!

TOP

¦^´_ 19# c_c_lai


¦nºw
·PÁÂ c_c_lai ¤j¤j°Õ !
¤p©f¥H«á¤@©wÁÙ·|¦³³\¦h Excel ¸ò VB ªº¬ÛÃö°ÝÃD­n½Ð±Ð¤j¤j :D
¤p©f¦b¦¹¦V¦U¦ì¤j¤j¨D±Ð¤F Orz

TOP

        ÀR«ä¦Û¦b : «Î¼e¤£¦p¤ß¼e¡C
ªð¦^¦Cªí ¤W¤@¥DÃD