滚动数据,需要在新数据显示时进行文本换行重新换行

时间:2012-06-07 12:14:18

标签: excel-vba vba excel

我有一张excel表,它使用滚动条显示数据,这些数据随滚动条而变化,某些字段不显示所有数据。我希望将数据显示在有问题的行中,并根据需要自动重新调整大小。当数据在列表中向上或向下移动时,行将自动调整大小,以便返回到较小的大小,并且根据滚动条的移动方式在上方或下方的行将被调整以适应更大的数据。细胞。

我在工作表中写了这个代码,认为它会起作用,但它不会......

Option Explicit
Private Sub Workbook_Open()
Rows("2:12").EntireRow.AutoFit
Loop
End Sub

现在我想看到的是一个警告是细胞不会在特定的高度下,这是36。这只是一个需要,但我希望看到它保持这种状态。 ..因此它保持不变形,减去需要扩展以显示更多数据的单元格。

1 个答案:

答案 0 :(得分:1)

首先,为要应用自动调整的工作簿和工作表命名。 例如。

thisworkbook.sheets("Name").rows("2:12").entirerow.autofit

嗯,为什么循环?

要对行高设置限制,请查看以下主题:http://www.ozgrid.com/forum/showthread.php?t=19813