Conas torthaí cuardaigh google a áireamh ar an mbileog oibre in Excel?
I roinnt cásanna, b’fhéidir go mbeidh ort roinnt cuardach eochairfhocal tábhachtach a dhéanamh in Google agus an taifead toraidh cuardaigh is fearr a choinneáil i mbileog oibre a chuimsíonn teideal agus hipearnasc an ailt. Soláthraíonn an t-alt seo modh VBA chun cabhrú le torthaí cuardaigh google a chur ar bhileog oibre bunaithe ar eochairfhocail áirithe i gcealla.
Cuir torthaí cuardaigh google ar an mbileog oibre le cód VBA
Cuir torthaí cuardaigh google ar an mbileog oibre le cód VBA
Má sholáthraíonn tú na heochairfhocail a theastaíonn uait chun liostú i gcolún A a chuardach mar a thaispeántar thíos an scáileán, déan mar a leanas le do thoil chun torthaí cuardaigh google na n-eochairfhocail seo a chur ar cholúin chomhfhreagracha le cód VBA.
1. Brúigh an Eile + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil le do thoil Ionsáigh > Modúil. Ansin cóipeáil agus greamaigh cód VBA isteach i bhfuinneog an chóid.
Cód VBA: cuir torthaí cuardaigh google ar an mbileog oibre
Sub xmlHttp()
'Updated by Extendoffice 2018/1/30
Dim xRg As Range
Dim url As String
Dim xRtnStr As String
Dim I As Long, xLastRow As Long
Dim xmlHttp As Object, xHtml As Object, xHtmlLink As Object
On Error Resume Next
Set xRg = Application.InputBox("Please select the keywords you will search in Google:", "KuTools for Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
xLastRow = xRg.Rows.Count
Set xRg = xRg(1)
For I = 0 To xLastRow - 1
url = "https://www.google.co.in/search?q=" & xRg.Offset(I) & "&rnd=" & WorksheetFunction.RandBetween(1, 10000)
Set xmlHttp = CreateObject("MSXML2.serverXMLHTTP")
xmlHttp.Open "GET", url, False
xmlHttp.setRequestHeader "Content-Type", "text/xml"
xmlHttp.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; rv:25.0) Gecko/20100101 Firefox/25.0"
xmlHttp.send
Set xHtml = CreateObject("htmlfile")
xHtml.body.innerHTML = xmlHttp.ResponseText
Set xHtmlLink = xHtml.getelementbyid("rso").getelementsbytagname("H3")(0).getelementsbytagname("a")(0)
xRtnStr = Replace(xHtmlLink.innerHTML, "<EM>", "")
xRtnStr = Replace(xRtnStr, "</EM>", "")
xRg.Offset(I, 1).Value = xRtnStr
xRg.Offset(I, 2).Value = xHtmlLink.href
Next
Application.ScreenUpdating = True
End Sub
3. Brúigh an F5 eochair chun an cód a rith. Sa popping suas Kutools le haghaidh Excel bosca dialóige, roghnaigh na cealla ina bhfuil eochairfhocail a ndéanfaidh tú cuardach orthu, agus ansin cliceáil ar an OK cnaipe. Féach an pictiúr:
Ansin déantar gach toradh cuardaigh, lena n-áirítear teidil agus naisc, a áireamh i gcealla colún comhfhreagracha bunaithe ar eochairfhocail. Féach an pictiúr:
Earraí gaolmhara:
- Conas bosca teaglama a áireamh le sonraí sonraithe ar Leabhar Oibre oscailte?
- Conas cealla eile a daonra go huathoibríoch agus luachanna á roghnú ar liosta anuas Excel?
- Conas cealla eile a daonra go huathoibríoch agus luachanna á roghnú ar liosta anuas Excel?
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!