Есть выбранная область. Во втором столбце этой области записано Название Детали с Категорией, формата "НазваниеДеталиКатегория4". Нужно найти Категорию в названии и записать ее в последний столбец выбранной области.
Я решил использовать массив строк, сравнивать все ячейки во втором столбце со всеми значениями массива и записывать подходящий в посл. столбец.
Код: [vba]
Код
Dim rngArea As Range
Dim ChangeTo, Temp As String Dim numOfLetters As Integer
For i = 1 To rng.Rows.Count For s = 1 To 14 If (InStr(1, rng.Cells(i, 2).value, Cat(s))) Then rng.Cells(i, rng.Columns.Count).value = Cat(s) End If Next s Next i
[/vba]
Код работает на некоторые категории, не выводя определенные. Например, не записывает категория3, категория7 и т.д.
Кто-нибудь может пролить свет на такие вещи?) Спасибо!
Здравствуйте!
Есть выбранная область. Во втором столбце этой области записано Название Детали с Категорией, формата "НазваниеДеталиКатегория4". Нужно найти Категорию в названии и записать ее в последний столбец выбранной области.
Я решил использовать массив строк, сравнивать все ячейки во втором столбце со всеми значениями массива и записывать подходящий в посл. столбец.
Код: [vba]
Код
Dim rngArea As Range
Dim ChangeTo, Temp As String Dim numOfLetters As Integer
For i = 1 To rng.Rows.Count For s = 1 To 14 If (InStr(1, rng.Cells(i, 2).value, Cat(s))) Then rng.Cells(i, rng.Columns.Count).value = Cat(s) End If Next s Next i
[/vba]
Код работает на некоторые категории, не выводя определенные. Например, не записывает категория3, категория7 и т.д.
Кто-нибудь может пролить свет на такие вещи?) Спасибо!ill
Hugo, эм, нет и нет. Они там точно есть, я их совершенно четко вижу. Даже написание идентичное. Но и вроде не затирают. Перебор четко по кол-ву категорий, при этом одни и те же категории не находит. Скорее первое, но оно исключается. [moder]Ну так может стоит сделать так, чтобы и мы четко увидели? Файл где Ваш?
Hugo, эм, нет и нет. Они там точно есть, я их совершенно четко вижу. Даже написание идентичное. Но и вроде не затирают. Перебор четко по кол-ву категорий, при этом одни и те же категории не находит. Скорее первое, но оно исключается. [moder]Ну так может стоит сделать так, чтобы и мы четко увидели? Файл где Ваш?ill
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
а если категорий 14?
