Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.06.2011, 12:47   #11
user7789
Пользователь
 
Регистрация: 29.07.2009
Сообщений: 65
По умолчанию

исправил,
на
=ISNUMBER(SEARCH(B1,Sheet1!A:A))

не работает!
user7789 вне форума Ответить с цитированием
Старый 10.06.2011, 12:52   #12
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

Работает типа
=VLOOKUP("*" & B1 & "*";$A$1:$A$20;1;0)
Но вопрос - всё ли всегда заполнено, и что хотите получить в ответе?
Второй вопрос снимаю, перепрочитал

Так попробуйте, с подстраховкой:
=IF(LEN(B1);IF(ISERROR(VLOOKUP("*"& B1&"*";$A$1:$A$20;1;0));"";"OK");"" )
вернее даже так (и по всему столбцу):
Код:
=IF(LEN(TRIM(B1));IF(ISERROR(VLOOKUP("*"&B1&"*";A:A;1;0));"";"OK");"")
webmoney: E265281470651 Z422237915069 R418926282008

Последний раз редактировалось Hugo121; 10.06.2011 в 13:08.
Hugo121 вне форума Ответить с цитированием
Старый 10.06.2011, 12:57   #13
user7789
Пользователь
 
Регистрация: 29.07.2009
Сообщений: 65
По умолчанию

Цитата:
Сообщение от Hugo121 Посмотреть сообщение
Работает типа
=VLOOKUP("*" & B1 & "*";$A$1:$A$20;1;0)
Но вопрос - всё ли всегда заполнено, и что хотите получить в ответе?
Второй вопрос снимаю, перепрочитал
в столбце а- информация всегда такая.
в столбце b- переменная.
в столбце c- если значения столбца b нашло себя в столбце а, то без разницы как это указывать, можно 1-если есть или 0-если нет.
user7789 вне форума Ответить с цитированием
Старый 10.06.2011, 13:24   #14
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

Просто если в столбце b нет переменной (пусто), то нужно это обработать, иначе ВПР() (первый вариант) вытянет первое попавшееся значение.
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Старый 10.06.2011, 14:07   #15
user7789
Пользователь
 
Регистрация: 29.07.2009
Сообщений: 65
По умолчанию

Цитата:
Сообщение от Hugo121 Посмотреть сообщение
Просто если в столбце b нет переменной (пусто), то нужно это обработать, иначе ВПР() (первый вариант) вытянет первое попавшееся значение.

теперь настанет долгое время тестирования...
user7789 вне форума Ответить с цитированием
Старый 11.06.2011, 10:27   #16
user7789
Пользователь
 
Регистрация: 29.07.2009
Сообщений: 65
По умолчанию

Hugo121, спасибо, формула работает.

но теперь возникла другая проблема...

пытался записать макрос, чтоб он копировал значения с ячейки B1 по B200 и искал свое значения в столбце A, и если находил, то выделял жирным шрифтов целую ячейку.
получилось так:

Range("B1").Select
Selection.Copy
Columns("A:A").Select
Selection.Find(What:="KZ1EXLC111390 0", After:=ActiveCell, LookIn:= _
xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext _
, MatchCase:=False, SearchFormat:=False).Activate
Range("A5").Select
Selection.Font.Bold = True


где KZ1EXLC1113900 - может быть любое значение.
и Range("A5").Select - ячейка может быть любая, зависит от того какое значение указано в ячейке b1.
user7789 вне форума Ответить с цитированием
Старый 11.06.2011, 16:07   #17
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

Так попробуйте:
Код:
Option Explicit

Sub tt()
Dim cc As Range
On Error Resume Next
For Each cc In [b1:b200]
Columns("A:A").Find(What:=cc, LookIn:= _
xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False).Font.Bold = True
Next
On Error GoTo 0
End Sub
copy в Вашем коде вообще не понятно зачем, а selection только тормозит.
On Error Resume Next на случай ненахождения.
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Разбиение числа Neitrosha Помощь студентам 1 26.11.2010 23:21
Разбиение CString Tesmont Помощь студентам 1 10.11.2010 10:39
Разбиение hrusha2006 Помощь студентам 0 07.11.2010 09:13
разбиение текста на слова Vladimir-888 Помощь студентам 4 19.04.2010 09:08
Разбиение текста на блоки. gosu Общие вопросы C/C++ 11 04.06.2009 19:12