▎具体需求
一位朋友有一个提取Word题库的小程序,如下图:
现在有这样一个小需求,平时需要频繁的复制B列的题干内容,去百度搜索正确答案。
是否可以点击单元格,自动跳转到百度搜索框,并且搜索单元格的内容。
这个是完全可以的。
▎具体思路分析
因为要点击实现跳转,这里我们就要用到工作表的SelectionChange事件。当选择的单元格在B列的时候,执行打开网址的语句。
▎具体代码
PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)IfTarget.Cells.Count1ThenExitSub如果选择的单元格数量大于1,直接退出IfTarget.Column2ThenExitSub如果选择的单元格不是第二列,直接退出DimurlAsStringurl="