Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

= Мир MS Excel/Макрос для переформатирования таблицы данных - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос для переформатирования таблицы данных (Макросы/Sub)
Макрос для переформатирования таблицы данных
KosTT18 Дата: Пятница, 21.03.2014, 19:27 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Добрый день!

Как написать макрос для переформатирования таблицы данных? Суть вопроса:
Есть файл№1 со структурированной таблицей данных остатков продукции из 1С-ки:
.........Склад №1
товар1 .....5
товар2 .....7
.........Склад №2
Товар1..... 3
товар3 ......1

Необходимый конечный формат этой таблицы в Файле№2 после выполнения макроса:

............Склад №1 Склад №2
Товар1........ 5..............3
Товар2........ 7............. 0
Товар3 ........0 .............1

Более подробные примеры таблиц во вложеных файлах. Реальный объем данных: около 40 позиций товара на 3-х складах
Необходимы только исходящие остатки, без оборотов. Но думаю это уже детали.
Пересмотрел большинство "штатных" функций excel -ничего подходящего на первый взгляд нет. Часто использую ВПР, но тут ее применить не получается %)

Спасибо.
К сообщению приложен файл: 3657885.xls (35.5 Kb) · 6157732.xls (17.0 Kb)


Константин

Сообщение отредактировал KosTT18 - Пятница, 21.03.2014, 19:32
 
Ответить
СообщениеДобрый день!

Как написать макрос для переформатирования таблицы данных? Суть вопроса:
Есть файл№1 со структурированной таблицей данных остатков продукции из 1С-ки:
.........Склад №1
товар1 .....5
товар2 .....7
.........Склад №2
Товар1..... 3
товар3 ......1

Необходимый конечный формат этой таблицы в Файле№2 после выполнения макроса:

............Склад №1 Склад №2
Товар1........ 5..............3
Товар2........ 7............. 0
Товар3 ........0 .............1

Более подробные примеры таблиц во вложеных файлах. Реальный объем данных: около 40 позиций товара на 3-х складах
Необходимы только исходящие остатки, без оборотов. Но думаю это уже детали.
Пересмотрел большинство "штатных" функций excel -ничего подходящего на первый взгляд нет. Часто использую ВПР, но тут ее применить не получается %)

Спасибо.

Автор - KosTT18
Дата добавления - 21.03.2014 в 19:27
alex1248 Дата: Пятница, 21.03.2014, 21:24 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 384
Репутация: 71 ±
Замечаний: 0% ±

Excel 2007, 2010
KosTT18, по какому признаку отличать склад от номенклатуры? Цвет ячейки, какой-нибудь параметр шрифта, наличие слов Склад / Товар? Т.е., какой из этих признаков не будет меняться при обработке отчетов с реальными данными?


skype alex12481632
Qiwi +79276708519
 
Ответить
СообщениеKosTT18, по какому признаку отличать склад от номенклатуры? Цвет ячейки, какой-нибудь параметр шрифта, наличие слов Склад / Товар? Т.е., какой из этих признаков не будет меняться при обработке отчетов с реальными данными?

Автор - alex1248
Дата добавления - 21.03.2014 в 21:24
Hugo Дата: Пятница, 21.03.2014, 22:58 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3254
Репутация: 707 ±
Замечаний: 0% ±

2019
Можно отбирать по цвету и outlinelevel строк.


excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеМожно отбирать по цвету и outlinelevel строк.

Автор - Hugo
Дата добавления - 21.03.2014 в 22:58
KosTT18 Дата: Пятница, 21.03.2014, 23:01 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
по какому признаку отличать склад от номенклатуры? Цвет ячейки, какой-нибудь параметр шрифта, наличие слов Склад / Товар? Т.е., какой из этих признаков не будет меняться при обработке отчетов с реальными данными?

В том то и дело что их сложно отличить. Шрифт и размер шрифта одинаковый, других отличительных признаков (склад/номенклатура) нет. Вот только цвета ячеек(строк) признака "Склад" выделяются другим цветом, как в прикрепленном выше файле.
Может как то можно использовать структуру/группировку таблицы, т.к. там признак "Склад" стоит на более высоком уровне группировки, но я к сожалению мало знаком с возможностями группировки данных.


Константин
 
Ответить
Сообщение
по какому признаку отличать склад от номенклатуры? Цвет ячейки, какой-нибудь параметр шрифта, наличие слов Склад / Товар? Т.е., какой из этих признаков не будет меняться при обработке отчетов с реальными данными?

В том то и дело что их сложно отличить. Шрифт и размер шрифта одинаковый, других отличительных признаков (склад/номенклатура) нет. Вот только цвета ячеек(строк) признака "Склад" выделяются другим цветом, как в прикрепленном выше файле.
Может как то можно использовать структуру/группировку таблицы, т.к. там признак "Склад" стоит на более высоком уровне группировки, но я к сожалению мало знаком с возможностями группировки данных.

