excel 提取批注的方法,都是通过VBA代码完成提取的

时间:2022-08-21 09:09:26 

excel提取批注内容到单元格,使用excel内置命令无法完成。

excel提取批注方法一:

比如下图所示A2:A9单元格区域都添加了批注,将这些批注内容提取到C2:C9单元格区域里面。比如A2单元格的批注内容是:没有销量,对应的C2单元格显示的内容就是:没有销量。

excel 提取批注的方法,都是通过VBA代码完成提取的

excel提取批注的操作步骤如下:

按ATL+F11,打开VBE编辑器,单击插入——模块,复制粘贴下面的代码到右边的编辑窗口。然后回到excel工作表,在C2单元格输入公式:=pizhu(A2),下拉复制即可提取批注。

Public Function pizhu(i As Range)
  pizhu = i.Cells.Comment.Text
End Function

通过编写上面的自定义函数来提取批注,可方便的调用,就如同使用普通公式一样使用。

excel 提取批注的方法,都是通过VBA代码完成提取的

使用上面的这个提取批注的不完美之处在于,如果原有单元格的批注内容编辑更新后,上面的方法不会自动更新,只有双击重新编辑单元格公式才会更新。如果需要自动更新可以在代码前面添加一句:Application.Volatile True   '自定义函数自动刷新。

修改后代码如下:

Public Function pizhu(i As Range)
   Application.Volatile True   '自定义函数自动刷新
  pizhu = i.Cells.Comment.Text
End Function

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

返回到Excel工作表,比如要提取A2单元格的批注内容,则在C2单元格输入公式: =GetComment(A2)即可提取批注。

提示:此自定义函数仅提取批注内容,而不包含批注作者。由于将自定义函数标记为易失性函数,如果A2单元格中的批注被修改,按F9键或当任意单元格进行计算时即可得提取到修改后的批注内容。

标签:excel提取批注
0
投稿

猜你喜欢

  • win10系统无法打开网页如何解决?win10系统网络连接正常却无法浏览网页怎么办?

    2023-08-19 18:19:09
  • 怎样快捷方便的将ppt转换成word

    2022-08-03 18:32:15
  • PDF文档如何提取图片?抠出PDF中的好图5个方法分享

    2023-08-04 05:07:22
  • Excel2013工作表页边距的设定方法

    2023-06-03 03:18:52
  • iOS 14 的 5 个细节变化

    2023-11-28 23:00:16
  • WPS怎么上传文件到云文档

    2023-12-01 02:23:09
  • word2016替换文字时怎么区分大小写?

    2022-04-10 22:34:27
  • excel EDATE函数与EOMONTH函数用法解析

    2023-09-29 20:58:05
  • 通过web查询的方法获取网络上的数据

    2022-05-27 19:09:18
  • iOS 16 新增“防止锁定结束通话”选项,避免不小心挂断重要电话

    2023-06-30 06:05:45
  • excel函数查找第5个反斜杠的位置

    2022-06-12 11:37:08
  • win10字体安装后怎么使用

    2023-11-10 18:10:42
  • Sum函数的常用方法

    2023-11-15 17:02:40
  • ​Excel怎么根据考核和出勤计算有没有奖金

    2022-08-15 16:36:00
  • word里面文字为什么会自动另起一行

    2023-11-11 23:44:55
  • 怎么快速打印excel表格?excel快速打印表格方法

    2022-08-08 10:39:09
  • Word下划线怎么删除?Word删除下划线的方法

    2022-12-20 06:55:08
  • Excel公式一列数剩一个固定数怎么制作?

    2022-06-16 16:07:00
  • 怎么用Execl公式快速计算股票的利润?

    2022-09-01 01:31:17
  • excel中翻译功能怎么使用

    2022-11-12 08:02:02
  • asp之家 电脑教程 m.aspxhome.com