Yorum ekledikten sonra VBA kodu nasıl tetiklenir?

Question

"Bugün" kelimesini içeren bir hücreye bir yorum eklerseniz, o zaman bu yorumda bugünün tarihi ile "bugün" yerini almak için bir tetiklenecek bir VBA kodu isteriz. Ancak, buradaki problem, bir yorumun ne zaman eklendiğini veya hangi hücreye (aralık nesnesi) sahip olduğunu bilmek için bir olay (veya başka bir yol) bulamam. Herhangi bir fikir?

Bulunduğum aptal çözüm Worksheet_SelectionChange olay içinde VBA kod eklemek ve daha sonra bir For Each döngü yapmak, sayfadaki her bir yorumunu işaretleyin, ardından yürütmek (ben seçim değişikliğinden önce eski konum alınamadı utanç vericidir) Bu değiştirme.

Answer 1

kullanıcı yorum ile yapılır ve başka bir hücreyi seçer sonra olay işleyicisi "son" hücreyi kontrol böylece son seçilen hücrenin adresini saklamak için bir "yardımcı" hücreye kullanıyor olabilir geçici bir çözüm sadece

aşağıda gibi

şey

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
Dim cmt As Comment 

With Target 
    If .Address <> Cells(1, 1) Then 
    Set cmt = Range(Cells(1, 1)).Comment 
     If Not cmt Is Nothing Then 
      With cmt 
       .Text (Replace(.Text, "today", Date)) 
      End With 
     End If 
    End If 
End With 

Cells(1, 1) = Target.Address 

End Sub