Question : Erreur 2029 essayant d'obtenir la date périodique de la date composée en tant que « général »


Je prends une date de commencement et une date de fin par l'intermédiaire de msgbox de l'utilisateur que je me convertis en date périodique puis doit montrer seulement des données entre cette gamme de date.  Le format des cellules qui contiennent les dates sont composées en tant que « général » ainsi moi appliquent la fonction périodique de date et obtiennent l'erreur 2029.   Je ne peux pas la figurer dehors ! !
J'attache le bilan
J'obtiens l'erreur à cette ligne
Si (cellule. Valeur) < 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 :

DateRange secondaire ()
Faible d en tant que double
Obscurcir I comme variante

Obscurcir le cel comme gamme, celStart comme gamme, celEnd comme gamme, rg comme gamme, del As Range
Obscurcir StartDate en tant que longtemps, EndDate en tant que longtemps

StartDate = CLng (CDate (Application.InputBox (« écrire svp la date commençante », dactylographient : =2)))
Si StartDate = 0 sortent alors le sous-marin
EndDate = CLng (CDate (Application.InputBox (« écrire svp la date de fin », dactylographient : =2)))
Si EndDate = 0 sortent alors le sous-marin

    Gamme (« J2 »). Choisi
  'essai using la publication périodique de date
    Gamme (« J2 ») .FormulaR1C1 = « =DATESERIAL (MI (J2,7,4), PARTI (J2,2), MI (J2,4,2)) »

'
 Placer première cellule de rg = de date « J2 » de gamme () la '
 Placer le rg = la gamme (rg, cellules (Rows.Count, rg. Colonne). Extrémité (xlUp)) 'Toutes les dates dans cette colonne

Si EndDate < StartDate="" Then="" d="EndDate" EndDate="StartDate" StartDate="d" End="" If="" Application=""> EndDate alors
       Si del Is Nothing puis
          Placer le del = la cellule
          Autrement : Placer le del = l'union (del, cellule)
      Finir si
   Finir si
Prochaine cellule

 Sur le résumé d'erreur après
 del.EntireRow.Delete

Application.ScreenUpdating = rectifient
  
    
Sous-marin d'extrémité
Attachements :
 
forTesting2.xls (23 KBs) (type de dossier détails) 
données de bilan
 

Réponse : Erreur 2029 essayant d'obtenir la date périodique de la date composée en tant que « général »

IDK, serveur n'a pas été remis en marche… mais il semble avoir gardé les arrangements après que la troisième tentative.
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us