excel - 单元格内容的工具提示excel

Question

我正在寻找如何在包含文本（非空）的所有单元格的选项卡“Sheet1”、“C9:10000”列中自动显示工具提示。

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

谢谢

Answer 1

您可以借用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 中的最大长度，任何更多都会导致错误。

顺便说一句，上面代码中的大多数属性都可能是可选的——我是从录制的宏中借来的。