Ошибка выполнения 1004 при добавлении комментариев к ячейкам с помощью VBA в Excel - PullRequest
Новая
       0

Ошибка выполнения 1004 при добавлении комментариев к ячейкам с помощью VBA в Excel

0 голосов
/ 27 декабря 2018

Я получаю ошибку во время выполнения Excel VBA 1004: ошибка приложения или объекта при добавлении комментария к диапазону ячеек Excel с помощью VBA.

Текст комментария получен изuserform: 

    Description = TextBox1.Value
    StartTime = TextBox2.Value
    EndTime = TextBox3.Value


InputText = StartTime & " - " & EndTime & "  " & Description
MsgBox (InputText)

Эта часть прекрасно работает.После этого есть некоторый код для форматирования ячеек.В конце VBA должен добавить комментарий к каждой ячейке. 

Dim Cell As Range
For Each Cell In Selection
    Cell.AddComment
        Cell.Comment.Visible = False
        Cell.Comment.Text Text:=InputText  **'// ERRORLINE//**
    Next Cell

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

Dim Cell As Range
For Each Cell In Selection
    'Cell.Comment.Delete
    Set Comment = Cell.Comment
        Cell.Comment.Visible = False
        Cell.Comment.Text Text:=InputText

        Next Cell

Что работает без проблем: 

Dim Cell As Range
For Each Cell In Selection
    'Cell.Comment.Delete
    Set Comment = Cell.Comment
        Cell.Comment.Visible = False
        Cell.Comment.Text Text:="InputText"

        Next Cell

Что вызывает эту ошибку?

1 Ответ

0 голосов
/ 27 декабря 2018

очистить комментарий перед добавлением нового: 

For Each cell In Selection
    With cell
        .ClearComments
        .AddComment
        .Comment.Visible = False
        .Comment.Text Text:=InputText
    End With
Next cell
...