[已解决]如何实现点击单元格，可以选择预设好的多个网址选择其中一个，从而打开该网页？

WANGL2

如何实现点击单元格，可以选择预设好的多个网址选择其中一个，从而打开该网页？

最佳答案

月排行榜 / 总排行榜

MCBA2012

2012-9-11 17:24

1. 
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.      ActiveSheet.Hyperlinks.Add anchor:=Selection, Address:="http://" & Selection.Value
   
4.      Selection.Hyperlinks(1).Follow NewWindow:=True, AddHistory:=True
   
5. End Sub
   

复制代码

利用数据有效性，自定义形如www.sina.com.cn的网址序列，然后在此工作表加入以上代码，亲测可用
当然也可以建立一个 形如“新浪”、“搜狐”。。。的自定义序列，将网址保存在其他单元格，然后利用VBA调用，仅以此抛砖引玉。

跳转到最佳答案楼层

ddmyykdzh

数据有效性--序列？

MCBA2012

1. 
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.      ActiveSheet.Hyperlinks.Add anchor:=Selection, Address:="http://" & Selection.Value
   
4.      Selection.Hyperlinks(1).Follow NewWindow:=True, AddHistory:=True
   
5. End Sub
   

复制代码

利用数据有效性，自定义形如www.sina.com.cn的网址序列，然后在此工作表加入以上代码，亲测可用
当然也可以建立一个 形如“新浪”、“搜狐”。。。的自定义序列，将网址保存在其他单元格，然后利用VBA调用，仅以此抛砖引玉。

WANGL2

MCBA2012 发表于 2012-9-11 17:24
利用数据有效性，自定义形如www.sina.com.cn的网址序列，然后在此工作表加入以上代码，亲测可用
当然也可以 ...

非常好，且实用。真棒！最佳非您莫属哈！！！

MCBA2012

WANGL2 发表于 2012-9-12 09:34
非常好，且实用。真棒！最佳非您莫属哈！！！

谢谢哈，其实我也是个新手，多多鼓励，互相学习呵呵