[已解决]请教一个inputbox函数的问题

mn860429

1. Sub url()
   
2.     mystr = InputBox("请输入a标签的title属性", "title属性", "excel学习")
   
3.     ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:="http://www.excelpx.com/", SubAddress:="", ScreenTip:=mystr, TextToDisplay:=Selection.Text
   
4. End Sub

复制代码

这个代码是word中用的， ,点了取消也会添加超链接，如何设计点了取消就跳出程序？

最佳答案

月排行榜 / 总排行榜

我的故事

2011-7-23 17:38

Sub url()
    mystr = InputBox("请输入a标签的title属性", "title属性", "excel学习")
    IF LEN(MYSTR)THEN
    ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:="http://www.excelpx.com/", SubAddress:="", ScreenTip:=mystr, TextToDisplay:=Selection.Text
    END IF
End Sub

跳转到最佳答案楼层

我的故事

Sub url()
    mystr = InputBox("请输入a标签的title属性", "title属性", "excel学习")
    IF LEN(MYSTR)THEN
    ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:="http://www.excelpx.com/", SubAddress:="", ScreenTip:=mystr, TextToDisplay:=Selection.Text
    END IF
End Sub

mn860429

谢谢。[em02]

fjmxwrs

学习