excel中自动添加满足条件的单元格内容到批注
发布网友
发布时间：2022-04-22 09:52
共2个回答
热心网友
时间：2023-06-28 00:17
第一步、打开你的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、保存所有修改，再次打开，因为太多的窗口怕引起你心烦。
说明，再次打开的时候可能会提示文件有宏，你要点允许执行，如果根本不提示，说明你的宏安全性设置得太高，需要在选项里面降低安全性到“中”
热心网友
时间：2023-06-28 00:17
