網(wǎng)站內容搜索(【職場(chǎng)實(shí)例】一個(gè)非常有趣且辦公技巧性極強的問(wèn)題 )
優(yōu)采云 發(fā)布時(shí)間: 2022-01-03 01:02網(wǎng)站內容搜索(【職場(chǎng)實(shí)例】一個(gè)非常有趣且辦公技巧性極強的問(wèn)題
)
前言|職場(chǎng)例子
今天還收到微信公眾號后臺粉絲的私信咨詢(xún),問(wèn)了一個(gè)很有意思的高水平辦公問(wèn)題。
如下圖:
在表格的 B 列中,有一個(gè)通常被組織起來(lái)的小問(wèn)題。
這位朋友想要達到這樣的效果:
點(diǎn)擊問(wèn)題所在的任意單元格,例如依次點(diǎn)擊B2、B3、B4單元格,會(huì )自動(dòng)依次跳轉到百度搜索框,搜索單元格記錄的內容。
步驟|問(wèn)題解決
首先我們右擊工作表名稱(chēng)標簽,點(diǎn)擊“查看代碼”命令(或按快捷鍵Alt+F11),進(jìn)入VBA代碼編輯窗口。復制并粘貼下面的 VBA 代碼部分。最后,關(guān)閉VBA代碼編輯和輸入窗口,返回Excel工作表。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Column 2 Then Exit Sub
Dim url As String
url = "http://www.baidu.com/s?wd=" + Target.Value
Shell "C:\Users\Administrator\AppData\Local\Google\Chrome\Application\chrome.exe " & url, vbNormalFocus
End Sub
當我們回到 Excel 工作表時(shí),奇跡發(fā)生了。我們發(fā)現,當我們依次點(diǎn)擊B2、B3、B4單元格時(shí),會(huì )自動(dòng)跳轉到百度搜索框,搜索單元格中記錄的小問(wèn)題的內容。如下圖所示:
要點(diǎn)|問(wèn)題總結
操作注意事項:
?、冱c(diǎn)擊問(wèn)題所在的單元格實(shí)現自動(dòng)網(wǎng)頁(yè)搜索時(shí),必須一一點(diǎn)擊。不要連續選擇多個(gè)單元格,否則會(huì )退出并停止運行。
?、谙戮浯a的box-selected部分表示“小問(wèn)題”所在的列。在這個(gè)例子中,它在B列,也就是第2列,所以這里的參數是“2”??筛鶕唧w情況靈活更改。
?、巯旅娲a的box-selected部分代表我們指定的搜索網(wǎng)站。本例中使用“”,所以下面是百度網(wǎng)的官網(wǎng)??筛鶕唧w情況靈活更改。
?、芟旅娲a中框選部分代表我們電腦上指定瀏覽器的“目標”安裝路徑。本例中使用的是“谷歌”瀏覽器,以下是編輯器電腦上“谷歌”瀏覽器的“目標”路徑??筛鶕唧w情況靈活更改。
?、萑绾握业街付g覽器的“目標”路徑地址?
我們可以在我們要使用的瀏覽器的桌面快捷方式圖標上右擊,點(diǎn)擊“屬性”,在“屬性”界面查看并復制“目標”路徑地址。









