» Excel FAQ

almedic
Цитата:

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

Конечно можно. напиши в ячейке = дальше иди на нужный лист выделяй нужную ячейку и т.д. В общем случае ячейка с другого листа выглядит так Лист1!B3 Т.е. ты находишься на Лист2, а в формулу забиваешь ячейку с Лист1.

Mushroomer
Я неконкретно сказал, наверное.
Имел в виду -- как это автоматизировать, чтобы потом повторять, желательно нажав одну кнопку (запустив макрос).
Статисты пишут каждый день, раз в неделю-месяц-квартал составляют отчет из тех же данных. Я. Сделал макрос, отдал нашим статистам и они, без того, чтобы меня тиранить каждую неделю: взяли, забили данные, нажали кнопочку -- опа! вышел отчет.

Либо я дупло либо что, не получается у меня текст по столбцам разделить,
может я неправильно делаю?

Ещё раз у меня так:
1:вася:123
2:петя:456
3:гриша:789

Хочу:
1 вася 123
2 петя 456
3 гриша 789
Соответственно по столбцам... Спасибо.. и простите за непонимание

Matsa
Либо Файл/Открыть, либо Данные/Импорт внешних данных/Импортировать данные. Выбираешь свой текстовый файл. На первом шаге запустившегося мастера импорта текстов выбираешь формат данных с разделителями. На втором шаге в качестве символа-разделителя вводишь ":". Ну и далее всё готово.

evle, у меня в Данных нет Списка (Excel 2002)

Большое спасибо за помощь.
Всем кто помог, желаю всех благ

А мне? Никто не поможет?
Хоть поскажите, куда тыкнуться для начала, я понятливый. На одном-то листе он хорошо все проделывает, а вот как с нескольких, да на четвертый... Может экспорт какой? Или другую таблицу?

almedic
Чем тебе не нравится ответ Mushroomer?
Ячейки для суммирования всегда одни и те же? Опиши конкретный пример: названия листов, какие ячейки, куда записывается результат и т.п. Если нужно макрос, то что конкретно он должен делать? Пока либо ты не понял ответ, либо плохо объяснил здачу.

Yuk
Я так понял что у almedic нежесткая структура листов, из значений которых получается сводный лист.

almedic
Проще научить тех, кто делает отчеты, работать с формулами из значений разных листов одной книги, особенно если структура сводного отчета (листа) постоянная.

Господа, в экселевском макросе необходимо сделать следующее:

При нажатии кнопки "Обзор" появляется окно, аналог проводника, в котором выбираем экселевский файл с которым будет работать макрос.

В связи с этим вопрос... Как вставить объект "Обзор файлов" (назвем его так)?

Добавлено:
Урра нашел!!!! Справку нада читать...

вот как надо

fileToOpen = Application _
.GetOpenFilename("Text Files (*.txt), *.txt")
If fileToOpen <> False Then
MsgBox "Open " & fileToOpen
End If

Mushroomer

Цитата:

Проще научить тех, кто делает отчеты, работать с формулами из значений разных листов одной книги, особенно если структура сводного отчета (листа) постоянная.

Не проще . Дамы бальзаковского возраста, которые компьютеру не оверяют (да-да! до сих пор есть такие), учится боятся и научить их невозможно. Поэтому автоматизировать по максимуму. Хотел облегчить жизнь.
Yuk

Цитата:

Чем тебе не нравится ответ Mushroomer?

Нравиться. Но это ж ручками? А хотелось автоматом.

Цитата:

Опиши конкретный пример

Лист один: две смены по 12 часов в сутки по пять бригад. Всего четыре смены. Три типа бригад по профилю. Количество вызовов в каждой бригаде, делится по внезапным заболеваниям, несчастным случаям. Внезапные в свою очередь на острые и обострения хронических.
Лист два: использовано кажой бригадой за день инструментария и медикаментов.
Лист три: каждой бригадой в смену транспорт в отделения (сколько и в какие), куда сообщено (милисия, 01, СЭС)
Лист четыре: собирается с предыдущих и в строчку для каждой бригады за неделю (месяц, квартал) кол-во вызовов, использовано медикаментов, транспортировано больных куда и соклько. Внизу общая сумма.
Во как все непросто!

Спасибо всем! Понял, что незачем колдобобиться на старой форме, буду переделывать. Хотят комфорта -- привыкнут к новому. Хотят стабильности -- будут считать на калькуляторе.

Помогите такой трабл
Нужно создать макрос вызова формы и пункта данные
делаю
Для создания макроса «ВызватьФорму» необходимо выполнить действия:
•    активизировать запись макроса (Сервис – Макрос – Начать запись);
•    выделить заголовок таблицы с данными (например, B1:F1);
•    выполнить команду меню Данные – Форма;
•    в диалоговом окне «Данные» щёлкнуть по кнопке Закрыть;
•    выделить ячейку B1;
•     завершить создание макроса, выполнив команду меню Сервис – Макрос – Остановить запись.
Sub ВызватьФорму()
Range("B1:F1").Select
ActiveSheet.ShowDataForm
Range("B1").Select
End Sub        
Выдает

