有没有办法自动调整打开的工作表中包含数据的所有列?我正在寻找一种不依赖于对某个 Excel 文件进行修改,但适用于每个 Excel 文件并在 Excel 启动时运行的解决方案。
最佳答案
您可以使用将接收应用程序事件的对象模块(请参阅 Chip Pearson's website 的更多信息)。
这是您必须复制粘贴到文件 PERSONAL.XLSB
的模块 ThisWorkbook
中的代码:
Option Explicit
Private WithEvents App As Application
Private Sub Workbook_Open()
Set App = Application
End Sub
Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
'Statement to show that it works
MsgBox "Opened Workbook: " & Wb.Name
'Statement to autofit columns
ActiveSheet.UsedRange.Columns.AutoFit
End Sub
您还可以在工作簿工作表上添加循环。
关于Excel:如何在启动时自动调整列?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/8602524/