Подскажите, пожалуйста, возможно ли связать таблицы из разных книг. таблицы разных форм. Нужно чтоб информация бралась с книги отчёт и переносилась в книгу табель.
в книге табель у каждого имени табельный номер, такой же как и в книге отчеты. Нужно чтоб из книги отчеты брались часы и вставлялись по датам нужного табельного номера.
Добрый вечер!
Подскажите, пожалуйста, возможно ли связать таблицы из разных книг. таблицы разных форм. Нужно чтоб информация бралась с книги отчёт и переносилась в книгу табель.
в книге табель у каждого имени табельный номер, такой же как и в книге отчеты. Нужно чтоб из книги отчеты брались часы и вставлялись по датам нужного табельного номера.ТАМИК
Формулами не знаю... А вот макрос уже наполовину готов. [spoiler] [vba]
Код
Sub tt() Dim c As Range, t As String, k
With CreateObject("Scripting.Dictionary")
For Each c In Range([a3], Cells(Rows.Count, "A").End(xlUp)).Cells If IsDate(c) Then .Item(t & "|" & Day(c)) = c.Offset(, 5) Else If IsNumeric(c) Then t = c End If Next
For Each k In .keys Debug.Print k & "-" & .Item(k) Next
End With End Sub
[/vba] Осталось приладить цикл по графику. Но макрос не заказывали...
Формулами не знаю... А вот макрос уже наполовину готов. [spoiler] [vba]
Код
Sub tt() Dim c As Range, t As String, k
With CreateObject("Scripting.Dictionary")
For Each c In Range([a3], Cells(Rows.Count, "A").End(xlUp)).Cells If IsDate(c) Then .Item(t & "|" & Day(c)) = c.Offset(, 5) Else If IsNumeric(c) Then t = c End If Next
For Each k In .keys Debug.Print k & "-" & .Item(k) Next
End With End Sub
[/vba] Осталось приладить цикл по графику. Но макрос не заказывали...Hugo
Доработать нет проблем (только с временем пока туго), вопрос в чём - нужно ли тратить время на доработку, ибо вопрос был про формулы, может макросам категорически нет... Потому и не продолжил.
Доработать нет проблем (только с временем пока туго), вопрос в чём - нужно ли тратить время на доработку, ибо вопрос был про формулы, может макросам категорически нет... Потому и не продолжил.Hugo
Для xls длина формулы не должна быть больше 255 символов, поэтому засунул все это в именованный диапазон (Контрл F3). И специально для проверки сделал длинное название файла отчеты - Dlinnoe nazvanie faila Для 2007 и выше можно прямо в ячейку
Да, файл Отчет можно не открывать, Табель будет брать значения и из закрытого файла
Если в файле Отчеты перенести все серые ячейки с текстом из столбца А в столбец В, то формулой так можно
Для xls длина формулы не должна быть больше 255 символов, поэтому засунул все это в именованный диапазон (Контрл F3). И специально для проверки сделал длинное название файла отчеты - Dlinnoe nazvanie faila Для 2007 и выше можно прямо в ячейку
Да, файл Отчет можно не открывать, Табель будет брать значения и из закрытого файла_Boroda_
Ну а я макрос наконец дописал, закончив домашние дела... Порядок работы такой - открыли отчёт, открыли этот файл, при активном листе с табелем по Alt+F8 выполняете макрос "ЗаполнитьТабель". Там в начале нужно кликнуть мышью на том листе отчёта, где нужные данные - смотрите не ошибитесь, месяц никак не анализируется, хотя конечно можно бы сделать... Но зачем?
Ну а я макрос наконец дописал, закончив домашние дела... Порядок работы такой - открыли отчёт, открыли этот файл, при активном листе с табелем по Alt+F8 выполняете макрос "ЗаполнитьТабель". Там в начале нужно кликнуть мышью на том листе отчёта, где нужные данные - смотрите не ошибитесь, месяц никак не анализируется, хотя конечно можно бы сделать... Но зачем? Hugo
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
