时间戳

首页 > 解决方案 > 如何在 VBA 中添加已存在的注释？

excel - 如何在 VBA 中添加已存在的注释？

问题描述

当评论已经存在时，是否可以在单元格中添加评论？我需要将文本添加到现有评论中。我在下面尝试过，但它不起作用...索引，因为这是循环的一部分。有人可以帮助如何轻松完成吗？非常感谢 ：）

                koment2 = Worksheets("x").Cells(n - 1, s).Comment.Text & koment2 & Chr(10) & Worksheets("y").Cells(i, 1) & " "
                Worksheets("x").Cells(n - 1, s).ClearComments
                Worksheets("x").Cells(n - 1, s).AddComment (koment2)

标签： excelvba

解决方案

您可以使用以下代码向具有评论的现有单元格添加评论。

Range("A1").Comment.Text (Range("A1").Comment.Text & "New Edited Comment.")

在你的情况下，它将是

Worksheets("x").Cells(n - 1, s).Comment.Text (Worksheets("x").Cells(n - 1, s).Comment.Text & "New Edited Comment.")

推荐阅读