Se usi un po ‘di commenti nei tuoi fogli di lavoro, potresti chiederti se esiste un modo per stampare i commenti, ma senza il nome ei due punti che normalmente precedono ogni commento. Sfortunatamente, non esiste un modo integrato per eseguire ciò in Excel. Tuttavia, una macro può essere utilizzata per estrarre rapidamente tutti i commenti da un foglio di lavoro e inserirli nel proprio foglio di lavoro. Questo foglio di lavoro potrebbe quindi essere stampato, in quanto costituirebbe un compendio di tutti i commenti. La macro è la seguente:

Sub Workbook_BeforePrint(Cancel As Boolean)

myCount = 0     For Each c In ActiveSheet.Comments         myCount = myCount + 1         myComment = ActiveSheet.Comments(myCount).Text         Sheets(2).Range("a1").Offset(myCount, 0).Value = _           Mid(myComment,InStr(myComment, Chr(10)))

Next End Sub

Questa macro inserisce i commenti sul secondo foglio di lavoro in una cartella di lavoro, quindi se li vuoi su un foglio di lavoro diverso (in modo da non sovrascrivere le informazioni già sul secondo foglio) dovrai apportare una modifica all’oggetto Fogli (2) .

Si noti inoltre che il nome della macro è Workbook_BeforePrint. Ciò significa che la macro verrà eseguita ogni volta che si va a stampare il foglio di lavoro.

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti ExcelTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

ExcelTips è la tua fonte di formazione economica su Microsoft Excel.

Questo suggerimento (2521) si applica a Microsoft Excel 97, 2000, 2002 e 2003. Puoi trovare una versione di questo suggerimento per l’interfaccia a nastro di Excel (Excel 2007 e versioni successive) qui:

Adjusting Comment Printouts.