intrare rapidă data și ora fără separatoare

Gama A2: A10 și B2: B10 înlocui zona sa de frunze, care va fi introdus in acest fel, respectiv data și ora.

Link-uri conexe

Deci, dacă și chips-uri la schimb, semnele de punctuație nu este înscris.

Inserez 250811 ieșiri 10.09.2586

Nu așezați în prealabil pentru a introduce formatul datei celulei. În caz contrar, toate Excel introdus convertește automat data, pentru a fi exact - în codul său anumită dată. Iar macro lucrează la deja cu el, și nu cu tine introdus numerele.

Buna ziua!
La locul de muncă, utilizarea macro pe mai multe calculatoare de eroare «RuntimeError«13»typemismatch» apare atunci când se face o astfel de eronată „1“ sau „131312“.
După aceea, macrocomanda nu funcționează. Macro activată numai după perezapuskaExcel.
Nu pot să înțeleg de ce acest lucru se întâmplă.
Spune-mi ce trebuie să faci ar fi:
1. -makros din nou, a început să lucreze fără a reporni Excel
2. - nu apare pe ecran de eroare «RuntimeError«13»typemismatch» care duce la panica unii utilizatori.
3. - și vă rugăm să uite macro mi-ai oferit un pic modificat. Ceea ce îi lipsește. VVBA nespecialist pentru izvenyayus anterioare pentru molestarea.

(Fișierul pe care nu le pot atașa o greșeală nu poate găsi link-ul „atașați un fișier“

Un macro hang apare, cel mai probabil datorită faptului că dezactivați gestionarea evenimentelor Application.EnableEvents cod = false, iar după apariția unei erori nu te va întoarce.

Eu îndrăznesc să ofere propria versiune. )))

Formatul celulei (am acest D2) expune tipul formatului:
00 "" 00 "" 0000

La verificarea set de intrare de date condițiile de scanare:
tipul de date - de altă parte; și corespunde formulei în căsuța corespunzătoare (a mea este R2).

Formula de acest fel:
= IF (OR (AND (LEN (D2) = 7; DATEVALUE (TEXT (DATE (RIGHT (D2; 4) MID (D2, 2, 2); concatena ( "0" STÂNGA (D2))); " ZZ.LL.AAAA ";))> = 25569; DATEVALUE (TEXT (DATE (RIGHT (D2; 4) MID (D2; 2; 2); concatena (" 0 "LEFT (D2)));" DD .MM.GGGG „;))<=44196;ЗНАЧЕН(ТЕКСТ(ПСТР(D2;2;2);"00";))<=12);И(ДЛСТР(D2)=8;ДАТАЗНАЧ(ТЕКСТ(ДАТА(ПРАВСИМВ(D2;4);ПСТР(D2;3;2);ЛЕВСИМВ(D2;2));"ДД.ММ.ГГГГ";))>= 25,569; DATEVALUE (TEXT (DATE (RIGHT (D2; 4) MID (D2; 3; 2); STÂNGA (D2; 2)); "ZZ.LL.AAAA";))<=44196;ЗНАЧЕН(ТЕКСТ(ПСТР(D2;3;2);"00";))<=12;ИЛИ(ЕСЛИ(И(ИЛИ(ЗНАЧЕН(ТЕКСТ(ПСТР(D2;3;2);"00";))=1;ЗНАЧЕН(ТЕКСТ(ПСТР(D2;3;2);"00";))=3;ЗНАЧЕН(ТЕКСТ(ПСТР(D2;3;2);"00";))=5;ЗНАЧЕН(ТЕКСТ(ПСТР(D2;3;2);"00";))=7;ЗНАЧЕН(ТЕКСТ(ПСТР(D2;3;2);"00";))=8;ЗНАЧЕН(ТЕКСТ(ПСТР(D2;3;2);"00";))=10;ЗНАЧЕН(ТЕКСТ(ПСТР(D2;3;2);"00";))=12;);ЗНАЧЕН(ТЕКСТ(ЛЕВСИМВ(D2;2);"00";))<=31);ИСТИНА;ЛОЖЬ);ЕСЛИ(И(ИЛИ(ЗНАЧЕН(ТЕКСТ(ПСТР(D2;3;2);"00";))=4;ЗНАЧЕН(ТЕКСТ(ПСТР(D2;3;2);"00";))=6;ЗНАЧЕН(ТЕКСТ(ПСТР(D2;3;2);"00";))=9;ЗНАЧЕН(ТЕКСТ(ПСТР(D2;3;2);"00";))=11);ЗНАЧЕН(ТЕКСТ(ЛЕВСИМВ(D2;2);"00";))<=30);ИСТИНА;ЛОЖЬ);ЕСЛИ(И(ЗНАЧЕН(ТЕКСТ(ПСТР(D2;3;2);"00";))=2;ЗНАЧЕН(ТЕКСТ(ЛЕВСИМВ(D2;2);"00";))<=29);ИСТИНА;ЛОЖЬ)));ИСТИНА;ЛОЖЬ)

Deci, pentru a traduce toate încurcătura asta dată nu este o problemă, în I2 celula mea este luată în calcul de la data înscrisă în celula D2 plus 2 luni, aici este o formulă:
= IF (ISBLANK (D2) "" IF (LEN (D2) = 7; EDATE (DATE (RIGHT (D2; 4) MID (D2, 2; 2) (concatena ( "0" STÂNGA (D2 )))); 2); EDATE (DATE (RIGHT (D2; 4) MID (D2; 3; 2); STÂNGA (D2; 2)) 2)))

Doar răspunde la întrebarea de ce atât de complica lucrurile - sarcina a fost pur și simplu de a face fără macro-uri.

baieti Nikolai sau oricine, în general)) Ajută-
Un cod minunat, dar aici e întrebarea
Dacă vreau să pună în aplicare codul pentru această metodă de introducere date într-o coloană în care am avut deja inițial unele celule format Din păcate, și orice alt format nu m-am schimbat, nu există nici un rezultat pozitiv, atunci cum pot reveni „nici un format celulele „, sau poate am ceva în codul dvs., puteți schimba?

PS ceea ce este mai mult, introduc 6 cifre nu este în sine o celulă, trebuie să aibă acest cod, prin care urcă o casetă de dialog care vă solicită să introduceți datele, codul se referă la celula dorită în cazul în care am dori de fapt să vedeți data. Dar, apoi, din nou, aceste 6 numere am introdus în caseta de dialog pentru care ați scris codul.

Dacă nu înțelegi ce vreau să spun atunci când se vorbește despre codul și caseta de dialog, atunci aici sunt alte câteva:
Am înființat un tabel de cel mai convenabil de a lucra, nu pentru a transporta mouse-ul și faceți clic prin intermediul a trei sute de ori celule, am comandat câteva piese utile în codul sursă al foii, astfel încât ar trebui să doar începutul pentru a intra într-o serie de date de celule specifice, și apoi executați codul lanț și diferite acțiuni în formă de casete de dialog, cum ar fi:

caseta de dialog „Data Enter“ - aceasta este doar prima cerere - și eu nu nevoie de cel curent, iar cel pe care eu însumi voi intra, pentru acest proiect abordări deadline. Data curentă este introdusă automat în celălalt loc, am deja datorită modului Nicolae a realizat un cuplu de ani în urmă, multe mulțumiri, nu numai pentru ea)) În general, eu încă mai trebuie să introduceți data în totalitate sau în scris, cum ar fi „09 mai“ la rapid a fost dar sunt mult mai convenabil ar fi totul pentru a intra pe numpad, la doar 6 cifre introduse presat intră, se catara caseta de dialog „enter buget“ și așa mai departe, NumPad următoare - enterită, NumPad-entero - rapid și comod, și nu trebuie să circule pe linie pentru o varietate de celule pentru a căuta ochii, cu atât mai mult riscul este de a nu intra, iar coloanele lot și confunda cu ușurință.
Aceasta este pentru mine imaginea completă doar în scris să fie înțeles)) și dacă, în cazul în care am putea fi o metodă puțin este implementată prin intermediul ca aceste casete de dialog, că acest cod nu este necesară pentru a introduce data.

Vă mulțumesc anticipat tuturor, și în special Nicholas.