Excel / VBA - En begivenhed, der vil anmode om kommentarer

Problem

Jeg forsøger at oprette en begivenhed inden for flere celler, der ville bede om en kommentar, hvis visse betingelser er opfyldt.

For eksempel:

• Hvis c1 <3.2 derefter [køre hændelse]
• Jeg ønsker at begivenheden skal tage formularerne en kommentar popup, der ville gemme til en kommentar på cellen.

Opløsning

Prøv dette:

 Private Sub Worksheet_Change (ByVal Target As Range) Dim MinMessage Som String Hvis Intersect (Target, Range ("C1")) Er Intet Så Afslut Sub Hvis Range ("C1") <3.2 Så MyMessage = InputBox ("Indtast din kommentar" ) Med rækkevidde ("C1"). Klare kommenter .AddComment .Comment.Visible = False .Comment.Text Text: = MinMessage Slut med slutning Hvis End Sub 

Takket være TrowaD for dette tip.