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

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

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

  • Формула для добавления минут до даты + времени в Excel
  • Excel. Как vlookup вернуть несколько значений?
  • Вычисление разницы во времени hh: mm: ss format
  • Пакетное преобразование XLS в XLSX
  • Массовое преобразование .xls и .xlsx в .txt (вкладка с разделителями) на Mac
  • Сравнение двух строк в Excel?
  • Использование условного совпадения условно для определения того,
  • Что такое формула excel, которая вернет мне последний номер строки ячейки в пределах диапазона, который содержит конкретные данные?
  • Сохранение файла в формате CSV в Excel всегда удаляет спецификацию
  • Как объединить значения из нескольких строк в одну строку с помощью модуля?
  • Вычисление разницы во времени между двумя датами / временами из двух столбцов в Excel
  • Excel исчерпал ресурсы, пытаясь вычислить одну или несколько формул
  • One Solution collect form web for “Excel – автоматически импортировать данные из ячейки при создании новой вкладки”

    Что-то вроде этого создаст список в столбце A листа 1 имен листов и каждый раз, когда ячейка C1 на любом листе изменится, она поместит значение этой ячейки в лист 1 в столбце 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 options и в популярном теге, поместите галочку в поле рядом с Show Developer tab in the Ribbon . Затем закройте это, перейдите на вкладку «Разработчик» и нажмите кнопку « Visual Basic в крайнем левом углу. Редактор откроется, и вам нужно будет дважды щелкнуть модуль ThisWorkbook на левой панели.

    Давайте будем гением компьютера.