Вывод в текстбокс результата вычисления формулы

[strannick]

Добрый день, уважаемые форумчане!
Вроде и вопрос простой, но видно сегодня не мой день. Есть форма, в которую в текстбокс 1 пользователь вносит вручную названия стран на английском. В текстбоксе 2 нужно получить точное совпадение на русском. В текстбоксах 3 и 4 варианты неполных соответствий.
Не получается вывести в текстбокс 2 результат вычисления формулы ВПР значения текстбокса 1 по листу Словарь. В форме пытался прописать код через переменные. И запутался.
И второе, подскажите как лучше искать частичное совпадение. Той же ВПР? Или чем-то еще?
Заранее спасибо!

[strannick]

Извиняюсь, слегка прогнал. Вот так:

TextBox2.Text = Application.WorksheetFunction.IF(IsError(VLookup(TextBox1.Value, Sheets("Словарь").Range("A:B"), 2, 0)), "Значение не найдено", VLookup(TextBox1.Value, Sheets("Словарь").Range("A:B"), 2, 0))

Ну и другие формулы, которые могут находить неполные соответствия (совпадения).

[EducatedFool]

Я бы получал нужное значение формулой в ячейке,
а для текстбокса назначил бы связанную ячейку (в которой формула)

И макросов не потребовалось бы...

[strannick]

Сообщение от EducatedFool

Я бы получал нужное значение формулой в ячейке,
а для текстбокса назначил бы связанную ячейку (в которой формула)

И макросов не потребовалось бы...

Через ячейку - это понятно, но хотелось как раз уйти от промежуточных телодвижений, а произвести все непосредственно в текстбоксе.

Кстати, приведенный вариант не работает:

TextBox2.Text = Application.WorksheetFunction.If(IsError(VLookup(TextBox1.Value, Sheets("Словарь").Range("A1:B2000"), 2, 0)), "Значение не найдено", VLookup(TextBox1.Value, Sheets("Словарь").Range("A1:B2000"), 2, 0))

Работает так:

TextBox2.Text = Application.WorksheetFunction.VLookup(TextBox1.Value, Sheets("Словарь").Range("A1:B2000"), 2, 0)

Объясните почему? И я так пониманию, если значение не будет найдено, то вывалится в дебаг. Что тогда, ставить ON ERROR RESUME NEXT?