VBATools

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