Вопрос : Ошибка 2029 пытаясь получить серийную дату даты после того как я форматировано как «генералитет»


Я принимаю дату начала и дате законцовки через msgbox от потребителя я преобразовываю к серийной дате после этого меня нужно показать только данные между тем рядом даты.  Форма клеток содержат даты форматированы как «генералитет» поэтому я прикладываем функцию даты серийную и получаем ошибку 2029.   Я не могу вычислять его вне!!
Я прикрепляю электронная таблица
Я получаю ошибку на этой линии
Если (клетка. Значение) < StartDate="" Or=""> EndDate 
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:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:

Sub DateRange ()
Тусклый d как двойник
Затемните I как вариант

Затемните cel как ряд, celStart как ряд, celEnd как ряд, rg как ряд, del Как Ряд
Затемните StartDate как длиной, EndDate как длиной

StartDate = CLng (CDate (Application.InputBox («пожалуйста впишите дату старта», напечатайте на машинке: =2)))
Если StartDate = 0 после этого выходит подводная лодка
EndDate = CLng (CDate (Application.InputBox («пожалуйста впишите дату законцовки», напечатайте на машинке: =2)))
Если EndDate = 0 после этого выходит подводная лодка

    Ряд («J2»). Отборно
  'попытка using серия даты
    Ряд («J2») .FormulaR1C1 = «=DATESERIAL (СРЕДНЕЕ (J2,7,4), О (J2,2), СРЕДНИЙ (J2,4,2))»

'
 Установите клетку rg = даты «J2» ряда () 'первую
 Установите rg = ряд (rg, клетки (Rows.Count, rg. Колонка). Конец (xlUp)) 'Все даты в той колонке

Если EndDate < StartDate="" Then="" d="EndDate" EndDate="StartDate" StartDate="d" End="" If="" Application=""> EndDate после этого
       Если del Is Ничего после этого
          Установите del = клетку
          Еще: Установите del = соединение (del, клетку)
      Закончитесь если
   Закончитесь если
Следующая клетка

 На резюме ошибки затем
 del.EntireRow.Delete

Application.ScreenUpdating = True
  
    
Подводная лодка конца
Приложения:
 
forTesting2.xls (23 KB) (тип архива детали) 
данные по электронная таблица
 

Ответ : Ошибка 2029 пытаясь получить серийную дату даты после того как я форматировано как «генералитет»

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