ПОИСКПОЗ: выбрать все строки относящиеся к классу В25 - Мир MS Excel

Регистрация

Напомнить пароль

= Мир MS Excel/ПОИСКПОЗ: выбрать все строки относящиеся к классу В25 - Мир MS Excel

Старая форма входа

Страница 1 из 2 1 2 »
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » ПОИСКПОЗ: выбрать все строки относящиеся к классу В25 (Формулы/Formulas)

ПОИСКПОЗ: выбрать все строки относящиеся к классу В25

Дата: Среда, 04.03.2015, 23:27 | Сообщение № 1

Группа: Проверенные

Ранг: Старожил

Сообщений: 1002

Репутация: 30 ±

Замечаний: 0% ±

Excel 2010

Госпада!!! Прошу извенить меня за безграмотность

не могу описать ход выполнения математическими терминами. Но очень нужна ПОМОЩЬ ЗНАЮЩИХ, ПОНИМАЮЩИХ, СПЕЦОВ.
На работе ведем журнал электронный, в конце месяца начальство просит статистику (((( приходится копировать искать выписывать вставлять (путаешься) можно ли сделать так вот?????
ЗАДАЧА
надо пройтись по всем листам с датами 01.04, 02.04 и т.д. выбрать все строки относящиеся к классу В25; В15 и
перенести их на лист с соответствующим именем. Пример для В25 прикладываю

К сообщению приложен файл: 0650259.xlsx (31.9 Kb)

Кто бы ты ни был, мир в твоих руках

Сообщение отредактировал lebensvoll - Четверг, 05.03.2015, 07:33

Ответить

Дата: Четверг, 05.03.2015, 07:52 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 346

Репутация: 54 ±

Замечаний: 0% ±

Excel 2007

lebensvoll, Как вариант все данные вести в одной таблице по всем дням и установить два фильтра, по дате-если нужен отчет по дате, и по марке бетона

К сообщению приложен файл: 6103928.xlsx (41.9 Kb)

С Уважением, Richman

Ответить

Дата: Четверг, 05.03.2015, 08:09 | Сообщение № 3

Группа: Проверенные

Ранг: Старожил

Сообщений: 1002

Репутация: 30 ±

Замечаний: 0% ±

Excel 2010

Richman, да тож не плох но, нужно искать примерно В25 на листах всех дат 01.04; 02.04; и
перенести их на лист с соответствующим именем. а также захватить данные испытаний В25 в этот день

Кто бы ты ни был, мир в твоих руках

Ответить

Дата: Четверг, 05.03.2015, 19:45 | Сообщение № 4

Группа: Проверенные

Ранг: Старожил

Сообщений: 1334

Репутация: 533 ±

Замечаний: 0% ±

Excel

решение с помощью макроса

1).перед запуском макроса нужно подготовить данные:нужно удалить лишние строки,которые содержат какое-то оформление.
например,если в приатаченном файле на листе B15 нажать сочетание клавиш Ctrl+End,то последней строкой будет не строка 8(она должна быть последней),а последней будет строка 15. вам нужно выделить строки с 8 по 15 и удалить и сохранить файл.
иначе макрос будет вставлять данные не туда .
2).для запуска макроса я сделал кнопку на панели быстрого доступа(эта панель находится вверху)

Сообщение отредактировал Karataev - Четверг, 05.03.2015, 21:21

Ответить

Дата: Четверг, 05.03.2015, 20:58 | Сообщение № 5

Группа: Проверенные

Ранг: Старожил

Сообщений: 1002

Репутация: 30 ±

Замечаний: 0% ±

Excel 2010

hands

БРАВО просто СУПЕР да ВЫ ГЕНИЙ спасибо огромное ВАМ.... Вот, теперь не придется засиживаться на работе )))) нажал на кнопочку и УСЕ ГОТОВО!!!! ОГРОМНЕЙШЕЕ ВАМ СПАСИБО от лица всей лаборатории....

Кто бы ты ни был, мир в твоих руках

Ответить

Дата: Четверг, 05.03.2015, 21:20 | Сообщение № 6

Группа: Проверенные

Ранг: Старожил

Сообщений: 1334

