0

我有一个 Excel 表,它使用滚动条显示数据,此数据随滚动条而变化,某些字段不显示所有数据。我希望它在数据显示在相关行中时根据需要自动调整大小。随着数据在列表中向上或向下移动,该行将自动调整大小,因此它原来的位置会变小,而上方或下方的行将根据滚动条的移动方式进行调整,以适应更大的数据细胞。

我在有问题的工作表中编写了这段代码,认为它会起作用,但它没有......

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

现在我想看到的是,需要注意的是细胞不会低于特定高度,即 36。这只是一个愿望,但我希望它保持这种状态......所以它保持未成形,减去需要扩展以显示更多数据的单元格。

4

1 回答 1

1

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

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

嗯,为什么是循环?

要限制行高,请查看此线程:http ://www.ozgrid.com/forum/showthread.php?t=19813

于 2012-06-07T12:58:41.960 回答