VBA i komentari

Komentari u Excel-u su pogodan način da ostavite napomene u vezi rezultata računanja koje ste dobili ili da na drugi način obrazložite svoj rad u radnom listu. VBA omogućava lako dodavanje i brisanje komentara. U tekstu koji sledi biće reč o tome kako napraviti programe pomoću kojih dodajete ili brišete komentare u aktivnoj ćeliji.

Komentar ćemo da označimo kao promenljivu tipa string i dodelićemo joj neku inicijalnu vrednost. U ovom primeru to činimo direktno, a u praksi ćete verovatno preuzimati podatke iz kontrola u masci.

Dim cmt As String
cmt = “Moj komentar”

String cmt može da bude kombinacija više stringova, a moguće je i promeniti stil teksta. Zatim proveravamo da li selektovana ćelija ima komentar. Ako nema, uz pomoć metoda AddComment ga dodajemo. U suprotnom, program prikazuje poruku o grešci.

ActiveSheet.Range(Application.ActiveCell.Address).AddComment cmt

Odnosno, gotov program za dodavanje komentara izgleda ovako:

Sub Dodaj_komentar()

Dim cmt As String

cmt = “Moj komentar”

If ActiveCell.Comment Is Nothing Then
  ActiveSheet.Range(Application.ActiveCell.Address).AddComment cmt
Else
  MsgBox “Ova ćelija već ima komentar”
End If

End Sub

Brisanje komentara je još jednostavnije. Samo se treba pozicionirati na aktivnu ćeliju, a zatim obrisati komentar. Gotov program za brisanje komentara izgleda ovako:

Sub Obrisi_komentar()

ActiveSheet.Range(Application.ActiveCell.Address).Comment.Delete

End Sub