Общие правила признания записи недействительной

• исправления могут производиться как по тому месту работы, где была внесена неверная или неточная запись, так и новым работодателем на основании официального документа работодателя, допустившего ошибку;
• исправленные сведения должны полностью соответствовать документу, на основании которого они были исправлены;
• свидетельские показания не могут быть основанием для исправления внесенных ранее записей, за некоторыми исключениями;
• зачеркивание (замазывание и т. п.) неточных или неправильных записей в разделах трудовой книжки «Сведения о работе» или «Сведения о награждениях» не допускается, их изменение осуществляется посредством признания их недействительными и дальнейшего внесения правильных записей.

Бизнесобзор рекомендует прочитать:

• Исправление В Трудовой Книжке Ошибочно Внесенных Записей: Образец
• Образец Уведомления О Получении Трудовой Книжки При Увольнении — Трудовая Помощь
• Как Сказать Начальнику Об Увольнении По Собственному Желанию — Трудовая Помощь
• Порядок Увольнения С Военной Службы По Собственному Желанию — Трудовая Помощь
• Образец Заявления Об Установлении Факта Родственных Отношений

Юридическая консультация бесплатно в режиме онлайн

Запись недействительна в трудовой книжке

Как известно, трудовая книжка – это документ, в котором отображается «послужной список» работающего человека: перечень всех его рабочих мест. Благодаря этому документу, человеку начисляется пенсионный стаж. Однако, и в таком важном документе могут быть допущены ошибки при заполнении.

Правовые основы

Правильное заполнение трудовой книжки регламентируется особым постановлением мин. Труда и соц. Развития РФ от 10.10.2003 года, под № 69 (для того чтобы в дальнейшем не упоминать полное название постановления, будем называть просто «постановление»).

Также были введены особые правила хранения и учета трудовых книжек. Они были утверждены правительством РФ 16.04.2003 года, под № 223 (опять же, для того чтобы не писать полное название документа, в дальнейшем будем его называть просто «правила»).

Так вот, согласно тридцатому пункту правил, неточные и неправильные тексты не могут зачеркиваться. Для исправления ошибок, нужно признать неверные записи недействительными, и внести новые, верные.

Процедура признания записи недействительной происходит так:

• В третьей графе бланка делается пометка «запись за номером… недействительна», далее производится исправленная формулировка, а в следующей четвертой графе указывается число исправления, а также номер распоряжения, на основании которого осуществляется внесение правильной (приказ либо распоряжение выдает работодатель). Этот порядок действий прописан в пункте один точка два постановления.
• Согласно двадцать седьмому пункту правил, исправляются записи, внесенные в предыдущей организации сотрудника. Исправляется неверная формулировка на новом рабочем месте работника. Основанием к исправлению неверной выступает официальный документ с бывшего места работы.

Оформление правильного исправления

При выявлении неверной записи нужно напротив нее в скобках указать фразу: «запись за номером… недействительна», после, следует указать верную и в соседней графе нужно указать дату исправления, номер приказа работодателя о внесении исправления в трудовую книжку. На данном примере можно отследить следующие моменты, которые необходимо учитывать при внесении данных о том, что запись ошибочная:

1. Нужно указать номер ошибочной формулировки.
2. Нужно сослаться на номер документа, подтверждающего ошибочность.
3. Нужно указать дату внесения неверной записи и дату исправления, таким образом, можно признать формулировку недействительной, и в соответствии с правилами исправить ошибку. Итак, подытожим вышесказанное, какие же записи можно признать неверными:
   • Не соответствующая действительности. К примеру, внесена ошибочная фраза об увольнении сотрудника.
   • Неправильно оформленная, не соответствующая официальному стилю заполнения трудовой книжки.
   • Неполная, к примеру, такая, в которой нет номера приказа или нет даты выхода распоряжения и т. д.Вышеперечисленные формулировки являются недействительными и подлежат исправлению.

Недействительная дата трудоустройства сотрудника

Если в трудовую книжку внесена неверная дата приема сотрудника на работу, то придется переписывать всю строку заново. Для этого следует под неверной записью указать строку «запись под номером…недействительна», а чуть ниже переписать и указать верную дату. Изменение формулировки увольнения.

Бывают случаи, когда неверно внесена формулировка увольнения, она исправляется таким образом: изначально ошибочная запись признается недействительной, далее вносится новая формулировка увольнения работника.

Исправление ошибки, замеченной после увольнения

Устроившись на новую работу, сотрудник отдал трудовую книжку работодателю. При мониторинге документа была выявлена ошибочная запись, сделанная работнику на его предыдущем месте работы. Исправить такую запись можно так: неверная запись признается недействительной (как это сделать, можно прочесть выше).

После неверной записи, делается исправленная запись, где указывается дата исправления и номер документа, на основании которого допущено исправление. Исправлять неверную запись должна организация, принявшего сотрудника на работу. Это действие осуществляется с согласия бывшего работодателя (таким «согласием» может быть официальный документ, подтверждающий ошибочность записи).

Неправильная формулировка увольнения

Если внесена ошибочная формулировка увольнения, то ее можно исправить так:

1. Признать недействительной ошибочную запись.
2. Дождаться официального документа с предыдущего места работы.
3. Исправить формулировку на верную, указав дату исправления, номер приказа, законодательный акт, регламентирующий увольнение сотрудника.

Не подлежащие исправлению

Исправить в трудовой книжке нельзя ошибки, допущенные при заполнении титульного листа. Такой бланк признается испорченным и требует замены.

Образец неверной записи в трудовой книжке и вариант исправления:

Таким образом, за исключением некоторых случаев, исправить неверную запись в трудовой книжке не составит труда. Правда, следует учитывать ряд нюансов их исправления:

1. Исправленная запись должна подкрепляться приказом работодателя.
2. Новый работодатель имеет право исправить текст, после получения официального разрешения от работодателя предыдущего.
3. В трудовой книжке зачеркивания запрещены. Зачеркнутая надпись лишает трудовую книжку законной силы.

Таким образом исходя из вышеперечисленного, можно сказать, что исправление ошибочной записи в трудовой книжке не является достаточно простым процессом, так как нужно учитывать номер распоряжения работодателя, на основании которого было совершено исправление.

Если ошибочная надпись была внесена на предыдущем месте работы сотрудника, то, прежде чем исправить, нужно подать запрос на предыдущее место работника, и дождаться официального документа. Если же на титульном листе трудовой книжки допущена ошибочная формулировка, то такой документ признается испорченным, и требует замены.

Статья была полезна?

0,00 (оценок: 0)

Узнаем как будет правильно исправить запись в трудовой книжке? Запись недействительна: образец исправления

Трудовая книжка – это особо важный документ, который не только ведет учет трудового стажа, но и помогает в дальнейшем при начислении пенсии. Не все кадровые работники корректно ведут запись в трудовой книжке. «Запись недействительна» – что это значит, и в каких ситуациях фраза появляется в документе?

Чем руководствоваться?

Для того чтобы внести изменение или исправление в трудовую книжку, необходимо изучить те нормативные акты, которые служат опорой для любого работника отдела кадров. К ним относятся:

• ТК РФ, а именно те части, в которых прописано, какие формулировки имеют место быть в трудовой книжке.
• Правила по ведению и хранению трудовых книжек, утвержденные Правительством РФ. Здесь прописано как нужно вести и хранить бланки трудовых и вкладышей к ним, а также, кто имеет право изготавливать данные документы и распространять.
• Инструкция по заполнению трудовых книжек, утвержденная Постановлением Минтруда РФ от 10. 10. 2003 № 69, где прописываются правила заполнения бланка трудовой. Более конкретно это п.1.2, п.2.3 и п.2.4.

Признание недействительной записи в трудовой книжке или внесение каких-либо дополнений должно быть основано на одном из пунктов вышеуказанного документа.

Изменение, исправление или дополнение?

Запись в трудовой книжке «запись недействительна» – что это? Дополнение, исправление или изменение сделанной до этого отметки?

Понятия «изменение» и «дополнение» говорят соответственно об изменении или дополнении ранее внесенной верной (это самое главное) записи. Исправление же предполагает замену ошибочно внесенной, некорректной записи.

Кто может делать исправления?

«Запись считать недействительной» – в трудовой книжке может написать далеко не каждый и не по любому поводу. Без данных полномочий и без необходимого повода что-либо указывать в документе запрещено. Если вдруг гражданин обнаружил в своей трудовой ошибки, то исправить их можно либо по месту прежней работы, где они были совершены, либо на новой работе, либо в суде.

Корректировать записи в трудовых может специалист, у которого есть на это полномочия. Такие полномочия дает специальный приказ руководителя о назначении ответственного за ведение трудовых книжек. В больших организациях трудовые принимаются, ведутся и хранятся в отделе кадров. На малых предприятиях этим занимается либо сам руководитель, либо то лицо, которое назначено ответственным. Это может быть бухгалтер, секретарь или любой сотрудник, на которого составлен соответствующий приказ.

Если работа предоставлена физлицом, то вести и уж тем более делать какие-либо правки в трудовой книжке, такой работодатель не имеет права.

Если обнаружена ошибка

Ошибки в основном находят те сотрудники, которые ведут трудовые. Иногда их обнаруживают сами работники после увольнения. Недочёты всплывают и при проведении ревизии кадровых документов.

К типичным ошибкам можно отнести:

1. Неверно указаны данные о сотруднике. Если ошибка обнаружена на титульном листе, где указаны основные сведения, нужно собрать и представить все необходимые документы: паспорт, диплом об образовании, свидетельство о браке или о разводе. Далее подается заявление работодателю с просьбой об исправлении ошибочной записи. После, основываясь на представленных данных и заявлении, делается запись в трудовой книжке: «Запись недействительна». Ставится дата и подпись уполномоченного лица. В случае, если ранее была сделана ошибка в фамилии, имени или отчестве, сотруднику придется идти в суд для обоснования принадлежности ему трудовой книжки и корректировки данной записи.
2. Неверно указаны сведения в разделах трудовой книжки. Если сотрудник уже устроился в новую организацию, а ошибка был сделана на предыдущем месте работы, то гражданин должен написать заявление бывшему начальнику о предоставлении необходимых документов, основываясь на которых новый работодатель исправит ошибку и внесет верные данные. Если предприятие, где сделали ошибку в трудовой, было ликвидировано или закрыто, можно запросить нужные документы в архиве того города, где организация была зарегистрирована.

Формулировка – «запись недействительна» – в трудовой книжке, образец которой представлен ниже, должна сопровождаться порядковым номером записи, подписью сотрудника и датой, на которую запись была исправлена.

Общие правила исправления

Некорректные данные, которые были обнаружены в разделах, нельзя зачеркивать, подчищать или поправлять. Допустимо лишь поставить запись в трудовой книжке: «Запись недействительна». Под определенным номером с указанием верных данных. Если исправления нужно сделать на первой странице, то там допустимо зачеркивание старой информации, но рядом нужно написать актуальную. При этом на корочке трудовой необходимо ссылаться на документы, на основании которых делается исправление.

Исправлять можно либо синей, либо черной ручкой, желательно гелевой. Эти чернила устойчивы к свету и влаге. Слова сокращать нельзя.

Алгоритм корректировки

Исправление как в трудовой книжке сделать? «Запись недействительна» – это только начальный этап корректировки записи. Рассмотрим общий алгоритм:

1. В первой графе нужно поставить номер по порядку, следующий за тем, который был в предшествующей записи.
2. В следующей графе проставляется дата, на момент которой делается исправление.
3. В третьей – делается запись: «Запись за номером…недействительна». В этой же графе необходимо написать верные данные.
4. Четвертая графа должна быть заполнена ссылкой на приказ, который содержит верные данные.

Как правильно внести фразу: «Запись считать недействительной»? В трудовой книжке образец представлен чуть ниже.

Если ошибка сделана на титульном листе, то алгоритм исправления следующий:

1. Одной чертой необходимо зачеркнуть старую запись.
2. Рядом с зачеркнутой записью написать актуальную информацию.
3. На корочке трудовой нужно прописать ссылку на тот документ, который подтверждает изменения.
4. Ссылка должна быть заверена печатью организации и подписью уполномоченного сотрудника.

Судебное предписание

Если на судебном заседании вынесено решение о незаконном увольнении, то на работе должны признать запись в трудовой книжке недействительной и восстановить сотрудника. Все эти действия должны быть отражены документально. В третьей графе после записи о недействительности предыдущей формулировки должна идти информация о восстановлении сотрудника, а в четвертой – ссылка на соответствующий документ (это будет приказ о восстановлении). Корректирующая запись должна начинаться в этом случае с названия организации.

Также работник может получить дубликат трудовой, где руководитель обязан переписать все записи, кроме той, что признана судом недействительной. При этом на выдаваемой трудовой книжке нужно сделать пометку о выдаче дубликата, а на развороте следует указать, что это дубликат. Никаких документов сотрудник при этом не предоставляет.

Отдельные случаи

Если ошибка найдена в дате внесения записи о приеме на работу, то нужно сделать следующее:

1. В первой графе поставить порядковый номер.
2. Во второй – дату внесения корректировки.
3. В третьей графе написать: «Запись за № … недействительна», а ниже ту же формулировку, что и в предыдущей записи, но с правильной датой приема.
4. В четвертой графе – реквизиты приказа о приеме.

А если ошибка обнаружена в нумерации? Да еще, к примеру, если сотрудник сменил несколько организаций или переводился с должности на должность, и между ошибочной и последней нумерацией большое количество записей. Опытные кадровые работники советуют не трогать промежуточные записи, а признать недействительным только номер в последней записи, чтобы общее количество записей в трудовой совпадало.

Бывает, что нумерация повторяется, но записи имеют разную дату. Что делать, чтобы не испортилась трудовая книжка? «Запись недействительна» – текст указывается для номера и даты, являющихся неверными. Если у записей и номер, и дата одинаковые, то нужно к номеру неверной записи добавить букву «а» и далее ссылаться на номер с буквой «а». Если у записи нет номера, то его надо проставить, а потом ссылаться при исправлении на этот номер. Если без номера оказалась предыдущая запись, то в трудовой можно просто написать: «Предыдущая запись недействительна». И проставить все необходимые реквизиты.

как исправить, образец на 2021 и 2021 год, аннулирование записи в трудовой книжке, как отменить ошибочную запись, признание записи недействительной

Роль трудовой книги нельзя недооценивать. Именно на основании этого документа гражданин может подтвердить опыт работы в определенной сфере, льготный стаж в той или иной должности, а также свое право на пенсию.

Если какая-либо запись будет внесена неверно, при подсчете общего стажа ее исключат. Во избежание потери отработанных лет, законом предусмотрен отдельный порядок признания записей недействительными и внесения исправлений.

Содержание статьи

Законодательная база на 2019 год

Согласно ст. 66 ТК РФ, на каждого работника, который проработал в компании более 5 дней, заводят трудовую книжку либо же вносят запись о трудоустройстве в уже имеющийся документ. Отражать сведения об официальном принятии или последующем переводе и увольнении обязаны все работодатели, независимо от формы собственности предприятий, включая и индивидуальных предпринимателей. Единственным исключением в силу ст. 66 ТК РФ являются физические лица.

При этом ввиду того, что записи в трудовой книжке являются основанием для назначения пенсии, а также присвоения почетного звания «Ветеран труда» с предоставлением ряда льгот и гарантий за счет бюджетных средств, к порядку заполнения предъявляются определенных требования. Постановлением Правительства РФ №225 утвержден формуляр книги, а также вкладыш, с определенной системой защиты бланка.

Также Постановление №225 содержит в себе Правила ведения трудовых книжек, которые регламентируют порядок внесения записей, их исправление, а также хранение формуляров. Учитывая многообразие трудовых отношений, Постановлением Минтруда России №69 утверждена еще и Инструкция по ведению трудовых книжек с подробным описанием внесения всех записей, начиная от заполнения первой страницы с личными сведениями о работнике и данными о трудоустройстве и заканчивая формированием дубликата в случае утери.

В связи с тем что трудовая книжка заполняется от руки уполномоченным работником, и возможны ошибки, описки и иные неточности, Постановление №225 содержит отдельный раздел III по устранению неточностей, а также порядок их исправления. Также процедура корректировки неверных записей определена и в п. 1.2 Постановления №69 с подробной инструкцией внесения исправлений.

В каких случаях и как вносятся исправления?

В трудовую книжку вносятся только определенные законодательством РФ сведения, отражающие как персональные данные работника на первом развороте, так и сведения о трудоустройстве и награждении на последующих. Однако, несмотря на подробную инструкцию, ошибки при внесении записей все равно допускаются, в ряде случаев по невнимательности, а в иных случаях и по определенным обстоятельствам.

Исправления обязательны в следующих ситуациях:

• смена персональных данных, то есть изменении фамилии в связи с замужеством либо же разводом и возврате девичьей фамилии;
• ошибки либо же автоматической описки;
• внесение неправильной записи, которая не соответствует нормам закона;
• признание записи недействительной по решению суда;
• невнесение определенных данных либо же атрибутов, а именно, печати либо сведений о смене наименования организации.

Работник может быть принят в ООО «Бонус», через два года компания путем реорганизации войдет в состав ОАО «Акциз» без изменений в наименовании должности и трудовой функции сотрудника. Если в трудовую книжку не будет внесена запись о переименовании компании, сотрудник фактически будет принят в одном учреждении, а уволен в другом, поэтому запись о приеме и увольнении Пенсионный фонд РФ к учету не примет.

Также ошибочной записью будут признаны сведения, которые внесены без соблюдения требований норм закона. Если запись об увольнении не будет содержать номер статьи, выступающей основанием для расторжения правоотношений либо же формулировки, соответствующей нормам ТК РФ, она будет неправильной.

Отсутствие печати, нумерации, номера либо даты издания приказа, выступающего основанием для внесения той или иной записи, также является ошибкой и может повлечь за собой признание записи недействительной.

