Бързо въвеждане на датата и часа, без разделители
Range A2: A10 и B2: B10 замени своята листа площ, която ще бъде въведена по този начин за датата и часа, съответно.
Сродни връзки
Така че, ако и чипове, за да пощади, препинателните знаци не са въведени.
Вмъкна 250811 изходи 10.09.2586
Не поставяйте по-рано, за да влезете на формата на датата клетка. В противен случай, всички влезли Excel автоматично конвертира датата, за да бъдем точни - в неговата специфична дата код. И макроса работи по вече с него, а не с който сте въвели номера.
Добър ден!
На работа, макро използването на няколко компютъра грешка «runtimeerror '13' typemismatch» се появява, когато извършването на тази погрешна "1" или "131312".
След това, на макроса не работи. Макро активира само след perezapuskaExcel.
Не мога да разбера защо това се случва.
Кажи ми какво трябва да направите, ще бъде:
1. -makros отново започнаха да работят без да се рестартира Excel
2. - не се появява на екрана грешка «runtimeerror '13' typemismatch», което води до паника някои потребители.
3. - и моля погледнете макро ли да ми предложи малко променена. Какво му липсва. VVBA мирянин за по-ранни izvenyayus за блудство.
(Файлът, който не мога да прикачите грешка не може да намери връзката "прикача файл"
Цаката макро се случи, най-вероятно се дължи на факта, че забраните за обработка на събитието код Application.EnableEvents = False, а след възникване на грешка, че няма да ти обърне гръб.
Смея да предложи своя собствена версия. )))
Форматът на клетка (Аз имам този D2) излагайте със следния формат:
00 "." 00 "." 0000
На проверка на условията за въвеждане на определени данни за сканиране:
тип данни - от друга страна; и съответства на формулата в съответната клетка (моя е R2).
Формулата на този вид:
= IF (OR (И (LEN (D2) = 7; DATEVALUE (текстове (дата (НАДЯСНО (D2; 4) MID (D2; 2; 2); Съединява ( "0" НАЛЯВО (D2))); " DD.MM.YYYY "))> = 25569; DATEVALUE (текстове (дата (НАДЯСНО (D2; 4) MID (D2; 2; 2); Съединява (" 0 "НАЛЯВО (D2)));" DD .MM.GGGG "))<=44196;ЗНАЧЕН(ТЕКСТ(ПСТР(D2;2;2);"00";))<=12);И(ДЛСТР(D2)=8;ДАТАЗНАЧ(ТЕКСТ(ДАТА(ПРАВСИМВ(D2;4);ПСТР(D2;3;2);ЛЕВСИМВ(D2;2));"ДД.ММ.ГГГГ";))>= 25569; DATEVALUE (текстове (дата (НАДЯСНО (D2; 4) MID (D2; 3; 2); НАЛЯВО (D2 2)); "DD.MM.YYYY"))<=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);ИСТИНА;ЛОЖЬ)));ИСТИНА;ЛОЖЬ)
Така че, за да преведе цялата тази бъркотия в този момент не е проблем, по мое клетка I2 се брои от датата, вписано в клетка D2 плюс 2 месеца тук е формула:
= IF (ISBLANK (D2); ""; IF (LEN (D2) = 7; EDATE (DATE (НАДЯСНО (D2; 4) MID (D2; 2; 2); (Съединява ( "0" НАЛЯВО (D2 )))); 2); EDATE (DATE (НАДЯСНО (D2; 4) MID (D2; 3; 2); НАЛЯВО (D2; 2)) 2)))
Просто отговори на въпроса защо така усложняват нещата - задачата е просто да разчита на макроси.
Момчета и Никола, някой като цяло)) Помощ
Чудесна код, но тук е въпрос:
Ако искам да внедрите кода за този метод на въвеждане на датите в колона, където вече имах първоначално някои клетка форматиране за съжаление, и каквото и друг формат не са се променили, резултатът не е положителен, тогава как мога да получа "не формат клетки "или може би аз нещо в кода си, можете да промените?
PS това, което е повече, да въведа тези 6 цифри не в самия клетката, че имам за това е кода, с който се изкачва диалогов прозорец с молба да въведете данните, кодът се отнася до желаната клетка, където всъщност би искал да види датата. Но след това отново, тези 6 числа, които въвеждам в диалоговия прозорец, за който пише кода.
Ако вие не разбирате какво имам предвид, когато се говори за кода и диалоговия прозорец, след това тук са още няколко:
Аз се създаде таблица на най-подходящо да се работи, да не се извършва на мишката и кликнете чрез триста пъти клетките, Поръчала съм няколко полезни парчета в изходния код на листа, така че просто трябва да се започне, за да влезе в конкретни данни клетъчни, а след това изпълни код верига и различни действия под формата на диалогови кутии, като например:
Диалогов прозорец "Въведете дата" - това е само първата заявка - и аз не се нуждаят от текущата, и този, който аз се влиза, за този срок подходи по проекта. На днешната дата се въвежда автоматично в другото място, аз вече благодарение на начина, по който Никола реализирани преди няколко години, много благодаря, не само за него)) По принцип, аз все още трябва да въведете датата изцяло или в писмена форма, като например "9ти Май" за бързо бе но аз съм много по-удобно би било всички да влязат в цифровата клавиатура, само на 6 въведени цифри притискат влиза, катери се следния прозорец "влиза бюджет" и така нататък, цифровия панел - ентерит, цифровия панел-ентеро - бързо и удобно, и не трябва да се движат по линията за различни клетки, за да потърси очите, толкова повече рискът е да не се влиза, и колоните много и обърка лесно.
Това ми е за пълната картина само писмено да се разбира)) и дали, ако мога така да бъде малко по-метод се осъществява с помощта като тези диалогови прозорци, че кодът не е необходимо да въведете датата.
Благодаря ви предварително на всички, и най-вече Никола.