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

Вход

Регистрация

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

 

= Мир MS Excel/Сравнение текста в Exel - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сравнение текста в Exel (Функции/Function)
Сравнение текста в Exel
makroshka Дата: Понедельник, 08.05.2017, 14:14 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Очень прошу помощи. Я в VBA новичок и не совсем понимаю, почему не работает программа.
Есть задача: в столбике D есть выделенные желтым ячейки. Программа должна находить эти ячейки и сравнивать на совпадение с остальными ячейками в этом столбике. Значение совпадения в процентах должно оказаться в столбике М, напротив сравниваемых ячейках.
Нашла код, который вроде бы подходит (и он даже работал как надо...пару строк), но программа вылетает и выделяет строку

[vba]
Код
If t2 Like Shablon Then
[/vba]

в функции Shodstvo.

Прошу помочь переиначить код, так чтобы он работал без косяков. Или предложите свой вариант, если считаете что он будет оптимальнее(у меня это уже 3-й вариант и я откровенно иссякла на идеи).
 
Ответить
СообщениеОчень прошу помощи. Я в VBA новичок и не совсем понимаю, почему не работает программа.
Есть задача: в столбике D есть выделенные желтым ячейки. Программа должна находить эти ячейки и сравнивать на совпадение с остальными ячейками в этом столбике. Значение совпадения в процентах должно оказаться в столбике М, напротив сравниваемых ячейках.
Нашла код, который вроде бы подходит (и он даже работал как надо...пару строк), но программа вылетает и выделяет строку

[vba]
Код
If t2 Like Shablon Then
[/vba]

в функции Shodstvo.

Прошу помочь переиначить код, так чтобы он работал без косяков. Или предложите свой вариант, если считаете что он будет оптимальнее(у меня это уже 3-й вариант и я откровенно иссякла на идеи).

Автор - makroshka
Дата добавления - 08.05.2017 в 14:14
Pelena Дата: Понедельник, 08.05.2017, 14:34 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 10996
Репутация: 2455 ±
Замечаний: 0% ±

Excel 2010 & Mac Excel 2011
Файл с примером помог бы в понимании проблемы


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеФайл с примером помог бы в понимании проблемы

Автор - Pelena
Дата добавления - 08.05.2017 в 14:34
makroshka Дата: Понедельник, 08.05.2017, 17:42 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Простите. Упустила из вида.
К сообщению приложен файл: _1.zip(94Kb)
 
Ответить
СообщениеПростите. Упустила из вида.

Автор - makroshka
Дата добавления - 08.05.2017 в 17:42
KuklP Дата: Понедельник, 08.05.2017, 19:51 | Сообщение № 4
Группа: Проверенные
Ранг: Старожил
Сообщений: 2111
Репутация: 453 ±
Замечаний: 0% ±

Еще
Упустила из вида.
кросс:
http://forum.msexcel.ru/index.php/topic,11707.0.html
И Правила: 5.s.
Можно закрыть глаза ввиду того, что новичок, но на будущее - давайте ссылки на свои темы самостоятельно.


Ну, с НДС и мы чего-то стoим! kuklp@mail.ru
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеЕще
Упустила из вида.
кросс:
http://forum.msexcel.ru/index.php/topic,11707.0.html
И Правила: 5.s.
Можно закрыть глаза ввиду того, что новичок, но на будущее - давайте ссылки на свои темы самостоятельно.

Автор - KuklP
Дата добавления - 08.05.2017 в 19:51
Pelena Дата: Вторник, 09.05.2017, 12:57 | Сообщение № 5
Группа: Модераторы
Ранг: Местный житель
Сообщений: 10996
Репутация: 2455 ±
Замечаний: 0% ±

Excel 2010 & Mac Excel 2011
makroshka, так и не поняла, что с чем надо сравнивать. Куда записывать функцию и с какими аргументами?


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
Сообщениеmakroshka, так и не поняла, что с чем надо сравнивать. Куда записывать функцию и с какими аргументами?

Автор - Pelena
Дата добавления - 09.05.2017 в 12:57
RAN Дата: Вторник, 09.05.2017, 13:47 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4419
Репутация: 872 ±
Замечаний: 0% ±

2010
Из справки Like
Note
To match the special characters left bracket ([), question mark (?), number sign (#), and asterisk (*), enclose them in brackets. The right bracket (]) can't be used within a group to match itself, but it can be used outside a group as an individual character.
Малой кровью можно выкрутиться так
[vba]
Код
Nach = Mid$(t1, i, j)
            If InStr(Nach, "[") Then Nach = Replace$(Nach, "[", "[[]") ' и, на всякий случай, прописать аналогично для других спецсимволов
 Shablon = Sha1 & Nach & "*"
[/vba]


Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Вторник, 09.05.2017, 14:04
 
Ответить
СообщениеИз справки Like
Note
To match the special characters left bracket ([), question mark (?), number sign (#), and asterisk (*), enclose them in brackets. The right bracket (]) can't be used within a group to match itself, but it can be used outside a group as an individual character.
Малой кровью можно выкрутиться так
[vba]
Код
Nach = Mid$(t1, i, j)
            If InStr(Nach, "[") Then Nach = Replace$(Nach, "[", "[[]") ' и, на всякий случай, прописать аналогично для других спецсимволов
 Shablon = Sha1 & Nach & "*"
[/vba]

Автор - RAN
Дата добавления - 09.05.2017 в 13:47
makroshka Дата: Вторник, 09.05.2017, 15:19 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Так, с символами поняла, буду отрабатывать. Пока попробовала в таком виде вставить в код. Программа зависла и я понять не могу - она так считает или пора перезагружать программу. Висит уже 30 минут...
 
Ответить
СообщениеТак, с символами поняла, буду отрабатывать. Пока попробовала в таком виде вставить в код. Программа зависла и я понять не могу - она так считает или пора перезагружать программу. Висит уже 30 минут...

Автор - makroshka
Дата добавления - 09.05.2017 в 15:19
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сравнение текста в Exel (Функции/Function)
Страница 1 из 11
Поиск:

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