Автор - KosTT18
Дата добавления - 21.03.2014 в 23:01
KosTT18 Дата: Суббота, 22.03.2014, 10:06 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Можно отбирать по цвету и outlinelevel строк.

А можно поподробнее как это сделать?

Спасибо.


Константин
 
Ответить
Сообщение
Можно отбирать по цвету и outlinelevel строк.

А можно поподробнее как это сделать?

Спасибо.

Автор - KosTT18
Дата добавления - 22.03.2014 в 10:06
Hugo Дата: Суббота, 22.03.2014, 12:04 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3254
Репутация: 707 ±
Замечаний: 0% ±

2019
[vba]
Код
Sub tt()
     Dim c As Range, tmp$
     For Each c In ActiveSheet.UsedRange.Columns(2).Cells
         If c.Interior.Color = 14545653 Then tmp = c.Value
         If c.Rows.OutlineLevel = 2 Then MsgBox tmp & " - " & c.Value
     Next
End Sub
[/vba]


excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
Сообщение[vba]
Код
Sub tt()
     Dim c As Range, tmp$
     For Each c In ActiveSheet.UsedRange.Columns(2).Cells
         If c.Interior.Color = 14545653 Then tmp = c.Value
         If c.Rows.OutlineLevel = 2 Then MsgBox tmp & " - " & c.Value
     Next
End Sub
[/vba]

Автор - Hugo
Дата добавления - 22.03.2014 в 12:04
ikki Дата: Суббота, 22.03.2014, 12:15 | Сообщение № 7
Группа: Друзья
Ранг: Старожил
Сообщений: 1906
Репутация: 504 ±
Замечаний: 0% ±

Excel 2003, 2010
по какому признаку отличать склад от номенклатуры?
если склады одни и те же - можно тупо по наименованиям по списку.
тогда можно будет работать с массивом, а не с ячейками и форматами.


помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki
 
Ответить
Сообщение
по какому признаку отличать склад от номенклатуры?
если склады одни и те же - можно тупо по наименованиям по списку.
тогда можно будет работать с массивом, а не с ячейками и форматами.

Автор - ikki
Дата добавления - 22.03.2014 в 12:15
KosTT18 Дата: Суббота, 22.03.2014, 12:37 | Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
если склады одни и те же - можно тупо по наименованиям по списку.
тогда можно будет работать с массивом, а не с ячейками и форматами.

Да, склады одни и те же. Просто я не знаю как связать конкретный склад с номенклатурой только этого склада. Если бы в первом столбце перед номенклатурой (товаром) в каждой строке стоял признак склада то все можно было сделать просто функцией ВПР. А так пока приходится разносить номенклатуру по каждому отдельному складу на отдельные листы и оттуда вытаскивать в новую таблицу нужного формата функцией ВПР, т.к. количество номенклатуры на каждом складе все время меняется и установить фиксированный диапазон массива для ВПР не получается. Не совсем понимаю как это можно сделать в общей первоначальной таблице.
Спасибо.


Константин
 
Ответить
Сообщение
если склады одни и те же - можно тупо по наименованиям по списку.
тогда можно будет работать с массивом, а не с ячейками и форматами.

Да, склады одни и те же. Просто я не знаю как связать конкретный склад с номенклатурой только этого склада. Если бы в первом столбце перед номенклатурой (товаром) в каждой строке стоял признак склада то все можно было сделать просто функцией ВПР. А так пока приходится разносить номенклатуру по каждому отдельному складу на отдельные листы и оттуда вытаскивать в новую таблицу нужного формата функцией ВПР, т.к. количество номенклатуры на каждом складе все время меняется и установить фиксированный диапазон массива для ВПР не получается. Не совсем понимаю как это можно сделать в общей первоначальной таблице.
Спасибо.

Автор - KosTT18
Дата добавления - 22.03.2014 в 12:37
Hugo Дата: Суббота, 22.03.2014, 12:47 | Сообщение № 9
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3254
Репутация: 707 ±
Замечаний: 0% ±

2019
Мой код нужно Вам в файле показать, чтоб Вы проверили? Там ведь это всё есть, даже отсюда видно...


excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеМой код нужно Вам в файле показать, чтоб Вы проверили? Там ведь это всё есть, даже отсюда видно...

Автор - Hugo
Дата добавления - 22.03.2014 в 12:47
KosTT18 Дата: Суббота, 22.03.2014, 13:15 | Сообщение № 10
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Мой код нужно Вам в файле показать, чтоб Вы проверили? Там ведь это всё есть, даже отсюда видно...


Большое Вам спасибо за ответ! Я конечно же верю, просто пока в выходной нет времени с этим разобраться. Буду Вам очень благодарен если Вы покажете это в файле. yes


Константин
 
Ответить
Сообщение
Мой код нужно Вам в файле показать, чтоб Вы проверили? Там ведь это всё есть, даже отсюда видно...


Большое Вам спасибо за ответ! Я конечно же верю, просто пока в выходной нет времени с этим разобраться. Буду Вам очень благодарен если Вы покажете это в файле. yes

