Question

我有一种情况，其中一个单元格中的文本很大。当我更改此单元格的内容时，前一个值成为对该单元格的注释。现在问题是，这个文本太大了，我看不到完整的文字。如果我使用.Shape.Textframe.Autosize = true那么我必须继续浏览，直到上帝知道何时看到文字。

我需要做的是Commnet.text中的文本无论多么大，我只想在一个地方展示它。当我悬停在评论上时。

Answer 1

弹出文本框怎么样？即，用户点击单元格并出现带有文本的弹出窗体。最棒的是你可以根据需要制作弹出窗口。

就个人而言，我会使弹出窗口可调整大小，但只有顶部的关闭按钮。我想不出用鼠标滚动来触发这个表单的方法，但我只使用2003.后来的版本允许你更多的技巧。

Answer 2

将一个TextBox放在工作表上，调整到你想要的大小，这仍然会读取评论，虽然这不是悬停，但也许会有所帮助

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not ActiveCell.Comment Is Nothing Then

   ActiveSheet.Shapes("Text Box 1").TextFrame.Characters.Text = ActiveCell.Comment.Text
  Else: ActiveSheet.Shapes("Text Box 1").TextFrame.Characters.Text = ""
 End If
End Sub

实际上，在进一步考虑之后，你真的想要根据自己的意愿进行评论。所以我建议Resize all comments in the selected area并在同一个链接的下一页显示活动窗口中心的Excel评论。

这些让你更接近我的想法。

Answer 3

   xlSheet.Range(xlSheet.Cells(rowCount,1), xlSheet.Cells(rowCount,8)).Merge 
   xlSheet.Range(xlSheet.Cells(rowCount,1), xlSheet.Cells(rowCount,8)).HorizontalAlignment = 1
   xlSheet.Range(xlSheet.Cells(rowCount,1), xlSheet.Cells(rowCount,8)).WrapText = True
   xlSheet.Range(xlSheet.Cells(rowCount,1), xlSheet.Cells(rowCount,8)).RowHeight=45

如何在vba中包装comment.text

3 个答案: