Ca și în Excel, pentru ca mașina să pună data lunii și anului atunci când introduceți numai ziua

Ceva ca tipul 04, și 05.14 eksel se pune pe sine.
DV, da 13 ani, clerical. Adesea este necesar să punem datele, anul în care îmi place exelul în sine. Intrez 13.05 - introduceți și anul este pus automat. Așa că am crezut că poți automatiza cumva și o lună. Trebuie să existe căi. Un an este pus într-un fel. Pe laptop-ul meu, tastatura dreaptă este în general inconfortabilă, iar această icoană / nu este deloc apropiată.






Alexey, documentul descărcat pune automat data la introducerea unui număr și a unei perioade. Am pus 13. și 05 de mine și anul este pus automat. Cool, dar poți să faci ceva de genul ăsta, fără un punct, doar numărul și entuziaștii și totul a fost setat totul? iar o altă lună este adesea necesară nu 05. și cea anterioară o4 sau 03, cum să o schimbați?

Excel: Cum se face în Excel pentru a pune data și ora lunii și anului când introduceți doar numărul zilei?







Ca și în excel, asigurați-vă că celula este introdusă automat date din ultima celulă a unei coloane

164799 885339 703361

Hysteria (Guest) Acum 3 ani

Sarcina poate fi rezolvată cu ajutorul unei macrocomenzi. Cod în modulul foaie
Sub-foaia de lucru sub-lucrare_ (ținta ByVal ca domeniu)
Application.EnableEvents \ u003d False
La reluarea erorii următoare
Dacă nu se intersectează (interval ("A2: A10"), țintă) nu este nimic atunci
Dacă Target.NumberFormat \ u003d "m / d / yyyy" și țintă \ "și țintă 0 și țintă \ u003c 32 Atunci
Target \ u003d DateSerial (Anul (Data), Luna (Data), Target)
altfel
Vizați \ u003d ""
Sfârșit Dacă
Sfârșit Dacă
Application.EnableEvents \ u003d Adevărat
End Sub

Pentru nota nr. 2
La mine, la intrarea numărului fără un punct, data se dovedește. Și cu un punct nu ar trebui să funcționeze.
Aveți posibilitatea să modificați luna direct în celulă sau să remediați macroul ca acesta
Țintă \ u003d DateSerial (Anul (Data), Luna (Data) - 1, Țintă)

ponka999 (Guest) Acum 3 ani

Canya XD (Guest) Acum 3 ani

310739 310740 310741

Răspundeți la întrebare







Trimiteți-le prietenilor: