细胞内容的工具提示优秀

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中的最大长度，而且还会导致错误。

BTW上面代码中的大部分属性都可能是可选的 - 我从录制的宏中借用了它。