Могу ли я напечатать содержимое ячейки с комментариями к ячейке в конце листа?

Как распечатать содержимое ячейки с комментариями вместе с комментариями к ячейке в конце листа? Я знаю, как напечатать комментарии в конце, но можно ли добавить содержимое ячейки?

Пример:

Ячейка E96 в моей рабочей таблице содержит: "Удалить штормовые окна"

Комментарий к ячейке E96: "6 окон плюс 1 маленький... скажем.5 часов каждое = 3,5 часа"

Когда я печатаю лист с комментариями, добавленными после листа, я получаю:

Сотовый | E96

Комментарий | 6 окон плюс 1 маленький... скажем.5 часов каждое = 3,5 часа

Я бы тоже хотел добавить туда содержимое ячейки с комментариями, например так:

(или что-то подобное, я гибкий)

Сотовый | E96 Удалить штормовые окна

Комментарий | 6 окон плюс 1 маленький... скажем.5 часов каждое = 3,5 часа

Источник

2 ответа

Решение

Я взял код из ссылки chuffs и исправил некоторые ошибки.

Макрос извлекает адрес ячейки, значение ячейки, автора, текст комментария из всех закомментированных ячеек и записывает их на новый лист. Этот лист можно распечатать отдельно от вашего обычного листа.

  • откройте свою рабочую книгу и нажмите ALT+F11
  • вставьте приведенный ниже код в Sheet1 или новый модуль
  • закройте редактор VBA и вернитесь к листу с вашими комментариями
  • нажмите ALT+F8 и выполните макрос
Sub ListComments()
Application.ScreenUpdating = False

    Dim X As Long, RngName As String, newwks As Worksheet, curwks As Worksheet

    Set curwks = ActiveSheet
    If curwks.Comments.Count Then

        Set newwks = Worksheets.Add
        newwks.Range("A1").Resize(1, 4) = Array("Address", "Cell Value", "Author", "Comment")

        On Error Resume Next
        For X = 1 To curwks.Comments.Count
            With curwks.Comments.Item(X)
                newwks.Range("A1").Offset(X, 0).Resize(1, 4) = _
                    Array(.Parent.Address(False, False), .Parent.Value, .Author, .Text)
            End With
        Next
    End If

Application.ScreenUpdating = True
End Sub
Источник

Я не уверен, что это поможет вам, но вы можете попробовать CTRL V, он должен копировать формулы, значения и т. Д. Я не знаю, будет ли это делать то, что вы хотите, но думал, что вы можете попробовать это, если вы не уже известно об этой функции.

Источник
Другие вопросы по тегам