Репутация: 533 ±

Замечаний: 0% ±

Excel

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

комментарий по макросу .макрос просматривает листы с первого до последнего -3.
то есть в вашем файле макрос копирует данные из листов 1 и 2.

К сообщению приложен файл: macro.xlsm (38.1 Kb)

Сообщение отредактировал Karataev - Четверг, 05.03.2015, 21:21

Ответить

Дата: Четверг, 05.03.2015, 22:09 | Сообщение № 7

Группа: Проверенные

Ранг: Старожил

Сообщений: 1002

Репутация: 30 ±

Замечаний: 0% ±

Excel 2010

Karataev, да вроде бы я в той также взял добавил лист с другой датой но с этими данными и он увидел и скомпоновал данные и с этого листа. У меня вот какой вопрос: а если у нас будут и другие классы бетонной смеси( В30; В7,5; В22,5 и т.д ) я просто создам листы с этими данными и они будут заполнятся как и в примере с В25 и В15??

Кто бы ты ни был, мир в твоих руках

Ответить

Дата: Четверг, 05.03.2015, 22:13 | Сообщение № 8

Группа: Проверенные

Ранг: Старожил

Сообщений: 1334

Репутация: 533 ±

Замечаний: 0% ±

Excel

я прямо в макросе указал листы,куда вставлять данные.
если добавите новые целевые листы(листы,на которые надо вставлять),то макрос перестанет работать. листы-даты можно добавлять -макрос будет работать.

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

Сообщение отредактировал Karataev - Четверг, 05.03.2015, 22:15

Ответить

Дата: Четверг, 05.03.2015, 22:15 | Сообщение № 9

Группа: Проверенные

Ранг: Старожил

Сообщений: 1002

Репутация: 30 ±

Замечаний: 0% ±

Excel 2010

нет не группирует (((( если я начинаю вносить другие классы бетона и создаю на них листы. То макрос не работает (((( Может вы пропишите все классы бетонной смеси????

Кто бы ты ни был, мир в твоих руках

Ответить

Дата: Четверг, 05.03.2015, 22:22 | Сообщение № 10

Группа: Проверенные

Ранг: Старожил

Сообщений: 1002

Репутация: 30 ±

Замечаний: 0% ±

Excel 2010

Karataev, я просто не могу сюда загрузить весь журнал бетонных работ (((( данный журнал ведется на целый месяц с 1 по 31 (в одном файле). Хотелось бы чтоб за этот период отбора проб (с листов 1 по 31) искал класс бетона В5; В7,5; В10; В12,5; В15; В20; В22,5; В25; В30; В35; В40; М75; М100; М150; М200; М300; и группировал данные с листов дат (с1 по 31) в листы соответствующие классы бетона. После мы построим по данным каждого класса графики прочности. Если это не сложно конечно же ((((((

Кто бы ты ни был, мир в твоих руках

Ответить

Дата: Четверг, 05.03.2015, 22:26 | Сообщение № 11

Группа: Проверенные

Ранг: Старожил

Сообщений: 1334

Репутация: 533 ±

Замечаний: 0% ±

Excel

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

Ответить

Дата: Четверг, 05.03.2015, 22:41 | Сообщение № 12

Группа: Проверенные

Ранг: Старожил

Сообщений: 1002

Репутация: 30 ±

Замечаний: 0% ±

Excel 2010

Karataev, я так понимаю "ЦЕЛЕВЫЕ ЛИСТЫ" это те листы КЛАСС БЕТОНА который мы разыскиваем в листах-ДАТ!? ТАК!? если это так то мои целевые листы вот они В5; В7,5; В10; В12,5; В15; В20; В22,5; В25; В30; В35; В40; М75; М100; М150; М200; М300 (16-ть листов) и 31 лист с датами

Кто бы ты ни был, мир в твоих руках

Ответить

Дата: Четверг, 05.03.2015, 22:45 | Сообщение № 13

Группа: Проверенные

Ранг: Старожил

Сообщений: 1002

Репутация: 30 ±

Замечаний: 0% ±

Excel 2010

Karataev, а как бы мне вам на почту выслать файл я бы журнал образец бы вам выслал, возможно ли такое???

Кто бы ты ни был, мир в твоих руках

Ответить

Дата: Четверг, 05.03.2015, 22:47 | Сообщение № 14

Группа: Проверенные

Ранг: Старожил

Сообщений: 1334

Репутация: 533 ±

Замечаний: 0% ±

Excel

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

не нужно высылать.

Ответить

Дата: Четверг, 05.03.2015, 22:53 | Сообщение № 15

Группа: Проверенные

Ранг: Старожил

Сообщений: 1002

Репутация: 30 ±

Замечаний: 0% ±

Excel 2010

Karataev, прости меня бездыря (((( но а как прописать??? Я воообще впервые столкнулся с макросом ((((. Да у меня есть еще один лист который я создал для себя в помощь лист-корректировка он стоит самым последним в правой стороне...

Кто бы ты ни был, мир в твоих руках

Ответить

Дата: Четверг, 05.03.2015, 22:56 | Сообщение № 16

Группа: Проверенные

Ранг: Старожил

Сообщений: 1334

Репутация: 533 ±

Замечаний: 0% ±

Excel

сюда на форум напишите название самого первого целевого листа.
тогда имейте ввиду,что макрос будет считать листами-датами листы с 1 до первого целевого.
целевые листы будут с первого целевого листа до предполследнего листа.

Ответить

Дата: Четверг, 05.03.2015, 22:57 | Сообщение № 17

Группа: Проверенные

Ранг: Старожил

Сообщений: 1002

Репутация: 30 ±

Замечаний: 0% ±

Excel 2010

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

К сообщению приложен файл: __.xlsm (97.8 Kb)

Кто бы ты ни был, мир в твоих руках

Ответить

Дата: Четверг, 05.03.2015, 23:27 | Сообщение № 18

Группа: Проверенные

Ранг: Старожил

Сообщений: 1002

Репутация: 30 ±

Замечаний: 0% ±

Excel 2010

Karataev, lebensvoll, вот как я планировал. Но как только я начинал вносить другие листы с классом бетонной смеси Макрос их не видит и не группирует
К сообщению приложен файл: __.xlsm(98Kb)

Кто бы ты ни был, мир в твоих руках

Ответить

Дата: Четверг, 05.03.2015, 23:31 | Сообщение № 19

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2519

Репутация: 674 ±

Замечаний: 0% ±

2010

Добавьте здесь названия добавленных листов.[vba]

Код

Sub Macro()

     Application.ScreenUpdating = False
     Call ttt1(Sheets("В15"))
     Call ttt1(Sheets("В25"))
     Call ttt1(Sheets("М75"))
     Call ttt1(Sheets("В22,5"))
     Call ttt1(Sheets("В15"))
     Call ttt1(Sheets("М150"))
     Application.ScreenUpdating = True
     MsgBox "готово!", vbInformation

End Sub

[/vba]

ЯД-41001506838083

Ответить

Дата: Четверг, 05.03.2015, 23:43 | Сообщение № 20

Группа: Проверенные

Ранг: Старожил

Сообщений: 1002

Репутация: 30 ±

Замечаний: 0% ±

Excel 2010

gling, Application.ScreenUpdating = False
Call ttt1(Sheets("В5"))
Call ttt1(Sheets("В7,5"))
Call ttt1(Sheets("М10"))
Call ttt1(Sheets("В12,5"))
Call ttt1(Sheets("В15"))
Call ttt1(Sheets("В20"))
Call ttt1(Sheets("В22,5"))
Call ttt1(Sheets("В25"))
Call ttt1(Sheets("В30"))
Call ttt1(Sheets("М7,5"))
Call ttt1(Sheets("М100"))
Call ttt1(Sheets("М150"))
Call ttt1(Sheets("М200"))
Call ttt1(Sheets("М250"))
Call ttt1(Sheets("М300"))
Application.ScreenUpdating = True
MsgBox "готово!", vbInformation

Кто бы ты ни был, мир в твоих руках

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по Excel » ПОИСКПОЗ: выбрать все строки относящиеся к классу В25 (Формулы/Formulas)

Страница 1 из 2
1
2
»

© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!