Excel / VBA - tapahtuma, joka pyytää kommentteja

Ongelma

Yritän luoda tapahtuman useissa soluissa, jotka pyytävät kommenttia, jos tietyt ehdot täyttyvät.

Esimerkiksi:

  • Jos c1 <3.2 sitten [suorita tapahtuma]
  • Haluan tapahtuman ottavan lomakkeita, joissa on kommentti-ponnahdusikkuna, joka tallentaa solun kommenttiin.

Ratkaisu

Kokeile tätä:

 Private Sub Worksheet_Change (ByVal Target As Range) Dim MyMessage merkkijonoina Jos leikkaa (Target, Range ("C1")) Ei mitään Poistu alivaiheesta ("C1") <3.2 Sitten MyMessage = InputBox ("Anna kommenttisi") ) Alueella ("C1") .ClearComments .AdComComment .Comment.Visible = False .Comment.Text Teksti: = MyMessage End With End Jos End Sub 

Kiitos TrowaD: lle tästä vinkistä.

Edellinen Artikkeli Seuraava Artikkeli

Top Vinkkejä