作者：绿色风
分类：
时间：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总版主之一