альтернатива Is Nothing

Кевин

Гость

03.08.2010 18:11:38

Добрый день.
Часто видел примеры конструкции If условие (к примеру поиск нужной ячейки) Is Nothing Then - инструкция. Но никак не могу найти если наоборот, условие выполняется...
какое ключевое слово должно идти после Is вместо слова Nothing?

Кевин Гость	#2 03.08.2010 18:33:50 Спасибо! Выходит от слова Nothing никуда не денешься. Конструкция работает. Хотя конечно интересно, почему нельзя было сделать в языке vba ключевое слово антоним Nothing. Еще раз спасибо.

С.М. Гость	#3 03.08.2010 19:31:18 {quote}{login=Кевин}{date=03.08.2010 06:33}{thema=}{post}Спасибо! Выходит от слова Nothing никуда не денешься. {/post}{/quote} Можно проверить так: If TypeName(Объектная_или_Variant_переменная) = "Range" Then

Кевин

Гость

04.08.2010 00:01:16

{quote}{login=С.М.}{date=03.08.2010 07:31}{thema=Re: }{post}{quote}{login=Кевин}{date=03.08.2010 06:33}{thema=}{post}Можно проверить так:
If TypeName(Объектная_или_Variant_переменная) = "Range" Then{/post}{/quote}
Эта конструкция мне не до конца понятна, точнее я попробовал, она не работает.
Может потому, что переменную я не использую. Кода такой. Если через Nothing

If Not Range("B" & str_zap).Find(" иск кожа синтетика", , , xlPart, , xlNext) Is Nothing Then Range("I" & str_zap) = "100% ПВХ"
Range("K" & str_zap) = "Резина"

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#5 04.08.2010 00:13:51 Кевин, а если Вам также будут отвечать - всё в одну строку - Вы разберётесь?

Кевин

Гость

04.08.2010 00:32:12

отвечал с цитированием, обрезал часть, и видимо неудачно, так как формат сбился. Надеюсь сейчас лучше будет.

If TypeName(Объектная_или_Variant_переменная) = "Range" Then

Эта конструкция мне не до конца понятна, точнее я попробовал, она не работает. Может потому, что переменную я не использую.

Код у меня такой (привожу часть). Если через Not Nothing.
If Not Range("B" & str_zap).Find(" иск кожа синтетика", , , xlPart, , xlNext) Is Nothing Then
Range("I" & str_zap) = "100% ПВХ"
Range("K" & str_zap) = "Резина"

С.М.

Гость

04.08.2010 01:02:40

{quote}{login=Кевин}{date=04.08.2010 12:32}{thema=сбился формат}{post}
If TypeName(Объектная_или_Variant_переменная) = "Range" Then

Эта конструкция мне не до конца понятна, точнее я попробовал, она не работает.
{/post}{/quote}
Кевин, работайте с тем, что понятно и работает.

Кевин

Гость

04.08.2010 01:38:34

Этот принцип - делать всегда то, что понятно, и что уже умеешь - очень двояк.
Следуя ему ничему новому не научишься. Хотя им можно пользоваться, чтобы на какое-то время отложить освоение пока непонятной задачи.

С.М. Гость	#9 04.08.2010 12:19:06 {quote}{login=Кевин}{date=04.08.2010 01:38}{thema=}{post}Этот принцип - делать всегда то, что понятно, и что уже умеешь - очень двояк. Следуя ему ничему новому не научишься. Хотя им можно пользоваться, чтобы на какое-то время отложить освоение пока непонятной задачи.{/post}{/quote} Согласен. Я про то, что If Not условие (к примеру поиск нужной ячейки) Is Nothing Then работоспособная конструкция, а оператора NotNothing или функции IsNothing() в VBA нет.

Читают тему