批量设置邮箱超链接VBA及函数方法

作者：绿色风分类：时间：2022-08-18 浏览：165

楼主 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总版主之一

评论列表