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

µ{¦¡½X¦p¦ó¼g¥H¬ö¿ýEXCELªºDDE¼Æ¾Ú¨C¬íÄÁ¬ö¿ý)(¤w¸Ñ¨M)

µ{¦¡½X¦p¦ó¼g¥H¬ö¿ýEXCELªºDDE¼Æ¾Ú¨C¬íÄÁ¬ö¿ý)(¤w¸Ñ¨M)

¥»©«³Ì«á¥Ñ jiuhtsair ©ó 2011-8-23 17:55 ½s¿è

¦U¦ì¤j¤j¦n¡G
      ¹ï©óVBA§Ú¬O·s¤â¡I
      ¦bºô¸ô¤W¬Ý¨ì³\¦h°ª¤â¼g¥X¦³ÃöDDE¬ö¿ýªº°ÝÃD¡A¦ý¤j¦h¬O¬ö¿ý¤@¤ÀÄÁ©Î¬O¤@¤ÀÄÁ¥H¤Wªº®É¶¡¡C´¿¹Á¸Õ±N¨ä§ó§ï¦¨¨C¬í¬ö¿ý¤@¦¸¡A«oÁ`¬O¤£±o¨äªù¦Ó¤J...
      §Ú·Q­n§âDDE¶Çµ¹EXCELªº¸ê®Æ(®É¶¡¡B¶}½L»ù¡B³Ì°ª»ù¡B³Ì§C»ù¡B¦¬½L»ù¡B³æ¶q¡B¦¨¥æ¶q)¡A¨Ì·Ó®É¶¡¨C¤@¬í¬ö¿ý¤@¦¸(©ñ¦b¥t¤@­Ó¤u§@ªí¤¤)¡A¤£ª¾¹D¯à§_½Ð¤j¤j­Ì¨ó§U¡HÁÂÁ¡I

      ¥t¥~¡A¯à§_¤¶²Ð´X¥»VBA¤Jªù®Ñ¡A¦b§{¶¡¦³³\¦h®Ñ¡A¦ý¬Ýªº²´ªá¼º¶Ã¡A¤]Àµ½Ð¤j¤j­Ì¤w¹L¨Ó¤H¸gÅ礶²Ð´X¥»¦n®Ñ...ÁÂÁ¡I
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

¦^´_ 1# jiuhtsair
  1. Sub Ex()
  2.         Dim A As Date
  3.         A = Time
  4.         Do
  5.           DoEvents
  6.           If Time > A Then
  7.             A = Time
  8.             Sheet2.Range("A" & Rows.Count).End(xlUp).Offset(1) = Time & Sheet1.[A1]
  9.             '½Ð¦Û¦æ­×§ï->EXCELªº¸ê®Æ(®É¶¡¡B¶}½L»ù¡B³Ì°ª»ù¡B³Ì§C»ù¡B¦¬½L»ù¡B³æ¶q¡B¦¨¥æ¶q)
  10.           End If
  11.         Loop
  12. End Sub
½Æ»s¥N½X

TOP

·PÁ¤j¤j¶}¥Ü¡C´¿¬ã¨s¤F¤j¤j¦^µªEXCELªºDDE¼Æ¾Ú¨C¤ÀÄÁ¬ö¿ýªº¤å¡A¥i±¤¨S§¹¥þ§ËÀ´...³oµ{¦¡¤w¸g·Ð´o¤@¬P´Á¤F¡A·PÁ¤j¤j¸Ñ°£§x´b¡CÁÂÁ¡I
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

§Ú¤]ÁÙ¬O·s¤â¡AÁöµMµ{¦¡ªº³¡¤ÀÁÙ¨S¿ìªkµ¹¤©À°§U¡A¤£¹L®ÑÄyªº¸Ü¥i¥H±ÀÂ˵¹§A
Excel VBA 2007 µ{¦¡³]­p¥þ¹Ï¸Ñ ¹q¸£¤H¤å¤Æ ¥Xª©
§@ªÌ:¤C±ø¹F¥° ´çÃä°· ...µ¥¤Hª`
³o¥»»¡ªºÁÙÆZ¸Ô²Óªº¡A§Ú¥Ø«e¦Û¾Ç¤T¶g¡AÁöµM¨S¿ìªk¹³ª©¥D¥L­Ìµ{¦¡¥´±o«Üºë²¡A
­n¤°»ò¦³¤°»ò¡A¦ý¬O¤w¸g¥i¥H¦Û¤v°µ¥X¤@¨Ç°ò¥»¥\¯à¡A
¤W¤@¨B¡B¤U¤@¨B¡B¦b¤¶­±¤¤¿é¤J¸ê®Æ¨Ã°e¦^..µ¥¥\¯à
¥B®Ñ¤¤ªº½d¨Ò¥i¥H¤U¸ü
ºô§}:http://www.pcuser.com.tw/download/2AC710/samples.zip
±ÀÂ˵¹§A~~

TOP

ÁÂÁ¤À¨É¡I§Ú¤]§ä¨ì­Ó¤£¿ùªº±Ð¾Çºô¯¸
http://210.240.125.13/phcno1/index.htm ½Ð°Ñ¦Ò¡I
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

