excel中自动添加单元格内容到批注（应该要用到“VBA或者宏”），高手进来指导下我~

Question

这是我的流程，1.把内容填进单元格中并复制，2.右击显示批注，填上当前时间（每周星期一））再粘贴第一步复制的单元格内容，3.右击隐藏批注，over
这个工作的目的是为了方便知道历史状态。如果有更好的或者别的简单的方法，请赐教！

Answer 1

方法非常简单，请你一定仔细，按照下面的步骤开始神奇之旅～～～

第一步、打开你的EXCEL工作薄，最好关闭其它无关的EXCEL文件，按ALT+F11
这一步就只按一个键，就是按住ALT不放，按以下F11，然后立即放开，三秒之内完成
这个步骤成功的标志：新打开一个窗口，标题是：Microsoft Visual Basic for Application

第二步、在上面打开的VBA窗口里面，按CTRL+R
是的，就这么简单，这一步也就是一个热键
这个步骤成功的标志，在VBA窗口里面的左边出现一个小窗口，标题是“工程-VBAProject”，里面有你打开的所有工作薄、工作表

第三步、先紧张你一下，这一步没有前面两步那么简单，操作稍微复杂一点，请一定仔细
在工程窗口里面，双击你需要自动添加备注的工作表，一定双击，不怕多，最好多击几次，注意你击的时候，会新开一个类似记事本的窗口，窗口标题前面部分是你的EXCEL文件、工作表名称，后面部分是“（代码）”

第四步、在代码窗口粘贴以下内容（以下所有的代码行，直到第五步结束）：

Private Sub Worksheet_Change(ByVal Target As Range)
Dim s
s = Date & " " & Time & ":" & Target.Value
If Not Target.Comment Is Nothing Then
s = Target.Comment.Text & Chr(10) & s
Target.ClearComments
End If
Target.AddComment s
End Sub

第五步、这个步骤其实没有什么需要做的，你现在随便去修改这个表单元格，备注立即会添加
这是个验证步骤，如果结果满意，你可以关闭EXCEL、保存所有修改，再次打开，因为太多的窗口怕引起你心烦。

说明，再次打开的时候可能会提示文件有宏，你要点允许执行，如果根本不提示，说明你的宏安全性设置得太高，需要在选项里面降低安全性到“中”追问

是很神奇~只能说VBA太强大了
不过还不能完全满足我的要求，我只需要将1列实现这个功能，每次会替换这一列单元格的数据，另外，能不能出现个按钮，我同把一列单元格的数据修改好后按下按钮将单元格内容添加进批注中。

追答

你的这些要求为什么不一开始就说清楚呢，而且现在我也没明白你的按钮究竟要做什么，此外你是否已经会了VBA的基本操作，添加按钮这些你能否自己完成，也就是我能否可以只给你代码。

追问

不好意思啊，确实是我疏忽了，没说清楚~~~sorry
现在我只需要给I列和K列添加上标注，请问怎么做呢？基本操作已经会了。为什么想加个按钮呢，其实只想要个功能，如果在单元格填写错误，错误的信息直接就添加进批注了，不方便修改。

追答

如果只想在I、K两列上自动添加批注，给代码里面增加一个IF语句既可，检测Target的列，是I或者K再执行里面的动作，大致如下：

Private Sub Worksheet_Change(ByVal Target As Range)
Dim y,s
y=Target.Column
if y=9 OR y=10 then'A列为1，I列为9，其余的自己计算
s = Date & " " & Time & ":" & Target.Value
If Not Target.Comment Is Nothing Then
s = Target.Comment.Text & Chr(10) & s
Target.ClearComments
End If
Target.AddComment s
end if
End Sub

输入错误的，可以SHIFT+F2修改批注，删除无用的内容既可，添加了按钮反而不方便，因为出错的次数毕竟是少数，多数时候都输入正确，而且记录了多余的内容影响不大。