excel表格如何自动加注批注？

Question

如果我在A1单元格填写入内容，比如填写“是”或“否”，则A1格自动会加注出批注且批注为非隐藏状态，批注的内容就是对A1里“是”与“否”的解释，且字体为宋体。
如果要加入代码的话，如何操作，请详述，谢谢了！
自动添加出空批注，且光标停留在批注里，等待编者写入内容的状态。

Answer 1

在word中做好注音，复制到excel中
word-选定文字-格式-中文版式-拼音指南-确定。
选定文字-复制-切换到excel-粘贴
格式不可调

Answer 2

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
Target.AddComment
Target.Comment.Visible = True
Target.Comment.Text Text:=Target.Value & ":" & Chr(10) & ""
End If
End Sub追问

大师啊，我是菜鸟，咋弄啊，真的不懂哟！
这些代码是啥意思，怎么加进去啊？

追答

按Alt+F11打开VBA编辑器，左边找到你要批注的表格并双击它，右边出现编辑框，把代码粘贴到里面即可，当你在这个工作表的A列输入数据后，就自动添加了批注且是显示状态的，批注的第一句话就是单元格的数据，解释你自己添加即可。

追问

大师的代码真的不错，我用了一下很好，因为我想在excel表的K、N、Q、T、W、Z、AC、AF列所有单元格内同时设置成这样格式，所以我就想在你给的代码中进行修改，可是不行啊！
因为我的等级低，不能将图片上传给你看，请问这样的代码如果修改啊！

追答

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 11 Or Target.Column = 14 Or Target.Column = 17 Or Target.Column = 20 _
Or Target.Column = 23 Or Target.Column = 26 Or Target.Column = 29 Or Target.Column = 32 _
And Target.Count = 1 Then
Target.AddComment
Target.Comment.Visible = True
Target.Comment.Text Text:=Target.Value & ":" & Chr(10) & ""
End If
End Sub

本回答被提问者采纳

Answer 3

哇，太复杂了，你就自己加咯，在拉下来咯