摘要： 用下面的自定义函数可以将某个单元格中的批注提取到其他单元格中，方法如下： 1.按Alt F11打开VBA编辑器，单击菜单“插入→模块”，在“工程”窗口中会看到Excel插...
用下面的自定义函数可以将某个单元格中的批注提取到其他单元格中，方法如下：
1.按Alt F11打开VBA编辑器，单击菜单“插入→模块”，在“工程”窗口中会看到Excel插入了一个名称为“模块1”的模块。
2.在右侧“模块1”的代码窗口中输入下列代码：
用VBA更改页Excel眉页脚中的日期格式
在Excel中通过自定义页脚的方式在页脚中插入日期时，Excel默认将使用短日期格式，如“2009-10-9”，但大家通常习惯使用“2009年10月9日”这样的长日期格式。Excel没有提供直接的方法在页眉或页脚中修改日期格式。在工作量不大的情况下，可以在页眉或页脚中手工
Function GetComment(rCell As Range)
Application.Volatile ‘将自定义函数标记为易失性函数
Dim Cmt As String
On Error Resume Next
Cmt = rCell.Comment.Text
GetComment = Right(Cmt, Len(Cmt) – InStr(1, Cmt, ":", vbTextCompare))
On Error GoTo 0
End Function
3.关闭VBA编辑器，返回到Excel界面。假如要提取A10单元格中的批注，则在其他单元格中输入公式：
=GetComment(A10)
回车后即可得到A10单元格中的批注内容，注意本自定义函数仅提取批注内容，而不包含批注作者。由于将自定义函数标记为易失性函数，如果A10单元格中的批注被修改，按F9键或当任意单元格进行计算时即可得到修改后的批注内容。
excel中利用VBA保护工作表或撤消工作表保护
在Excel中要对工作表进行保护，可以通过单击菜单“工具→保护→保护工作表”的方法来进行。如果要用VBA来保护工作表或撤消工作表保护，可以用下面的代码： Public Sub Protect_Sheet()‘保护工作表，设置密码为“password&r
