VBA Tools

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

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