百度搜索的问题【超级感谢xmyjk的无私援助】

zhengrui-csb

鼠标放在任意单元格，点击按钮“百度搜索”后，自动打开ie，在百度中搜索鼠标所在单元格内的内容。怎么弄？谢谢大家
【已完成，超级感谢xmyjk的无私援助】

xmyjk

1. Option Explicit
   
2. 
   
3. Sub t()
   
4. If TypeName(Selection) = "Range" And Selection.Count = 1 Then
   
5.    If Len(Trim(Selection.Value)) > 0 Then
   
6.       With CreateObject("InternetExplorer.Application")
   
7.          .Visible = True
   
8.          .Navigate "http://www.baidu.com/s?wd=" & Selection.Value
   
9.       End With
   
10.    End If
    
11. End If
    
12. End Sub
    

复制代码

zhengrui-csb

超级感谢楼上高手，谢谢谢谢谢谢谢谢！！！
请问：Option Explicit是做什么用的？我都删除了，也不影响使用？