Strona główna Makra / VBA Wydobywanie tekstu z komentarzy

Wybrana funkcja

  • STOPNIE
    Konwertuje radiany na stopnie.
Wydobywanie tekstu z komentarzy

W Excelu oprócz wartości przechowywanych bezpośrednio w komórkach spotkać się można również z tendencja do przechowywania ważnych informacji w polach komentarza. W przypadku, gdy komórka zawiera wartość kwotową w komentarzach można często spotkać objaśnienia tej kwoty, lub nawet rozbicie jej na części składowe. Bardzo często pojawia się potrzeba przeniesienia informacji zawartej w komentarzu do pola komórki.

Niestety Excel sam w sobie nie dysponuje taką funkcjonalnością i należy ją sobie samemu napisać. Najłatwiejszym sposobem jest zdefiniowanie funkcji użytkownika, której zadanie będzie odczytanie komentarza z danej komórki i umieszczenie go w komórce w której użyjemy funkcji. W tym celu należy do modułu w Excelu dodać następujący kod VBA:

Function GetCommentText(CommentCell As Range)
    On Error Resume Next
    Dim commentText As String
    commentText = WorksheetFunction.Clean(CommentCell.Comment.Text)
    GetCommentText = commentText
    On Error GoTo 0
End Function

Dzięki niemu uzyskamy pożądaną funkcjonalność. Aby go użyć wystarczy w komórce wpisać:

= GetCommentText(Adres komórki z komentarzem).

W przypadku, gdy komórka nie ma komentarza to wartość tej formuły również będzie pusta.

 

Dodaj swój komentarz

Twoje imię:
Twój e-mail:
Temat:
Komentarz:

Pytanie do eksperta

JoomlaWatch Stats 1.2.9 by Matej Koval