Questione : Errore 2029 che prova ad ottenere la data di serie della data formattata come “General„


Sto richiedendo una data di inizio e una data di conclusione via msgbox dall'utente che lo converto in data di serie allora deve mostrare soltanto i dati fra quella gamma della data.  La disposizione delle cellule che contengono le date sono formattate come “General„ in modo da io applica la funzione di serie della data ed ottiene l'errore 2029.   Non posso calcolarlo fuori!!
Attacco il foglio elettronico
Ottengo l'errore a questa linea
Se (cellula. Valore) < 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 secondario ()
D fioca come doppio
Oscurare la i come variante

Oscurare il cel come gamma, celStart come gamma, celEnd come gamma, rg come gamma, del As Range
Oscurare StartDate come lungamente, EndDate come lungamente

StartDate = CLng (CDate (Application.InputBox (“entrare prego nella data iniziare„, scriv: =2)))
Se StartDate = 0 allora esce il sommergibile
EndDate = CLng (CDate (Application.InputBox (“entrare prego nella data di conclusione„, scriv: =2)))
Se EndDate = 0 allora esce il sommergibile

    Gamma (“J2„). Prescelto
  'prova using la pubblicazione periodica della data
    Gamma (“J2„) .FormulaR1C1 = “=DATESERIAL (METÀ DI (J2,7,4), ANDATO (J2,2), METÀ DI (J2,4,2))„

'
 Regolare la prima ') (della data„ J2 “della gamma = del rg cellula
 Regolare il rg = la gamma (rg, cellule (Rows.Count, rg. Colonna). Estremità (xlUp)) 'Tutte le date in quella colonna

Se EndDate < StartDate="" Then="" d="EndDate" EndDate="StartDate" StartDate="d" End="" If="" Application=""> EndDate allora
       Se del Is Nothing allora
          Regolare il del = la cellula
          Altrimenti: Regolare il del = l'unione (del, cellula)
      Concluder se
   Concluder se
Cellula seguente

 Sul riassunto di errore dopo
 del.EntireRow.Delete

Application.ScreenUpdating = allineano
  
    
Sommergibile dell'estremità
Collegamenti:
 
forTesting2.xls (23 Kb) (tipo di lima particolari) 
dati del foglio elettronico
 

Risposta : Errore 2029 che prova ad ottenere la data di serie della data formattata come “General„

IDK, assistente non è stato ricominciato… ma sembra mantenere le regolazioni dopo che terzo tentativo.
Altre soluzioni  
 
programming4us programming4us