Автор - KosTT18
Дата добавления - 22.03.2014 в 13:15
Hugo Дата: Суббота, 22.03.2014, 13:22 | Сообщение № 11
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3254
Репутация: 707 ±
Замечаний: 0% ±

2019
В файле.
К сообщению приложен файл: 5884515.xls (51.5 Kb)


excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеВ файле.

Автор - Hugo
Дата добавления - 22.03.2014 в 13:22
KosTT18 Дата: Воскресенье, 23.03.2014, 07:52 | Сообщение № 12
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
В файле.

respect Спасибо!!! буду разбираться


Константин
 
Ответить
Сообщение
В файле.

respect Спасибо!!! буду разбираться

Автор - KosTT18
Дата добавления - 23.03.2014 в 07:52
KosTT18 Дата: Воскресенье, 23.03.2014, 08:50 | Сообщение № 13
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Еще последний вопрос: подскажите где/что почитать по созданию и написанию макросов для Excel? Так сказать учебник по мат.части.
Гугл по поиску в основном выдает только ссылки на краткое описание как включить макросы и их простейшие примеры.


Константин
 
Ответить
СообщениеЕще последний вопрос: подскажите где/что почитать по созданию и написанию макросов для Excel? Так сказать учебник по мат.части.
Гугл по поиску в основном выдает только ссылки на краткое описание как включить макросы и их простейшие примеры.

Автор - KosTT18
Дата добавления - 23.03.2014 в 08:50
alex1248 Дата: Воскресенье, 23.03.2014, 09:20 | Сообщение № 14
Группа: Проверенные
Ранг: Обитатель
Сообщений: 384
Репутация: 71 ±
Замечаний: 0% ±

Excel 2007, 2010
На этом форуме есть раздел "Библиотека", там найдете. yes


skype alex12481632
Qiwi +79276708519
 
Ответить
СообщениеНа этом форуме есть раздел "Библиотека", там найдете. yes

Автор - alex1248
Дата добавления - 23.03.2014 в 09:20
KosTT18 Дата: Воскресенье, 23.03.2014, 09:52 | Сообщение № 15
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
На этом форуме есть раздел "Библиотека", там найдете.

Спасибо, вот только в разделе библиотеки Книги по Visual Basic for Application. из 8-и книг рабочие ссылки для скачивания только у 2-х :( .
Но это скорее уже вопрос к модераторам..


Константин
 
Ответить
Сообщение
На этом форуме есть раздел "Библиотека", там найдете.

Спасибо, вот только в разделе библиотеки Книги по Visual Basic for Application. из 8-и книг рабочие ссылки для скачивания только у 2-х :( .
Но это скорее уже вопрос к модераторам..

Автор - KosTT18
Дата добавления - 23.03.2014 в 09:52
KosTT18 Дата: Воскресенье, 23.03.2014, 10:50 | Сообщение № 16
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Какие ссылки нерабочие?

При нажатии Скачать книгу выходит сообщение 404 Not Found по книгам:
- Использование макросов в Excel.
- Интенсивный курс программирования в Excel за выходные
- Программирование на VBA 2002
- Профессиональное программирование на VBA в Excel 2010
- Самоучитель VBA.

P.S. Нашел и скачал нужную с инета...


Константин
 
Ответить
Сообщение
Какие ссылки нерабочие?

При нажатии Скачать книгу выходит сообщение 404 Not Found по книгам:
- Использование макросов в Excel.
- Интенсивный курс программирования в Excel за выходные
- Программирование на VBA 2002
- Профессиональное программирование на VBA в Excel 2010
- Самоучитель VBA.

P.S. Нашел и скачал нужную с инета...

Автор - KosTT18
Дата добавления - 23.03.2014 в 10:50
alex1248 Дата: Воскресенье, 23.03.2014, 10:52 | Сообщение № 17
Группа: Проверенные
Ранг: Обитатель
Сообщений: 384
Репутация: 71 ±
Замечаний: 0% ±

Excel 2007, 2010
KosTT18, в крайнем случае можно погуглить литературу в сети по названиям из библиотеки.


skype alex12481632
Qiwi +79276708519
 
Ответить
СообщениеKosTT18, в крайнем случае можно погуглить литературу в сети по названиям из библиотеки.

Автор - alex1248
Дата добавления - 23.03.2014 в 10:52
Serge_007 Дата: Воскресенье, 23.03.2014, 11:16 | Сообщение № 18
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
- Профессиональное программирование на VBA в Excel 2010
Эта книга скачивается (русская версия), остальные залью повторно сегодня вечером
Спасибо за то что обратили внимание на битые ссылки


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
- Профессиональное программирование на VBA в Excel 2010
Эта книга скачивается (русская версия), остальные залью повторно сегодня вечером
Спасибо за то что обратили внимание на битые ссылки

Автор - Serge_007
Дата добавления - 23.03.2014 в 11:16
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос для переформатирования таблицы данных (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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