Несмотря на большой список ошибок, исправить их в трудовой можно всего несколькими способами:

1. Запись может исправить сам кадровик, если сразу же заметит ошибку.
2. Сведения могут быть исправлены на основании заявления работника на имя руководителя с просьбой о внесении правки.
3. Запись может быть исправлена по решению комиссии по трудовым спорам, на основании протокола, оформленного в порядке норм главы 60 ТК РФ.
4. Запись может быть признана недействительной по решению суда.

Как правильно написать в трудовой книжке, что запись недействительна?

В п. 30 Постановления №69 указано, что неверную запись либо же ее часть нельзя зачеркивать. Также не допускается ее стирание либо же закрашивание корректором. В подобной ситуации всю запись необходимо признать недействительной и переоформить заново в порядке, определенном п. 1.2 Постановления №69.

Работнику отдела кадров необходимо произвести следующие действия:

• указать новый порядковый номер в графе 1;
• внести дату корректировки записи в графе 2;
• сделать запись: «Запись №, дата недействительна»;
• проставить мокрую печать;
• внести правильную запись.

Для внесения исправлений на титульной странице, согласно п. 26 Постановления №225, предусмотрены иные правила. Так, если изначально персональные данные были внесены правильно, а затем изменились ввиду того же замужества, допускается аккуратное зачеркивание фамилии с внесением новой на той же строчке рядом.

При этом слева уже на обложке работник отдела кадров обязан указать номер свидетельства о браке, а также дату его выдачи в качестве оснований, подтверждающих обоснованность правки фамилии.

Требования и образец

Полномочиями по ведению трудовых книжек наделяется, как правило, сотрудник отдела кадров. Именно он отвечает и за внесение всех записей и за хранение книжек. Также он несет персональную ответственность за правильное отражение сведений о сотрудниках и порядке их трудоустройства на предприятии.

Если одна из сотрудниц сменила фамилию, ввиду замужества работник отдела кадров обязана произвести исправления по следующему образцу:

Если же кадровый работник допустил ошибку при внесении записи о трудоустройстве, исправления производятся следующим образом:

Если работник восстановлен в прежней должности по решению суда исправление прежней записи проходит по следующему образцу:

Что нельзя исправить

Во исполнение норм п. 28 Постановление №225 исправление неточностей и описок в трудовой книжке производится только тем работодателем, которым и были допущены ошибки. Если работник обнаружил ошибку уже спустя несколько лет и после смены места работы, для внесения поправок придется идти к прежнему начальнику и писать заявление на его имя о внесении соответствующих исправлений.

Если же бывшее место работы упразднено в связи с ликвидацией, в качестве исключения допускается признание записи недействительной и внесение новых сведений уже новым работодателем.

В подобной ситуации необходимо предоставить подтверждающие данные в виде официальных документов, к примеру, оригинал приказа об увольнении либо же переводе. Если же документы отсутствуют, единственным выходом будет обращение в суд.

Однако указанные правила по корректировке записи относятся только к данным, отражающим процесс трудоустройства и увольнения, для титульного листа предусмотрены иные нормы. В рамках норм Постановления №69, если при первоначальном заполнении титульного листа работник кадров допустил описку либо ошибку, книжка автоматически будет являться недействительной в виду того, что любые исправления на первой странице законом не допускаются.

В подобной ситуации работник отдела кадров должен будет завести новую книжку в порядке, закрепленном нормами Постановления №225.

Как исправить запись в трудовой книжке? Ответ на вопрос – ниже на видео.

Исправление недействительной записи в трудовой книжке: образец

Изменения в книжке могут быть внесены двумя способами.

1. Исправление существующей информации путём зачёркивания
2. Замена документа на новый.

Первый способ применяется тогда, когда сотрудник сменил фамилию, получил какое-либо образование, специальность. Исправления возможны в случаях обнаружения фактических или грамматических ошибок.

Бесплатная консультация юриста по телефону

Задать вопрос юристу

По Москве и области

Санкт-Петербург и область

Федеральный номер

Иногда работодатели неверно указывают дату приёма, должность или иную информацию, которые могут повлиять на дальнейшую судьбу трудящегося. Именно для таких случаев существует возможность юридически правильного процесса оформления исправлений.

Замена бланка допускается в случаях неверного оформления титульного листа. Наиболее часто процедура замены происходит по первому месту трудоустройства, когда отдел кадров вписывает личные данные сотрудника. Также, получить новый бланк возможно при утрате, порче существующего документа.

Процесс получения новой трудкнижки сопровождается рядом сложностей. Вот процедуры, которые необходимо осуществить:

1. Подать заявление об утрате документа в кадровый отдел нового работодателя. Однако есть одно «но» — человек должен быть сотрудником данной компании, прежде чем писать заявление.
2. Кадровый отдел обязан написать свидетельство об утрате либо об уничтожении книжки.
3. Получить новый бланк и заполнить его правильно. Обычно процедура замены документа затягивается на несколько недель, а иногда и месяцев. Поэтому нужно быть готовым к затяжному процессу.

Изменение фамилии сотрудника

Изменение анкетных данных (фамилии, имени и отчества) требуется достаточно часто: девушки выходят замуж, меняя фамилию либо разводятся, возвращая девичью. Некоторые меняют свои данные по собственной воле, обращаясь в паспортный отдел. Ничего сложного в том, чтобы исправить фамилию на титульном листе, нет. Достаточно обратиться в отдел кадров, который, в свою очередь, проведёт ряд процедур.

Вот некоторые из них:

1. Удостоверится в необходимости смены данных. Для этого необходимо предоставить документы.
2. Зачеркнёт неверную информацию одной чертой, вписав рядом с ней новую.
3. Закрепит изменение пометкой на внутренней стороне обложки трудовой, подтвердив законность процедуры ссылкой на какое-либо свидетельство либо паспорт работника.

Стоит понимать, что верить на слово кадровый работник не может. Он имеет право проводить какие-либо операции с трудовой только после получения юридически верного подтверждения: свидетельства о браке или разводе, паспортом или иным документом.

Получение дополнительного образования

Если сотрудник получил новое образование, то запись об этом вносится в трудовую книжку. Для этого не нужно зачёркивать предыдущие записи либо менять бланк.

Достаточно предоставить работодателю подтверждение того, что образование действительно было получено, после чего, нужная запись будет сделана в соответствующей графе титульного листа. Данные о получении образования указываются через запятую после предыдущих.

Получение новой профессии

Переводясь на новое место работы, получив новую должность на старой работе, человек обязан сделать пометку в трудовой книжке. Нужно лишь обратиться к кадровикам, которые дополнят информацию в соответствующей графе. Эта процедура достаточно проста, она не требует написания заявления или каких-то документальных подтверждений.

Человеческий фактор

Из-за того, что документ заполняется человеком, в нём нередко появляются грамматические или фактические ошибки. В Правилах оформления есть несколько пунктов, которые разъясняют необходимые действия в данной ситуации. Однако нужно разделить ошибки на титульном листе и ошибки на других страницах.

В первом случае исправлять анкетные данные недопустимо, а пункт 48 Правил оформления предписывает: «уничтожить имеющийся бланк, заменив его на новый».

Бесплатная консультация юриста по телефону

Задать вопрос юристу

По Москве и области

Санкт-Петербург и область

Федеральный номер

Поскольку ошибки на титульном листе допускают, в основном, при первом трудоустройстве, в этом нет особой сложности.

Исправление информации на других страницах в трудовой не вызывает сложности. Пункт 27 правил оформления трудовой книжки говорит о том, что «исправление ошибок допускается при предоставлении доказательств — документального подтверждения от работодателя». В этом случае невозможно сделать корректировки, ориентируясь только на свидетельства работника и его паспортные данные.

Что говорит закон

Постановление Правительства N 225 «О трудовых книжках» является единственным законом, помимо свода правил оформления, который диктует требования к внесению изменений в книжки работников.

К постановлению прилагаются вкладыши, утверждающие внешний вид трудовых книжек (оформленных после вступления изменений 2004 года), а также правила их заполнения. С точки зрения закона, изменения в данном документе совершенно легальны. Они являются стандартной практикой, ведь внесение корректировок от работодателя необходимо в целом ряде случаев.

Кто должен вносить изменения в трудовую книжку

Вписывать новую информацию, взамен старой, может как работодатель, допустивший ошибку, так и работодатель, с которым работник заключил трудовой договор. Происходит это следующим образом:

1. При обнаружении ошибки человек обращается к старому работодателю посредством заявления, прося скорректировать данные.
2. Кадровый отдел рассматривает легитимность просьбы и реализует её либо отказывает.

Если же компания, кадровики которой допустили ошибку, уже не существует, поправить данные может новый работодатель. Для этого нужно:

1. Написать заявление в отдел кадров по месту работы.
2. Компания, с которой человек заключил трудовой договор, обязана связаться с представителями бывшего работодателя.
3. С прошлого места работы должны прислать документальное подтверждение, после которого возможно внесение изменений.

Такая процедура очень сложна, поэтому следует заблаговременно находить все неточности, ошибки и неверные формулировки.

Процедура признания записи недействительной: инструкция

Чтобы признать запись в трудовой книжке недействительной, необходимо определить то, по какой причине была допущена фактическая или иная ошибка. Для этого достаточно сделать следующее:

1. Обратиться в кадровый отдел
2. Получить документальное подтверждение ошибочности записи
3. Внести изменения, сославшись на полученный подтверждающий документ.

Однако если работодатель считает запись правильной, то с ним придётся договариваться через суд. Так поступают те, кто был уволен по определённой статье, но не согласен с ней.

Процедура оформления правильного исправления

Пункт 30 правил оформления чётко описывает то, как должны вноситься изменения в трудовую. В нём есть информация о причинах для признания записи недействительной. В правилах разъясняются особенности оформления с документальной точки зрения.

1. После ошибочной записи, в следующем пункте трудовой, должно быть указано, что предыдущий пункт признан недействительным по определённым причинам.
2. Далее указываете исправленный вариант ошибочной записи.
3. В дальнейшем ведение трудовой продолжается в обычном режиме.

Если же изменения необходимо внести в титульный лист, то процедура достаточно проста:

1. После получения подтверждения законности, кадровый отдел исправляет информацию.
2. Для закрепления вносятся пометки на обложку, в которых есть отсылки к нужным документам.

Что не подлежит исправлению

Закон позволяет изменять практически всё, однако, некоторые данные не подлежат корректировке. А именно — ошибочно указанные анкетные данные, незаконные изменения (не подтверждённые документально). В первом случае заводится новая трудовая, а во втором человек обязан получить нужные свидетельства (через суд или иные органы).

Примеры наиболее часто встречающихся исправлений

Список допускаемых ошибок обширен, но наиболее часто их допускают исключительно из-за невнимательности кадровых работников. Среди самых популярных можно выделить следующие:

1. Неверно указанные анкетные данные (ФИО, образование, возраст).
2. Ошибки в оформлении приёма на работу, а также увольнения с неё. Часто работодатели оставляют неверные данные, которые не соответствуют приказу, выпущенному ими же.
3. Грамматические ошибки, которые, обычно, остаются незамеченными.

Недействительная запись в трудовой книжке

Недействительной запись может быть признана по ряду признаков, которые зависят от конкретики случая. Так, явными причинами признания записи ошибочной являются:

1. Фактические ошибки (неверная дата, должность и т. д.)
2. Оспаривание записи через суд. Это крайняя мера, к которой прибегают редко.
3. Запись, признанная работодателем недействительной. Иногда после внесения пометки в трудовую книжку человек отказывается от должности, поэтому такая пометка может считаться недействительной.

Внесение записи в трудовую книжку о недействительности даты приема на работу

Если работодатель неверно указал дату приёма, то изменения могут быть внесены также, как и при обычном исправлении ошибок:

1. В следующем пункте делается пометка о допущенной неточности.
2. Делается новая, верная запись.

Однако изменения даты тоже должны быть подтверждены. Например, доказательством может служить приказ о приёме на работу.

Изменение формулировки увольнения

Работодатель имеет право делать запись об увольнении, которые будут определённым образом характеризовать работника. Так называемое увольнение «по статье» — клеймо в трудовой книжке, которое может стать причиной отказа при приёме на работу. Из-за этого многие стараются обжаловать решение работодателя.

И есть несколько путей, вот наиболее часто встречающиеся:

1. Обсуждение с представителем компании, кадровый отдел которой внёс пометку. Она может отказаться от написанного, подтвердив это документально.
2. Принятие решения через суд. Такой способ требует юридической подготовки и достаточно большой запас времени, но он является единственной возможностью оспорить решение работодателя, если он не идёт на контакт.Конечно, есть и нелегальные способы, но их применение влечёт за собой ответственность.

Исправление ошибочной записи, которая была обнаружена после увольнения

Часто случается так, что ошибка в фамилии работника замечается только через несколько лет. И это свойственно другим неточностям, которые могут «всплыть» по разным причинам.

Исправление записи в трудовой после увольнения работника может сделать бывший работодатель, если на его имя написать заявление. Также, возможно изменение новым работодателем, однако, это требует долгого документального оформления.

Нужно сделать следующее:

1. Написать заявление кадровому агенту по месту работы.
2. Кадровики отправляют просьбу предыдущему работодателю. Это необходимо для того, чтобы он прислал подтверждение.
3. После получения документального свидетельства вносятся исправления, делаются пометки со ссылкой на документ.

Как считать недействительной запись в трудовой книжке

Если Вам необходима помощь справочно-правового характера (у Вас сложный случай, и Вы не знаете как оформить документы, в МФЦ необоснованно требуют дополнительные бумаги и справки или вовсе отказывают), то мы предлагаем бесплатную юридическую консультацию:

• Для жителей Москвы и МО – +7 (499) 110-86-37
• Санкт-Петербург и Лен. область – +7 (812) 426-14-07 Доб. 366

Признание записи в трудовой книжке недействительной: когда это возможно. В правилах ведения трудовых книжек, утвержденных постановлением Правительства РФ от Обратите внимание! Если кадровик фирмы ошибся непосредственно при оформлении трудовой книжки специалисту, признавать недействительной запись не нужно. Бланк с ошибочной записью необходимо уничтожить составив акт об этом и корректно заполнить новый бланк, который впоследствии будет выдан сотруднику п. Подробнее о типовых бланках трудовых книжек см.

Человеческий фактор не чужд и кадровикам.

Заполняя трудовую книжку, специалист кадровой службы может допустить неточности или ошибки. Исправление в этих разделах возможно осуществить только таким способом, как внести запись в трудовую книжку о недействительности записи. Затем необходимо внести правильную запись. После ошибочной записи с соответствующим номером в этом же разделе делается запись в графах:.

Недействительная запись в трудовой книжке

Допущенные при заполнении трудовой книжки ошибки или объективные неточности обязательно должны быть исправлены. Для этого нельзя использовать метод перечеркивания некорректных фраз: неверные данные должны быть признаны недействительными, после чего разрешено вносить правильные сведения.

Если ошибочная информация приведена в первой записи в трудовой, то эта запись в трудовой недействительна автоматически. Испорченный формуляр подлежит уничтожению. Вместо него необходимо завести новую трудовую книжку. Если же перед обнаруженной неточностью есть записи, сделанные другими работодателями, надо провести официальную процедуру регистрации ошибки и отмены неверной формулировки.

Когда имеет место ошибка в разделе о работе или поощрительных наградах, надо образец неверной записи в трудовой книжке считать недействительной. Для этого издают приказ по предприятию. На его основании ниже недостоверных данных вносят образец записи в трудовой о недействительности записи: новая отметка содержит формулировку о признании предыдущих сведений ошибочными и указывает номер заполненных строк. Независимо от причин появления неточностей в сведениях, отраженных в трудовой книжке, информация должна быть откорректирована.

То, что отдельная запись недействительна, запись в трудовой книжке в году об этом, вносят по следующей схеме:. Исправления заверяет человек, который произвёл обновление информации в формуляре. Для этого ответственное должностное лицо расписывается после отраженных корректирующих надписей. Также см. Трудовой договор расторгнут по инициативе работника, пункт 3 части 1 статьи 77 Трудового кодекса Российской Федерации Приказ от Некорректное отражение в трудовой книжке даты изменения формы трудоустройства, периодов смены рабочих мест или момента перехода на новые должности может стать причиной разбирательств с Пенсионным фондом при назначении работнику пенсии.

Предотвратить конфликт с этой госструктурой можно, если внести исправительную отметку, после создания которой некорректная запись в трудовой книжке недействительна. В г. Аннулирование данных производит работник кадровой службы. Оформляют это по алгоритму, предназначенному для исправления ошибок в разделе книжки о трудоустройстве или о поощрениях:. Онлайн бухгалтерия Изменения с года. Подписаться на рассылку. Запись в трудовой недействительна: как исправить образец 29 сентября , Как и когда запись в трудовой считать недействительной Выбор методики исправления ошибок зависит от нескольких параметров: является ли вносимая запись первой в документе; в каком разделе была отражена некорректная информация.

Исключение — образец признания записи в трудовой книжке недействительной на титульной странице. На этом листе недостоверную информацию перечеркивать можно, вписывая рядом правильные данные и удостоверяя их подписью ответственного должностного лица и печатью компании.

Зачеркивать ничего нельзя. Также не разрешено пользоваться корректирующими канцелярскими средствами. Правки вносит текущий работодатель. Если ошибка допущена кадровым инспектором другого предприятия, образец недействительной записи в трудовой книжке должен быть исправлен по текущему месту трудоустройства. Основанием будут служить документы, предоставленные организацией, допустившей неточность. Учтите, что за фиктивную запись в трудовой книжке ответственность предусмотрена ст.

По сути, такой считают, в т. Читайте также Отправка трудовой книжки по почте при увольнении Запись в трудовой книжке об увольнении при ликвидации предприятия Оформление трудовой книжки при увольнении директора Как правильно оформить запись об увольнении в трудовой книжке. Клуб бухгалтеров. Охрана труда. Служебная квартира. Увольнение в короткие сроки. Непрерывный стаж.

