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

¦Û§Ú·Pı¨}¦n

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

¦Û§Ú·Pı¨}¦n

¦^´_ 12# cautionkimo


    Dim rng .......Next
§ó¦n¥Î
ºÞ§A¦h¤Ö­Ó³æ¦r
¤@Áä³£·d©w¤F

cautionkimo

Sub «ö¶s268_Click()

    Columns("B:B").Select
    With Selection.Font
        .Name = "Arial Unicode MS"
        .Size = 12
    End With
Range("a1").Select

Dim XH As Object

    Dim rng As Range
   
      Dim iurl, iurl2 As String
    '²M°£¤w¦³ªº¸ÑÄÀ¤Î­µ¼Ð
    iurl = "http://tw.dictionary.search.yahoo.com/search?p="
    iurl2 = "http://dict.tw/index.pl?query="
    For Each rng In ActiveSheet.Range("a1", ActiveSheet.Range("a65536").End(xlUp))
            rng.Select
            If rng.Value <> "" Then
              rng.Select
              Set XH = CreateObject("Microsoft.XMLHTTP")
                    With XH
                        .Open "get", iurl & rng, False
                        .send
                         On Error Resume Next
                        '±qYahoo¦r¨åºK¨ú²Ä¤@²Õ¤¤¤å½Ķ
                         rng.Offset(0, 2) = Split(Split(.responseText, "<p class=""explanation"">")(1), "<")(0)
                        'ºK¨úKK­µ¼Ð
                         rng.Offset(0, 1) = Left(VBA.Split(.responseText, """proun_value"">")(1), InStr(VBA.Split(.responseText, """proun_value"">")(1), "]"))
                        .Open "get", iurl2 & rng, False
                        .send
                        '±qDICT.TW ­^º~¦r¨åÂ^¨ú¦r¸q
                        rng.Offset(0, 3) = Split(Split(.responseText, "</span><br /> &nbsp;")(1), "<")(0)
                    End With
             End If
    Next
   
End Sub
¤£­n¥s§Ú°ª¤â

cautionkimo

Sub searchITxx(rng As Range)
    Dim XH As Object
    Dim iurl, iurl2 As String
    iurl = "http://tw.dictionary.search.yahoo.com/search?p="
    iurl2 = "http://dict.tw/index.pl?query="
    With rng.EntireRow
        .Resize(1, .Columns.Count - 1).Offset(0, 1).Clear
    End With
    '¶}±Òºô­¶
    Set XH = CreateObject("Microsoft.XMLHTTP")
    With XH
        .Open "get", iurl & rng, False
        .send
        
        On Error Resume Next
        '±qYahoo¦r¨åºK¨ú²Ä¤@²Õ¤¤¤å½Ķ
        rng.Offset(0, 2) = Split(Split(.responseText, "<p class=""explanation"">")(1), "<")(0)

        'ºK¨úKK­µ¼Ð
        rng.Offset(0, 1).Font.Name = "Arial Unicode MS"
        rng.Offset(0, 1).Size = 12
        rng.Offset(0, 1) = VBA.Split(VBA.Split(.responseText, """proun_value"">")(1), "<")(0)
        
        .Open "get", iurl2 & rng, False
        .send
        '±qDICT.TW ­^º~¦r¨åÂ^¨ú¦r¸q
        rng.Offset(0, 3) = Split(Split(.responseText, "</span><br /> &nbsp;")(1), "<")(0)
        
    End With
   
End Sub

softsadwind

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

¤U¸ü (183.24 KB)

2012-12-1 16:58

¬d¦r¨å02

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

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

¦Û§Ú·Pı¨}¦n

¤U¸ü (139.83 KB)

2012-12-1 09:34

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

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

¬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]