作者:乔山办公网日期:
返回目录:excel表格制作
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rng As Range '所选单元格zhidao右侧的单元格
Set rng = ActiveSheet.Cells(Target.Column, Target.Row + 1)
If Not (Target.Comment Is Nothing) Then '如果所选单元格有专批注内容,就在其属右侧单元格显示
rng.Value = Target.Comment.Text
End If
End Sub
在EXCEL中按ALT+F11组合键,调出VBA窗口,插入一个模块,把下面代码复制进去。来
Sub 导出批注自()
On Error Resume Next
Set s = Range("a1:C10") '读取批注的范围
For Each t In s
t.Value = t.Comment.Text
Next
End Sub
回到EXCEL窗口,按“工具-宏-宏”,在对话框选“导出批注”宏执行即可。zd
说明:执行后,如果某格中有批注,就把批注内容放入该单元格中,单元格中的原内容会被删除。
注意执行前做好数据备份
比如将A1:F1设置为批复注制
Sub 添加批注()
'将A1:f1单元格内容设知置为道该格批注
Dim t As String
For i = 1 To 6
t = Cells(1, i)
Cells(1, i).AddComment (t)
Next
End Sub
1、首先,我们打开一个excel文档,然后知我们选中其中的一个单元格;
2、之后我们右击道选专择插入批注;
3、然后我们在批注中输属入内容,之后点击表格中的任意空白位置,这样批注就插好了;
4、然后我们右击插入批注的这个单元格,然后右击选择显示/隐藏批注;
5、之后我们就可以看到批注被显示出来了。