Question

我的代码正在检查2张工作表中的单元格值是否不同，如果没有，则继续检查下一行，如果不同则将其从sheet2复制到我需要的单元格值，然后添加到sheet1中的单元格（其中复制的值）也是）具有旧值的评论。每次值再次更改时，都会删除注释并添加新注释。我需要进行评论检查是否存在，并附加旧值以进行评论。我希望注释中包含所有在单元格中更改过的旧值。

这是我的代码：

                        If Not IsEmpty(datasheet.Cells(iData, j).Value) Then
                        comm = user & vbNewLine & "Old Date:" & vbNewLine & ActiveCell.Value
                        datasheet.Cells(iData, j).Copy Destination:=ActiveCell
                        With ActiveCell
                            ActiveCell.Interior.ColorIndex = 0
                            With ActiveCell.Borders
                                .LineStyle = xlContinuous 'Setting style of border line
                                .Weight = xlThin 'Setting weight of border line
                                .ColorIndex = xlAutomatic 'Setting colour of border line
                            End With
                            If Not .Comment Is Nothing Then .Comment.Delete
                                .ClearComments
                                .AddComment
                                .Comment.Text Text:=comm
                                .Comment.Visible = False
                        End With

Excel VBA编辑注释（如果存在）

0 个答案: