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

¦Û§Ú·Pı¨}¦n

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

softsadwind

¤U¸ü (11.89 KB)

2012-11-30 14:16

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

¦Û§Ú·Pı¨}¦n

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

softsadwind

§Ú¦Û¤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)

¤U¸ü¦¸¼Æ: 14

2012-11-30 23:45

¦Û§Ú·Pı¨}¦n

¬d¦r001.rar (19 KB)

¤U¸ü¦¸¼Æ: 3

2012-12-1 06:16

§ÚÁÙ¬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]

softsadwind

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

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

   

¤U¸ü (74.92 KB)

2012-12-1 08:56

¦Û§Ú·Pı¨}¦n

¤U¸ü (139.83 KB)

2012-12-1 09:34

·P®¦!¤Ó·PÁ¤F¡C
¥u¬O¤£ª¾¨º¤@¤Ñ
yahoo¤S­n¶}°¸ªºª±¯º¡K¡K

softsadwind

·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.

softsadwind

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. 
    
15. 
    
16.         .Open "get", iurl & Rng, False
    
17.       
    
18.         
    
19.         .send
    
20.         On Error Resume Next
    
21.         '±qYahoo¦r¨åºK¨ú²Ä¤@²Õ¤¤¤å½Ķ
    
22.         'Rng.Offset(0, 2) = Split(Split(.responseText, "<ol class=""explanation_ol""><li ><p class=""explanation"">")(1), "<")(0)
    
23.         Rng.Offset(0, 2) = Split(Split(.responseText, "<p class=""explanation"">")(1), "<")(0)
    
24.         'ºK¨úKK­µ¼Ð
    
25.         '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), "]"))
    
26.          Rng.Offset(0, 1) = Left(VBA.Split(.responseText, """proun_value"">")(1), InStr(VBA.Split(.responseText, """proun_value"">")(1), "]"))
    
27.         .Open "get", iurl2 & Rng, False
    
28.         .send
    
29.         '±qDICT.TW ­^º~¦r¨åÂ^¨ú¦r¸q
    
30.         Rng.Offset(0, 3) = Split(Split(.responseText, "</span><br /> &nbsp;")(1), "<")(0)
    
31.         
    
32.     End With
    
33.    
    
34. End Sub

½Æ»s¥N½X

¬d¦r001.rar (25.32 KB)

¤U¸ü¦¸¼Æ: 7

2012-12-1 11:12

download it

¤U¸ü (297.42 KB)

2012-12-1 11:12

softsadwind

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

¤U¸ü (183.24 KB)

2012-12-1 16:58

¬d¦r¨å02