以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]如何实现双击单元格,弹出网页并以该单元格内容为关键字进行搜索? (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=115608) |
-- 作者:vbmic -- 发布时间:2018/3/9 23:57:00 -- [求助]如何实现双击单元格,弹出网页并以该单元格内容为关键字进行搜索? 求助:如何实现双击单元格,弹出网页并以该单元格内容为关键字进行搜索? 一、双击某单元格 二、弹出网页,并自动以标题为关键字进行搜索 If e.Col.Name = "标题" Then \'如果双击的是标题列 \'在网上,搜索当前行的标题 ??????? End If
|
-- 作者:有点蓝 -- 发布时间:2018/3/10 8:53:00 -- If e.Col.Name = "标题" Then \'如果双击的是标题列 Dim url As String = "https://www.baidu.com/s?wd=" & e.Row("标题") Dim Proc As New Process \'定义一个新的Process Proc.File = url \'指定要打开的网页地址 Proc.Start() End If |
-- 作者:vbmic -- 发布时间:2018/3/10 21:38:00 -- 回复:(有点蓝)If e.Col.Name = "标题" Then '如果双... 感谢老师。 |