Основание для увольнения. Могут проверить ИП, если работает один? Смотреть больше. Предыдущая запись. Следующая запись. Разместить объявление. Сообщить об опечатке Текст, который будет отправлен нашим редакторам:.

Ваш комментарий необязательно :. Отправить Отмена. Обозначают работодателя приводят его полное и сокращенное наименование. Данные о регистрационных кодах не нужны — идентификация предприятия или ИП видна в 3-й колонке.

В графу 4 вписывают документальные основания для внесения правок — номер и дату издания приказа директора. Сведения о приеме на работу, переводе на другую постоянную работу, квалификации, увольнении с указанием причин и ссылкой на статью, пункт закона.

Наименование, дата и номер документа, на основании которого внесена запись. Трудовой договор расторгнут по инициативе работника, статья 80 Трудового кодекса Российской Федерации. Запись за номером 15 недействительна. Трудовой договор расторгнут по инициативе работника, пункт 3 части 1 статьи 77 Трудового кодекса Российской Федерации. Запись с неправильно введенной датой признают ошибочной. Делают отсылку на правовое основание для правок — номер и дату распоряжения руководителя предприятия.

Как внести запись в трудовую книжку о недействительности записи?

Акция месяца 8 88 Исправить неверную или ошибочную запись в трудовой просто так не получится. Рассмотрим, как признать ее недействительной. В статье вы найдете образец документа с внесенными корректировками.

Запись считать недействительной в трудовой книжке

Запись о недействительности записи в трудовой книжке нельзя подчищать и исправлять, используя корректирующие средства. Во всем остальном для каждого раздела есть свои нюансы. Ошибка первичного заполнения – это неточность в заполнении титульного листа при первом оформлении документа работнику. Такие ошибки не подлежат исправлению и бланк уничтожается, оформляется новый. В случае изменения персональных данных владельца фамилия, имя, отчество, дата рождения и т. На внутреннюю сторону обложки вносится информация, что персональные данные владельца изменены на основании такого-то документа.

Изменяем, дополняем и исправляем записи в трудовой книжке

Внесение записи в трудовую книжку о совместительстве. Подсчет стажа в трудовой книжке. Выписка из трудовой книжки — образец заполнения. Расписка о получении трудовой книжки на руки. Восстановление трудовой книжки. Ни один, даже обладающий колоссальным опытом работы, кадровик или бухгалтер, не застрахован от досадных ошибок при заполнении трудовых книжек. К тому же причин возникновения ошибочных записей может быть несколько. Это и неточности в оформлении приказов по личному составу, и сбои в нумерации распоряжений, да и пресловутый человеческий фактор.

Запись в трудовой недействительна: как исправить (образец)

Как регулируется ситуация, когда необходимо в трудовой книжке считать запись недействительной. Однако далеко не все варианты возможных ошибок разобраны законодателем, поэтому большинство таких проблем разрешается:. Первостепенный постулат ведения трудовой книжки: ничего нельзя зачеркивать или замазывать! Любые исправления осуществляются только путем признания ошибочной записи недействительной. Данный постулат не касается содержания титульного листа, так как заполнение этой части трудовой книжки регламентируется отдельными нормами.

Не заполнено обязательное поле Подтверждение пароля.

Допущенные при заполнении трудовой книжки ошибки или объективные неточности обязательно должны быть исправлены. Для этого нельзя использовать метод перечеркивания некорректных фраз: неверные данные должны быть признаны недействительными, после чего разрешено вносить правильные сведения. Если ошибочная информация приведена в первой записи в трудовой, то эта запись в трудовой недействительна автоматически. Испорченный формуляр подлежит уничтожению.

Как отменить запись в трудовой книжке (образец)

.

Запись в трудовой книжке считать недействительной – образец

.

Запись считать недействительной в трудовой книжке – образец

.

.

.

Внесение записи о недействительности в трудовую книжку

Запись о недействительности записи в трудовой книжке нельзя подчищать и исправлять, используя корректирующие средства. Во всем остальном для каждого раздела есть свои нюансы. Ошибка первичного заполнения – это неточность в заполнении титульного листа при первом оформлении документа работнику. Такие ошибки не подлежат исправлению и бланк уничтожается, оформляется новый. В случае изменения персональных данных владельца фамилия, имя, отчество, дата рождения и т.

Дорогие читатели! Наши статьи рассказывают о типовых способах решения юридических вопросов, но каждый случай носит уникальный характер.

Если вы хотите узнать, как решить именно Вашу проблему – обращайтесь в форму онлайн-консультанта справа или звоните по телефонам, представленным на сайте. Это быстро и бесплатно!

Порядок внесения исправления в трудовую книжку в 2019 году: образец

Когда запись недействительна в трудовой книжке, она исправляется на основании предоставленных документов. Отменять или аннулировать данные нужно в строгом соответствии с законом, чтобы у работников не возникало проблем при оформлении пенсионных пособий и прочих выплат.

Трудовая книжка — базовый документ, подтверждающий занятость человека, трудовой стаж, награды. Важно, чтобы каждая пометка была сделана правильно. Работодатель не имеет право вносить корректировки, если работник не может представить официальные документы, на основании которых сведения изменяются. Если у сотрудника их нет, в исправлении отказывают. Необоснованное увеличение трудового стажа влечет к административной ответственности.

Рассматривая варианты, как аннулировать запись в трудовой книжке, кадровик должен помнить, что выдавать на руки документ нельзя. Трудовая передается работнику из рук в руки только в случае увольнения! Если сам сотрудник не может добиться от предыдущего работодателя документов, подтверждающих наличие ошибки, новый работодатель обязан отправить официальный запрос.

На основании ответа вносятся изменения. Учитывать свидетельские показания можно лишь в том случае, когда произошла массовая утрата трудовых книжек, велось судебное разбирательство и имеется постановление.

При этом исправлять трудовой стаж можно только на основании акта, составляемого специально созданной комиссией. Если запись недействительна в трудовой книжке, посмотрите образец Следует отметить, что при наличии ошибок в только что заведенной трудовой книжке или вкладыше в ней, бланк подлежит уничтожению. Изменять информацию не нужно, но требуется составить акт, в котором отражена информация об уничтожении всего документа или отдельной части. Запись исправляется на основании предоставленных документов.

Дополнительно ставится роспись уполномоченного лица и его ФИО, печать организации, если она имеется. После этого запись считается недействительной. Именно по такому принципу происходит отмена записи в трудовой книжке об увольнении, награждении, переводе в другое структурное подразделение и т. Если требуется провести корректировку сведений по решению суда или трудовой инспекции, процедура выполняется аналогично.

Если запись недействительна в трудовой книжке, при этом она была заверена подписью уполномоченного лица и печатью организации, нужно соблюдать все тонкости внесения исправлений.

Так, нужно открыть блок, сделав новый заголовок, в котором отражено наименование компании. Только после этого может быть отменена предыдущая запись. Кадровик обязан указывать реквизиты приказа, на основании которого производятся изменения документа. Скачайте пакет важнейших документов для работы отдела кадров.

Когда запись неверна в трудовой книжке, но еще не заверена, изменения вносятся в обычном порядке, предусмотренном Инструкцией. Новые сведения отражают ниже, указывая порядковый номер и реквизиты приказа в соответствующем разделе. При этом работник вправе попросить выдать дубликат трудовой книжки , в котором исключена неверная информация, если запись об увольнении недействительна. Такое возможно, если суд обязал работодателя восстановить сотрудника в должности.

Если сам работник решил отозвать заявление на увольнение, дубликат не может быть выдан, но запись следует изменить. Нередко работники решают воспользоваться своим правом, отзывая заявление об увольнении в установленный срок. В этом случае кадровикам приходится аннулировать запись в трудовой книжке. Аналогично поступают и тогда, когда работника восстанавливают по решению суда. На самом деле ситуаций, когда запись недействительна в трудовой книжке, много.

Если ошибка обнаружена быстро, кадровик легко делает нужные исправления в документе, опираясь на рекомендации. Но иногда она выявляется спустя годы, когда работник уже успел сменить не одну организацию. В этом случае изменения вносятся ниже, указывается номер неверной записи. Далее нумерация продолжается в том же порядке, что и велась ранее.

Принимая на работу новых сотрудников, внимательно проверьте сведения об образовании, сопоставляя их с аттестатом или другим документом, личные данные сотрудника в соответствии с паспортом, прочие графы. Ошибки могут быть допущены буквально везде, начиная от дат, заканчивая неверным написанием слов, в том числе и названий организаций. Все права защищены. Настоящий сайт не является средством массовой информации. После регистрации Вы сможете читать материалы на сайте, а еще в подарок мы вышлем Вам ссылку на вебинар!

Подписка 8 Подпишитесь по акции на журнал “Справочник кадровика”. Электронные трудовые: что нужно знать кадровику. О журнале Ввести код доступа Подписка 8 А еще Статьи Трудовая книжка.

Запись недействительна в трудовой книжке: образец Темы: Трудовая книжка. Автор: Чиркина Татьяна. Главный редактор портала pro-pesonal. Из этой статьи вы узнаете:.

Скачайте документы из статьи Запись считать недействительной в трудовой книжке: образец DOC файл. Другие обязательные документы.

Да, можно, но лишь избранным. Прочтите статью, даже если не собираетесь заниматься этими вопросами. Во-вторых, будете знать, к чему готовиться, если в компанию придет или уже есть тот, кто имеет право на такое звание. Будьте предельно осторожны, сверяйте информацию с той, что отражена в документах.

Табель учета рабочего времени. Читайте также Семь грубых ошибок в работе с трудовыми книжками, которые не пропустит инспектор Ошибки в трудовой книжке, из-за которых работник пойдет в суд Когда менять трудовые книжки крымчан и жителей Севастополя. Вложенные файлы Заявление о выдаче дубликата трудовой книжки. Что пригодится кадровикам, если работник пойдет в суд Какие пункты добавить в должностные инструкции до 1 января Дела кадровика: ноябрь Не увольняйте так работников в году Как регистрировать документы и доказать, что это нужно компании Как проверить на ошибки и обновить расчетные листки Как перевести во время декрета, чтобы угодить Минтруду.

Правовая база. Налоговый кодекс Гражданский кодекс. Продукты и услуги партнеров. Адрес электронной почты. Я даю свое согласие на обработку моих персональных данных.

Новости по теме. Работодателей обяжут требовать заявления о переходе на электронную трудовую. За хранение трудовых книжек в отделе кадров оштрафуют. В проект об электронных трудовых книжках внесли изменения. Законы об электронных трудовых книжках приняты в первом чтении. ПФР готов к переходу на электронные трудовые книжки. Статьи по теме. Правила заполнения трудовой книжки: образец Порядок ведения трудовых книжек.

Если работодатель не отдает трудовую книжку. Запись в трудовой книжке о награждении почетной грамотой: образец. Инструкция по заполнению трудовой книжки. Вопросы по теме. Как произвести запись в трудовой книжке при первом трудоустройстве. Допускается ли замена трудовой книжки вкладышем в нее.

Что такое задержка выдачи работнику трудовой книжки. На какой документ нужно ссылаться при исправлении ошибки в имени работника на титульном листе трудовой книжки. Где регистрировать и хранить трудовые книжки. Справочник кадровика. Получить демодоступ или сразу подписаться. Мобильная версия Рекламодателям Обратная связь Контакты Интернет-магазин Официальные представители Политика по обработке персональных данных.

Нарушение авторских прав влечет за собой ответственность в соответствии с законодательством РФ. Политика обработки персональных данных. Мы в соцсетях. Зарегистрируйтесь на сайте и скачайте файл. У меня есть пароль. Пароль отправлен на почту Ввести. Введите эл. Неверный логин или пароль. Неверный пароль.

Запись недействительна в трудовой книжке: образец 2019

Заполняя трудовую книжку, специалист кадровой службы может допустить неточности или ошибки. Исправление в этих разделах возможно осуществить только таким способом, как внести запись в трудовую книжку о недействительности записи. Затем необходимо внести правильную запись. После ошибочной записи с соответствующим номером в этом же разделе делается запись в графах:. Приведем несколько примеров исправлений неверных записей, которые наиболее часто встречаются в практике кадровиков.

Человеческий фактор не чужд и кадровикам. Бывает, что решение суда или надзорного органа предписывает внести исправления. Как правильно отменить запись в трудовой книжке?

Не заполнено обязательное поле Подтверждение пароля. Необходимо согласие на обработку персональных данных. Даже имеющие большой опыт кадровой работы сотрудники организации не застрахованы от необходимости периодически исправлять некорректно внесенные ими самими или предыдущими работодателями записи. Что уж говорить о небольших компаниях, в которых ведение трудовых книжек поручено не кадровику или иному специалисту по кадровому делопроизводству, а бухгалтеру или осуществляется непосредственно руководителем организации? Кроме того, бывают ситуации, когда приходится дополнять и ранее правильно внесенные записи.

Недействительная запись в трудовой книжке

Когда запись недействительна в трудовой книжке, она исправляется на основании предоставленных документов. Отменять или аннулировать данные нужно в строгом соответствии с законом, чтобы у работников не возникало проблем при оформлении пенсионных пособий и прочих выплат. Трудовая книжка — базовый документ, подтверждающий занятость человека, трудовой стаж, награды. Важно, чтобы каждая пометка была сделана правильно. Работодатель не имеет право вносить корректировки, если работник не может представить официальные документы, на основании которых сведения изменяются. Если у сотрудника их нет, в исправлении отказывают. Необоснованное увеличение трудового стажа влечет к административной ответственности.

Запись считать недействительной в трудовой книжке – образец

Как регулируется ситуация, когда необходимо в трудовой книжке считать запись недействительной. Однако далеко не все варианты возможных ошибок разобраны законодателем, поэтому большинство таких проблем разрешается:. Первостепенный постулат ведения трудовой книжки: ничего нельзя зачеркивать или замазывать! Любые исправления осуществляются только путем признания ошибочной записи недействительной. Данный постулат не касается содержания титульного листа, так как заполнение этой части трудовой книжки регламентируется отдельными нормами.

Подсчет стажа в трудовой книжке.

Слушателям, успешно освоившим программу выдаются удостоверения установленного образца. Слушателям, успешно освоившим программу, выдаются удостоверения установленного образца. Изменение записей производится путем признания их недействительными и внесения правильных записей.

Как отменить запись в трудовой книжке (образец)

.

.

Изменяем, дополняем и исправляем записи в трудовой книжке

.

