VBATools

Chcielibyśmy wydrukować wszystkie naniesione komentarze, tak aby stanowiły one wartość komórki, w których one zostały osadzone. Jak to zrobić?

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

Należy jednak pamiętać aby wcześniej wykonać kopię pliku, ponieważ naniesiony do komórki tekst będzie zastępował ten, który się wcześniej w niej znajdował.

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

 Application.ScreenUpdating = False
 For Each kom In ThisWorkbook.Worksheets(ActiveSheet.Name).Range(Cells(1, 1), _
  Cells.SpecialCells(xlLastCell).Address)
  On Error Resume Next
  With kom.Comment
   If Len(.Text) Then
     kom.Value = .Text
     .Delete
   End If
  End With
  On Error GoTo 0
 Next kom
 Application.ScreenUpdating = True
End Sub

Oto przykład zastosowania:

(c) Shon Oskar – www.VBATools.pl