§Ú±Nµ{¦¡½X¶K¤W«á¡A¥¦§i¶D§Ú"°õ¦æ¶¥¬q¿ù»~424¡A¦¹³B»Ý­nª«¥ó"
¦ý¨S¦³¬Ý¨ì¥L©Ò«üªº¿ù»~°Ï°ì¦b­þ¸Ì¡A½Ð°Ý³o­n¦p¦ó§ï©O?
¥t¥~¡ADDE¶Ç¦^ªº®É¶¡¬O­È=(X¤p®É*3600+Y¤ÀÄÁ*60)/86400¡A¤£ª¾¹D³o¼Ë§â³]A=Time·|¤£·|¦³°ÝÃD¡A§Ú¬O§_­n¥ý±N(X¤p®É*3600+Y¤ÀÄÁ*60)/86400Âà¤Æ¦¨ "X¤p®É¡GY¤ÀÄÁ:Z¬íÄÁ"ªº«¬ºA©O?
ÁÂÁ¡I
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

©êºp¡I©È³¯­zªº¤£²M·¡¡A§Ú§â§ÚªºDDEÀɮפ]¶Ç¤W¨Ó¡CÀµ½Ðºô¤W¤j¤j¸Ñ´b¡IÁÂÁ¡I
·Q­n°µªº¥\¯à´N¬O§âsheet1ªº¤º®e¨C¬íÄÁ(a2Àx¦s®æ¤º®eÅܤƮɰʧ@)¦s¤JSheet2¤¤¡I§Æ±æ¯à°÷¬ö¿ý¤@¾ã¤Ñ¥H«K¤ÀªR°Ñ¦Ò¡CÁÂÁ¡I
TFXexcel_DDE.zip (7.89 KB)
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 7# jiuhtsair


¸Õ¸Õ¬Ý
  1. Sub Ex()
  2.         Dim A As Single
  3.         A = 0.361111   '®É¶¡ ¤W¤È 08:40:00
  4.         j = 2
  5.         Do
  6.           DoEvents
  7.           'If Sheets(2).Cells(j, 2) > A Then
  8.           '  A = Sheets(2).Cells(j, 2)
  9.           If Sheets(1).Cells(2, 1) > A Then   'SHEETS(1)ªºA2¤j©ó ®É¶¡
  10.             A = Sheets(1).Cells(2, 1)         '§ó§ï®É¶¡¬°SHEETS(1)ªºA2
  11.         '  -- ªþÀÉ Sheets(1).Cells(3, 5)......   ¬°ªÅ¥Õ  --
  12.         'Sheets(2).Cells(j, 2) = Sheets(1).Cells(3, 5)
  13.         'Sheets(2).Cells(j, 3) = Sheets(1).Cells(3, 6)
  14.         'Sheets(2).Cells(j, 4) = Sheets(1).Cells(3, 7)
  15.         'Sheets(2).Cells(j, 5) = Sheets(1).Cells(3, 8)
  16.         'Sheets(2).Cells(j, 6) = Sheets(1).Cells(3, 9)
  17.         'Sheets(2).Cells(j, 7) = Sheets(1).Cells(3, 10)
  18.         Sheets(2).Cells(j, 2).Resize(1, 6) = Sheets(1).Cells(2, 5).Resize(1, 6).Value
  19.         O = 0
  20.         H = -99999
  21.         l = 99999
  22.         cumVol = V
  23.         j = j + 1
  24.           End If
  25.         Loop
  26. End Sub
½Æ»s¥N½X

TOP

·PÁ¤j¤j¸Ñ´b¡I
µ{¦¡½X19¦æ¨ì22¦æ¡A·íªì¬O¬Ý¨ä¥Lµ{¦¡¥é³yªº¡A¦pªG§Ú¨S¦³¥Î¨ì¥¦ªº¹Bºâ¦¡(¥L­ì¥ý¬O§Q¥Î²Ä¤@­Ó»ù¿ú¬°¶}½L»ùO¡A²Ä¤G­Ó»ù¿ú¦pªG°ª©ó²Ä¤@­Ó¡A¨º³Ì°ª»ù´N¬O²Ä¤G­Ó¡A¦pªG²Ä¤G­Ó»ù¿ú§C©ó²Ä¤@­Ó¡A¨º³Ì§C»ù´N¬O²Ä¤G­Ó...)§Ú¬O§_¥i¥H§â¥¦¥h°£¡H
©ú¤Ñ¶}½L«á¸Õ¸Õ¡I·PÁ¡I
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

£~£~..·PÁ¡IOK¤F¡I
§Ú¥Î¤â°Ê¤è¦¡§ïÅܮɶ¡...°õ¦æµ{¦¡«á¤@¦p©ÒÄ@¡I
ÁÂÁ¤j¤j¸Ñ´b¡C·PÁ¡I
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

        ÀR«ä¦Û¦b : ¬°¦Û¤v§äÂǤfªº¤H¥Ã»·¤£·|¶i¨B¡C
ªð¦^¦Cªí ¤W¤@¥DÃD