Question

我正在研究一个Excel工作簿，该工作簿有20张工作表（命名为LAP1至LAP20），最后是一个摘要工作表，名为“摘要”。

摘要表中的LAP No有一列，当前由1到20填充。

当我创建表格LAP21，LAP22 ...时，如何使excel自动更新21、22、23等列？？

Answer 1

添加新工作表后，

Workbook_NewSheet将自动触发。

在工作簿模块上，粘贴以下代码。 -根据需要更改范围A1。

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Dim x As Long
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        x = x + 1
    Next
    Sheets("Summary").Range("A1").Value = x - 1
End Sub

Answer 2

您可以在ThisWorkbook-> NewSheet中创建事件

            <ComboBox 
            x:Name="comboBox"
            ItemsSource="{Binding CharacterSequenceMappings}"
            SelectedValue="{Binding SelectedMapping, Mode=OneWayToSource}"
            >
        </ComboBox>

，如果工作表名称可以是SheetChange上的随机事件

Private Sub Workbook_NewSheet(ByVal Sh As Object)

'your code update sheets list in summary sheet

End Sub

VBA-如果增加图纸数量，建议增加序列号

2 个答案: