VBA Tools

Mamy mało miejsca w arkuszu i chcielibyśmy oczyścić jego powierzchnie? Może dobrym pomysłem jest przeniesienie zaznaczonych danych z treści komórki do jej komentarza?

Jedynym sposobem, który hurtowo zrealizuje zakładany cel jest uruchomienie kodu VBA.

Należy jednak pamiętać aby wcześniej wykonać kopię pliku, ponieważ tekst jaki znajdzie się w komentarzu, zostanie usunięty z zaznaczonej komórki.

Sub Przenies_zaznaczone_komorki_do_komentarza()
'MVP OShon from VBATools.pl
 Dim kom As Range

 Application.ScreenUpdating = False
 For Each kom In Selection
 On Error Resume Next
 If Len(Trim(kom.Value)) > 0 Then
 kom.AddComment.Text
 kom.Comment.Text Text:=kom.Value
 kom.ClearContents
 End If
 On Error GoTo 0
 Next kom
 Application.ScreenUpdating = True
End Sub

Oto przykład zastosowania:

(c) Shon Oskar – www.VBATools.pl

Wszelkie prawa zastrzeżone. Żadna część ani całość tego artykułu nie może być powielana ani publikowana bez zgody autora.