Возьмите комментарий Клетки и сохраните его в строку varable

Question

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

dim myval as string
dim cmt as comment

Sheets("DData").Activate
set cmt = [H4].comment
myval = cmt.comment
Sheets("Generated Profile").Activate
cells(24,7) = myval

Это моя форма:

И это моя страница данных рабочей книги:

любая помощь будет принята с благодарностью, это мой первый пост здесь, так что если я неправильнопожалуйста, перенаправьте меня.

спасибо.

Answer 1

Я понял, что я нажал на вводе кода, когда

myval = cmt.comment

должно быть

myval = cmt.text 

, хотя следует отметить, что Даррелл h (приведенный ниже дает лучший результат)решение) вот их код.

Sheets("Generated Profile").Cells(24,7) = Sheets("DData").Cells(4,8).Comment.Text

"Много происходит между ... Листами (" Генерируемый профиль "). Ячейки (24,7) = Листы (" DData "). Ячейки (4, 8) .Comment.Text. Нет необходимости активировать дважды или установить промежуточные значения. "- Даррелл Х

Answer 2

Попробуйте что-то вроде этого:

Dim comment As String
comment = Range("A1").comment.Text

Замена ячейки выше на любую ячейку, которую вы хотите.