作者:绿色风
分类:
时间:2022-08-18
浏览:150
楼主 yjzstar |
用函数及VBA方法分别批量生产邮箱超链接! 方法一: 函数:- =HYPERLINK("mailto:"&A2&"@qq.com",A2)
只显示邮箱名- =HYPERLINK("mailto:"&A2&"@qq.com",A2&"@qq.com")
显示邮箱全称 方法二: VBA代码:- Sub 批量设置邮箱地址()
- Dim rng As Range
- Dim s As String
- Dim i As Integer
- On Error Resume Next
- Set rng = Application.InputBox("请输入需要批量设置的单元格:", "单元格输入", , , , , , 8)
- s = Application.InputBox("请输入统一的邮箱类型:如qq.com", "邮箱类型输入", "qq.com", , , , , 2)
- For i = 1 To rng.Count
- ActiveSheet.Hyperlinks.Add anchor:=rng(i).Offset(0, 1), Address:="mailto:" & rng(i).Value & "@" & s, _
- ScreenTip:="点击发送到:" & rng(i).Value & "@" & s, TextToDisplay:=rng(i).Text
- Next
- For i = 1 To rng.Count
- ActiveSheet.Hyperlinks.Add anchor:=rng(i).Offset(0, 2), Address:="mailto:" & rng(i).Value & "@" & s, _
- ScreenTip:="点击发送到:" & rng(i).Value & "@" & s, TextToDisplay:=rng(i).Text & "@" & s
- Next
- End Sub
具体操作请看动画!
批量设置邮箱超链接.rar |
2楼 xmyjk |
小颜辛苦了,做得很细,很漂亮 |
3楼 千年一梦遥 |
不错不错! |
4楼 larkzh |
谢谢分享! |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素,
经与ExcelTip.Net站长Apolloh商议并征得其同意,
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示,
供有需要的人士查询使用,也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议,
可与本人沟通提出,或于本站点留言,我们会尽快处理。
在此,感谢ExcelTip.Net站长Apolloh的支持,感谢本站点所有人**绿色风(QQ:79664738)**的支持与奉献,特此鸣谢!
------本人网名**KevinChengCW(QQ:1210618015)**原ExcelTip.Net总版主之一