Excel / VBA - En händelse som kommer att leda till kommentarer

Problem

Jag försöker skapa en händelse inom flera celler som skulle be om en kommentar om vissa villkor är uppfyllda.

Till exempel:

• Om c1 <3, 2 sedan [kör händelse]
• Jag vill att händelsen ska ta formulären en kommentar popup som skulle spara till en kommentar på cellen.

Lösning

Prova detta:

 Private Sub Worksheet_Change (ByVal Target As Range) Dimma MinMessage Som String Om Intersect (Target, Range ("C1")) Ingenting Avsluta Sub Om Område ("C1") <3.2 Då MyMessage = InputBox ("Vänligen skriv in din kommentar" ) Med Räckvidd ("C1"). KlaraKommentarer .AddComment .Comment.Visible = False .Comment.Text Text: = MyMessage End With End Om End Sub 

Tack vare TrowaD för detta tips.