Запись считать недействительной в трудовой книжке – образец во 2-м столбце указывается дата внесения изменяющей записи (даже если речь идет.

.

Как внести запись в трудовую книжку о недействительности записи?

.

.

.

.

.

Использовать проверку данных Excel для ввода дат

Как использовать проверку данных, чтобы ограничить даты, которые могут быть введены в ячейку, и предотвратить недопустимые даты.

Проверка данных для дат – Введение

Используя проверку данных, вы можете ограничить количество записей для одной или нескольких ячеек на листе Excel.

В этом видео для проверки дат используются три разных метода.В раскрывающемся списке Разрешить в настройках проверки данных будут использоваться следующие параметры:

• Укажите стартовую дата и дата окончания. (Вариант даты)
• Показать раскрывающийся список действительных дат (опция «Список»)
• Создание правила в пользовательской формуле (Пользовательский параметр)

Письменные инструкции и образец файла находятся под видео.

Ограничить количество записей определенным диапазоном дат

В этом примере сотрудники заполняют форму запроса на отпуск для 2017 год.В ячейке C4 сотрудник вводит дату начала на отдых.

Чтобы гарантировать, что в ячейку C4 введена действительная дата, используется проверка данных, чтобы установить дату начала и дату окончания. В этом примере показаны два способа установить эти даты.

Введите даты начала и окончания в правилах

Введите даты начала и окончания на листе

Введите даты в правилах

Чтобы они указали дату в 2017 году, вы можете подать заявку данные в эту ячейку и введите дату начала и окончания в правилах.

1. Выберите ячейку C4 и на ленте Excel щелкните вкладку «Данные»
2. Щелкните Проверка данных (щелкните верхнюю часть команды)

3. На вкладке Параметры диалогового окна проверки данных из Разрешить раскрывающийся список, нажмите Дата

4. В раскрывающемся списке «Данные» оставьте настройку по умолчанию «Между», поскольку мы хотим ограничить записи датами между определенным началом и даты окончания.
5. Введите дату начала и дату окончания для диапазона дат. В этом Например, допустима любая дата в 2017 году, поэтому 1 января 2017 г. – дата начала, а 31 декабря 2017 г. – дата окончания.

6. Щелкните OK, чтобы закрыть диалоговое окно проверки данных.

Введите даты на листе

Чтобы упростить просмотр и настройку правил проверки данных, вы можете ввести даты начала и окончания на листе.Затем назовите эти ячейки и обратитесь к этим именам в правилах.

Настройка ячеек даты

1. На любом листе книги введите «Дата начала» в одну ячейку и введите «Дата окончания» в ячейку ниже.
2. В ячейках справа от этих меток введите дату начала и дату окончания для допустимого диапазона дат.
3. Выберите все четыре ячейки и на ленте Excel щелкните вкладку «Формулы».
4. Нажмите «Создать из выделенного» и в диалоговом окне установите флажок «Левый столбец», затем нажмите «ОК».
5. Ячейкам присвоены имена на основе меток в первом столбце – StartDate и EndDate
.

Настройка проверки данных

1. Выберите ячейку C4 и на ленте Excel щелкните вкладку «Данные»
2. Щелкните Проверка данных (щелкните верхнюю часть команды)

3. На вкладке Параметры диалогового окна проверки данных из Разрешить раскрывающийся список, нажмите Дата

4. В раскрывающемся списке «Данные» оставьте настройку по умолчанию «Между», поскольку мы хотим ограничить записи датами между определенным началом и даты окончания.
5. Щелкните поле «Дата начала» и нажмите клавишу F3 на клавиатуре, чтобы открыть диалоговое окно «Вставить имена», затем дважды щелкните «Дата начала» в списке, чтобы выбрать ее.
6. Щелкните поле End Date, нажмите F3, затем дважды щелкните EndDate, чтобы выбрать его.
7. Щелкните OK, чтобы закрыть диалоговое окно проверки данных.

Проверить правильность данных

1. Чтобы проверить правильность данных, введите дату, отличную от года, например, 1 января 2016 г., и нажмите Enter.
2. Появляется сообщение об ошибке, и недопустимая запись блокируется. Примечание: Вы можете настроить сообщение, отображаемое для недопустимых записей, используя данные Вкладка “Предупреждение об ошибке проверки”.

3. Нажмите «Повторить» или «Отмена» и введите дату в 2017 году.
4. Запись будет принята, и никаких сообщений не появится.

Создать динамический раскрывающийся список дат

Если допустим только короткий диапазон дат, например вчера, сегодня а завтра вы можете создать раскрывающийся список этих дат.Используя формулы, раскрывающийся список будет динамическим, и в нем будут отображаться правильные даты всякий раз, когда книга открыта.

Пример 1: Вчера, сегодня, завтра

Пример 2: Следующие 3 рабочих дня

Пример 1: вчера, сегодня, завтра

В этом примере динамический список показывает даты вчера, сегодня и завтра.

Создание списка действительных дат

На другом листе книги вы создадите список действительных дат.В этом примере лист со списком называется AdminLists.

1. На листе AdminLists в ячейке C2 введите эту формулу, чтобы вычислить вчерашняя дата:
   = СЕГОДНЯ () – 1

2. В ячейке C3 введите формулу даты текущего дня: = C2 + 1

3. Скопируйте формулу из C3 в C4, чтобы заполнить список дат.При необходимости отформатируйте ячейки, чтобы даты отображались так, как вы хотите.

4. Чтобы назвать список, выберите все три ячейки даты – C2: C4 – затем щелкните поле имени и введите имя из одного слова – DateList – затем нажмите клавишу Enter

Создание раскрывающегося списка проверки данных

1. На листе ввода данных выберите ячейку C4, где раскрывающийся список дат будут добавлены.
2. На ленте Excel щелкните вкладку Данные
3. Щелкните Проверка данных (щелкните верхнюю часть команды)
4. На вкладке Параметры диалогового окна проверки данных из Разрешить раскрывающийся список, нажмите Список
5. В поле Источник введите знак равенства и имя списка: = Список дат

6. Щелкните OK, чтобы закрыть диалоговое окно проверки данных.

Проверить правильность данных

1. Ячейка C4 теперь имеет стрелку раскрывающегося списка, поэтому вы можете выбрать один из Допустимые сроки.

2. Если вы введете неверную дату в ячейку, вы увидите сообщение об ошибке.

Пример 2: следующие 3 рабочих дня

В этом примере динамический список показывает даты на следующие 3 рабочих дня.Даты выходных в список не включены.

Создание списка действительных дат

На другом листе книги вы создадите список действительных дат. В этом примере лист со списком называется AdminLists.

1. На листе AdminLists в ячейке I2 введите эту формулу, чтобы вычислить текущая дата:
   • = СЕГОДНЯ ()
   • (необязательно) Отформатируйте ячейку в произвольном числовом формате: ддд мм / дд / гггг
2. В ячейке h5 введите заголовок «Добавить»
3. В ячейках H5: H7 введите числа 1, 2 и 3 .

• = РАБДЕНЬ (2 доллара США, H5)
• Скопируйте формат даты из ячейки I2 в ячейку I5
• Скопируйте формулу на I6 и I7

Создание раскрывающегося списка проверки данных

1. На листе ввода данных выберите B3, где раскрывающийся список дат будут добавлены.
2. На ленте Excel щелкните вкладку Данные
3. Щелкните Проверка данных (щелкните верхнюю часть команды)
4. На вкладке Параметры диалогового окна проверки данных из Разрешить раскрывающийся список, нажмите Список
5. В поле «Источник» введите знак равенства и имя списка: = DateListWork
6. Щелкните OK, чтобы закрыть диалоговое окно проверки данных.

Проверить правильность данных

1. Ячейка B3 теперь имеет стрелку раскрывающегося списка, поэтому вы можете выбрать один из Допустимые сроки.

Ограничить дату текущим годом

В этом примере используется настраиваемая формула, которая ограничивает даты текущим годом.

1. На листе ввода данных (лист CurrentYr в файле примера) выберите ячейку C4, в которую будет введена дата.
2. На ленте Excel щелкните вкладку Данные
3. Щелкните Проверка данных (щелкните верхнюю часть команды)
4. На вкладке Параметры диалогового окна проверки данных из Разрешить раскрывающийся список, нажмите Custom
5. В поле Формула введите формулу, которая будет сравнивать год для даты, указанной в ячейке C4, с годом для сегодняшней даты.
   = ГОД (C4) = ГОД (СЕГОДНЯ () )
6. Нажмите ОК

Чтобы протестировать проверку данных, введите дату, отличную от текущего года.

Получить образец файла

Чтобы получить образец файла, щелкните здесь: Проверка данных для дат

Заархивированный файл имеет формат xlsx и не содержит макросов.

Дополнительные примеры проверки данных

Предотвратить запись выходных дней

Основы проверки данных

Создание зависимых списков

Примеры критериев проверки данных

Примеры пользовательских критериев

Как записывать и создавать свои собственные макросы Excel

Электронные таблицы бесконечно гибки, особенно в Excel, одном из самых мощных приложений для работы с электронными таблицами.Однако большинство людей используют лишь небольшой процент своих, казалось бы, бесчисленных возможностей. Тем не менее, не требуются годы обучения, чтобы воспользоваться возможностями электронных таблиц и магией автоматизации макросов Excel.

Вы, вероятно, уже используете такие функции, как = sum (A1: A5) , простые фрагменты текста, которые складывают, усредняют и вычисляют ваши значения. Именно они делают электронные таблицы мощным инструментом для обработки чисел и текста. Следующий шаг – макросы: это инструменты, автоматизирующие простые задачи и помогающие сделать больше за меньшее время.Вот как разблокировать эту новую часть вашего набора навыков Excel, создав свои собственные макросы в Excel.

Впервые работали с электронными таблицами? Начните сначала с нашего руководства по электронной таблице 101 – оно знакомит вас с основными функциями электронных таблиц, которые помогут вам начать работу с любым приложением для работы с электронными таблицами: Google Таблицы, Excel или любой другой инструмент для работы с электронными таблицами.

Каспер Лангманн – эксперт по Excel и соучредитель Spreadsheeto . Этот пост был первоначально опубликован в августе 2016 года, но был дополнен дополнительными советами

---

---

Что такое макросы Excel?

Макросы – это код, который автоматизирует работу в программе – они позволяют вам добавлять свои собственные крошечные функции и улучшения, которые помогут вам выполнить именно то, что вам нужно, быстро, всего лишь одним щелчком кнопки.В таком инструменте работы с электронными таблицами, как Excel, макросы могут быть особенно мощными. Скрытые за обычным пользовательским интерфейсом, они более мощные, чем стандартные функции, которые вы вводите в ячейку (например, = ЕСЛИ (A2 <100,100, A2) ).

Эти макросы заставят Excel работать на вас. Они заменяют действия, которые вы выполняете вручную - все, от форматирования ячеек, копирования значений и подсчета итогов. Таким образом, с помощью нескольких щелчков мыши вы можете быстро заменить повторяющиеся задачи.

Чтобы создать эти макросы, вы можете просто записать свои действия в Excel, чтобы сохранить их как повторяемые шаги, или вы можете использовать Visual Basic для приложений (VBA), простой язык программирования, встроенный в Microsoft Office.Мы покажем вам, как использовать и то, и другое ниже, а также поделимся примерами макросов Excel, которые помогут вам начать работу.

Совет: Это руководство и все примеры написаны в Excel 2016 для Windows, но принципы применимы к Excel 2007 и новее как для Mac, так и для ПК.

Зачем нужны макросы Excel?

Обучение автоматизации Excel - один из самых простых способов ускорить вашу работу, особенно потому, что Excel используется во многих рабочих процессах. Допустим, каждую неделю вы экспортируете данные аналитики из своей системы управления контентом (CMS) для создания отчета о своем сайте.Единственная проблема в том, что эти экспортируемые данные не всегда в формате, удобном для Excel. Они беспорядочные и часто содержат гораздо больше данных, чем требуется в вашем отчете. Это означает, что вам нужно очистить пустые строки, скопировать и вставить данные в нужное место, а также создать свои собственные диаграммы для визуализации данных и сделать их удобными для печати. На выполнение всех этих шагов может уйти несколько часов.

Если бы был только способ нажать одну кнопку и позволить Excel сделать это за вас в одно мгновение ... Ну, вы можете догадаться, что я собираюсь сказать дальше?

Есть!

Все, что для этого требуется, - это немного времени на настройку макроса, и затем этот код будет каждый раз автоматически выполнять эту работу за вас.Это даже не так сложно, как кажется.

Как создать свой первый макрос Excel

Вы уже знакомы с Excel и знакомы с его сеткой ячеек, в которую вы вводите текст и функции. Однако для создания макросов Excel вам понадобится дополнительный инструмент, встроенный в Excel: редактор Visual Basic.

Знакомство с редактором VBA

Excel имеет встроенный инструмент для написания макросов, называемый редактором Visual Basic, или для краткости редактором VBA. Чтобы открыть это, откройте электронную таблицу и используйте ярлык Alt + F11 (для Mac: Fn + Shift + F11 ).

Новое всплывающее окно называется редактором VBA. Здесь вы будете редактировать и хранить все свои макросы. Его расположение может немного отличаться от этого снимка экрана, но вы можете перемещать окна в нужном вам порядке. Просто убедитесь, что панель Project Explorer открыта, чтобы вы могли легко редактировать свои макросы.

Ваши макросы будут состоять из «модулей» или файлов с вашим кодом VBA. Вы добавите новый модуль или откроете существующий в редакторе VBA, а затем введите нужный код.Чтобы вставить модуль, нажмите «Вставить», а затем «Модуль». Затем вы увидите пустое место для написания кода справа.

Как записать макрос Excel

Макрос можно создать двумя способами: закодировать или записать. Основное внимание в этой статье уделяется первому, но запись макроса настолько проста и удобна, что ее тоже стоит изучить. Запись макроса - хороший способ познакомиться с основами VBA. Позже он служит удобным хранилищем для кода, который вам не нужно запоминать.

Когда вы записываете макрос, вы указываете Excel начать запись. Затем вы выполняете задачи, которые хотите перевести в код VBA. Когда вы закончите, скажите Excel, чтобы он прекратил запись, и вы сможете использовать этот новый макрос для повторения действий, которые вы только что выполнили, снова и снова.

У этого есть ограничения, поэтому вы не можете автоматизировать каждую задачу или стать экспертом в автоматизации, только записывая. Иногда вам все равно придется вводить или редактировать код вручную. Но это все еще удобный способ начать работу.Вот как: 1. Перейдите на вкладку «Просмотр» на ленте и щелкните маленькую стрелку под кнопкой «Макросы». 2. Затем нажмите «Записать макрос». 3. Введите имя вашего макроса и нажмите «ОК», чтобы начать запись. 4. Выполните действия в вашей электронной таблице, которые вы хотите превратить в макрос. 5. Когда вы закончите, перейдите на вкладку «Просмотр», снова нажмите маленькую стрелку под кнопкой «Записать макрос» и выберите «Остановить запись».

Теперь используйте ярлык Alt + F11 (для Mac: Fn + Shift + F11 ), чтобы открыть редактор VBA, и дважды щелкните «Модуль 1» в проводнике проектов.

Это ваш первый код! Удивительно, правда? Возможно, вы не написали его сами, но он все равно создан вашими действиями.

Твой, вероятно, выглядит иначе, чем мой. Вы можете догадаться, что делает мой код?

• Sub Makebold - это просто текст Sub , за которым следует имя, которое я ввел, когда начал запись.

• Зеленая линия на самом деле ничего не делает - это комментарий, в который вы можете добавить объяснение того, что делает макрос.

• Selection.Font.Bold = True делает значения в выбранных ячейках жирным шрифтом .

• End sub просто сообщает Excel, что макрос здесь останавливается.

Что произойдет, если я изменю часть третьей строки True на False ? Затем макрос удалит из выделения любое выделение жирным шрифтом вместо того, чтобы делать его жирным.

Вот как вы записываете простой макрос.Но настоящая сила макросов проявляется тогда, когда вы можете написать их самостоятельно, поэтому давайте начнем учиться писать простой код VBA.

Как кодировать собственные макросы Excel

Макросы - это просто фрагменты кода в Excel, которые выполняют ваши приказы. После того, как вы напишете код в редакторе VBA, вы можете запустить его и позволить коду творить чудеса с вашей электронной таблицей. Но что еще лучше, так это встроить макрос в электронную таблицу, и лучший инструмент для этого - кнопки.

Итак, прежде чем мы начнем писать код, давайте добавим кнопку для запуска нашего макроса.

Добавить кнопку для запуска макроса

Вы можете использовать различные объекты Excel в качестве кнопок для запуска макросов, но я предпочитаю использовать форму из вкладки «Вставка». Когда вы вставили фигуру, щелкните ее правой кнопкой мыши и выберите «Назначить макрос…» Затем выберите макрос, который вы хотите запускать при щелчке фигуры - возможно, тот, который вы только что создали с записью, и сохраните его, нажав «ОК».

Теперь, когда вы щелкаете фигуру, которую мы только что превратили в кнопку, Excel запускает макрос без необходимости каждый раз открывать код.

Перед тем, как мы начнем, следует отметить еще одну вещь: сохранение вашей электронной таблицы с помощью макросов. По умолчанию файлы электронных таблиц Excel с расширением .xlsx не могут содержать макросы. Вместо этого при сохранении электронной таблицы выберите формат «Excel Macro-Enabled Workbook (* .xlsm)» и добавьте имя файла как обычно.

Сделайте это, чтобы сохранить электронную таблицу, прежде чем мы начнем кодировать.

---

А теперь приступим к написанию кода!

Копирование и вставка - это самый простой способ перемещения данных, но он по-прежнему утомителен.Что, если бы ваша таблица могла сделать это за вас? С макросом это возможно. Давайте посмотрим, как написать макрос, который будет копировать данные и перемещать их в электронной таблице.

Откройте файл проекта, который вы скачали ранее, и убедитесь, что выбран лист «Копировать, вырезать и вставить». Это образец базы данных сотрудников с именами, отделами и зарплатами некоторых сотрудников.

Давайте попробуем скопировать все данные из столбцов с A по C в столбцы D по F с помощью VBA. Во-первых, давайте посмотрим на код, который нам нужен:

Копирование ячеек с помощью VBA

Копирование в VBA довольно просто.Просто вставьте этот код в редактор VBA: Range («Вставьте здесь диапазон»). Скопируйте . Вот несколько примеров:

Помните, когда вы записывали макрос раньше? Макрос имел Sub Nameofmacro () и End sub в верхней и нижней строке кода. Эти строки всегда должны быть включены. Excel также упрощает эту задачу: когда вы вводите «Sub», за которым следует имя макроса в начале кода, End sub автоматически вставляется в нижнюю строку.

Совет: Не забывайте вводить эти строки вручную, когда вы не используете средство записи макросов.

Вставка ячеек с помощью VBA

Вставка может выполняться разными способами в зависимости от того, что вы хотите вставить. В 99% случаев вам понадобится одна из этих двух строк кода:

• Диапазон («Ячейка / область, в которую вы хотите вставить»). Специальная вставка ← вставляет как обычно (формулы и форматирование)

• Диапазон («Ячейка / область, в которую вы хотите вставить»). Pastespecial xlPasteValues ​​ ← вставляет только значения

Вырезание ячеек с помощью VBA

Если вы хотите переместить данные вместо их копирования, вам необходимо вырезать это.Вырезать довольно легко и следует той же логике, что и копирование.

Вот код: Диапазон («Вставьте здесь диапазон»). Вырезать

При вырезании нельзя использовать команду «Специальная вставка». Это означает, что нельзя вставлять только значения или только форматирование. Следовательно, вам нужны эти строки, чтобы вставить ваши ячейки с помощью VBA: Range («Вставьте, где вы хотите вставить»). Выберите ActiveSheet.Paste

. Например, вот код, который вам нужно вырезать из диапазона A: C и вставьте его в D1 :

• Range ("A: C").Вырезать

• Диапазон ("D1"). Выберите

• ActiveSheet.Paste

---

Копирование, вырезание и вставка - это простые действия, которые можно выполнить вручную, не беспокоясь. Но когда вы копируете и вставляете одни и те же ячейки несколько раз в день, кнопка, которая делает это за вас, может сэкономить кучу времени. Кроме того, вы можете комбинировать копирование и вставку в VBA с другим классным кодом, чтобы автоматически делать еще больше в вашей электронной таблице.

Добавление циклов в VBA

Я только что показал вам, как выполнить простое действие (копирование и вставка) и прикрепить его к кнопке, чтобы вы могли делать это одним щелчком мыши. Это всего лишь одно автоматическое действие. Однако, когда у вас есть код, который повторяется, он может выполнять более длинные и сложные задачи автоматизации за секунды.

Взгляните на лист «Петли» в файле проекта. Это те же данные, что и на предыдущем листе, но теперь каждая третья строка данных перемещена на один столбец вправо.Этот тип ошибочной структуры данных не является необычным при экспорте данных из старых программ.

Это может занять много времени, чтобы исправить это вручную, особенно если электронная таблица содержит тысячи строк вместо небольших выборочных данных в этом файле проекта.

Давайте сделаем петлю, которая исправит это за вас. Введите этот код в модуль, а затем посмотрите пояснения под изображением:

1. Эта строка гарантирует, что цикл начинается в верхней левой ячейке на листе и случайно не испортит данные, начав с другого места.

2. Строка For i = 1 - 500 означает, что количество запусков цикла (представленное i ) является возрастающим числом, которое начинается с 1 и заканчивается на 500. Это означает, что цикл будет пробежать 500 раз. Количество запусков цикла зависит от действий, которые вы хотите выполнить. Используйте здесь свой здравый смысл. 500 раз - это слишком много для нашего образца набора данных, но идеально подошло бы, если бы в базе данных было 1500 строк данных.

3. Эта строка распознает активную ячейку и указывает Excel переместиться на 3 строки вниз и выбрать эту ячейку, которая затем станет новой активной ячейкой.Если бы в наших данных была потеряна каждая четвертая строка, а не каждая третья, мы могли бы просто заменить 3 на 4 в этой строке.

4. Эта строка сообщает Excel, что делать с этой вновь выбранной ячейкой. В этом случае мы хотим удалить ячейку таким образом, чтобы ячейки справа от ячейки сдвинулись влево. Это достигается с помощью этой линии. Если мы хотели сделать что-то еще с неуместными строками, это то место, где можно это сделать. Если бы мы хотели полностью удалить каждую третью строку, то должна была бы быть строка: Selection.Целая строка. Удалить .

5. Эта строка сообщает Excel, что в цикле больше нет действий. В этом случае 2 и 5 - это кадр цикла, а 3 и 4 - действия внутри цикла.

Когда мы запускаем этот макрос, это приведет к аккуратному набору данных без каких-либо неуместных строк.

Добавление логики в VBA

Логика - это то, что оживляет фрагмент кода, делая его больше, чем просто машину, которая может выполнять простые действия и повторяться. Логика - это то, что делает Excel-лист почти человеком - он позволяет ему самостоятельно принимать разумные решения.Давайте использовать это для автоматизации!

Этот раздел посвящен операторам IF, которые включают логику «если-то-то-то», точно так же, как функция ЕСЛИ в Excel.

Допустим, экспорт с CMS нашего сайта оказался еще более ошибочным, чем ожидалось. Каждая третья строка по-прежнему неуместна, но теперь некоторые из неуместных строк размещаются на 2 столбца справа, а не на 1 столбец справа. Взгляните на лист "IF-statement" в файле проекта, чтобы увидеть, как он выглядит.

Как это учесть в нашем макросе? Добавляем в цикл IF-оператор!

Давайте сформулируем, что мы хотим, чтобы Excel делал:

Мы начинаем с ячейки A1.Затем мы переходим на три строки вниз (до ячейки A4, A7, A10 и т. Д.), Пока не кончатся данные. Каждый раз, когда мы опускаемся на три строки вниз, мы проверяем, не смещены ли данные на 1 или 2 столбца. Затем переместите данные в строке на 1 или 2 столбца влево.

Теперь давайте переведем это в код VBA. Мы начнем с простого цикла, как и раньше:

Единственное, что нам сейчас нужно, это написать, что должно происходить внутри цикла. Это часть «на три ряда вниз», которую мы разработали еще в разделе о петлях.Теперь мы добавляем IF-оператор, который проверяет, насколько данные неуместны, и исправляет это соответственно.

Это последний код, который нужно скопировать в редактор модуля, каждый шаг описан ниже:

1. Это первая часть оператора IF. Он говорит, что , если ячейка справа от активной ячейки (или Activecell.Offset (0,1) в коде VBA) пусто (представлено = "" ) , тогда что-то сделайте. Это то же самое действие, что и при создании цикла: удаление активной ячейки и перемещение активной строки на одну ячейку влево (выполняется с помощью параметра Selection.Удалить Shift: = код xlToLeft ). На этот раз мы делаем это два раза вместо одного, потому что в левой части строки есть две пустые ячейки.

2. Если вышеуказанное неверно, и ячейка справа от активной ячейки не пуста, то активная ячейка пуста. Следовательно, нам нужно только удалить активную ячейку и переместить активную строку на одну ячейку влево один раз.

Оператор IF всегда должен заканчиваться End If , чтобы сообщить Excel, что он завершил работу.После IF-оператора цикл может выполняться снова и снова, каждый раз повторяя IF-оператор.

Поздравляем, вы только что создали макрос, который может очищать беспорядочные данные! Посмотрите анимацию ниже, чтобы увидеть, как это работает (если вы еще не пробовали это сделать).

Автоматизация Excel без макросов

Макросы Excel имеют только одну проблему: они привязаны к вашему компьютеру и не могут работать в Excel Web App или на вашем мобильном устройстве. И они лучше всего работают с данными, уже находящимися в вашей электронной таблице, что затрудняет перенос новых данных из других приложений в вашу электронную таблицу.

Инструмент интеграции приложений Zapier может помочь. Он связывает версию Excel Office 365 для бизнеса с сотнями других приложений - Stripe, Salesforce, Slack и др. - так что вы можете автоматически записывать данные в электронную таблицу или запускать задачи в других приложениях прямо из Excel.

Вот как это работает. Допустим, вы хотите сохранить записи формы Typeform в электронную таблицу Excel. Просто создайте учетную запись Zapier и нажмите кнопку Make a Zap в правом верхнем углу. Затем выберите Typeform в средстве выбора приложения и настройте его так, чтобы он следил за вашей формой на предмет новых записей.

Zapier может следить за вашей формой Typeform на предмет новых записей

Протестируйте свой Zap, затем нажмите Продолжить , чтобы добавить еще один шаг в свой Zap. На этот раз мы выберем приложение Excel и выберем Добавить строку в нашу электронную таблицу. Вы также можете обновить строку или выполнить поиск в таблице по определенной строке, если хотите.

Zapier позволяет добавлять, обновлять или находить строки в электронной таблице Excel

Теперь выберите электронную таблицу и рабочий лист, затем щелкните значок + справа от каждой строки электронной таблицы, чтобы выбрать правильное поле формы для сохранения в эту строку электронной таблицы .Сохраните и протестируйте интеграцию с Zapier, а затем включите ее. Затем каждый раз, когда ваша форма Typeform заполняется, Zapier будет сохранять эти данные в вашу электронную таблицу Excel.

Zapier может добавлять данные вашей формы непосредственно в нужную строку электронной таблицы.

Вот несколько отличных способов начать автоматизацию Excel с помощью Zapier за несколько щелчков мышью или создать собственные интеграции Excel для подключения ваших электронных таблиц к вашим любимым приложениям.

Управление данными электронной таблицы

Сохранение записей формы в электронную таблицу Excel

Журнал данных в электронную таблицу Excel

Работайте с электронной таблицей

---

Создайте свой собственный макрос!

Теперь вы изучили некоторые из наиболее важных инструментов VBA для создания макросов для очистки данных и автоматизации вашей работы.Поэкспериментируйте с уловками и инструментами, которые вы только что изучили, потому что они являются основой автоматизации в VBA. Не забывайте использовать макрорекордер (и Google), когда чувствуете, что находитесь над головой.

Чтобы узнать больше, вот несколько дополнительных ресурсов, которые помогут вам максимально эффективно использовать макросы Excel:

Полное руководство по книге VBA

«Мы тонем в информации, но голодаем». - Джон Нейсбитт

Этот пост представляет собой полное руководство по использованию книги VBA.

Если вы хотите использовать VBA для Откройте книгу , тогда ознакомьтесь с Open Workbook

Если вы хотите использовать VBA для , создайте новую книгу , перейдите в Create New Workbook

Для всех других задач книги VBA, ознакомьтесь с кратким руководством ниже .

Краткое руководство к книге VBA

В следующей таблице содержится краткое руководство по основным задачам книги VBA.

Задача	Как выполнить
Доступ к открытой книге с именем	Workbooks («Пример.xlsx ")
Открытая книга доступа (первая открываемая)	Рабочие тетради (1)
Открыть книгу доступа (последняя открытая)	Рабочие книги (Workbooks.Count)
Доступ к активной книге	ActiveWorkbook
Доступ к книге, содержащей код VBA	ThisWorkbook
Объявление переменной книги	Dim wk As Workbook
Назначьте переменную книги	Задайте wk = Workbooks ("Пример.xlsx ") Set wk = ThisWorkbook Set wk = Workbooks (1)
Активировать книгу	нед. Активировать
Закрыть книгу без сохранения	нед. Закрыть SaveChanges: = False
Закройте книгу и сохраните	нед. Закрыть SaveChanges: = True
Создать новую книгу	Установить wk = Workbooks.Add
Открыть книгу	Установить wk = Workbooks.Open ("C: \ Docs \ Example.xlsx ")
Открыть книгу только для чтения	Установить wk = Workbooks.Open ("C: \ Docs \ Example.xlsx", ReadOnly: = True)
Книга чеков существует	Если Dir ("C: \ Docs \ book1.xlsx") = "" Тогда MsgBox "Файл не существует". EndIf
Чековая книга открыта	См. Раздел Чековая открытая книга ниже
Список всех открытых книг	За каждую неделю в Application.Workbooks Отладка.Печать wk.FullName Следующая нед
Открыть книгу с помощью диалогового окна «Файл»	См. Раздел «Диалог файла» ниже, функция ниже
Сохранить книгу	нед. Сохранить
Сохранить копию книги	wk.SaveCopyAs "C: \ Copy.xlsm"
Копировать книгу, если закрыта	FileCopy «C: \ file1.xlsx», «C: \ Copy.xlsx»
Книга «Сохранить как»	нед. Сохранить как «Backup.xlsx»





Веб-семинар по рабочим книгам VBA

Если вы являетесь участником веб-сайта, щелкните изображение ниже, чтобы перейти к веб-семинару.

( Примечание: участников веб-сайта имеют доступ к полному архиву вебинаров.)




Начало работы с книгой VBA

Мы можем получить доступ к любой открытой рабочей книге , используя код Workbooks ( «Пример .xlsm « ). Просто замените Example.xlsm на имя книги, которую вы хотите использовать.



В следующем примере показано, как писать в ячейку на листе.Вы заметите, что нам пришлось указать книгу, рабочий лист и диапазон ячеек.

https://excelmacromastery.com/
Общедоступная подписка WriteToA1 ()

    'Записывает 100 в ячейку A1 рабочего листа "Sheet1" в MyVBA.xlsm.
Рабочие книги ("MyVBA.xlsm"). Рабочие листы ("Sheet1"). Диапазон ("A1") = 100

Конец подписки
 



Этот пример может немного сбить с толку нового пользователя, но на самом деле он довольно прост.

Первая часть до десятичной точки - это рабочая книга, вторая часть - это рабочий лист, а третья - это диапазон.Вот еще несколько примеров записи в ячейку

https://excelmacromastery.com/
Публичная подписка WriteToMulti ()

'Записывает 100 в ячейку A1 рабочего листа "Sheet1" в MyVBA.xlsm.
Рабочие книги ("MyVBA.xlsm"). Рабочие листы ("Sheet1"). Диапазон ("A1") = 100

'Записывает «Джон» в ячейку B1 рабочего листа «Sheet1» в MyVBA.xlsm.
Рабочие книги ("MyVBA.xlsm"). Рабочие листы ("Sheet1"). Range ("B1") = "John"

'Записывает 100 в ячейку A1 рабочего листа «Учетные записи» в MyVBA.xlsm.
Рабочие тетради ("MyVBA.xlsm "). Таблицы (" Учетные записи "). Диапазон (" A1 ") = 100

'Записывает дату в ячейку D3 рабочего листа Sheet2 в Book.xlsc
Рабочие книги ("Book.xlsx"). Рабочие листы ("Sheet2"). Range ("D3") = "1 \ 1 \ 2016"

Конец подписки
 



Здесь вы можете увидеть простой узор. Вы можете писать в любую ячейку на любом листе из любой книги. Просто измените имя книги, имя листа и диапазон в соответствии с вашими потребностями.

Взгляните на часть рабочей тетради

Рабочие тетради («Пример.xlsx ")
 



Ключевое слово Workbooks относится к коллекции всех открытых книг. Добавление имени книги в коллекцию дает нам доступ к этой книге. Когда у нас есть объект, мы можем использовать его для выполнения задач с книгой.




Устранение неполадок с коллекцией книг

При использовании коллекции Workbooks для доступа к книге вы можете получить сообщение об ошибке:

Ошибка выполнения 9: индекс вне допустимого диапазона.

Это означает, что VBA не может найти книгу, которую вы передали в качестве параметра.

Это может произойти по следующим причинам

1. Книга в настоящее время закрыта.
2. Вы неправильно написали имя.
3. Вы создали новую книгу (например, Book1) и попытались получить к ней доступ с помощью Workbooks («Book1.xlsx»). Его имя не будет Book1.xlsx , пока оно не будет сохранено в первый раз.
4. (только Excel 2007/2010) Если вы используете два экземпляра Excel, то «Рабочие книги» () относятся только к книгам, открытым в текущем экземпляре Excel.
5. Вы передали число в качестве индекса, и оно больше, чем количество открытых книг, например. вы использовали Рабочие книги (3), и открыты только две книги.



Если не удается устранить ошибку, используйте любую из функций в разделе «Поиск всех открытых книг». Они напечатают имена всех открытых книг в непосредственном окне (Ctrl + G).




Примеры использования книги VBA

Следующие примеры показывают, что вы можете делать с книгой.

Примечание: Чтобы попробовать этот пример, создайте две открытые книги с именами Test1.xlsx и Test2.xlsx .

https://excelmacromastery.com/
Public Sub WorkbookProperties ()

    'Печатает количество открытых книг
    Debug.Print Workbooks.Count

    'Печатает полное имя книги
    Debug.Print Workbooks ("Test1.xlsx"). FullName

    'Отображает полное имя книги в диалоговом окне сообщения
    Книги MsgBox («Test1.xlsx "). FullName

    'Печатает количество листов в Test2.xlsx
    Debug.Print Workbooks ("Test2.xlsx"). Worksheets.Count

    'Печатает имя текущего активного листа Test2.xlsx
    Debug.Print Workbooks ("Test2.xlsx"). ActiveSheet.Name

    'Закрывает книгу Test1.xlsx
    Книги ("Test1.xlsx"). Закрыть

    'Закрывает книгу Test2.xlsx и сохраняет изменения
    Книги ("Test2.xlsx"). Закройте SaveChanges: = True

Конец подписки
 



Примечание: В примерах кода я использую Debug.Печатайте много. Эта функция печатает значения в непосредственном окне. Чтобы просмотреть это окно, выберите в меню View-> Immediate Window (сочетание клавиш Ctrl + G)











Доступ к книге VBA по индексу

Вы также можете использовать номер Index с Workbooks () . Индекс относится к порядку открытия или создания книги.


Рабочие книги (1) относятся к книге, которая была открыта первой.Рабочие книги (2) относятся к книге, которая была открыта второй, и так далее.

'Первая открытая рабочая тетрадь
Отладка. Печать книг (1). Имя

'Третья открытая рабочая тетрадь
Отладка. Печать книг (3). Имя

'Последняя открытая рабочая тетрадь
Отладка.Печать книг (Workbooks.Count) .Name
 



В этом примере мы использовали Workbooks.Count . Это количество книг, которые в настоящее время находятся в коллекции Workbooks.То есть количество рабочих книг, открытых в данный момент. Таким образом, использование его в качестве индекса дает нам последнюю открытую книгу

Использование индекса бесполезно, если вам действительно не нужно знать порядок. По этой причине вам следует избегать его использования. Вместо этого следует использовать имя книги с Workbooks () .




Поиск всех открытых книг

Иногда может потребоваться получить доступ ко всем открытым книгам. Другими словами, все элементы в коллекции Workbooks () .

Это можно сделать с помощью цикла For Each.

https://excelmacromastery.com/
Общедоступная подписка PrintWrkFileName ()

    'Распечатывает полное имя всех открытых книг
    Тусклый труд как рабочая тетрадь
    Для каждой работы в рабочих тетрадях
        Debug.Print wrk.FullName
    Следующая работа

Конец подписки
 



Вы также можете использовать стандартный цикл For для доступа ко всем открытым книгам

https: // excelmacromastery.com /
Общедоступный Sub PrintWrkFileNameIdx ()

    'Распечатывает полное имя всех открытых книг
    Тусклый я до тех пор, пока
    Для i = 1 To Workbooks.Count
        Отладка.Печать книг (i) .FullName
    Далее я

Конец подписки
 



Для доступа к книгам подойдет любой из этих циклов. Стандартный цикл For полезен, если вы хотите использовать другой порядок или вам нужно использовать счетчик.

Примечание: Оба примера читаются в порядке от первого открытого до последнего открытого.Если вы хотите читать в обратном порядке (от последнего к первому), вы можете сделать это

https://excelmacromastery.com/
Общедоступная подпрограмма PrintWrkFileNameIdxRev ()

    'Распечатывает полное имя всех открытых книг
    'в обратном порядке.
    Тусклый я до тех пор, пока
    Для i = Workbooks.Count To 1 Step -1
        Отладка.Печать книг (i) .FullName
    Далее я

Конец подписки
 




Открытая рабочая тетрадь

До сих пор мы имели дело с уже открытыми рабочими книгами.Конечно, необходимость вручную открывать книгу перед запуском макроса сводит на нет автоматизацию задач. Задача Open Workbook должна выполняться VBA.

Следующий код VBA открывает книгу «Book1.xlsm» в папке «C: \ Docs»

https://excelmacromastery.com/
Публичная подписка OpenWrk ()

    'Откройте книгу и распечатайте количество содержащихся в ней листов.
    Workbooks.Open ("C: \ Docs \ Book1.xlsm")

    Отлаживать.Печатные книги ("Book1.xlsm"). Worksheets.Count

    'Закройте книгу без сохранения
    Книги ("Book1.xlsm"). Закройте saveChanges: = False

Конец подписки
 



Рекомендуется проверить, действительно ли книга существует, прежде чем пытаться ее открыть. Это предотвратит появление ошибок. Функция Dir позволяет легко это сделать.

https://excelmacromastery.com/
Публичная подписка OpenWrkDir ()

    Если Dir ("C: \ Docs \ Book1.xlsm ") =" "Тогда
        'Файл не существует - сообщить пользователю
        MsgBox «Не удалось открыть книгу. Убедитесь, что она существует»
    Еще
        'откройте книгу и сделайте что-нибудь с ней
        Workbooks.Open ("C: \ Docs \ Book1.xlsm")
    Конец, если

Конец подписки

 




Проверить открытую книгу

Если вы открываете книгу как только для чтения , не имеет значения, открыта ли она уже. Однако, если вы собираетесь обновить данные в книге, рекомендуется проверить, открыта ли она уже.

Функцию, указанную ниже, можно использовать, чтобы проверить, открыта ли книга в данный момент. Если нет, то откроется книга. В любом случае у вас будет открытая книга.

(Код ниже взят из этой записи StackOverFlow.)

https://excelmacromastery.com/
Функция GetWorkbook (ByVal sFullFilename как строка) как рабочая книга
    
    Dim sFilename как строка
    sFilename = Dir (sFullFilename)
    
    При ошибке Возобновить Далее
    Dim wk As Workbook
    Установить wk = Workbooks (sFilename)
    
    Если wk - это ничто, тогда
        Установите wk = Workbooks.Открыть (sFullFilename)
    Конец, если
    
    При ошибке Перейти к 0
    Установите GetWorkbook = wk
    
Конечная функция
 




Эту функцию можно использовать так

https://excelmacromastery.com/
Sub ExampleOpenWorkbook ()

    Dim sFilename как строка
    sFilename = "C: \ Docs \ Book2.xlsx"

    Dim wk As Workbook
    Установите wk = GetWorkbook (sFilename)
    
Конец подписки
 




Этот код подходит для большинства ситуаций.Однако, если книга может быть в настоящее время открыта в режиме только для чтения или может быть открыта другим пользователем, вы можете использовать немного другой подход.

Простой способ справиться с этим в этом сценарии - настоять на том, чтобы файл был закрыт для успешного выполнения приложения. Вы можете использовать приведенную ниже функцию, чтобы просто проверить, открыт ли уже файл, и, если да, сообщить пользователю, что он должен быть сначала закрыт.

(приведенный ниже код также взят из этой записи StackOverFlow)

https: // excelmacromastery.com /
'Функция проверки, открыта ли уже книга
Функция IsWorkBookOpen (strBookName как строка) как логическое значение
    
    Dim oBk как рабочая тетрадь
    
    При ошибке Возобновить Далее
    Установите oBk = Workbooks (strBookName)
    При ошибке GoTo 0
    
    Если не oBk - это ничто, тогда
        IsWorkBookOpen = True
    Конец, если
    
Конечная функция
 



Пример использования этой функции показан ниже. В этом случае, если рабочая книга уже открыта, вы сообщаете пользователю, что она должна быть закрыта, чтобы макрос продолжил работу.

https://excelmacromastery.com/
Sub ExampleUse ()

    Dim sFilename как строка
    sFilename = "C: \ temp \ writedata.xlsx"

    Если IsWorkBookOpen (Dir (sFilename)) = True, то
        MsgBox «Файл уже открыт. Закройте файл и снова запустите макрос».
        Выйти из подводной лодки
    Конец, если
    
    'Напишите сюда в рабочую тетрадь
    
Конец подписки
 



Если вам нужно проверить, открыта ли книга в другом экземпляре Excel, вы можете использовать атрибут ReadOnly книги.Будет установлено значение true, если он открыт в другом экземпляре.




Закрыть книгу

Закрыть книгу в Excel VBA очень просто. Вы просто вызываете метод Close книги.

нед.Закрыть
 



Обычно, когда вы закрываете книгу в VBA, вы не хотите видеть сообщения из Excel, спрашивающие, хотите ли вы сохранить файл.

Вы можете указать, сохранять книгу или нет, и тогда сообщения Excel не будут отображаться.

'Не сохранять изменения
wk.Close SaveChanges: = False

'Сохранить изменения
wk.Close SaveChanges: = True
 



Очевидно, вы не можете сохранить изменения в книге, которая в настоящее время открыта только для чтения.




Книга сохранения

Мы только что видели, что вы можете сохранить книгу, когда закрываете ее. Если вы хотите сохранить его на любом другом этапе, вы можете просто использовать метод Сохранить

нед.Сохранить
 



Вы также можете использовать метод SaveAs

wk.Save как "C: \ Backups \ accounts.xlsx"
 



Метод Workbook SaveAs имеет двенадцать параметров, которые позволяют добавить пароль, сделать файл доступным только для чтения и т. Д. Вы можете увидеть подробности здесь.



Вы также можете использовать VBA для сохранения книги как копии с помощью SaveCopyAs

wk.SaveCopyAs "C: \ Docs \ Copy.xlsm "
 




Копия книги

Если книга открыта, вы можете использовать два метода, описанные в предыдущем разделе, для создания копии, то есть SaveAs и SaveCopyAs .


Если вы хотите скопировать книгу, не открывая ее, вы можете использовать FileCopy , как показано в следующем примере

Public Sub CopyWorkbook ()
    FileCopy "C: \ Docs \ Docs.xlsm", "C: \ Docs \ Example_Copy.xlsm"
Конец подписки
 




Использование диалогового окна файла для открытия книги

В предыдущем разделе показано, как открыть книгу с заданным именем.Иногда вы можете захотеть, чтобы пользователь выбрал книгу. Вы можете легко использовать окно Windows File Dialog , показанное здесь.

Диалог файла Windows




FileDialog настраивается, и вы можете использовать его для
1. Выберите файл.
2. Выберите папку.
3. Откройте файл.
4. «Сохранить как» файл.



Если вы просто хотите, чтобы пользователь выбрал файл, вы можете использовать функцию GetOpenFilename.



Следующая функция открывает книгу с помощью диалогового окна «Файл». Функция возвращает полное имя файла, если файл был выбран. Если пользователь отменяет, отображается сообщение и возвращается пустая строка.

https://excelmacromastery.com/
Открытая функция UserSelectWorkbook () как строка

    При ошибке Перейти к ErrorHandler

    Dim sWorkbookName As String

    Dim FD как FileDialog
    Установите FD = Application.FileDialog (msoFileDialogFilePicker)

    'Открыть диалоговое окно файла
    С FD
        'Установить заголовок диалогового окна
        .Title = "Пожалуйста, выберите файл"

        'Добавить фильтр
        .Filters.Добавьте «Файлы Excel», «* .xls; *. Xlsx; *. Xlsm».

        'Разрешить выбор только одного файла
        .AllowMultiSelect = Ложь

        'Показать диалог
        .Показать

        Если .SelectedItems.Count> 0 Тогда
            UserSelectWorkbook = .SelectedItems (1)
        Еще
            MsgBox «Выбор файла отменен».
            UserSelectWorkbook = ""
        Конец, если
    Конец с

    'Очистить
    Установите FD = Nothing
Готово:
    Функция выхода
ErrorHandler:
    MsgBox "Ошибка:" + Err.Описание
Конечная функция
 



Когда вы вызываете эту функцию, вы должны проверить, отменяет ли пользователь диалоговое окно. В следующем примере показано, как легко вызвать функцию UserSelectWorkbook и обработать случай отмены пользователем

.

https://excelmacromastery.com/
Открытый Sub TestUserSelect ()

    Dim userBook As Workbook, sFilename As String

    'Вызов функции UserSelectworkbook
    sFilename = UserSelectWorkbook ()

    'Если имя файла возвращается пустым, пользователь отменил
    Если sFilename "" Тогда
        'Откройте книгу и сделайте с ней что-нибудь
        Установите userBook = Workbooks.Открыть (sFilename)
    Конец, если

Конец подписки
 



Вы можете настроить диалоговое окно, изменив заголовок, фильтры и AllowMultiSelect в функции UserSelectWorkbook .




Использование ThisWorkbook

Существует более простой способ получить доступ к текущей книге, чем использование Workbooks () . Вы можете использовать ключевое слово ThisWorkbook . Это относится к текущей книге, то есть книге, содержащей код VBA.

Если наш код находится в книге, вызовите MyVBA.xlsm, тогда ThisWorkbook и Workbooks («MyVBA.xlsm») относятся к той же книге.



Использование ThisWorkbook более полезно, чем использование Workbooks () . С ThisWorkbook нам не нужно беспокоиться об имени файла. Это дает нам два преимущества:

1. Изменение имени файла не повлияет на код
2. Копирование кода в другую книгу не требует изменения кода



Это может показаться очень незначительным преимуществом.На самом деле имена ваших файлов будут постоянно меняться. Использование ThisWorkbook означает, что ваш код по-прежнему будет работать нормально.



В следующем примере показаны две строки кода. Один использует ThisWorkbook , а другой - Workbooks () . Тот, который использует рабочие книги, больше не будет работать, если имя MyVBA.xlsm изменится.

https://excelmacromastery.com/
Общедоступная подписка WriteToCellUsingThis ()

    Обе строчки делают одно и то же.Debug.Print ThisWorkbook.FullName
    Debug.Print Workbooks ("MyVBA.xlsm"). FullName

Конец подписки
 




Использование ActiveWorkbook

ActiveWorkbook относится к рабочей книге, которая в настоящее время активна. Это тот, на который пользователь нажимал последний раз.

Поначалу это может показаться полезным. Проблема в том, что любая книга может стать активной простым щелчком мыши. Это означает, что вы можете легко записать данные не в ту книгу.

Использование ActiveWorkbook также затрудняет чтение кода. Из кода может быть не очевидно, какая книга должна быть активной.

Надеюсь, я ясно дал понять, что вам следует избегать использования ActiveWorkbook , если в этом нет необходимости. Если нужно, то будьте очень осторожны.




Примеры доступа к рабочей книге

Мы рассмотрели все способы доступа к книге. В следующем коде показаны примеры этих способов

https: // excelmacromastery.com /
Общедоступные вспомогательные книги

    'Это рабочая книга, которая уже открыта и называется MyVBA.xlsm
    Debug.Print Workbooks ("MyVBA.xlsm"). FullName

    'Книга, содержащая этот код
    Debug.Print ThisWorkbook.FullName

    'Первая открытая книга
    Отладка.Печать книг (1) .FullName

    'Последняя открытая книга
    Отладка.Печать книг (Workbooks.Count) .FullName

    'Текущая активная книга
    Отлаживать.Распечатать ActiveWorkbook.FullName

    'Рабочая тетрадь не указана - будет использоваться активная
    Debug.Print Worksheets ("Sheet1"). Имя

    'Закрытая книга под названием Book1.xlsm в папке C: \ Docs
    Workbooks.Open ("C: \ Docs \ Book1.xlsm")
    Debug.Print Workbooks ("Book1.xlsm"). FullName
    Рабочие тетради ("Book1.xlsm"). Закрыть

Конец подписки
 




Объявление переменной книги VBA

Причина объявления переменной книги состоит в том, чтобы упростить чтение и понимание кода.Лучше увидеть преимущество на примере

https://excelmacromastery.com/
Публичная подпрограмма OpenWrkObjects ()

    Тусклый труд как рабочая тетрадь
    Установите wrk = Workbooks.Open ("C: \ Docs \ Book1.xlsm")

    'Распечатать количество листов в каждой книге
    Debug.Print wrk.Worksheets.Count
    Debug.Print wrk.Name

    wrk.Close

Конец подписки
 



Вы можете установить переменную книги с помощью любого из методов доступа, которые мы видели.

Ниже показан тот же код без переменной книги

https://excelmacromastery.com/
Публичная подпрограмма OpenWrkNoObjects ()

   Workbooks.Open ("C: \ Docs \ Book1.xlsm")

   Debug.Print Workbooks ("Book2.xlsm"). Worksheets.Count
   Debug.Print Workbooks ("Book2.xlsm"). Имя

    Рабочие тетради ("Book2.xlsm"). Закрыть

Конец подписки
 



В этих примерах разница несущественная. Однако, когда у вас много кода, использование переменной полезно, в частности, для рабочих таблиц и диапазонов, имена которых имеют тенденцию быть длинными e.г. thisWorkbook.Worksheets («Sheet1»). Range («A1») .

Переменной книги можно присвоить имя, например, wrkRead или wrkWrite. Тогда вы сразу поймете, для чего используется эта книга.




Создать новую книгу

Чтобы создать новую книгу, вы используете функцию Рабочие книги Добавить . Эта функция создает новую пустую книгу. Это то же самое, что выбрать «Новая книга» в меню «Файл Excel».



Когда вы создаете новую книгу, вы, как правило, хотите сохранить ее.В следующем коде показано, как это сделать.

https://excelmacromastery.com/
Общедоступная подписка AddWordbook ()

    Тусклый труд как рабочая тетрадь
    Установить wrk = Workbooks.Add

    'Сохранить как xlsx. Это значение по умолчанию.
    wrk.SaveAs "C: \ Temp \ Example.xlsx"

    'Сохранить как книгу с поддержкой макросов
    wrk.SaveAs "C: \ Temp \ Example.xlsm", xlOpenXMLWorkbookMacroEnabled

Конец подписки
 



Когда вы создаете новую книгу, она обычно состоит из трех листов.Это определяется свойством Application.SheetsInNewWorkbook .



Если вы хотите, чтобы в новой книге было другое количество листов, измените это свойство перед созданием новой книги. В следующем примере показано, как создать новую книгу с семью листами.

https://excelmacromastery.com/
Общедоступная подписка AddWordbookMultiSheets ()

    'Сохранить значение SheetsInNewWorkbook, чтобы мы могли сбросить его позже
    Тусклый листCnt по длине
    sheetCnt = Приложение.ТаблицыInNewWorkbook

    'Установить в новой книге 7 листов.
    Application.SheetsInNewWorkbook = 7

    'Рабочая тетрадь будет создана из 7 листов
    Тусклый труд как рабочая тетрадь
    Установить wrk = Workbooks.Add

    'Отобразить количество листов
    Debug.Print "количество листов:" & CStr (wrk.Worksheets.Count)

    'Восстановить исходное значение
    Application.SheetsInNewWorkbook = sheetCnt

Конец подписки
 




Ключевое слово With и рабочая тетрадь

Ключевое слово With упрощает чтение и запись кода VBA.Использование с означает, что вам нужно упомянуть элемент только один раз. С используется с Объектами. Это такие элементы, как рабочие тетради, рабочие листы и диапазоны.



В следующем примере два Subs. Первый похож на код, который мы видели до сих пор. Второй использует ключевое слово с . Вы можете видеть, что код намного яснее во втором Sub. Ключевые слова End With обозначают окончание кода раздела с помощью With .

https://excelmacromastery.com/
'Без ключевого слова With
Общедоступная подпрограмма NoUsingWith ()

   Debug.Print Workbooks ("Book2.xlsm"). Worksheets.Count
   Debug.Print Workbooks ("Book2.xlsm"). Имя
   Debug.Print Workbooks ("Book2.xlsm"). Worksheets (1) .Range ("A1")
   Рабочие тетради ("Book2.xlsm"). Закрыть

Конец подписки

'Использование With упрощает чтение кода
Публичная подписка UsingWith ()

    С книгами ("Book2.xlsm")
        Отлаживать.Распечатать .Worksheets.Count
        Debug.Print .Name
        Debug.Print .Worksheets (1) .Range ("A1")
        .Закрывать
    Конец с

Конец подписки
 




Сводка

Ниже приводится краткое изложение основных моментов этого поста

1. Чтобы получить книгу, содержащую код, используйте ThisWorkbook .
2. Чтобы получить любую открытую книгу, используйте Рабочие книги («Example.xlsx») .
3. Чтобы открыть книгу, используйте Set Wrk = Workbooks.Откройте («C: \ Folder \ Example.xlsx»).
4. Разрешить пользователю выбирать файл с помощью функции UserSelectWorkbook , представленной выше.
5. Чтобы создать копию открытой книги, используйте свойство SaveAs с именем файла.
6. Чтобы создать копию книги без открытия, используйте функцию FileCopy .
7. Чтобы упростить чтение и запись кода, используйте ключевое слово With .
8. Другой способ сделать ваш код понятным - использовать Рабочую книгу переменных
9. Чтобы просмотреть все открытые рабочие книги, используйте для каждой недели в рабочих книгах , где недель - это переменная книги.
10. Старайтесь избегать использования ActiveWorkbook и Workbooks (Index) , поскольку их ссылка на книгу является временной.

Вы можете увидеть краткое руководство по теме в верхней части этого сообщения




Заключение

Это был подробный пост об очень важном элементе VBA - Рабочей книге. Надеюсь, вы сочли это полезным. Excel отлично предоставляет множество способов выполнения аналогичных действий, но недостатком является то, что иногда это может привести к путанице.

Чтобы извлечь максимальную пользу из этого поста, я рекомендую вам попробовать примеры. Создайте книги и поиграйте с кодом. Внесите изменения в код и посмотрите, как изменения повлияют на результат. Практика - лучший способ изучить VBA.

Если вы нашли этот пост полезным, не стесняйтесь поделиться им с другими, используя панель сбоку.




Что дальше?

Бесплатное руководство по VBA Если вы новичок в VBA или хотите отточить свои существующие навыки VBA, почему бы не попробовать The Ultimate VBA Tutorial.

Связанное обучение: Получите полный доступ к обучающим вебинарам по Excel VBA и всем учебным материалам.

( ПРИМЕЧАНИЕ: Планируете создание приложения VBA или управление им? Узнайте, как создать 10 приложений Excel VBA с нуля.)




Получите бесплатную электронную книгу

Не стесняйтесь подписаться на мой информационный бюллетень и получать эксклюзивный контент VBA, который вы не можете найти здесь, в блоге, а также бесплатный доступ к моей электронной книге How to Ace the 21 Most Common Question in VBA , которая полна примеров, которые вы можете использовать в своем собственном коде.






Сортировка данных в Excel VBA

Сортировка данных в Excel VBA

Excel имеет отличное средство для сортировки диапазона табличных данных с помощью ленты во внешнем интерфейсе Excel, и в какой-то момент вы, вероятно, захотите использовать эту функцию в своем коде VBA. К счастью, это сделать очень просто.

Интерфейсное диалоговое окно можно найти, щелкнув значок «Сортировка» в группе «Сортировка и фильтр» на вкладке «Данные» на ленте Excel.Сначала вам нужно выбрать диапазон табличных данных.

Вы также можете использовать Alt-A-S-S, чтобы открыть диалоговое окно для пользовательской сортировки.

Метод сортировки был значительно улучшен в более поздних версиях Excel. Раньше сортировка ограничивалась тремя уровнями, но теперь вы можете ввести столько уровней, сколько вам нужно, и это также применимо в VBA.

Вы можете включить все функции сортировки, предлагаемые в диалоговом окне «Сортировка Excel», в свой код VBA. Функция сортировки в Excel выполняется быстро и быстрее, чем все, что вы могли бы написать самостоятельно на VBA, поэтому воспользуйтесь преимуществами этой функциональности.

Обратите внимание, что когда вы выполняете сортировку в VBA, параметры сортировки остаются неизменными в диалоговом окне внешней сортировки. Они также сохраняются при сохранении книги.

Если пользователь выберет тот же диапазон табличных данных и щелкнет значок «Сортировка», он увидит все ваши параметры, которые были введены вашим кодом VBA. Если они захотят создать что-то свое, им придется сначала удалить все ваши уровни сортировки, что будет для них очень неприятно.

Кроме того, если вы не изменяете параметры в своем коде и полагаетесь на значения по умолчанию, вы можете обнаружить, что пользователь внес изменения, которые отразятся на вашей сортировке VBA и могут дать неожиданные результаты, что может быть очень сложно отлаживать.

К счастью, в VBA есть метод Clear для повторной установки всех параметров сортировки, чтобы пользователь увидел диалоговое окно чистой сортировки.

Рабочие листы ("Sheet1"). Sort.SortFields.Clear

Рекомендуется очищать параметры сортировки в VBA до и после завершения сортировки.

Практическое использование метода сортировки в VBA

Когда табличные данные импортируются в Excel, они часто находятся в очень случайном порядке.Он может быть импортирован из файла CSV (значения, разделенные запятыми), или он может быть получен из ссылки на базу данных или веб-страницу. Вы не можете полагаться на то, что он будет в установленном порядке от одного импорта к другому.

Если вы представляете эти данные пользователю на своем рабочем листе, пользователю может быть трудно просмотреть и понять огромное количество данных, которые с точки зрения порядка находятся повсюду. Они могут захотеть сгруппировать данные или вырезать и вставить определенные их части в другое приложение.

Они также могут захотеть увидеть, например, самого высокооплачиваемого сотрудника или сотрудника с самым продолжительным сроком службы.

Используя метод сортировки в VBA, вы можете предлагать параметры, упрощающие сортировку для пользователя.

Примеры данных для демонстрации сортировки Excel с помощью VBA

Сначала нам нужно ввести некоторые образцы данных в рабочий лист, чтобы код мог продемонстрировать все возможности, доступные в VBA.

Скопируйте эти данные на рабочий лист (называемый «Sheet1») точно так, как показано.

Обратите внимание, что использовались разные цвета фона ячеек и цвета шрифта, так как они также могут использоваться в качестве параметров сортировки.Сортировка с использованием цветов ячеек и шрифтов будет продемонстрирована позже в статье. Также обратите внимание, что в ячейке E3 название отдела написано строчными буквами.

Если вы не хотите использовать примеры сортировки по цвету ячеек и шрифта, вам не нужны внутренняя часть ячейки и цвета шрифта.

Запись макроса для сортировки VBA Код

VBA для сортировки может быть довольно сложным, и иногда может быть хорошей идеей выполнить сортировку во внешнем интерфейсе Excel и записать макрос, чтобы показать вам, как работает код.

К сожалению, функция записи может генерировать огромное количество кода, потому что она устанавливает практически все доступные параметры, даже несмотря на то, что значения по умолчанию для многих параметров приемлемы для вашей операции сортировки.

Тем не менее, он дает вам очень хорошее представление о том, что необходимо для написания кода сортировки VBA, и одним из преимуществ является то, что записанный код всегда будет работать на вас. Ваш собственный код может нуждаться в тестировании и отладке, чтобы он работал должным образом.

Помните, что для операции, выполненной в VBA, нет функции отмены, поэтому рекомендуется сделать копию табличных данных на другой лист, прежде чем вы начнете писать код сортировки.

В качестве примера, если вы выполнили простую сортировку приведенных выше примеров данных, сортировку по сотрудникам, запись выдала бы следующий код:

1 2 3 4 5 6 7 8 9 10 11 12 13 140002 14 18

Субмакрос1 () Диапазон ("A1: E6").Выберите ActiveWorkbook.Worksheets ("Sheet1"). Sort.SortFields.Clear ActiveWorkbook.Worksheets ("Sheet1"). Sort.SortFields.Add2 Key: = Range ("A2: A6"), _ SortOn: = xlSortOnValues, Order: = xlAscending, DataOption: = xlSortNormal С ActiveWorkbook.Worksheets ("Sheet1"). Sort .SetRange Range ("A1: E6") . MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin . Применить End With End Sub

Это довольно большой фрагмент кода, и большая его часть не нужна из-за использования параметров по умолчанию. Однако, если у вас мало времени для завершения проекта и вам нужен быстро работающий код, вы можете легко вставить его в свой собственный код VBA.

Однако, если вы хотите сделать свой код более понятным и элегантным, есть и другие варианты.

Код VBA для одноуровневой сортировки

Если вы хотите отсортировать пример кода только по сотрудникам, как и раньше при записи макроса, код очень простой:

Sub SingleLevelSort () Worksheets ("Sheet1"). Sort.SortFields.Clear Range ("A1: E6"). Sort Key1: = Range ("A1"), Header: = xlYes Концевой переходник

Это гораздо легче понять, чем записанный код, потому что он принимает значения по умолчанию, например.g., сортировка по возрастанию, поэтому нет необходимости устанавливать для параметров значения по умолчанию. Это предполагает, что вы заранее использовали оператор «Очистить».

Метод «Очистить» изначально используется для обеспечения того, чтобы для каждого параметра сортировки для этого рабочего листа были восстановлены значения по умолчанию. Пользователь мог ранее установить для параметров другие значения, или более ранняя сортировка в VBA могла изменить их. При сортировке важно начинать с позиции по умолчанию, иначе вы легко можете получить неверные результаты.

Метод Clear не сбрасывает параметр заголовка, и рекомендуется включить его в свой код, иначе Excel может попытаться угадать, присутствует строка заголовка или нет.

Запустите этот код с образцом данных, и ваш рабочий лист будет выглядеть так:

Код VBA для многоуровневой сортировки

Вы можете добавить столько уровней сортировки, сколько требуется в вашем коде. Предположим, вы хотите отсортировать сначала по отделам, а затем по дате начала, но в порядке возрастания для отдела и в порядке убывания для даты начала:

Sub MultiLevelSort () Рабочие листы («Лист1»).Sort.SortFields.Clear Range ("A1: E6"). Sort Key1: = Range ("E1"), Key2: = Range ("C1"), Header: = xlYes, _ Order1: = xlAscending, Order2: = xlDescending End Sub

Обратите внимание, что теперь в операторе сортировки есть два ключа (Key1 и Key2). Key1 (столбец E) сортируется в первую очередь, а затем Key2 (столбец C даты начала) сортируется на основе первой сортировки.

Также есть два параметра заказа. Order1 ассоциируется с Key1 (Отдел), а Order2 ассоциируется с Key2 (Дата начала).Важно следить за тем, чтобы ключи и приказы согласовывались друг с другом.

Запустите этот код с образцом данных, и ваш рабочий лист будет выглядеть так:

Столбец «Отдел» (E) находится в порядке возрастания, а столбец «Дата начала» (C) - в порядке убывания.

Эффект такого рода наиболее заметен при взгляде на Джейн Халфакр (ряд 3) и Джона Сазерленда (ряд 4). Они оба занимаются финансами, но Джейн Хафакр начала работу раньше Джона Сазерленда, и даты показаны в порядке убывания.

Если диапазон табличных данных может иметь любую длину, вы можете использовать объект UsedRange для определения диапазона сортировки. Это будет работать только в том случае, если на листе есть только табличные данные, поскольку любые значения за пределами данных дадут неверные результаты для количества строк и столбцов.

Sub MultiLevelSort () Worksheets ("Sheet1"). Sort.SortFields.Clear Worksheets ("Sheet1"). UsedRange.Sort Key1: = Range ("E1"), Key2: = Range (" C1 "), Заголовок: = xlYes, _ Order1: = xlAscending, Order2: = xlDescending End Sub

Это предотвращает проблему, если вы используете метод «End (xlDown)» для определения диапазона сортировки.Если в середине данных есть пустая ячейка, то все, что находится после пустой ячейки, не будет включено, тогда как UsedRange перейдет к последней активной ячейке на листе.

Сортировка по цвету ячейки

Начиная с Excel 2007, теперь возможна сортировка по цвету фона ячейки, что обеспечивает огромную гибкость при разработке кода сортировки в VBA.

Sub SingleLevelSortByCellColor () Рабочие листы («Лист1»).Sort.SortFields.Clear ActiveWorkbook.Worksheets ("Sheet1"). Sort.SortFields.Add2 Key: = Range ("A2: A6"), _ SortOn: = xlSortOnCellColor, Order: = xlAscending, DataOptionNort: = xlAscending, DataOptionN С ActiveWorkbook.Worksheets ("Sheet1"). Сортировать .SetRange Range ("A1: E6") .Apply End With End Sub

Этот код сортирует диапазон данных выборки (A2: A6) на основе цвета фона ячейки.Обратите внимание, что теперь есть дополнительный параметр «SortOn», который имеет значение «xlSortOnCellColor».

Обратите внимание, что параметр «SortOn» может использоваться только объектом рабочего листа, но не объектом диапазона.

Из-за этого код сложнее, чем для сортировки по значениям ячеек.

Этот код использует значение ключа для сортировки, которое охватывает весь диапазон данных, но вы можете указать отдельные столбцы в качестве ключа для сортировки по цвету фона и использовать несколько уровней, как показано ранее.

После запуска этого кода ваш рабочий лист теперь будет выглядеть так:

Сортировка по цвету шрифта

Функция сортировки в Excel VBA предлагает еще большую гибкость, поскольку вы можете сортировать по цвету шрифта:

Sub SingleLevelSortByFontColor () Worksheets ("Sheet1"). Sort.SortFields.Clear ActiveWorkbook.Worksheets ("Sheet1"). Sort.SortFields.Add (Range ("A2 _ ") xlSortOnFontColor, xlAscending, xlSortNormal).SortOnValue.Color = RGB (0, 0, 0) С ActiveWorkbook.Worksheets ("Sheet1"). Sort .SetRange Range ("A1: E6") .Header = xlYes .Orientation = .Orientation = xlTopToBottom . Применить End With End Sub

Код сортировки по цвету шрифта намного сложнее, чем по цвету фона ячейки. Параметр «SortOn» теперь содержит значение «xlSortOnFontColor».

Обратите внимание, что вы должны указать ориентацию как «xlTopToBottom» и указать цвет для сортировки. Это указывается в терминах RGB (красный, зеленый, черный) со значениями от 0 до 255.

После выполнения этого кода с образцами данных ваш рабочий лист теперь будет выглядеть следующим образом:

Сортировка с использованием цветов в VBA намного сложнее, чем многоуровневая сортировка, но если ваш код сортировки не будет работать (что может произойти, если параметр отсутствует или вы неправильно ввели код), вы всегда можете вернуться к запись макроса и интеграция записанного кода в ваш VBA.

Использование других параметров при сортировке VBA

Существует ряд дополнительных параметров, которые можно использовать в коде VBA для настройки сортировки.

Сортировать по

SortOn выбирает, будут ли при сортировке использоваться значения ячеек, цвета фона ячеек или цвета шрифтов ячеек. Значение по умолчанию - Значения ячеек.

Заказать

Порядок выбирает, будет ли сортировка выполняться в порядке возрастания или убывания. По умолчанию - По возрастанию.

DataOption

DataOption выбирает способ сортировки текста и чисел. Параметр xlSortNormal сортирует числовые и текстовые данные отдельно. Параметр xlSortTextAsNumbers обрабатывает текст как числовые данные для сортировки. По умолчанию - xlSortNormal.

DataOption = xlSortNormal

Заголовок определяет, есть ли в диапазоне табличных данных строку заголовка. Если есть строка заголовка, вы не хотите, чтобы она включалась в сортировку.

Значения параметров: xlYes, xlNo и xlYesNoGuess. xlYesNoGuess оставляет Excel, чтобы определить, есть ли строка заголовка, что может легко привести к несогласованным результатам. Использование этого значения не рекомендуется.

Значение по умолчанию - XNo (в данных нет строки заголовка). В случае импортированных данных обычно есть строка заголовка, поэтому убедитесь, что вы установили для этого параметра значение xlYes.

MatchCase

Этот параметр определяет, учитывается ли при сортировке регистр или нет.Значения опций - Истина или Ложь. Если значение равно False, то значения в нижнем регистре считаются такими же, как и значения в верхнем регистре. Если значение равно True, тогда сортировка покажет разницу между значениями верхнего и нижнего регистра внутри сортировки. Значение по умолчанию неверно.

Ориентация

Этот параметр определяет, будет ли сортировка выполняться по строкам вниз или по всем столбцам. Значение по умолчанию - xlTopToBottom (сортировка строк). Вы можете использовать xlLeftToRight, если хотите сортировать по горизонтали.Такие значения, как xlRows и xlColumns, не работают для этого параметра.

Ориентация = xlTopToBottom

Метод сортировки

Этот параметр используется только для сортировки китайских языков. У него два значения: xlPinYin и xlStroke. xlPinYin - значение по умолчанию.

xlPinYin выполняет сортировку с использованием фонетического китайского порядка сортировки символов. xlStroke сортирует по количеству штрихов в каждом символе.

Если вы записываете макрос сортировки, этот параметр всегда будет включен в код, и вы, возможно, задались вопросом, что он означает. Однако, если вы не имеете дело с данными на китайском языке, от этого мало толку.

Использование события двойного щелчка для сортировки табличных данных

Во всех функциях, которые Microsoft включила в методы сортировки для VBA, не было простого средства двойного щелчка по заголовку столбца и сортировки всех табличных данных на основе этого конкретного столбца.

Это действительно полезная функция, и для этого легко написать код.

1 2 3 4 5 6 7 8 9 10 11 12 13 140002 14 18 19 20 21 22 23 24 25 26 27 28 29 30 000 000 34

Private Sub Worksheet_BeforeDoubleClick (ByVal Target As Range, Cancel As Boolean) 'Предполагается, что данные начинаются с ячейки A1 ' Создайте три переменные для захвата выбранного целевого столбца и максимального столбца и строки _ 'табличные данные Dim Col As Integer, RCol As Long, RRow As Long ' Убедитесь, что пользователь дважды щелкнул строку заголовка - строка 1, в противном случае выйдите из подпрограммы If Target.Row <> 1 Then Exit Sub 'Захватите максимальное количество строк в диапазоне табличных данных с помощью объекта' UsedRange ' RCol = ActiveSheet.UsedRange.Columns.Count ' Захватите максимальное количество столбцов в табличной диапазон данных с использованием объекта 'UsedRange' RRow = ActiveSheet.UsedRange.Rows.Count 'Убедитесь, что пользователь не щелкнул дважды столбец вне диапазона табличных данных Если Target.Column> RCol Затем Exit Sub 'Захватите столбец, который пользователь дважды щелкнул на Col = Target.Столбец 'Удалить предыдущие параметры сортировки ActiveSheet.Sort.SortFields.Clear ' Сортировка табличного диапазона в соответствии с максимальным количеством строк и столбцов из объекта 'UsedRange' 'Сортировка табличных данных с использованием столбец, который пользователь дважды щелкнул как ключ сортировки ActiveSheet.Range (Cells (1, 1), Cells (RCol, RRow)). Sort Key1: = Cells (1, Col), Header: = xlYes 'Выберите ячейку A1 - это необходимо для того, чтобы пользователь не оставался в режиме редактирования после завершения сортировки _ ' ActiveSheet.Диапазон ("A1"). Выберите End Sub

Этот код необходимо поместить в событие двойного щелчка на листе, содержащем табличные данные. Вы делаете это, щелкая имя рабочего листа в окне Project Explorer (верхний левый угол экрана VBE), а затем выбирая «Рабочий лист» в первом раскрывающемся списке в окне кода. Во втором раскрывающемся списке выберите «BeforeDoubleClick», после чего вы сможете ввести свой код.

Обратите внимание, что в этом коде жестко не заданы имена, диапазоны или ссылки на ячейки, за исключением перемещения курсора в ячейку A1 в конце кода.Код предназначен для получения всей необходимой информации из координат ячеек, которые пользователь дважды щелкнул, и размера диапазона табличных данных.

Не имеет значения, насколько велик диапазон табличных данных. Код по-прежнему будет собирать всю необходимую информацию, и его можно использовать с данными, хранящимися в любом месте вашей книги, без необходимости жесткого кодирования значений.

Единственное сделанное предположение состоит в том, что в табличных данных есть строка заголовка и что диапазон данных начинается с ячейки A1, но начальную позицию для диапазона данных можно легко изменить в коде.

Любой пользователь будет впечатлен этой новой функцией сортировки!

Расширение функции сортировки с помощью VBA

Microsoft предоставила огромную гибкость в сортировке с использованием широкого диапазона параметров. Однако в VBA вы можете пойти дальше.

Предположим, вы хотите отсортировать любые значения, выделенные жирным шрифтом, в начало ваших данных. В Excel нет возможности сделать это, но вы можете написать для этого код VBA:

1 2 3 4 5 6 7 8 9 10 11 12 13 140002 14 18 19 20 21 22 23 24 25 26 27 28 29 30 000 000 34 35 36 37 38 39 40 41 42

Sub SortByBold () 'Создание переменных для хранения количества строк и столбцов для табличных данных Dim Row As Long, RCol As Long, N As Long ' Отключите обновление экрана, чтобы пользователь не может видеть, что происходит - он может видеть изменение значений _ 'и удивляться, почему Application.ScreenUpdating = False 'Захватить количество столбцов в диапазоне табличных данных RCol = ActiveSheet.UsedRange.Columns.Count ' Захватить количество строк в диапазоне табличных данных RRow = ActiveSheet. UsedRange.Rows.Count 'Перебирать все строки в диапазоне табличных данных, игнорируя строку заголовка For N = 2 To Row ' Если ячейка имеет полужирный шрифт, поместите начальное значение 0 напротив значение ячейки Если ActiveSheet.Cells (N, 1) .Font.Bold = True Then ActiveSheet.Cells (N, 1) .Value = "0" & ​​ActiveSheet.Cells (N, 1) .Value End If Next N 'Очистить все предыдущие параметры сортировки ActiveSheet.Sort.SortFields.Clear ' Сортировка диапазона табличных данных. Все значения с начальным значением 0 переместятся в верхнюю часть ActiveSheet.Range (Cells (1, 1), Cells (RCol, RRow)). Sort Key1: = Cells (1, 1), Header: = xlYes 'Проходить по всем строкам в диапазоне табличных данных, игнорируя строку заголовка Для N = 2 В строку ' Если в ячейке выделен жирный шрифт, удалите начальное значение 0 из значения ячейки до _ 'Восстановить исходные значения Если ActiveSheet.Cells (N, 1) .Font.Bold = True Then ActiveSheet.Cells (N, 1) .Value = Mid (ActiveSheet.Cells (N, 1) .Value, 2) End If Next N 'Включить обновление экрана Application.ScreenUpdating = True End Sub

Код определяет размер диапазона табличных данных с помощью объекта «UsedRange», а затем выполняет итерацию по всем строкам в нем. При обнаружении полужирного шрифта перед значением ячейки ставится ноль в начале.

Затем происходит сортировка. Поскольку сортировка выполняется в порядке возрастания, все, что стоит перед нулем, будет перемещаться в верхнюю часть списка.

Затем код выполняет итерацию по всем строкам и удаляет ведущие нули, восстанавливая данные до их исходных значений.

Этот код выполняет сортировку с использованием полужирного шрифта в качестве критерия, но вы можете легко использовать другие характеристики ячеек таким же образом, например, курсив, размер текста, шрифт подчеркивания, имя шрифта и т. Д.

excel - Как подавить предупреждение о ссылках на обновления?

ОБНОВЛЕНИЕ:

После того, как все детали обобщены и обсуждены, я потратил 2 часа на проверку вариантов, и это обновление должно расставить все точки над всеми и s.

Препараты

Прежде всего, я выполнил чистую установку Office 2010 x86 на виртуальной машине Clean Win7 SP1 Ultimate x64 на базе VMWare (это обычная процедура для моих повседневных задач тестирования, поэтому многие из них у меня развернуты).

Затем я изменил только следующие параметры Excel (т.е. все остальные оставлены без изменений после установки):

• Дополнительно> Общие> Запрашивать обновление автоматических ссылок проверено :
• Центр управления безопасностью> Параметры центра управления безопасностью...> Внешний контент> Включить все ... (хотя тот, который связан с подключениями к данным, скорее всего, не важен для случая):

Предварительные условия

Я подготовил и поместил в C: \ книгу точно в соответствии с предложениями @Siddharth Rout в его обновленном ответе (предоставлен для вашего удобства): https://www.dropbox.com/s/mv88vyc27eljqaq/Book1withLinkToBook2.xlsx Связанная книга была затем удалена , так что ссылка в общей книге недоступна (точно).

Открытие вручную

Указанный выше общий файл показывает при открытии (с указанными выше параметрами Excel) 2 предупреждения - в порядке появления:

ПРЕДУПРЕЖДЕНИЕ № 1

После нажатия на Update я ожидаемо получил другое:

ПРЕДУПРЕЖДЕНИЕ № 2

Итак, я полагаю, что моя тестовая среда теперь в значительной степени похожа на OP ) Пока все хорошо, мы наконец переходим к

Открытие VBA

Сейчас попробую пошагово все возможные варианты, чтобы картина была наглядной.Для простоты я поделюсь только соответствующими строками кода (полный образец файла с кодом будет предоставлен в конце).

1. Простое приложение. Рабочие тетради. Открыть

  Application.Workbooks.Open Имя файла: = "C: \ Book1withLinkToBook2.xlsx"
  

Неудивительно - при этом появляются ОБЕИ предупреждения, как для ручного открытия выше.

2. Application.DisplayAlerts = False

  Application.DisplayAlerts = False
Приложение.Откройте имя файла: = "C: \ Book1withLinkToBook2.xlsx"
Application.DisplayAlerts = True
  

Этот код заканчивается WARNING # 1 , и любой выбранный вариант ( Update / Don't Update ) не выдает НИКАКИХ дополнительных предупреждений, т.е. Application.DisplayAlerts = False подавляет WARNING # 2 .

3. Application.AskToUpdateLinks = False

  Application.AskToUpdateLinks = False
Application.Workbooks.Open Имя файла: = "C: \ Book1withLinkToBook2.xlsx "
Application.AskToUpdateLinks = True
  

В отличие от DisplayAlerts , этот код заканчивается только WARNING # 2 , т.е. Application.AskToUpdateLinks = False подавляет WARNING # 1 .

4. Двойная ложь

  Application.AskToUpdateLinks = False
Application.DisplayAlerts = False
Application.Workbooks.Open Имя файла: = "C: \ Book1withLinkToBook2.xlsx"
Application.DisplayAlerts = True
Приложение.AskToUpdateLinks = True
  

По-видимому, этот код заканчивается подавлением ОБЕИХ ПРЕДУПРЕЖДЕНИЙ .

5. UpdateLinks: = False

  Application.Workbooks.Open Имя файла: = "C: \ Book1withLinkToBook2.xlsx", UpdateLinks: = False
  

Наконец, это однострочное решение (первоначально предложенное @brettdj ) работает так же, как Double False: ПРЕДУПРЕЖДЕНИЙ НЕТ не показаны!

Выводы

За исключением хорошей практики тестирования и очень важного решенного случая (я могу сталкиваться с такими проблемами каждый день при отправке своих книг третьим лицам, и теперь я подготовлен), я изучил еще 2 вещи:

1. Параметры Excel ДЕЙСТВИТЕЛЬНО важны независимо от версии, особенно когда речь идет о решениях VBA.
2. У каждой проблемы есть краткое и элегантное решение - вместе с неочевидным и сложным. Еще одно тому доказательство!)

Большое спасибо всем, кто внес свой вклад в решение, и особенно OP, который поднял вопрос. Надеюсь, мои исследования и подробное описание этапов тестирования были полезны не только для меня)

Пример файла с приведенными выше примерами кода является общим (многие строки специально прокомментированы): https://www.dropbox.com/s/9bwu6pn8fcogby7/NoWarningsOpen.xlsm

Исходный ответ (проверено на Excel 2007 с определенными параметрами):

Этот код мне подходит - он просматривает ВСЕ файлы Excel, указанные с использованием подстановочных знаков в InputFolder :

  Sub WorkbookOpening2007 ()

Dim InputFolder As String
Dim LoopFileNameExt As String

InputFolder = "D: \ DOCUMENTS \" 'Завершающий "\" обязателен!

LoopFileNameExt = Dir (InputFolder & «* .xls?»)
Сделать пока LoopFileNameExt <> ""

Приложение.DisplayAlerts = Ложь
Application.Workbooks.Open (InputFolder и LoopFileNameExt)
Application.DisplayAlerts = True

LoopFileNameExt = Dir
Петля

Конец подписки
  

Пробовал с книгами с недоступными внешними ссылками - предупреждений нет.

Пример файла: https://www.dropbox.com/s/9bwu6pn8fcogby7/NoWarningsOpen.xlsm

Используете вычисляемые поля Tableau? Это сэкономит ваше время.

При работе с Tableau аналитик данных очень часто записывает одни и те же вычисляемые поля снова и снова для различных книг.Эта повторяющаяся задача не только отнимает много времени, но и увеличивает риск написания непоследовательных вычислений. Это может быть особенно актуально при работе с командой аналитиков, которые работают над совместными проектами. Это решение пытается заполнить этот пробел, используя функциональность, которая изначально доступна в Tableau и поддерживается на 100% - без XML-хаков. Для начала давайте обсудим некоторые не очень известные особенности Tableau.

Использовать функцию копирования / вставки Tableau

В Tableau можно делать следующее:

• Копирование / вставка листов из одной книги в другую (переносит связанный источник данных)
• Копирование / вставка / дублирование вычисляемых полей в единый источник данных / книгу
• Копирование / вставка вычисленных полей из одного источника данных в другой в той же книге
• Копирование / вставка вычисляемых полей из одной книги в другую книгу

Последний пункт является ключевым.Поскольку Tableau позволяет нам копировать / вставлять вычисляемые поля из одной книги в другую, мы можем создать единую книгу «вычисляемых полей», которая содержит все общие функции.

Как создать шаблонную книгу расчетных полей

Сначала создайте книгу Tableau, используя очень простой источник данных, например лист Excel с одной записью с полем даты, строковым измерением и мерой. Оттуда создайте каждое вычисляемое поле, которое вы обычно используете (и любые параметры, которые к ним относятся).Затем пройдите и сгруппируйте расчеты по папкам. Это позволяет вам лучше организовать расчеты, когда они вам понадобятся позже. Наконец, просмотрите и добавьте комментарии ко всем вычисляемым полям (дополнительные сведения появятся позже). Затем сохраните книгу как «книгу расчетов».

Как пользоваться книгой расчетов

Теперь, когда у вас есть книга расчетов, следующий шаг - научиться ее использовать. Каждый раз, когда вы создаете новую книгу, открывайте книгу расчетов.

После того, как вы это сделаете, следующим шагом будет решение, какие вычисления вам нужны для ваших текущих требований. После того, как вы решили, есть два варианта.

1. Нажмите CTRL + щелкните на каждом вычислении, которое вы хотите перенести.

2. Если вы хотите перенести все вычисления в папку, нажмите SHIFT + щелчок, а затем перейдите к последнему вычисленному полю в папке и щелкните. Это будет включать все расчеты в папке.

3.Следующий шаг - скопировать их. Щелкните правой кнопкой мыши любое вычисляемое поле и выберите параметр «Копировать».

4. После копирования вычисляемых полей вернитесь к своей новой книге (я называю ее целевой книгой). Оказавшись там, я щелкаю правой кнопкой мыши на панели «Данные» и выбираю опцию «Вставить».

Теперь будут перенесены все вычисляемые поля, которые вы скопировали из книги вычислений.

А как насчет красных восклицательных знаков?

Теперь вы можете заметить в этом что-то странное.Очень много вычислений с красным восклицательным знаком. Почему это? Что ж, при использовании этого метода есть одна оговорка, но, к счастью, это очень легко исправить. В вашей книге расчетов все ваши вычисления даты будут ссылаться на имена полей из источника данных, который вы использовали для создания книги расчетов. Например, в моем случае многие функции данных указывают на поле с именем [Дата]:

Проблема в том, что в моей целевой книге нет поля [Дата]; есть поле [Дата заказа], и я собираюсь его использовать.Итак, для Tableau это неверные вычисления. Как это исправить? Легко, вы можете просто переименовать [Дата заказа] в [Дата]. Когда вы создаете вычисляемые поля в Tableau, Tableau ищет имена полей. Изменив целевое поле на имя поля в вашей книге вычислений, Tableau устранит проблему зависимости. Чтобы переименовать поле, просто щелкните правой кнопкой мыши и выберите «Переименовать».

После переименования [Дата заказа] в [Дата] Tableau удаляет все ошибки зависимостей, и вычисления становятся действительными.

Что делать, если вам нужно, чтобы это поле называлось [Дата заказа]? Без проблем! Просто переименуйте его обратно в [Дата заказа]. Когда вы переименовываете поля в книге, Tableau автоматически обновляет все вычисления, которые также используют это поле.

Теперь вы можете заметить еще одну вещь: когда вы копируете / вставляете вычисления с параметрами, Tableau инстинктивно знает, как перенести эти параметры с вычислением.

Итак, теперь вы не только сэкономили время на записи вычисляемых полей, но и сэкономили время на воссоздании параметров.Еще одна удивительная вещь, которую Tableau делает, когда вы копируете / вставляете из одной книги в другую, - это переносит метаданные, такие как комментарии. Теперь вы не только сэкономили время на написании расчетов и параметров, но и сэкономили время на документации. Лучшая часть: ваша документация по расчетам остается единообразной для всех книг.

5 быстрых советов по созданию собственной вычислительной книги

1. Выберите интуитивно понятные имена: Я люблю называть свои базовые вычисления в соответствии с их функцией.Это помогает мне, когда я копирую / вставляю их в другую книгу. По имени я знаю, что такое вычисляемые поля, и могу быстро решить, нужны ли они мне (если вам нужно более функциональное имя, вы можете просто переименовать его в целевой книге). 2. Избегайте вложенных вычислений: Поскольку мы не можем создавать подпапки в Tableau, их трудно поддерживать в порядке. Вы можете облегчить это с помощью хороших соглашений об именах, но это может вызвать проблемы. 3. Напишите комментарии: Для своих комментариев я хотел бы добавить две части информации: краткое описание функции вычисляемых полей и самих вычислений.Примечание. Когда вы меняете имена полей, комментарий не обновляется. Итак, вы хотите, чтобы имена полей были согласованными, например [Дата]. Это просто, чтобы показать конструкцию вычисляемого поля для быстрой справки. 4. Знайте, когда не следует копировать / вставлять calcs: Вероятно, вам все равно придется создавать свои собственные вычисляемые поля в целевой книге. Это действительно помогает сэкономить время для часто используемых функций, но могут быть случаи, когда вы имеете дело с данными / требованиями, которые просят вас создать сложные вычисления (например, вложенные LOD).В подобных ситуациях лучше создавать вычисления в целевой книге, чем пытаться копировать / вставлять их. 5. Делайте то, что работает для вас: Самое главное, это ВАША рабочая тетрадь по вычислениям, поэтому создавайте вычисления, которые работают для вас (или вашей команды). Постарайтесь, чтобы все было последовательно, но то, что подходит для вашей ситуации. Я обнаружил, что использование этого метода сэкономило мне много времени за несколько месяцев. А если вы работаете в команде, это также позволяет вам вести последовательные вычисления в ваших рабочих книгах.Лучшая часть этого: никаких взломов XML. Это на 100% в пределах того, что вы можете делать в Tableau.

Макрос

для получения данных из другой книги в Excel

Build Professional - Нерушимый - Формы в Excel

45 учебных пособий - 5+ часов - загружаемые файлы Excel

Мгновенный доступ! - Пожизненный доступ!

Макрос для получения данных из закрытой или открытой книги по сети или локально на вашем компьютере.

Это универсальный и автономный макрос, который открывает другую книгу, получает из нее информацию, а затем закрывает эту другую книгу. Это происходит так быстро, что вы даже не заметите, что происходит; он должен казаться бесшовным.

(Этот метод также позволит вам изменять данные или вводить данные в другую книгу Excel с помощью VBA и макросов.)

Макрос

для получения данных из другой книги

Подпрограмма get_data ()

Dim Wb1 как рабочая тетрадь

'Не обновляйте экран - заставляет работать быстрее

Приложение.ScreenUpdating = False

'Откройте другую книгу

'Введите ПОЛНЫЙ путь к файлу, включая его расширение

Установить Wb1 = Workbooks.Open ("C: \ sample.xls")

'Вы можете делать здесь все, что хотите, с другой книгой - теперь она открыта.

'Это просто копирует некоторые ячейки.

Wb1.Sheets (1) .Range ("A1: A10"). Копировать

'Закройте книгу, из которой мы только что получили данные, и убедитесь, что не сохранили ее на случай, если в нее были внесены случайные изменения.

Wb1.Close SaveChanges: = False

'Снова включите обновление экрана - можно использовать Excel

Application.ScreenUpdating = True

Концевой переводник

Как использовать макрос

C: \ sample.xls - это путь к файлу Excel, который вы хотите открыть. Это должен быть полный путь. Это может быть файл, расположенный на вашем компьютере или в сети. Также не забывайте о расширении файла.

Wb1 - это объект, который ссылается на книгу, которую открывает макрос. Это означает, что всякий раз, когда вы хотите сослаться на эту книгу в коде, вы пишете Wb1 , а затем выбираете лист и что-то делаете.

Например, чтобы выбрать ячейку A1 на листе Sheet1, вы должны сделать это: Wb1.Sheets ("Sheet1"). Range ("A1"). Выберите

Убедитесь, что вы поместили весь код, который получает данные из книги, после строки, открывающей книгу: Set Wb1 = Workbooks.Откройте ("C: \ sample.xls") и перед строкой кода, закрывающей книгу: Wb1.Close SaveChanges: = False .

Если вы хотите сохранить любые изменения, внесенные в открытую книгу, измените значение False на True в этой строке: Wb1.Close SaveChanges: = False .

Банкноты

Этот макрос позволяет получать данные из другой книги, помещать в нее данные или делать что-либо с этой книгой.

Код представляет собой шаблон, который позволяет вам просто получить доступ к другому файлу Excel.

Загрузите файл, прикрепленный к этому руководству, чтобы получить макрос в Excel.

.