He yдaeтcя oпpeдeлить, в кaкoй cтpoкe cпиcкa или выдeлeннoгo фpaгмeнтa coдepжaтcя нaзвaния cтoлбцoв, нeoбxoдимыe для этoй
кoмaнды.

И берет данные из первой строки хотя макрос выделяет заголовак нужной мне таблицы

Помогите Плиз!!!!

Как в Excel 2003 перейти по гиперссылке в ячейке не используя мыши?
Вариант через Shift-F10 (контекстное меню не предлагать).
Раньше нажатие по нажатию Enter в ячейке происходил переход по ссылке.

когда вычисляешь обратную матрицу(к примеру размером 3*3, находится в диапазоне ячеек A1:C3 => =МОБР(A1:C3)) Excel почему-то возвращает только значение из ячейки 1;1. вопрос: как достать значения остальных ячеек (1;2 2;1 3;3 ... etc.)?

2 Maxer
1. Выделена область 3*3 и
2. для групповых операций - Ctrl+Shift+Enter

Господа, тут такая проблема - есть программа, которая работает с датабазами. Таблицы, которые она генерирует можно экспортировать в excel, на одной машине при создании такой таблицы в excel кириллический текст отображается западным набором символов. На других машинах та же программа создает нормальные таблицы, настройки она берет только из своего каталога, то есть проблема в excel.

pikador
Может в контрольной панели региональные и языковые настройки проверить?

Есть ежедневные файлы, из которых нужно копировать и собирать данные в один общий файл. Как можно это сделать без макросов

Adrenalina

Цитата:

Как можно это сделать без макросов

Оператора посадить

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

Что за файлы? Текстовые или экселовские? Если текстовые, то какой формат? Имена, число файлов одни и те же или меняются каждый день?
Как собирать? По рядам, по колонкам, по листам?
Обязательно это делать в Экселе?

pikvvik
спасибо, работает.

ещё один вопрос:
если есть, к примеру 10 листов в книге, а в каждом нужно выделить поле, к примеру XN. возможно ли не перечисляя названия всех этих листов (=Лист1!XN+Лист2!XN+Лист3!XN...+Лист10!XN) записать от листа 1 до листа 10?

2 Maxer

Цитата:

10 листов в книге, а в каждом нужно выделить поле

Первый лист+Shift-->Заголовок последнего листа
в поле XN - вводим данные, формулы, форматируем
переходим на любой лист.
Или нужно что-то другое?

Yuk

Простите, файлы экселевские. Имена файлов меняются каждый день на дату.
И в файле, например, по строкам идут наименования продукции, а по столбцам где через один, где подряд идут наименования магазинов, где-то порядка 50 на двух листах. Это заказной лист.Вот. И в другой файл, в котором каждый лист-это магазин, по строкам-нименование продукции, а по столбцам через один - дата. Мне нужно собрать все значения из заказных, скажем для статистики, кто, когда, чего, сколько заказывал. Вот. Уф. Кажется, объяснила. Желательно, конечно, в Экселе.

pikvvik
именно это, большое спасибо.

ещё один вопрос по поводу генерирования чисел. возможно ли сгенерировать число в пределах от 5 до 10, к примеру?

Maxer

Код: =ROUND(RAND()*(10-5)+5,0)

Yuk

Цитата:

=ROUND(RAND()*(10-5)+5,0)

а наш информатик говорил что нужно было на VBScript писать. спасибо

Добавлено:

Цитата:

Я не понял из вашего решения, как сделать такую формулу?
Или вопрос был редактировать одновременно все листы?

вроде всё оч. просто:
=СУММ(ЛистN1:ЛистN2!XN)

[more=В справке по Excel...]
Ссылка на одну и ту же ячейку или диапазон в нескольких листах


Цитата:

Ссылка на одну и ту же ячейку или диапазон в нескольких листах называется трехмерная ссылка .

Укажите ячейку, в которую следует ввести функцию.
Введите = (знак равенства), имя функции, а затем открывающую круглую скобку.

