Есть прайс и в нем есть строки с товарами и строки с категориями (Портативные устройства и Ноутбуки) а также подкатегории (GPS навигаторы,Электронные книги,КПК,Рации,Нетбуки).Можно ли сделать как бы привязку по колонке Цена,что если есть цена(просто есть любая сумма)тогда ничего не трогаем - обычный товар,а если нет цены,то добавить в начало подкатегории (GPS навигаторы...знак !(воскл знак) и получится слово !GPS навигаторы)и так по всему списку.Конечно в идеале мне нужно такое только с подкатегориями но не с категориями.Если так сильно сложно тогда просто что бы везде в категориях и подкатегориях стояли знаки!Заранее спасибо за ответы
Есть прайс и в нем есть строки с товарами и строки с категориями (Портативные устройства и Ноутбуки) а также подкатегории (GPS навигаторы,Электронные книги,КПК,Рации,Нетбуки).Можно ли сделать как бы привязку по колонке Цена,что если есть цена(просто есть любая сумма)тогда ничего не трогаем - обычный товар,а если нет цены,то добавить в начало подкатегории (GPS навигаторы...знак !(воскл знак) и получится слово !GPS навигаторы)и так по всему списку.Конечно в идеале мне нужно такое только с подкатегориями но не с категориями.Если так сильно сложно тогда просто что бы везде в категориях и подкатегориях стояли знаки!Заранее спасибо за ответыhimmik
Здравствуйте. Исполните в модуле листа, или книги, или другой книги - обрабатывает активный лист:
Code
Sub MakeSign() Dim i As Long For i = 1 To Range("B" & Rows.Count).End(xlUp).Row If Rows(i).OutlineLevel = 2 Then Cells(i, 2).Value = "!" & Cells(i, 2).Value Next End Sub
Цены во внимание не берутся, проверяется только уровень группировки.
Здравствуйте. Исполните в модуле листа, или книги, или другой книги - обрабатывает активный лист:
Code
Sub MakeSign() Dim i As Long For i = 1 To Range("B" & Rows.Count).End(xlUp).Row If Rows(i).OutlineLevel = 2 Then Cells(i, 2).Value = "!" & Cells(i, 2).Value Next End Sub
Цены во внимание не берутся, проверяется только уровень группировки.
Sub MakeSign() Dim i As Long For i = 1 To Range("B" & Rows.Count).End(xlUp).Row If Rows(i).OutlineLevel = 2 Then Cells(i, 2).Value = "!" & Cells(i, 2).Value Next End Sub
Как сие воплотить в жизнь ?
Quote (Hugo)
Sub MakeSign() Dim i As Long For i = 1 To Range("B" & Rows.Count).End(xlUp).Row If Rows(i).OutlineLevel = 2 Then Cells(i, 2).Value = "!" & Cells(i, 2).Value Next End Sub
Тему можно закрыть,вышел немного другим способом (не с помощью Экселя,а у себя в базе правил конфигурационные файлы).Но за помощь всем спасибо.Как всегда быстро и оперативно
Тему можно закрыть,вышел немного другим способом (не с помощью Экселя,а у себя в базе правил конфигурационные файлы).Но за помощь всем спасибо.Как всегда быстро и оперативно himmik
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
- обрабатывает активный лист: 
