Excel - импорт данных из ячейки автоматически при создании новой вкладки

Я работаю над электронной таблицей, обобщающей данные стандартных шаблонов, вставленных в совместный файл Excel в виде отдельных вкладок.

Можно ли автоматически импортировать данные из указанной ячейки в сводную вкладку при создании новой вкладки? Поскольку данные, которые я хочу извлечь, находятся в одной и той же ячейке в каждом документе, это сэкономит мне много времени и усилий

Источник

1 ответ

Примерно так будет создан список в листе А1 столбца А имен листов и каждый раз ячейка C1 при любых изменениях листа он помещает значение этой ячейки в sheet1 в столбце B, рядом с соответствующим именем листа в столбце A

Это идет в ThisWorkbook модуль через редактор VBA *. Вы можете изменить имя листа и диапазоны по мере необходимости.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Not Intersect(Target, Sh.Range("C1")) Is Nothing Then
        Dim ws As Worksheet
        Set ws = Sheets("Sheet1")
        Dim iRow As Integer
        On Error GoTo Yikes:
TryAgain:
        iRow = Application.WorksheetFunction.Match(Sh.Name, ws.Range("A1:A50"), 0)
        ws.Cells(iRow, 2) = Target.Value
        Exit Sub

Yikes:

        Dim rowcount As Integer
        rowcount = ws.Cells(Rows.Count, 1).End(xlUp).Row
        Dim r As Range
        Set r = ws.Cells(rowcount + 1, 1)
        r = Sh.Name
        GoTo TryAgain:
    End If
End Sub

* Чтобы попасть в редактор VBA, необходимо перейти к кнопке office, параметрам Excel и в популярном теге поставить галочку в поле рядом с Show Developer tab in the Ribbon , Затем закройте его, перейдите на вкладку разработчика и нажмите Visual Basic Кнопка слева. Откроется редактор, и вам нужно будет дважды щелкнуть ThisWorkbook Модуль на левой панели.

Источник
Другие вопросы по тегам