Вопрос : Проверять для отрицательных номеров не работая

Это пытает найти любой отрицательный номер в ряде и показать блок сообщения и выход.  До тех пор оно не делает что-нибыдь для отрицательных номеров, котор оно как раз продолжается дальше с code.
I имеет судимо немного изменений: class= " ясное " >
> " codeSnippet " class=
class= " lineNumbers "
class= 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
>Dim myShapes2 " class= " id= " codeSnippet823373
class=

Ответ : Проверять для отрицательных номеров не работая

Hi.

Попытайтесь эта подпрограмма - проверки определенный ряд для отрицательных значений и индикаций messagebox как требовалось.

Matt
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

Общественное Sub CheckNegative ()

Тусклое rng как ряд
Тусклое cll

Установите rng = ряд («c: C») 'ряд изменения к вы хотите

Для каждого cll в rng
    Если cll. Значение  < 0="" Then="" MsgBox="">
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us