Функции, которые могут быть использованы в трехмерной ссылке:
СУММ — складывает числа
СРЗНАЧ — вычисляет среднее арифметическое чисел
СРЗНАЧА — вычисляет среднее арифметическое чисел, включая текстовые и логические значения
СЧЕТ — подсчитывает количество ячеек, содержащих числа
СЧЕТЗ — подсчитывает количество непустых ячеек
МАКС — находит наибольшее значение из набора значений
МАКСА — находит наибольшее значение из набора значений, включая логические значения и текстовые строки
МИН — находит наименьшее значение из набора значений
МИНА — находит наименьшее значение из набора значений, включая логические значения и текстовые строки
ПРОИЗВЕД — перемножает числа
СТАНДОТКЛОН подсчитывает стандартное отклонение по выборке
СТАНДОТКЛОНА — подсчитывает стандартное отклонение по выборке, включая логические значения и текстовые строки
СТАНДОТКЛОНП — подсчитывает стандартное отклонение по генеральной совокупности
СТАНДОТКЛОНПА — подсчитывает стандартное отклонение по генеральной совокупности, включая логические значения и текстовые строки
ДИСП — оценивает дисперсию по выборке
ДИСПА — оценивает дисперсию по выборке, включая логические значения и текстовые строки
ДИСПР — подсчитывает дисперсию для генеральной совокупности
ДИСПРА — подсчитывает дисперсию для генеральной совокупности, включая логические значения и текстовые строки

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

[/more]

Yuk
Спасибо. А макросом это очень сложно? Я в макросах вообще не смыслю

Adrenalina
Думаю, если есть хотя бы небольшой опыт в програмировании, то не сложно. Самый простой способ - записать новый макрос, воспроизводя ваши действия в ручную. Затем зайти в VBA редактор и подредактировать, добавить логику.
Сразу говорю, я не возьмусь за недостатком времени.

Народ, есть желающие помочь девушке?

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

Sub Отгрузка900()
'
' Отгрузка900 Макрос
' Макрос записан 21.11.2005 (IRAMAGAI)
'

'
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("Зак.900").Select
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.SmallScroll Down:=-12
Range("D2:E19").Select
Selection.Copy
Windows("НОЯБРЬ 900_ф.xls").Activate
Sheets("Ашан1").Select
ActiveWindow.SmallScroll Down:=-12
Range("AM2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("18-11-05_З-К фасовка.xls").Activate
ActiveWindow.SmallScroll Down:=-12
Range("F2:F19").Select
Selection.Copy
Windows("НОЯБРЬ 900_ф.xls").Activate
Sheets("Ашан2").Select
Range("AM2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("18-11-05_З-К фасовка.xls").Activate
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
Range("G2:G19").Select
Selection.Copy
Windows("НОЯБРЬ 900_ф.xls").Activate
Sheets("Ашан3").Select
Range("AM2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("18-11-05_З-К фасовка.xls").Activate
Range("H2:H19").Select
Selection.Copy
Windows("НОЯБРЬ 900_ф.xls").Activate
Sheets("Ашан4").Select
Range("AM2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("18-11-05_З-К фасовка.xls").Activate
Range("I2:I19").Select
Selection.Copy
Windows("НОЯБРЬ 900_ф.xls").Activate
Sheets("Ашан5").Select
ActiveWindow.ScrollColumn = 25
ActiveWindow.ScrollColumn = 26
ActiveWindow.ScrollColumn = 27
ActiveWindow.ScrollColumn = 28
ActiveWindow.ScrollColumn = 29
ActiveWindow.ScrollColumn = 30
ActiveWindow.ScrollColumn = 31
Range("AM2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("18-11-05_З-К фасовка.xls").Activate
Range("J2:J19").Select
Selection.Copy
Windows("НОЯБРЬ 900_ф.xls").Activate
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
Sheets("Атак").Select
ActiveWindow.SmallScroll Down:=-12
Range("AM2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("18-11-05_З-К фасовка.xls").Activate
Range("K2:L19").Select
Selection.Copy
Windows("НОЯБРЬ 900_ф.xls").Activate
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("Маркткауф").Select
ActiveWindow.SmallScroll Down:=-12
ActiveWindow.ScrollColumn = 27
ActiveWindow.ScrollColumn = 28
ActiveWindow.ScrollColumn = 29
ActiveWindow.ScrollColumn = 30
ActiveWindow.ScrollColumn = 31
ActiveWindow.ScrollColumn = 32
ActiveWindow.ScrollColumn = 33
ActiveWindow.ScrollColumn = 34
Range("AM2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("AN2:AN19").Select
Selection.Font.ColorIndex = 3
Windows("18-11-05_З-К фасовка.xls").Activate
ActiveWindow.SmallScroll Down:=-9
Range("M2:M19").Select
Selection.Copy
Windows("НОЯБРЬ 900_ф.xls").Activate
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
Sheets("Реал-1").Select
ActiveWindow.SmallScroll Down:=-12
ActiveWindow.ScrollColumn = 25
ActiveWindow.ScrollColumn = 26
ActiveWindow.ScrollColumn = 27
ActiveWindow.ScrollColumn = 28
ActiveWindow.ScrollColumn = 29
ActiveWindow.ScrollColumn = 30
ActiveWindow.ScrollColumn = 31
ActiveWindow.ScrollColumn = 32
ActiveWindow.ScrollColumn = 33
ActiveWindow.ScrollColumn = 34
ActiveWindow.ScrollColumn = 35
ActiveWindow.ScrollColumn = 36
ActiveWindow.ScrollColumn = 37
ActiveWindow.ScrollColumn = 38
Range("AM2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("18-11-05_З-К фасовка.xls").Activate
ActiveWindow.Close
Sheets("Зак.900").Select
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
Range("D2:D19").Select
Selection.Copy
Windows("НОЯБРЬ 900_ф.xls").Activate
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Ашан1").Select
Range("AO2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("19-11-05_З-К фасовка.xls").Activate
Range("E2:E19").Select
Selection.Copy
Windows("НОЯБРЬ 900_ф.xls").Activate
Sheets("Ашан2").Select
ActiveWindow.ScrollColumn = 27
ActiveWindow.ScrollColumn = 28
ActiveWindow.ScrollColumn = 29
ActiveWindow.ScrollColumn = 30
ActiveWindow.ScrollColumn = 31
ActiveWindow.ScrollColumn = 32
ActiveWindow.ScrollColumn = 33
ActiveWindow.ScrollColumn = 34
ActiveWindow.ScrollColumn = 35
ActiveWindow.ScrollColumn = 36
ActiveWindow.ScrollColumn = 37
Range("AO2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("19-11-05_З-К фасовка.xls").Activate
Range("F2:G19").Select
Selection.Copy
Windows("НОЯБРЬ 900_ф.xls").Activate
Sheets("Ашан3").Select
ActiveWindow.ScrollColumn = 27
ActiveWindow.ScrollColumn = 28
ActiveWindow.ScrollColumn = 29
ActiveWindow.ScrollColumn = 30
ActiveWindow.ScrollColumn = 31
ActiveWindow.ScrollColumn = 32
ActiveWindow.ScrollColumn = 33
ActiveWindow.ScrollColumn = 34
ActiveWindow.ScrollColumn = 35
ActiveWindow.ScrollColumn = 36
ActiveWindow.ScrollColumn = 37
Range("AO2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("AP2:AP15").Select
Selection.Font.ColorIndex = 3
Windows("19-11-05_З-К фасовка.xls").Activate
Range("H2:I19").Select
Selection.Copy
Windows("НОЯБРЬ 900_ф.xls").Activate
Sheets("Ашан4").Select
ActiveWindow.ScrollColumn = 27
ActiveWindow.ScrollColumn = 28
ActiveWindow.ScrollColumn = 29
ActiveWindow.ScrollColumn = 30
ActiveWindow.ScrollColumn = 31
ActiveWindow.ScrollColumn = 32
ActiveWindow.ScrollColumn = 33
ActiveWindow.ScrollColumn = 34
ActiveWindow.ScrollColumn = 35
ActiveWindow.ScrollColumn = 36
ActiveWindow.ScrollColumn = 37
ActiveWindow.ScrollColumn = 38
Range("AO2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("AP3:AP18").Select
Selection.Font.ColorIndex = 3
Windows("19-11-05_З-К фасовка.xls").Activate
Range("J2:J19").Select
Selection.Copy
Windows("НОЯБРЬ 900_ф.xls").Activate
Sheets("Ашан5").Select
ActiveWindow.SmallScroll Down:=-12
Range("AO2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("19-11-05_З-К фасовка.xls").Activate
ActiveWindow.SmallScroll Down:=-12
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.SmallScroll Down:=-15
Range("K2:K19").Select
Selection.Copy
Windows("НОЯБРЬ 900_ф.xls").Activate
Sheets("Атак").Select
Range("AO2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("19-11-05_З-К фасовка.xls").Activate
Range("L2:M19").Select
Selection.Copy
Windows("НОЯБРЬ 900_ф.xls").Activate
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("Маркткауф").Select
ActiveWindow.SmallScroll Down:=-12
Range("AO2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("AP2:AP18").Select
Selection.Font.ColorIndex = 3
Windows("19-11-05_З-К фасовка.xls").Activate
Range("N2:N19").Select
Selection.Copy
Windows("НОЯБРЬ 900_ф.xls").Activate
Sheets("Реал-1").Select
ActiveWindow.SmallScroll Down:=-12
Range("AO2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

Подсветка идёт синим. Из-за этого на малоконтрастных дисплеях плохо видно, что в ячейке.
Как сделать, чтобы подсветка была чёрным, как в предыдущих версиях?

Help!
Перестали работать гиперссылки в Excel, и Word. При попытке перейти по ссылке выдаётся ахтунг со следующим содержанием "Эта операция была прервана из-за ограничений, наложенных на данный компьютер. Обратитесь к системному администатору". Конечно же, никто на компьтер не лазил и ничего не админил. Помогите советом!