Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / нужен совет по работе с двумя книгами одновременно / 7 сообщений из 7, страница 1 из 1
04.08.2008, 06:27
    #35467716
Nomad87
Nomad87
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нужен совет по работе с двумя книгами одновременно
Народ, доброго всем времени суток. есть такая проблема:
существует книга - грубо говоря, входных данных, по ней формируется отчетная книга. после того как я сформировал все таблицы (опять же по шаблону в отчетной книге) и внес в них какие то данные. мне теперь нужно в цикле обращаться к (столбцу) первой книги(входных данных), суммировать другой столбец этой же книги по какому либо условию, записывать результат во вторую книгу (с отчетом), и так далее в цикле.
подскажите как работать с двумя книгами одновременно да ещё и в цикле ... ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.08.2008, 09:24
    #35467883
PlanB
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
| Ответить | Цитировать | Написать  
04.08.2008, 11:29
    #35468306
Nomad87
Nomad87
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нужен совет по работе с двумя книгами одновременно
если задачу поставить точнее то:
есть книга в которой находятся календарный планы работ предприятия
в каждом из которых отображены: этап выполнения, наименование работы(предприятия(если исполняет не наше предприятие)) , срок выполнения, деньги (без ндс, ндс, итого)
у предприятия несколько объектов, так же к одному объекту может быть несколько договоров

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

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

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

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

> (ячейка формата дата) как мне вычленить месяц
Month F1
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.08.2008, 14:53
    #35469009
Nomad87
Nomad87
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нужен совет по работе с двумя книгами одновременно
ага
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / нужен совет по работе с двумя книгами одновременно / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 363ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2161990]:
 0ms
get settings:
 9ms
get forum list:
 19ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 45ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 53ms
get tp. blocked users:
 2ms
others: 215ms
total:  363ms
x
x
Закрыть


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