Excel / VBA - događaj koji će zatražiti komentare

Problem

Pokušavam stvoriti događaj unutar više ćelija koje će tražiti komentar ako se ispune određeni uvjeti.

Na primjer:

• Ako je c1 <3.2 tada [pokreni događaj]
• Želim da događaj uzme forme kao popup komentar koji će sačuvati komentar na ćeliju.

Riješenje

Pokušaj ovo:

 Privatni podradni list_Promjena (ByVal Target As Range) Dim MyMessage As String Ako se presijeca (Target, Range ("C1")) Ništa tada ne izađe Sub Sub Range ("C1") <3.2 Tada MyMessage = InputBox ("Unesite svoj komentar" ) S rasponom ("C1") .ClearComments .AddComment .Comment.Visible = Netočno .Comment.Text Text: = MyMessage End with End If End Sub 

Zahvaljujući TrowaD-u na ovom savjetu.