MacroFacili: Aggiugere commenti da codice

Nel caso di procedure automatiche di compilazione dei fogli di calcolo (ad esempio da valori di elenco) è sempre utile dare indicazione di quali sono i valori di "base" che concorrono a formare il totale indicato nella cella. In alcun casi è sufficiente indicare invece del valore complessivo una formula che sommi i singoli ma una soluzione più "elegante" è indicare in modo descrittivo i valori in un commento alla cella.

Questa è la procedura che aggiungere un commento alla cella, ha come parametri opzionali la posizione (InAlto: nella prima riga) e la dimensione del carattere per l'intero commento.

Sub AggiungiRigaCommento(Cella As Range, _
                         Commento As String, _
                         Optional InAlto As Boolean = False, _
                         Optional FontSize As Integer = 12)

  If (Cella.Comment Is Nothing) Then
    Cella.AddComment (Commento)
    Cella.Comment.Visible = False
    Cella.Comment.Shape.TextFrame.Characters.Font.Size = FontSize
    Cella.Comment.Shape.TextFrame.AutoSize = True
  Else
    TestoPrec = Cella.Comment.Text
    If (InAlto) Then
      TestoNuovo = (Commento & Chr(10) & TestoPrec)
    Else
      TestoNuovo = (TestoPrec & Chr(10) & Commento)
    End If
    Cella.Comment.Text Text:=TestoNuovo
  End If
End Sub