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

¥Îexcel¤Wºô¬d­µ¼Ð ¤S±¾¤F

¥Îexcel¤Wºô¬d­µ¼Ð ¤S±¾¤F

¥Îexcel¤Wºô¬d­µ¼Ð ¤S±¾¤F
¥i¯àºô­¶§ïÅÜ¡K
¬d¤£¥X­ì¦]
·Ð½Ð¦U¦ì¤j¤jÀ°À°¦£

001.JPG (140.33 KB)

001.JPG

50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

123.gif
  1. Private Sub CommandButton1_Click()
  2.   Dim XH As Object
  3.   Dim shpRm As Shape
  4. ' With Rng.EntireRow
  5.   '          .Resize(1, .Columns.Count - 1).Offset(0, 1).Clear
  6.   'End With
  7.   Dim i
  8.     With Range(Range("A1"), Range("A1").End(xlDown))
  9.         For i = .Columns(1).Rows.Count To 2 Step -1
  10.             If .Cells(i, 1).Value <> "" Then
  11.                 Set Rng = Cells(i, 1)
  12.                 Set XH = CreateObject("Microsoft.XMLHTTP")
  13.                 With XH
  14.                      .Open "get", "http://tw.dictionary.yahoo.com/dictionary?p=" & Rng.Text, False
  15.                      .send
  16.                      On Error Resume Next
  17.                      Rng.Offset(0, 2) = Split(Split(.responseText, "class=""description""><p>1.<span class=""proun_value"">")(1), "<")(0)
  18.                      Rng.Offset(0, 1) = Left(VBA.Split(.responseText, "KK</span><span class=""proun_value"">")(1), InStr(VBA.Split(.responseText, "KK</span><span class=""proun_value"">")(1), "]"))
  19.                 End With
  20.             Else
  21.             End If
  22.             Next
  23.    End With
  24. End Sub
½Æ»s¥N½X
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

©_©Ç©O!ÁÙ¬O¤£¯à¥Î.....

002.JPG (117.05 KB)

002.JPG

003.JPG (98.75 KB)

003.JPG

50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

§Ú¦Û¤v¦^®a¥Îie9 ¤W­±ªºµ{¦¡¤]¤£¦æ...
§âºô§}§ï¤@¤U´N¦n¤F.....
  1.                      .Open "get", "http://tw.dictionary.search.yahoo.com/search?p=" & Rng, False
½Æ»s¥N½X
¤Wºô§ì­µ¼Ð.rar (9.42 KB)
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¬d¦r001.rar (19 KB)
§ÚÁÙ¬O¤pªB¤ÍµLªk¤U¸üÀÉ®×
ªþ¤WÀÉ®×À°§Ú¬Ý¬Ý¨º¸Ì¥X¿ù¤F
§Ú¬d³æ¦r³£·|¥X²{
<span class="proun_value">:Q

often        <span class="proun_value">[£¿ɔfən]
public        <span class="proun_value">[£¿pʌblɪk]
airport        <span class="proun_value">[£¿ɛr͵port]
       
       
airplane        <span class="proun_value">[£¿ɛr͵plen]
system        <span class="proun_value">[£¿sɪstəm]
protect        <span class="proun_value">[prə£¿tɛkt]
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

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

    ¥h¤U¸üÅo
    https://www.dropbox.com/s/lxz2rycl53ax2cc/%E6%9F%A5%E5%AD%97001.xlsm

   
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

·P®¦!¤Ó·PÁ¤F¡C
¥u¬O¤£ª¾¨º¤@¤Ñ
yahoo¤S­n¶}°¸ªºª±¯º¡K¡K
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

·P®¦!¤Ó·PÁ¤F¡C
¥u¬O¤£ª¾¨º¤@¤Ñ
yahoo¤S­n¶}°¸ªºª±¯º¡K¡K
¦Û§Ú·Pı¨}¦n µoªí©ó 2012-12-1 09:38



«¢«¢ ¦Ñ¹ê¸ò§A»¡ §Ú¤]¤£À´µ{¦¡»yªk µL¤¤¥Í¦³¬O¤£¦æ....
¤£¹L¹J¨ì¦³¿³½ìªº   ´N¤gªk·Ò¿ûµ¹¥L½m...¦h¹Á¸Õ´N¥X¨Ó..§O©È¹J¨ì§xÃø....¨É¨ü¸Ñ¨M°ÝÃDªº¼Ö½ìÅo.
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

  1. Sub searchIT(Rng As Range)
  2.     Dim XH As Object
  3.     Dim shpRm As Shape
  4.     Dim iurl, iurl2 As String
  5.     '²M°£¤w¦³ªº¸ÑÄÀ¤Î­µ¼Ð
  6.     iurl = "http://tw.dictionary.search.yahoo.com/search?p="
  7.     iurl2 = "http://dict.tw/index.pl?query="
  8.     With Rng.EntireRow
  9.         .Resize(1, .Columns.Count - 1).Offset(0, 1).Clear
  10.     End With
  11.     '¶}±Òºô­¶
  12.     Set XH = CreateObject("Microsoft.XMLHTTP")
  13.     With XH


  14.         .Open "get", iurl & Rng, False
  15.       
  16.         
  17.         .send
  18.         On Error Resume Next
  19.         '±qYahoo¦r¨åºK¨ú²Ä¤@²Õ¤¤¤å½Ķ
  20.         'Rng.Offset(0, 2) = Split(Split(.responseText, "<ol class=""explanation_ol""><li ><p class=""explanation"">")(1), "<")(0)
  21.         Rng.Offset(0, 2) = Split(Split(.responseText, "<p class=""explanation"">")(1), "<")(0)
  22.         'ºK¨úKK­µ¼Ð
  23.         'Rng.Offset(0, 1) = Left(VBA.Split(.responseText, "KK</span><span class=""proun_value"">")(1), InStr(VBA.Split(.responseText, "KK</span><span class=""proun_value"">")(1), "]"))
  24.          Rng.Offset(0, 1) = Left(VBA.Split(.responseText, """proun_value"">")(1), InStr(VBA.Split(.responseText, """proun_value"">")(1), "]"))
  25.         .Open "get", iurl2 & Rng, False
  26.         .send
  27.         '±qDICT.TW ­^º~¦r¨åÂ^¨ú¦r¸q
  28.         Rng.Offset(0, 3) = Split(Split(.responseText, "</span><br /> &nbsp;")(1), "<")(0)
  29.         
  30.     End With
  31.    
  32. End Sub
½Æ»s¥N½X
¬d¦r001.rar (25.32 KB)
download it
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

«¢«¢ §Ú¤S¨Ó¤F
¤Ï¥¿§@¦Û¤v¦³¿³½ìªº¨Æ±¡Åo


¬d¦r¨å02
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

        ÀR«ä¦Û¦b : ¯u¥¿ªº·R¤ß¡A¬O·ÓÅU¦n¦Û¤vªº³oÁû¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD