ВОПРОС ПО EXCEL

[S.V.A.T.]

Други помогайте, голову сломал! Есть рабочая книга экселевская, в которой ведутся расчеты на отдельных листах. Листов уйма. Надо по данным этих расчетов построить графики и произвести доп расчеты, для этого я создал еще один лист в который надо занести данные (4 значения) со всех листов книги. Как это сделать? Нужные данные находятся в одних и тех же ячейках на всех листах. Вроде решение на поверхности, а додумать не могу, хочется что то типа автозаполнения. Подсобите пожалуйсто советом, решением...
З.ы копи пэйст не предлагать!
Заранее благодарен!

[Mex@niK]

З.ы копи пэйст не предлагать!

Вообще советую на профильных форумах поспрашать.. а так насколько мне извесно вроде Костик с оффисом дружит (Notus Vivendis) хотя могу и ошибацо...

[And-Drew]

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

[Serg_M]

Если правильно понял - делаешь в начале все операции с одним листом с которого считываешь данные, а потом аналогично меняешь Лист А на Лист Б и всё... Или я не понял проблему...

[And-Drew]

=Лист2!$Y$X+Лист1!$Y$X

вот формула расчета данных для 2 страниц находящаяся на 3 странице

y- название столбца
х- номер строки
так вроде.

[smirnoff]

Мож не правильно понял проблему, но...


Если допустим на листе 3 надо в какой нить ячейке отобразить значение (или использовать в формуле) ячейки А1 с Листа 1, то просто ставиш полную ссылку на ячайку.

=Лист1!A1

[S.V.A.T.]

=Лист2!$Y$X+Лист1!$Y$X

вот формула расчета данных для 2 страниц находящаяся на 3 странице

y- название столбца
х- номер строки
так вроде.

не, это ясно, мне главное нужные данные со всех листов перетащить на один.

[zlobus]

Что надо не очень понял, значения скопировать с одного листа на другой?
Если ячейки одни и те же, напиши макрос на васике из трех строк
Вот тебе пример как скопировать данные из ячейки A1 с трех листов в столбик на четвертый.
Sub Macro1()

Sheets("Sheet4").Cells(1, 1).Value = Sheets("Sheet1").Cells(1, 1).Value
Sheets("Sheet4").Cells(2, 1).Value = Sheets("Sheet2").Cells(1, 1).Value
Sheets("Sheet4").Cells(3, 1).Value = Sheets("Sheet3").Cells(1, 1).Value
End Sub

У объекта Sheet в скобках название листа, у объекта cells в скобках позиция - первое число строка, второе столбец.

[And-Drew]

=Лист1!A1+0

а если так? вроде тупо, но работает))))
т.е. к значению из ячейки с другого листа прибавляем 0...

Добавлено спустя 4 минуты 44 секунды:

... и без прибавления 0 работает..
че-та не понимаю..

[S.V.A.T.]

Что надо не очень понял, значения скопировать с одного листа на другой?
Если ячейки одни и те же, напиши макрос на васике из трех строк
Вот тебе пример как скопировать данные из ячейки A1 с трех листов в столбик на четвертый.
Sub Macro1()

Sheets("Sheet4").Cells(1, 1).Value = Sheets("Sheet1").Cells(1, 1).Value
Sheets("Sheet4").Cells(2, 1).Value = Sheets("Sheet2").Cells(1, 1).Value
Sheets("Sheet4").Cells(3, 1).Value = Sheets("Sheet3").Cells(1, 1).Value
End Sub

У объекта Sheet в скобках название листа, у объекта cells в скобках позиция - первое число строка, второе столбец.

это то что надо, вот только листов у меня 200. Это каждый прописывать! Не пойдеть. Надо массивом.

[zlobus]

Есть такая вещь - цикл
Ячейка одна и та же на каждом листе, откуда копировать надо? Количество листов - фиксированное? В каком виде вставлять на последний лист? С толбик? В строчку? В определенные ячейки?

Добавлено спустя 5 минут 2 секунды:

Вот пример для копирования данных с 199 листов из ячейки 1А в каждом на 200 лист в столбик.

Sub Macro1()
Dim i As Integer
For i = 1 To 199
Sheets(200).Cells(i, 1).Value = Sheets(i).Cells(1, 1).Value
Next i
End Sub

[S.V.A.T.]

Данные беруться из одной и тойже ячейки на всех 200 листах. Вставить надо на лист в столбик. Вставить надо начинать с ячейки B2. Количество листов растет 1 в день, т.е. На год.

[zlobus]

S.V.A.T.
Ясно. Вот, количество листов задвать не надо, соберет со всех и вставит в стоблик в последний начиная с ячейки B2 и вниз
Sub Macro1()
Dim i As Integer, SheetsQuantity As Integer

SheetsQuantity = Sheets.Count
For i = 1 To SheetsQuantity - 1
Sheets(SheetsQuantity).Cells(i + 1, 2).Value = Sheets(i).Cells(1, 1).Value
Next i
End Sub

[S.V.A.T.]

Чета я ваще паник... Открываю васю, слева в окне листы (лист1 общий, а данные на листах с Лист287 по Лист455). Данные находятся на листах в ячейке F14. Все забил как ты написал, но ничего не рулится(

[Kronus]

Чета я ваще паник... Открываю васю, слева в окне листы (лист1 общий, а данные на листах с Лист287 по Лист455). Данные находятся на листах в ячейке F14. Все забил как ты написал, но ничего не рулится(

Проще всего если ты дашь пример файлика, сделаешь все там ручками (на небольшом объеме) и алгоритм твоей работы ручками опишешь - остальное быстро сделают, желающие.

[zlobus]

Ты макрос то запускаешь? Запустить можно или из васика, когда не него встанешь, кнопка "воспроизведения" в панели сверху, или из меню макросов в екселе (tools->macro>macros..->run). Или если хочешь сделать цивильно, могу объяснить как нарисовать кнопку на листе и на ее нажатие запускать макрос. Или на какое то еще событие, например открытие этого файла.

[S.V.A.T.]

Все, родил! Респект дружище!

Добавлено спустя 5 минут 33 секунды:

За кнопку я не расквитаюсь с тобой! Это было ваще круто! Пасиб!

[zlobus]

За кнопку я не расквитаюсь с тобой! Это было ваще круто! Пасиб!

Да не за что, это делать 5 сек.
Открой нужный тулбар в екселе (View->Toolbars->Control Toolbox), там всякие контролы есть. Тебе нужна кнопка Command Button. Рисуешь ее на листе где хочешь, надпись на кнопке меняешь в ее свойствах, еще можешь тип курсора когнда подводишь к ней изменить и т.п. Затем 2 раза кликаешь на этой кнопке и попадаешь в бейсике в обработчик события на нажатие этой кнопки, туда вставляешь свой код, запускаешь один раз этот макрос ручками, затем бейсик закрываешь и сохранеяшь файл чтоб она начала работать.

[S.V.A.T.]

Еще момент, если мне надо таким образом грузануть еще несколько данных, то я просто пишу в том же окне ниже тот же макрос в нужном количестве меняя только параметры?

[AlexETi]

S.V.A.T.
Совет тебе дам ценный.
Есть в экселе такая чудо вещь как запись макроса. Жмешь ее делаешь определенные действия, потом смотришь как это все выглядит, немного правишь и усе.
Даже синтаксиса знать не нужно. чудо вещь!
А ваще еси у тебя с каждым часом так все круто усложняется то юзай DTS (имхо лучше залить все в какую-нить БД) ну а там че хошь, хоть OLAP, хоть в тот же эксел отчеты выгружать

[zlobus]

Еще момент, если мне надо таким образом грузануть еще несколько данных, то я просто пишу в том же окне ниже тот же макрос в нужном количестве меняя только параметры?

Да.

[smirnoff]

S.V.A.T.
А ваще еси у тебя с каждым часом так все круто усложняется то юзай DTS (имхо лучше залить все в какую-нить БД)

Этак мы ща человеку предложем какой нить ETL развернуть



Неее... пусть лучше макросами... 8)

[zlobus]

S.V.A.T.
Совет тебе дам ценный.
Есть в экселе такая чудо вещь как запись макроса. Жмешь ее делаешь определенные действия, потом смотришь как это все выглядит, немного правишь и усе.
Даже синтаксиса знать не нужно. чудо вещь!

Запись хороша тогда, когда есть какой то опыт программирования на чем нибудь, или не помнишь синтаксис Правда в этом случае человек вначале хелп откроет, где этот совет тоже есть
А в нашем случае запись честно записала бы только копи-паст через буфер.

Добавлено спустя 4 минуты 10 секунд:

ps С помощью дтс переносить данные со страницы на страницу отчета это сила Скорее нам пригодился бы reporting services, как раз и конвертер в эксель сразу есть, только думаю что уровень не тот Задача как я понял усложнилась тем, что надо пернести данные из нескольких соседних ячеек

[AlexETi]

С помощью дтс переносить данные со страницы на страницу отчета это сила

эт я к тому что если у него с каждым часов все сложнее и сложнее становится задача, то имеет смысл выгрузить в базу какую-нить... а там уж воротить что хочет...

По опыту могу сказать, что сначала с нескольких ячеек потом с выборочных страниц, а потом и какой-нить интересный разрез данных посмотреть.
А так джобы наставил и усе. все живет само по себе.

[sun_flower]

Макрос нужон

[zlobus]

эт я к тому что если у него с каждым часов все сложнее и сложнее становится задача, то имеет смысл выгрузить в базу какую-нить... а там уж воротить что хочет...

Согласен, но я не готов ни расписывать действия по этому вопросу, ни скорее наниматься к нему на работу для реализации, с программизмом я давно завязал ) Но максросом могу подсобить вполне

[AlexETi]

Макрос нужон

макрос zlobus написал.

может по себе сужу... ну как то тяжело мне переварить, что с 200 страниц данных всего один график.

[zlobus]

может по себе сужу... ну как то тяжело мне переварить, что с 200 страниц данных всего один график.

Человек работает как может, что поделать, стало быть автоматизация не добралась до данных процессов, не нужна, или не по средствам Сам думаю видел, как люди в иных местах работают, что далек ходить, у меня жена при наличии аксапт да когносов лопатит не переставая еще и 300 метровые екселевские файлы, и ведь я ее даже макросы писать научить не могу

[S.V.A.T.]

Да, автоматизация у нас на уровне поддержки АБС и все! Дальше сам ручками...в свободное от работы время(