excel - セル内容 Excel のツールチップ

Question

テキストを含む (空ではない) すべてのセルのタブ「Sheet1」、列「C9:10000」にツールチップを自動的に表示する方法を探しています。

これの目的は、そのセルの列をブラウズすることです。セルがアクティブであるか、マウスがセルの上にある場合、ツールチップが「吹き出し」タイプで表示され、テキスト全体が表示されます。

ありがとう

Answer 1

InputMessageData Validationを借りることができます:

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 の最大長であるため、上記のコードで使用します。それ以上の長さになるとエラーが発生します。

ところで、上記のコードのほとんどのプロパティはオプションである可能性が高く、記録されたマクロから借用しました。