单元格内容的工具提示优秀

我正在寻找如何显示一个工具提示自动在我的选项卡“Sheet1”，列“C9：10000”，包含文本（不是空的）的所有单元格。

这样做的目的是浏览单元格列，当它们处于活动状态时，或鼠标hover在单元格上时，工具提示将出现在“气球”types中以显示整个文本。

谢谢

Answer 1

您可以借用Data Validation的InputMessage ：

 Dim rng As Range For Each rng In Range("B2:B10") With rng.Validation .Delete .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, _ Operator:=xlBetween .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .InputMessage = rng.Text .ShowInput = True .ShowError = True End With Next rng 

（空单元格将被忽略）

你必须点击单元格，但是最大限制是有限制的。 字符数（我还没有检查过这个， 增加了 254个字符）。

在上面的代码中使用Left(rng.Text, 254) ，因为这是InputMessage中的最大长度，并且将会导致错误。

顺便说一句，上面代码中的大多数属性都可能是可选的 – 我从logging的macros中借用了这个。