0
![Вы не можете благодарить!](images/buttons/up_dis.png)
Спасибо: |
Получено: 1,500 Отправлено: 875 |
Спасибо: |
Получено: 86 Отправлено: 61 |
Привет
Как собрать данные из книги с 60 листами
Нужны пара цифр, расположены в одних и тех же ячейках
B5+, 1.8T, AWM, 2001 - был -> B6 почти такой же тока местный XW8ZZZ3CZAG006817
Один раз, или такое нужно проделывать регулярно?
В принципе достаточно просто решается написанием макроса, который «пройдётся» по всем листам, и считает данные из определённых ячеек (предположим Е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
Спасибо: |
Получено: 86 Отправлено: 61 |
Спасибо, Круть!!
Ещё бы понять как это присобачить всё..
Данные бы надо на отдельном листе в таблицу занесть
В два столбца
B5+, 1.8T, AWM, 2001 - был -> B6 почти такой же тока местный XW8ZZZ3CZAG006817
Тут тоже всё просто:
- Заводим отдельный лист, называем его «Summary» (ну или любое другое название, главное в скрипте это тоже поменять соответственно).
- в любом месте документа вставляем кнопку (в меню developer), или, как простой вариант, просто рисунок/картинку.
- щелчок правой кнопкой мыши на кнопке/рисунке, выбираем Assign Macro, выбираем «New».
- Excel откроет «Visual Basic for Application», с заготовкой макроса.
- Вписываем текст макроса между Sub Button1_Click() и End Sub
- поправляем координаты ячеек откуда считывать данные и куда их выводить (в примере данные выводятся построчно в первый и второй столбцы на лист Summary). Можно к выводимым данным добавить имя листа и т.п. если нужно...
Ну вот и всё. Теперь нажатие на кнопку / щелчок по картинке, и лист Summary заполнен данными...![]()
Спасибо: |
Получено: 86 Отправлено: 61 |
тут затык
надо в таблицу на Лист "Summ"
С данными делать ничего не надо, построить таблицу
в два столбца, чтобы диаграмму потом
B5+, 1.8T, AWM, 2001 - был -> B6 почти такой же тока местный XW8ZZZ3CZAG006817
Спасибо: |
Получено: 86 Отправлено: 61 |
Vjacheslav,
Чего-то не хочет
Worksheets("Summ").Cells(i, 1) = Value1 - на это пишет Can`t execute code in break mode
Прямо как починка машины по телефону...
Заработало
Тьфу, в разных листах ячейки разные оказывается
Модно привязаться к значениям как-нить по-другому
например
ячейка справа от ячейки в которой "текст"?
B5+, 1.8T, AWM, 2001 - был -> B6 почти такой же тока местный XW8ZZZ3CZAG006817
Макросами можно сделать абсолютно всё...
Вот вариант для и этого случая:
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
Спасибо: |
Получено: 86 Отправлено: 61 |
Vjacheslav,
Все вышло, спасибо!
B5+, 1.8T, AWM, 2001 - был -> B6 почти такой же тока местный XW8ZZZ3CZAG006817
Спасибо: |
Получено: 593 Отправлено: 2,448 |
Спасибо: |
Получено: 243 Отправлено: 3,445 |
делаешь разные разделы
и в каждом разделе можно делать свои колонтитулы
если я не ошибаюсь...
а обязательно делать колонтитул???
--- Добавлено чуть позже ---
что-то не выходит - все дублируется даже в разных разделах
можно тольок четных и нечетных стр. и отдельно первую![]()
Было: 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
Спасибо: |
Получено: 593 Отправлено: 2,448 |
Спасибо: |
Получено: 243 Отправлено: 3,445 |
Я нашел!!!
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
Спасибо: |
Получено: 593 Отправлено: 2,448 |
Андрюх, знаю об этомНо смотри, идут у нас два листа без колонтитула, третий с колонтитулом, а с 4 по 8, допустим, должны быть БЕЗ колонтитула, а 9-й с ним
Вот такая моя хотелка
Первую часть решила именно указанным тобой образом, а вот вторую чтоб сделать....Мелкомягкий, по-моему, до такого извращения не додумался.
![]()
Привет Лёна!
Я сделал тебе черновик именно с таким расположением колонтитулов.. Лови: http://rghost.ru/8DV2SV5MR
Спасибо: |
Получено: 1,868 Отправлено: 1,312 |
А мне просто нужен офис,а везде с какой-то хнёй скачивается![]()
"Nil inultum remanebit"-"ничто не останется безнаказанным"
Спасибо: |
Получено: 593 Отправлено: 2,448 |
Да, конечно. Там принцип тот же.
Не совсем так.
Каждая секция [раздел] имет свои параметры (колонтутулы, размер/расположение страницы, и т.п.).
А сама секция может состоять из нескольких страниц.
![]()