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

[µo°Ý] ¥HvbnŪ¨úºô§}¨C¤ÀÄÁ§ó·s±N¸ê®Æ¦s¦Ü¥t¤@¤u§@­¶

[µo°Ý] ¥HvbnŪ¨úºô§}¨C¤ÀÄÁ§ó·s±N¸ê®Æ¦s¦Ü¥t¤@¤u§@­¶

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-10-12 15:49 ½s¿è

¤p¤H¨S¦³¨Ï¥Î¹Lvbnªº¸gÅç¡A¦ý¬ã¨s«æ»Ýdata
ÁöµM§V¤O¾\Ū¥»ºô¯¸¸ê°T¦ý¬O¨ÌµMÃø¥H¼g¥Xcode

¦Ñ®vµ¹§Ú¤F¤@­Óºô§}¥i¥Hª½±µ¥Î¤º«Ø¥\¯àÂ^¨ú¡A¦ýµLªk¥Hexcel³]©w¦Û°Ê§ó·s
http://www.youbike.com.tw/genxml ... &lng=121.563996

§Æ±æ¯à¨C¤@¬q®É¶¡¶¡¹j¦Û°Ê§ó·s«á

¦Û°Ê¦s¤J¥t¤@­Ó¤u§@­¶


¨Dª©¤W¤j¤jÀ°À°¦£
khlkbh

¦^´_ 1# tracy1991621
¬Ý¤F¦üÀ´«DÀ´¡A¯à§_Á|­Ó¸û°È¹êªº¨Ò¤l¡H

TOP

¶×²v¸ê°Tªº¸ê°T¤@ª½§ó·s

§Ú·Q­n±qºô¯¸¤WÂ^¨ú«á¶×¤Jexcel
Åý¥L¦b§Úªºexcel "¤u§@­¶1"¤¤¡A¨C2¤ÀÄÁ¦Û°Ê§ó·s¸ê®Æ
¦Ó§ó·s«áªº"»ù®æ"©M"®É¶¡"§Ú­n±N¥L¦s¤J"¤u§@­¶2"
¨C¦¸§ó·sªº¸ê®Æ³£­n¦s
ex:   
            (²Ä¤@¦¸)                      (²Ä¤G¦¸)                ..............................
  |    ®É¶¡            ¶×²v     |      ®É¶¡        ¶×²v    |
  |   9:00             15       |      9:02         14.5    |
khlkbh

TOP

¦^´_ 3# tracy1991621

1.­ì©l¸ê®Æ¦s©ósheet1 a1~b2 ¦p§A©Ò¥Ü½d¨Ò
2.±N¨C¦¸§ó·s«á¸ê®ÆÂà¦s©óSheet2


    Sub test()
    Sheets("sheet1").Range("A2:B2").Copy                ' copy ¦ì¸m  :­×§ïÂI
    On Error Resume Next
    Dim myClms As Range
    Dim myRng  As Range
    Set myClms = Sheets("Sheet2").Columns("A:A") '¥ô·NªºÄæ½d³ò
    With myClms
        Set myRng = .Find(What:="*", After:=.Cells(1), _
        LookIn:=xlFormulas, Searchorder:=xlByRows, _
        SearchDirection:=xlPrevious)
    End With
    myRng.Offset(1, 0).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
       False, Transpose:=False
      
End Sub

TOP

¦^´_ 4# yuhuahsiao

¤£¦n·N«ä~¦³¿ìªk°µ¨ì¨C¨â¤p®É§ó·s¶Ü?
khlkbh

TOP

¦^´_ 4# yuhuahsiao

§Ú§Æ±æ¥L¯à¦Û°Ê§ó·s
khlkbh

TOP

¦^´_ 3# tracy1991621

¤U­±³o­Ó¨C¤ÀÄÁ§ó·s¤@¦¸
  1. Sub RefreshData2()
  2.     'A macro that runs itself every minute

  3.     ThisWorkbook.UpdateLink Name:="C:\Clients\Wrox\Data.xls", Type:= _
  4.                             xlExcelLinks
  5.     mdteScheduledTime = Now + TimeSerial(0, 1, 0)
  6.     Application.OnTime mdteScheduledTime, "RefreshData2"
  7.     MsgBox "Data refreshed"
  8.    
  9. End Sub
½Æ»s¥N½X

TOP

¦^´_ 7# genes


    ÁÂÁ§A§Ú·|¸Õ¸Õ¬Ýªº
khlkbh

TOP

        ÀR«ä¦Û¦b : µêªÅ¦³ºÉ¡D§ÚÄ@µL½a¡AµoÄ@®e©ö¦æÄ@Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD