0
-
30.01.2015, 10:36 #101
- Регистрация
- 01.09.2006
- Сообщений
- 48,770
- Записей в дневнике
- 10
Спасибо: Получено: 1,500
Отправлено: 875
-
26.05.2015, 13:10 #102
- Регистрация
- 30.06.2008
- Адрес
- Россия, Санкт-Петербург
- Возраст
- 56
- Сообщений
- 2,214
Спасибо: Получено: 86
Отправлено: 61
0Привет
Как собрать данные из книги с 60 листами
Нужны пара цифр, расположены в одних и тех же ячейкахB5+, 1.8T, AWM, 2001 - был -> B6 почти такой же тока местный XW8ZZZ3CZAG006817
-
26.05.2015, 19:02 #103
2Один раз, или такое нужно проделывать регулярно?
В принципе достаточно просто решается написанием макроса, который «пройдётся» по всем листам, и считает данные из определённых ячеек (предположим Е2 Е4)...
--- Добавлено чуть позже ---
Набросал за пару минут:
Sub Button_Click()
For i = 1 To ThisWorkbook.Sheets.Count
' исключаем из подборки лист где будем выводить результаты
If ThisWorkbook.Sheets(i).Name <> "Summary" Then
' читаем данные - первая строка, второй столбец:
Value1 = ThisWorkbook.Sheets(i).Cells(1, 2)
' читаем данные - первая строка, третий столбец:
Value2 = ThisWorkbook.Sheets(i).Cells(1, 3)
' тут чего нибудь делаем с данными:
' super pupuper action: Value2 + Value1 ....
' заполняем лист с результатами:
Worksheets("Summary").Cells(i, 1) = Value1
Worksheets("Summary").Cells(i, 2) = Value2
End If
Next
100% рабочий вариант - проверил только что...
' активируем лист с результатами:
Worksheets("Summary").Activate
End Sub
-
27.05.2015, 12:59 #104
- Регистрация
- 30.06.2008
- Адрес
- Россия, Санкт-Петербург
- Возраст
- 56
- Сообщений
- 2,214
Спасибо: Получено: 86
Отправлено: 61
0Спасибо, Круть!!
Ещё бы понять как это присобачить всё..
Данные бы надо на отдельном листе в таблицу занесть
В два столбцаB5+, 1.8T, AWM, 2001 - был -> B6 почти такой же тока местный XW8ZZZ3CZAG006817
-
27.05.2015, 13:21 #105
0Тут тоже всё просто:
- Заводим отдельный лист, называем его «Summary» (ну или любое другое название, главное в скрипте это тоже поменять соответственно).
- в любом месте документа вставляем кнопку (в меню developer), или, как простой вариант, просто рисунок/картинку.
- щелчок правой кнопкой мыши на кнопке/рисунке, выбираем Assign Macro, выбираем «New».
- Excel откроет «Visual Basic for Application», с заготовкой макроса.
- Вписываем текст макроса между Sub Button1_Click() и End Sub
- поправляем координаты ячеек откуда считывать данные и куда их выводить (в примере данные выводятся построчно в первый и второй столбцы на лист Summary). Можно к выводимым данным добавить имя листа и т.п. если нужно...
Ну вот и всё. Теперь нажатие на кнопку / щелчок по картинке, и лист Summary заполнен данными...
-
27.05.2015, 13:42 #106
-
27.05.2015, 13:46 #107
-
27.05.2015, 13:51 #108
- Регистрация
- 30.06.2008
- Адрес
- Россия, Санкт-Петербург
- Возраст
- 56
- Сообщений
- 2,214
Спасибо: Получено: 86
Отправлено: 61
0Vjacheslav,
Чего-то не хочет
Worksheets("Summ").Cells(i, 1) = Value1 - на это пишет Can`t execute code in break mode
Прямо как починка машины по телефону...
Заработало
Тьфу, в разных листах ячейки разные оказывается
Модно привязаться к значениям как-нить по-другому
например
ячейка справа от ячейки в которой "текст"?B5+, 1.8T, AWM, 2001 - был -> B6 почти такой же тока местный XW8ZZZ3CZAG006817
-
27.05.2015, 15:01 #109
1Макросами можно сделать абсолютно всё...
Вот вариант для и этого случая:
Sub Button2_Click()
' маркерные тексты:
Marker1 = "Marker text #1"
Marker2 = "Marker text #2"
For i = 1 To ThisWorkbook.Sheets.Count
' исключаем из подборки лист где будем выводить результаты
If ThisWorkbook.Sheets(i).Name <> "Summary" Then
' задаём область где будем искать маркерный текст, в данном случае в области от A1 до X99
With ThisWorkbook.Sheets(i).Range("A1:X99")
' ищем первый маркер:
Set MarkerCell = .Find(Marker1, LookIn:=xlValues)
If Not MarkerCell Is Nothing Then
' читаем данные - искомое значение находится справа на одну ячейку от маркерного текста
Value1 = MarkerCell.Offset(0, 1)
End If
' ищем второй маркер:
Set MarkerCell = .Find(Marker2, LookIn:=xlValues)
If Not MarkerCell Is Nothing Then
' читаем данные - искомое значение находится справа на одну ячейку от маркерного текста
Value2 = MarkerCell.Offset(0, 1)
End If
End With
' заполняем лист с результатами:
Worksheets("Summary").Cells(i, 1) = Value1
Worksheets("Summary").Cells(i, 2) = Value2
End If
Next
' активируем лист с результатами:
Worksheets("Summary").Activate
End Sub
-
28.05.2015, 14:47 #110
- Регистрация
- 30.06.2008
- Адрес
- Россия, Санкт-Петербург
- Возраст
- 56
- Сообщений
- 2,214
Спасибо: Получено: 86
Отправлено: 61
0Vjacheslav,
Все вышло, спасибо!B5+, 1.8T, AWM, 2001 - был -> B6 почти такой же тока местный XW8ZZZ3CZAG006817
-
28.05.2015, 14:59 #111
-
08.10.2015, 13:06 #112
- Регистрация
- 01.10.2005
- Адрес
- Россия, Москва, ЮВАО, Люблино
- Сообщений
- 9,156
- Записей в дневнике
- 3
Спасибо: Получено: 593
Отправлено: 2,448
-
08.10.2015, 23:21 #113
- Регистрация
- 16.10.2005
- Адрес
- Россия, Санкт-Петербург
- Возраст
- 52
- Сообщений
- 3,710
- Записей в дневнике
- 8
Спасибо: Получено: 243
Отправлено: 3,445
0делаешь разные разделы
и в каждом разделе можно делать свои колонтитулы
если я не ошибаюсь...
а обязательно делать колонтитул???
--- Добавлено чуть позже ---
что-то не выходит - все дублируется даже в разных разделах
можно тольок четных и нечетных стр. и отдельно первуюБыло: Passat B-5, 1.8T! Mondeo V6-2.5л.5АКПП, Passat В-6/ 2.0 TDi DSG, Superb Combi/ 2.0 TDi DSG-6
Skoda Oktavia 1.4 / DSG-7 / Skoda Kodiaq TDi 4*4 DSG-7
-
09.10.2015, 01:28 #114
- Регистрация
- 01.10.2005
- Адрес
- Россия, Москва, ЮВАО, Люблино
- Сообщений
- 9,156
- Записей в дневнике
- 3
Спасибо: Получено: 593
Отправлено: 2,448
-
09.10.2015, 23:20 #115
- Регистрация
- 16.10.2005
- Адрес
- Россия, Санкт-Петербург
- Возраст
- 52
- Сообщений
- 3,710
- Записей в дневнике
- 8
Спасибо: Получено: 243
Отправлено: 3,445
0Я нашел!!!
http://on-line-teaching.com/word/lsn030.html
мысль была в нужном направлении - только надо было повтор "как в предыдущем разделе" выключить
Если внесённый вами текст повторяется и одновременно изменяется в колонтитулах всех разделов, это означает, что в настройках колонтитула включена опция Как в предыдущем разделе. Об этом свидетельствует плашка:
которая находится в правом нижнем углу колонтитула.
Для отключения этой опции необходимо перейти в режим редактирования (дважды кликнув по колонтитулу). В этом режиме откроется вкладка Работа с колонтитулами, на которой в группе Переходы находится команда включения опции Как в предыдущем разделе. Отключите её, кликнув на команде.
Было: Passat B-5, 1.8T! Mondeo V6-2.5л.5АКПП, Passat В-6/ 2.0 TDi DSG, Superb Combi/ 2.0 TDi DSG-6
Skoda Oktavia 1.4 / DSG-7 / Skoda Kodiaq TDi 4*4 DSG-7
-
11.10.2015, 01:46 #116
- Регистрация
- 01.10.2005
- Адрес
- Россия, Москва, ЮВАО, Люблино
- Сообщений
- 9,156
- Записей в дневнике
- 3
Спасибо: Получено: 593
Отправлено: 2,448
0Андрюх, знаю об этом Но смотри, идут у нас два листа без колонтитула, третий с колонтитулом, а с 4 по 8, допустим, должны быть БЕЗ колонтитула, а 9-й с ним Вот такая моя хотелка Первую часть решила именно указанным тобой образом, а вот вторую чтоб сделать....Мелкомягкий, по-моему, до такого извращения не додумался.
-
11.10.2015, 12:24 #117
0Привет Лёна!
Я сделал тебе черновик именно с таким расположением колонтитулов.. Лови: http://rghost.ru/8DV2SV5MR
-
11.10.2015, 13:52 #118
- Регистрация
- 29.03.2009
- Адрес
- От туда
- Возраст
- 57
- Сообщений
- 16,498
- Записей в дневнике
- 1
Спасибо: Получено: 1,868
Отправлено: 1,312
0А мне просто нужен офис,а везде с какой-то хнёй скачивается
"Nil inultum remanebit"-"ничто не останется безнаказанным"
-
11.10.2015, 21:48 #119
- Регистрация
- 01.10.2005
- Адрес
- Россия, Москва, ЮВАО, Люблино
- Сообщений
- 9,156
- Записей в дневнике
- 3
Спасибо: Получено: 593
Отправлено: 2,448
-
12.10.2015, 13:01 #120
Похожие темы
-
Excellence
от Bomj в разделе Архив 2008г.Ответов: 12Последнее сообщение: 13.11.2008, 13:39 -
Кого больше "американцев" или "европейцев&
от AvguR в разделе Архив 2008г.Ответов: 0Последнее сообщение: 17.10.2008, 18:21 -
перевод таблиц из WORD в EXEL
от оборотень в разделе Курилка - МатюгалкаОтветов: 3Последнее сообщение: 30.07.2008, 08:35 -
vag-com (проблема экспорта данных в word)
от alexNUR в разделе Архив 2008г.Ответов: 6Последнее сообщение: 11.07.2008, 12:52 -
Сигнализация Excellent. Какие отзывы ?
от imported_kibernetic в разделе Архив 2006г.Ответов: 12Последнее сообщение: 22.09.2006, 12:51