玉树汽车网

      如何通过vba代码将一组单元格区域的批注放到一个单元格里

      发布时间:2020-09-09

      On Error Resume Next
      Range("A1").Comment.Delete '删除批注,On Error Resume Next是为了防止原本没有批注而导致程序崩溃
      Range("A1").AddComment "Comment1" ‘添加批注

      回复:

      方法非常简单,请你一定仔细,按照下面的步骤开始神奇之旅~~~

      第一步、打开你的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、保存所有修改,再次打开,因为太多的窗口怕引起你心烦。

      说明,再次打开的时候可能会提示文件有宏,你要点允许执行,如果根本不提示,说明你的宏安全性设置得太高,需要在选项里面降低安全性到“中”

      回复:

      把 ActiveCell.Comment = "通过VBA多次添加" 这句改成这样,就行了: ActiveCell.Comment.Text Text:="通过VBA多次添加" GoodLuck!

      回复:

      On Error Resume Next Range("A1").Comment.Delete '删除批注,On Error Resume Next是为了防止原本没有批注而导致程序崩溃 Range("A1").AddComment "Comment1" ‘添加批注

      回复:

      亲,写了个VBA代码,查收一下附件。 下面是动画演示,B列存放图片的名称(可以放在别的地方,需要改一下代码);按一下...

      回复:

      Sub Macro1() On Error Resume Next For I = 2 To [A65536].End(3).Row Cells(I, 1) = Cells(I, 1) & " " & Cells(I, 1).Comment.Text Next End Sub 假设运行对象是A列的话 代码如上。

      回复:

      这个很简单的: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub Target.Clea...

      回复:

      方法非常简单,请你一定仔细,按照下面的步骤开始神奇之旅~~~ 第一步、打开你的EXCEL工作薄,最好关闭其它无关的EXCEL文件,按ALT+F11 这一步就只按一个键,就是按住ALT不放,按以下F11,然后立即放开,三秒之内完成 这个步骤成功的标志:新...

      回复:

      你是指 批注 所属于 单元格的位置 , 还是 批注 显示的位置? 你写的好像是 批注 文本框显示的位置

      回复:

      在VBA中,可以利用Range对象的Comment属性判断单元格是否存在批注,如下面的代码所示。 复制内容到剪贴板 代码:#001 Sub HasComment() #002 If Range("A1").Comment Is Nothing Then #003 MsgBox "A1单元格中没有批注!" #004 Else #005 MsgBox "...

      回复:

      给批注加个样式试试.... 在工作表里 样式是批量设置工具

      回复:

      Sub AddComment() For i = 1 To [a65536].End(xlUp).Row '循环到A列最后一个有内容的单元格 If Not Cells(i, "A").Comment Is Nothing Then Cells(i, "A").Comment.Delete Cells(i, "A").AddComment Cells(i, "A").Comment.Text Text:=Cells(i, ...

      上一篇:我是属于什么脸型? 下一篇:这电影叫什么

        返回主页:玉树汽车网

        本文网址:http://0976auto.cn/view-208426-1.html
        信息删除