Вопрос : Помощь Кодего VBA

Я прикреплял мое рабочий лист по мере того как это должно помочь самому лучшему explain.

I теперь для того чтобы иметь кнопку командование раз отжимала проверки форма клеток B7: Кажется, что работает отлично и выделяется Кодий H29

The что-нибыдь в желтом цвете когда линия полно не завершена или неправильно format.

There как раз одна аномалия, котор я желаю проутюжить вне. В клетке D10 я нарочно ударял клавишу пробела немного времен. Я хотел был бы кнопка командование также для того чтобы выделить примеры когда дополнительным космосом будет используемые спасибо erroneously.

Many для вашего
help

Gaz class= " lastRow
>Attachments " имени " class= class= " значение "
>
class= " fileInfo "
title= " " filename class= " gaz-project-6-.xls (32 KB)  яваскрипт " href= " " attachmentDetails class= (тип архива детали)  
class= " описание "
help
class=
>
class=

Ответ : Помощь Кодего VBA

Как о следующий заменять ть:

        Если IsDate, то (клетки (I, jj)) После этого
с
        Если IsDate, то (клетки (I, jj)) И InStr (клетки (I, jj), «") = 0 после этого

Крис
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

Приватная подводная лодка CommandButton1_Click ()

Затемните I, j, jj как интежер

'Освобождает существующий форму цвета
Ряд («B7: H29»). Отборно
Selection.Interior.ColorIndex = xlNone

'Формы как reqd.
Для I = от 7 до 29
    Если Application.WorksheetFunction.CountBlank, то (ряд («b» & I &»: H " & I)) = 7 после этого
    Еще
    Для j = от 2 до 3
        Если клетки (I, j) = "" после этого
            Клетки (I, j). Отборно
            Selection.Interior.ColorIndex = 6
        Закончитесь если
    Затем
    Для jj = от 4 до 8
        Если IsDate, то (клетки (I, jj)) И InStr (клетки (I, jj), «") = 0 после этого
        Еще
            Клетки (I, jj). Отборно
            Selection.Interior.ColorIndex = 6
        Закончитесь если
    Затем
    Закончитесь если
Затем
Подводная лодка конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us