超链接屏幕提示导致工作簿需要修复

我正在使用VBA创build超链接到Excel中不同工作表中的单元格，当我添加一个屏幕提示一切正常，直到我closures工作簿。

重新打开后，Excel进行维修，并强制我打开只读。 摆脱屏幕提示解决了这个问题，但屏幕提示非常方便。

有谁知道可能会导致这种情况？

Hyperlinks.Add wb.Sheets("Summary").Cells(j, i + 2), "", "'" & i & "'!" & wb.Sheets(i + 1).Cells(3, col).Address, scrTip 

编辑：

这是我用来创buildscrTip的代码。

 scrTip = "" For indx = 0 To 4 If TopCost(indx) <= 0 Then Exit For If indx > 0 Then scrTip = scrTip & vbCrLf scrTip = scrTip & strTopCost(indx) & " - " & Round(TopCost(indx)) Next indx 

数组strTopCost包含的描述可以包含“， – ，＆，/，＃等符号，而topcost数组包含数字。屏幕提示显示scrTip为空时超链接的位置。

Answer 1

请尝试以下方法：

 wb.Sheets("Summary").Hyperlinks.Add _ AnchorAnchor:=Cells(j, i + 2), _ Address:="", _ SubAddress:="'" & i & "'!" & wb.Sheets(i + 1).Cells(3, col).Address, _ ScreenTip:=scrTip 

此外，请确保在创build新链接之前删除任何现有的超链接：

 Dim hyp As Hyperlink For Each hyp In ThisWorkbook.Sheets("Summary").Hyperlinks hyp.Delete Next hyp 

Answer 2

我发现这个问题。 一些屏幕提示太长，所以我限制了他们的长度为25个字符，并在事后工作得很好。