Question

我正在使用下面的代码自动缩放选定范围的工作表。但是我有很多额外的工作表，所以如何将这个代码用于所有工作表而不是写下他们的名字。

问候。

代码：

Sub Workbook_Open()
Sheets("Configuration").Activate
Range("A1:AA1").Select
ActiveWindow.Zoom = True
Range("A1").Select
End Sub

Answer 1

您可以循环播放所有表格。

if( !$.trim( $('#leftmenu').html() ).length ) {

Answer 2

您可以选择范围和工作表，然后缩放：

Sub Test()
    Sheets("Sheet1").Activate
    ActiveSheet.Range("A1:AA1").Select
    Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
    ActiveWindow.Zoom = True
    Sheets("Sheet1").Select    'removed the selection/grouping
End Sub

（这仍需要他们的名字，但不需要单独处理。）

如果是全部工作表，那么您可以使用Worksheets.Select作为第三个声明。

Answer 3

试试这个：

void showInSnackBar(String value) {
scaffoldKey.currentState
    .showSnackBar(new SnackBar(content: new Text(value)));}

如何在Excel VBA中为所有工作表选择相同的范围？

3 个答案: