excel - Excel 注释不会停留在单元格附近

Question

我有一个像数据库一样使用的电子表格 - 我根据我的需要对它进行了很多不同的排序。我在一些单元格中有评论。当我单击“显示评论”时，评论有时会在它所连接的单元格下方超过一千行。查看屏幕截图：

我想查看我的评论并点击显示评论 - 它就在下面：

我向下滚动并向下滚动近 1000 行 - 就是这样！大小已更改为几乎不可见，现在我必须调整大小并将其拖回。

现在我已经把它备份并重新调整大小。为什么要这样做，阻止它的最佳做法是什么？我搜索了这个答案，但没有找到与我的问题类似的任何内容。

标签： excel

Answer 1

我添加到由@cybernetic.nomad 共享的extendoffice 代码中，还可以将评论框的大小调整为评论的大小，而不是大或小。然后我添加了

Application.screenupdating=False 

命令从头开始，因为我的工作表很大，所以运行代码很慢。这是我的决赛：

Sub ResetComments()
'move comments back to parent cell and autosize

Dim pComment As Comment

Application.ScreenUpdating = False
For Each pComment In Application.ActiveSheet.Comments
   pComment.Shape.Top = pComment.Parent.Top + 5
   pComment.Shape.Left = pComment.Parent.Offset(0, 1).Left + 5
   pComment.Shape.TextFrame.AutoSize = True
Next
End Sub

谢谢大家！我一直在寻找一种防止移动评论的方法，但这很容易解决！