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

¥Îexcel¤Wºô¬d­µ¼Ð

¥Îexcel¤Wºô¬d­µ¼Ð

¥»©«³Ì«á¥Ñ Hsieh ©ó 2010-7-22 13:04 ½s¿è

http://gb.twbts.com/index.php?topic=11456.10


http://www.boxcn.net/shared/77cyt18g34
crdotlin ª©¥D°µªº¡C

ª©ªºexcel¥DÃD: ³æ¦r(µü)¾Ç²ß¤u¨ã ´¿°Q½×¹Lªº,¥Îexcel¤Wºô¬d­µ¼Ð¡C
¥u¬O²{¦byahooªººô­¶§ïÅܤF
½Ð°Ý²{¦b­n«ç»ò¥Î©O!
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

¥»©«³Ì«á¥Ñ Hsieh ©ó 2010-7-22 13:11 ½s¿è

¦^´_ 1# ¦Û§Ú·Pı¨}¦n


   ²{¦bªºyahoo¦r¨å­µ¼Ð¤w¸g§ï¦¨¤å¦r
³o¼Ë§ó¦n¿ëÃѤF
  1. Sub searchIT(Rng As Range)
  2.     Dim XH As Object
  3.     Dim shpRm As Shape
  4.     '²M°£¤w¦³ªº¸ÑÄÀ¤Î­µ¼Ð
  5.     With Rng.EntireRow
  6.         .Resize(1, .Columns.Count - 1).Offset(0, 1).Clear
  7.     End With
  8.     '¶}±Òºô­¶
  9.     Set XH = CreateObject("Microsoft.XMLHTTP")
  10.     With XH
  11.         .Open "get", "http://tw.dictionary.yahoo.com/dictionary?p=" & Rng.Text, False
  12.         .send
  13.         On Error Resume Next
  14.         'ºK¨ú²Ä¤@²Õ¤¤¤å½Ķ
  15.         Rng.Offset(0, 2) = Split(Split(.responseText, "class=""description""><p>1.")(1), "<")(0)
  16.         'ºK¨úKK­µ¼Ð
  17.         Rng.Offset(0, 1) = Left(VBA.Split(.responseText, "KK</span>  ")(1), InStr(VBA.Split(.responseText, "KK</span>  ")(1), "]"))
  18.         
  19.     End With
  20.     Rng.Select
  21. End Sub
½Æ»s¥N½X
yahoo_dictionary.rar (13.66 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh
¯uªº¤Ó·PÁ¤F,¤S¥i¥H¬d­µ¼Ð¤F¡C
    I        [aɪ]
am        [æm]
really        [£¿rɪəlɪ]
thankful        [£¿£cæŋkfəl]
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 2# Hsieh


    §Ú¬O·s·|­ûÁÙ¤£¯à¤U¸üÀɮסC¤p§Ì¤£¤~¡A½Ð°Ý³o¨Ç¥N½X­n¦p¦ó¨Ï¥Î?

TOP

¦U¦ì¤j¤j¦n¡G

    ¤S¦³¤@­Ó¾Ç²ß­^¤åªº
¦n¤u¨ã¡A¤p§Ì­n¦n¦n¦h¥[
¹B¥Î¡C¥i¬O¤p§Ì¦b¾Ç²ß¹Lµ{
¤¤¤@ª½µLªkÅã¥Ü¨ä­µ¼Ð¡C
½Ð°Ý¨ä­ì¦]¬°¦ó©O¡H

·P®¦¦U¦ì¤j¤j¡I

TOP

¦^´_ 6# dechiuan999
2¼Ó    ºK¨úKK­µ¼Ð  ³o¦æµ{¦¡½X
          Rng.Offset(0, 1) = Left(VBA.Split(.responseText, "KK</span>  ")(1), InStr(VBA.Split(.responseText, "KK</span>  ")(1), "]"))
         ­×§ï¬°
         Rng.Offset(0, 1) = Split((Split(.responseText, "KK</span>")(1)), "<span>")(0)

TOP

ÁÂÁª©¥D¤j¤j¡C
¤w´ú¸Õ¥i¥HÀ³¥Î¤F¡C
§Æ±æ­É¥Î¦¹¥\¯à¥i¥H
Åý¦Û¤wªº­^¤å¦³©Ò¶i¨B¡C

·P®¦¤j¤j¡I

TOP

¬Ý°_¨Ó¬O¤@­Ó¦nª±ªº³nÅé~~
¸ü¨Óª±ª±

TOP

¦^´_ 2# Hsieh


    ½Ð°Ý ª©¥D¦p¤U¿ù»~¬O¦p¦ó¡AÁÂÁÂ
2014-11-17_142312.jpg
2014-11-17 14:25
2014-11-17_142350.jpg
2014-11-17 14:26

TOP

¦^´_ 9# wufonna


§Ú¤]¬O¬Û¦P°ÝÃD¡A¨Ï¥ÎÀô¹ÒWin 7, MS Office 2010.
¦n¥i±¤¡A¥\¯à«Ü´Î¡A½Ð¤j¤j¨ó§U¡C

TOP

        ÀR«ä¦Û¦b : ¤H­nª¾ºÖ¡B±¤ºÖ¡B¦A³yºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD