powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / нужен совет по работе с двумя книгами одновременно
7 сообщений из 7, страница 1 из 1
нужен совет по работе с двумя книгами одновременно
    #35467716
Nomad87
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Народ, доброго всем времени суток. есть такая проблема:
существует книга - грубо говоря, входных данных, по ней формируется отчетная книга. после того как я сформировал все таблицы (опять же по шаблону в отчетной книге) и внес в них какие то данные. мне теперь нужно в цикле обращаться к (столбцу) первой книги(входных данных), суммировать другой столбец этой же книги по какому либо условию, записывать результат во вторую книгу (с отчетом), и так далее в цикле.
подскажите как работать с двумя книгами одновременно да ещё и в цикле ... ?
...
Рейтинг: 0 / 0
нужен совет по работе с двумя книгами одновременно
    #35467883
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Private Sub Wb2()
'Запомнили название старой книги
naz1 = ActiveWorkbook.Name
 nnn = Application.GetOpenFilename
'Выбираем название новой книги
If nnn = False Then
    End
End If
'Открываем книгу
Workbooks.Open nnn,  0 
'Запомнили название новой книги
naz2 = ActiveWorkbook.Name
'ищем в старой книге нижнюю границу 1 столбика
n1 = Workbooks(naz1).Sheets( 1 ).Range("A1").End(xlDown).Row
'n1 = Workbooks(naz2).Sheets(1).Range("A1").End(xlDown).Row
For i% =  1  To n1
    'if workbooks(naz1).Cells(n1, 1) ''Ваше условие'' then
        Workbooks(naz1).Cells(n1,  1 ) = Workbooks(naz2).Cells(i,  1 )
Next
'False отвечает за сохр. изменений
Workbooks(naz2).Close '(False)
End Sub

Примерно так, я просто вопрос не совсем понял.
Надо точнее задачу поставить...
...
Рейтинг: 0 / 0
нужен совет по работе с двумя книгами одновременно
    #35468306
Nomad87
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
если задачу поставить точнее то:
есть книга в которой находятся календарный планы работ предприятия
в каждом из которых отображены: этап выполнения, наименование работы(предприятия(если исполняет не наше предприятие)) , срок выполнения, деньги (без ндс, ндс, итого)
у предприятия несколько объектов, так же к одному объекту может быть несколько договоров

мы создаем книгу в которой сразу есть 12 листов (по количеству месяцев) и нам нужно календарные планы по каждому объекту раскидать по месяцам.

соответственно я сделал n таблиц(по колву объектов) в каждую поместил - объект, этап выполнения, тид договора(всего 3), номер договора, стоимость

графы - объект, тип договора, номер договора я заполнил, и обошелся массивами
а вот с "этапами выполнения", "стоимостью" возникли проболемы потому как необходимо смотреть по датам, а соответственно смотреть сначала в исходной книге, копировать название этапа, складывать деньги потом записывать в книгу с отчетом, и идти дальше по этапам и по договорам

довольно сумбурно, но надеюсь более понятно и полно чем было
...
Рейтинг: 0 / 0
нужен совет по работе с двумя книгами одновременно
    #35468349
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ну так и обращайся к исходной книге как
Код: plaintext
1.
Workbooks(naz1).cells()
а к новой как
Код: plaintext
1.
Workbooks(naz2).cells()
И 2 вложенных щётчика
1 для кол-ва дат, а 2 для суммы значений под это датой
...
Рейтинг: 0 / 0
нужен совет по работе с двумя книгами одновременно
    #35468396
Nomad87
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
спасибо огромное, а может вы знаете как
осуществить поиск типа - у меня в столбце 1-й этап, 2-й этап итд
я думаю искать "-й этап" и уже смотреть когда он происходит и копировать значения
как искать подстроку в строке
и ещё такой вопрос
вот когда я нахожу дату (ячейка формата дата)
как мне вычленить месяц (может есть какая то встроенная функция выбора месяца из даты)?
заранее спасибо.
...
Рейтинг: 0 / 0
нужен совет по работе с двумя книгами одновременно
    #35468895
Фотография ДмиДми
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
> как искать подстроку в строке
Find F1

> (ячейка формата дата) как мне вычленить месяц
Month F1
...
Рейтинг: 0 / 0
нужен совет по работе с двумя книгами одновременно
    #35469009
Nomad87
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ага
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / нужен совет по работе с двумя книгами одновременно
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]