Работа с файлами книг excel

Создание и выполнение

основных операций

с рабочей книгой

Microsoft Excel и

ее листами.

Печать книг и

ее элементов

Автор: учитель информатики Прутко Иван Владимирович

СОДЕРЖАНИЕ

ВВЕДЕНИЕ        

СОЗДАНИЕ И ВЫПОЛНЕНИЕ ОСНОВНЫХ ОПЕРАЦИЙ С РАБОЧЕЙ КНИГОЙ MICROSOFT EXCEL        

Основные элементы электронной таблицы        

Особенности экранного интерфейса программы Microsoft Excel        

Создание новой рабочей книги        

Выполнение операций с книгами        

РАБОТА С ЛИСТАМИ КНИГИ        

Операции над листами рабочей книги        

ПЕЧАТЬ КНИГ И ЕЕ ЭЛЕМЕНТОВ        

Предварительный просмотр и печать таблицы Excel        

Параметры печати        

Печать рабочих листов книги Excel        

ЗАКЛЮЧЕНИЕ        

ВВЕДЕНИЕ

Microsoft Excel (также иногда называется Microsoft Office Excel) – программа для работы с электронными таблицами, созданная корпорацией Microsoft для Microsoft Windows, Windows NT и Mac OS. Она предоставляет возможности проведения экономико-статистических расчетов, графические инструменты и, за исключением Excel 2008 под Mac OS X, язык макропрограммирования VBA (Visual Basic для приложений). Microsoft Excel входит в состав Microsoft Office и на сегодняшний день Excel является одним из наиболее популярных приложений в мире.

В 1982 году Microsoft выпустила на рынок первый электронный табличный процессор Multiplan, который был очень популярен на CP/M системах, но на MS-DOS системах он уступал Lotus 1-2-3. Первая версия Excel предназначалась для Mac и была выпущена в 1985 году, а первая версия для Windows была выпущена в ноябре 1987 года. Lotus не торопилась выпускать 1-2-3 под Windows, и Excel с 1988 года начала обходить по продажам 1-2-3, что в конечном итоге помогло Microsoft достичь позиций ведущего разработчика программного обеспечения. Microsoft укрепляла свое преимущество с выпуском каждой новой версии, что имело место примерно каждые два года. Текущая версия для платформы Windows – Excel 12, также известная как Microsoft Office Excel 2007. Текущая версия для платформы Mac OS X – Microsoft Excel 2008.

Microsoft также решила использовать буквы XL как сокращённое название программы: иконка Windows-программы состоит из стилизованного изображения этих двух букв, а расширение файлов по умолчанию в Excel – .xls. В сравнении с первыми табличными процессорами Excel представляет множество новых функций пользовательского интерфейса, но суть остается прежней: как и в программе-родоначальнике, VisiCalc, ячейки расставляются в строки и столбцы и могут содержать данные или формулы с относительными или абсолютными ссылками на другие клетки.

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

Начиная с 1993 года, в состав Excel входит Visual Basic для приложений (VBA), язык программирования, основанный на Visual Basic, позволяющий автоматизировать задачи Excel.

Версии для Windows и Windows NT:

1988 год – Excel 2.0 для Windows.

1990 год – Excel 3.0.

1992 год – Excel 4.0.

1993 год – Excel 5.0 (Office 4.2 и 4.3, также есть 32-битная версия только для Windows NT).

1995 год – Excel 7 для Windows 95 (включён в пакет Microsoft Office 95).

1997 год – Excel 97 (включён в пакет Microsoft Office 97).

1999 год – Excel 2000 (9) — Microsoft Office 2000.

2001 год – Excel 2002 (10) — Microsoft Office XP.

2003 год – Excel 2003 (11) — Microsoft Office 2003.

2007 год – Excel 2007 (12) — Microsoft Office 2007.

Цели работы:

• показать порядок создания рабочей книги Microsoft Excel и работы с ее листами;
• печать книги и ее элементов.

СОЗДАНИЕ И ВЫПОЛНЕНИЕ ОСНОВНЫХ ОПЕРАЦИЙ НАД РАБОЧЕЙ КНИГОЙ MICROSOFT EXCEL

Основные элементы электронной таблицы

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

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

Рисунок 1. Элементы таблицы

Строка в рабочем листе идентифицируется именем (цифрой), которое появляется на левой стороне рабочего листа. Столбец в рабочем листе также идентифицируется именем (буквами латинского алфавита), которое появляется вверху рабочего листа.

Ячейка – основной элемент таблицы. Каждая ячейка определяется своим местом (адресом) в таблице – индексом столбца (A, В, С, …) и номером строки (1, 2, 3, …), на пересечении которых она находится. Например, ячейка в столбце А в первой строке носит название Al, а ячейка в том же столбце, но во второй строке – А2. Каждая ячейка содержит один элемент информации, будь то цифровое значение, текст или формула.

Особенности экранного интерфейса программы Microsoft Excel

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

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

Рабочее поле Excel состоит из ячеек, дающих пространственную привязку информации к рабочему листу. В левом верхнем углу рабочего поля на пересечении номеров строк и столбцов располагается особая кнопка Выделить все (рисунок 2), позволяющая выделить сразу весь документ.

Рисунок 2. Строка формул и кнопка Выделить все

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

Рисунок 3. Полосы разделения окна

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

Рисунок 4. Ярлычки Рабочих листов

Здесь же расположены кнопки прокрутки ярлычков рабочих листов:

Создание новой рабочей книги

Создание новой рабочей книги возможно двумя способами.

Первый способ:

1. Щелчком левой кнопки мыши развернуть меню Сервис, щёлкнуть левой кнопкой мыши по строке Параметры… и в появившемся окне щёлкнуть мышью по вкладке Общие (рис. 5). В окне Листов в новой книге установить требуемое количество листов в создаваемой книге и щёлкнуть по кнопке OK.

Рисунок 5. Установка требуемого количества листов в создаваемой книге

1. На панели инструментов Стандартная щёлкнуть по кнопке Создать.
2. Щелчком левой кнопки мыши развернуть меню Файл и щёлкнуть мышью по строке Сохранить как…. В появившемся окне щёлкнуть по стрелке окна Мои документы. В раскрывшемся меню щёлкнуть по строке с адресом вашего каталога, а затем в нижнем окне Имя файла вместо стандартного имени ввести имя файла создаваемой рабочей книги, после чего щёлкнуть по кнопке Сохранить. В последующем при работе с этим файлом такие действия не выполнять не нужно, если не требуется замена имени файла, достаточно периодически щёлкать по кнопке Сохранить на панели инструментов Стандартная.
3. На панели инструментов Стандартная щёлкнуть мышью по кнопке Открыть. В появившемся окне щёлкнуть по стрелке окна Мои документы. В раскрывшемся меню щёлкнуть по строке с адресом каталога, а затем щёлкнуть по кнопке Открыть.

На рисунке 6 показан порядок создания рабочей книги Excel.

Рисунок 6. Порядок создания рабочей книги Excel

Второй способ:

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

Выполнение операций с книгами

Расположение рабочих книг. Если необходимо видеть на экране сразу все открытые книги, то с помощью команды Excel Окно/Расположить (рис. 7) можно расположить открытые рабочие книги на экране четырьмя способами (рис. 8).

Рисунок 5. Расположение рабочих книг

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

Рисунок 7. Способы расположения рабочих книг

На рисунке 8 представлено окно Excel, в котором книги расположены рядом.

Рисунок 8. Расположенные рядом рабочие книги

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

• щелкнуть на видимой части окна рабочей книги;
• нажать клавиши <Ctrl+F6> для перехода из окна одной книги в окно другой.
• открыть меню Excel Окно. В нижней его части содержится список открытых рабочих книг. Для перехода в нужную книгу необходимо щелкнуть по имени (рис. 9).

Рисунок 9. Переход из одной книги в другую

Копирование данных из одной рабочей книги в другую. С помощью команды Excel Копировать можно копировать данные из одной рабочей книги в другую.

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

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

Существует быстрый способ переноса данных рабочего листа (листов) между рабочими книгами. Он состоит в использовании метода «перетащить и опустить». Сначала нужно открыть книги, задействованные в операции переноса данных. Выбрать из меню Excel команду Окно/Расположить. В открывшемся диалоговом окне Расположение окон выбрать вариант рядом и щелкните на кнопке ОК. При этом необходимо видеть хотя бы небольшую часть окна каждой рабочей книги. Выделить ярлычок листа (листов), который нужно скопировать. Поместить указатель мыши поверх выделенного ярлычка листа, щелкнуть и, не отпуская кнопку мыши, перетащить ярлычок в окно другой рабочей книги. Когда кнопка мыши будет отпущена, лист будет «прописан» в новой (для него) рабочей книге.

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

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

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

Excel позволяет создавать связи с другими рабочими листами и другими рабочими книгами трех типов:

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

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

Рабочая книга, содержащая формулу связывания, называется зависимой рабочей книгой, а рабочая книга, содержащая связываемые данные – исходной рабочей книгой.

Чтобы сослаться на ячейку в другом рабочем листе необходимо поставить восклицательный знак между именем листа и именем ячейки. Синтаксис для этого типа формул выглядит следующим образом: =ЛИСТ!Ячейка. Если лист имеет имя, то вместо обозначения лист следует использовать имя этого листа. Например, Отчет!B5.

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

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

В таких случаях Excel ссылается на диапазоны ячеек с помощью трехмерных ссылок. Трехмерная ссылка устанавливается путем включения диапазона листов (с указанием начального и конечного листа) и соответствующего диапазона ячеек. Например, формула, использующая трехмерную ссылку, которая включает листы от Лист1 до Лист5 и ячейки А4:А8, может иметь следующий вид: =SUM(ЛИСТ1:ЛИСТ5!А4:А8).

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

Связывание рабочих книг. Рабочая книга, содержащая формулу связывания, называется зависимой рабочей книгой, а рабочая книга, содержащая связываемые данные – исходной рабочей книгой.

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

Как только связь устанавливается. Excel копирует величину из ячейки в файле-источнике в ячейку файла назначения. Величина в ячейке назначения автоматически обновляется.

При ссылке на ячейку, содержащуюся в другой рабочей книге, используется следующий синтаксис: [Книга]Лист!Ячейка. Вводя формулу связывания для ссылки на ссылку из другой рабочей книги, необходимо использовать имя этой книги, заключенное в квадратные скобки, за которыми без пробелов должно следовать имя рабочего листа, затем восклицательный знак (!), а после него – адрес ячейки (ячеек). Например ‘C:Petrov[Журнал1.хls]Литература’!L3.

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

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

РАБОТА С ЛИСТАМИ КНИГИ

Операции над листами рабочей книги

Выделение рабочих листов. В Excel рабочие листы можно выделить двумя способами:

• Ctrl + последовательные щелчки по ярлычкам позволяют выделить несколько несмежных рабочих листов, для снятия выделения необходимо еще раз щелкнуть левой кнопкой мыши по ярлычку рабочего листа при нажатой клавише Ctrl;
• Shift + щелчок на начальном и конечном ярлычке. Эта команда позволяет выделить диапазон листов. Снятие выделения производится аналогично предыдущему способу, только в данном случае должна быть нажата клавиша Shift.

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

Рисунок 10. Пример выделенных листов

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

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

Первый способ: в меню Вставка выбрать пункт Лист либо нажать комбинацию клавиш .

Второй способ: щелкнуть правой кнопкой мыши по ярлыку листа, при этом раскроется контекстно-зависимое меню (рис. 11). В этом меню необходимо выбрать пункт Добавить… При этом откроется окно, представленное на рисунке 12. В этом окне можно выбрать для добавления как чистый лист, так и шаблон. Шаблоны располагаются на вкладке Решения.

Рисунок 11. Добавление нового листа

Рисунок 12. Окно добавления нового листа

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

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

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

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

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

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

Рисунок 13. Активизация нужно листа из списка

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

• выполнить команду Правка/Удалить лист;
• щелкнуть правой кнопкой мыши на ярлычке листа и выбрать команду Удалить из контекстного меню.

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

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

• воспользоваться командой Формат/Лист/Переименовать;
• дважды щелкнуть левой кнопкой мыши на ярлычке листа;
• щелкнуть правой кнопкой мыши на ярлычке листа и выбрать из контекстного меню команду Переименовать.

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

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

: – двоеточие;

/ – косую черту;

– обратную косую черту;

? – знак вопроса;

* – звездочку.

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

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

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

При использовании двух последних способов откроется диалоговое окно Переместить или скопировать (см. рис. 14).

Рисунок 14. Диалоговое окно перемещения и копирования рабочих листов.

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

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

Если перемещаемый рабочий лист имеет название, совпадающее с названием уже существующего листа в рабочей книге, Excel изменит имя так, чтобы сделать его уникальным. Например, имя Лист1 превратится в Лист1(2).

Чтобы переместить или скопировать несколько листов одновременно, их необходимо предварительно выделить.

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

Скрывание рабочего листа. Для того чтобы скрыть рабочий лист необходимо выбрать команду Формат/Лист/Скрыть. Активный лист (или выделенные листы) скроются из вида. В каждой рабочей книге должен быть хотя бы один видимый лист, поэтому Excel не позволит скрыть все листы рабочей книги.

Для отображения скрытого листа нужно выбрать команду Формат/Лист/Отобразить. Excel откроет диалоговое окно (см. рис. 15) со списком скрытых листов. В этом окне следует выбрать лист, который нужно отобразить, и щелкнуть на кнопке ОК. В этом диалоговом окне нельзя одновременно выбрать несколько листов, поэтому для каждого листа, который необходимо отобразить, придется повторить указанную команду.

Рисунок 15. Отображение скрытых листов

Изменение масштаба отображения рабочих листов. Excel позволяет изменять масштаб отображения рабочих листов. Обычно стандартным является масштаб 100%. В Excel можно изменять «процент увеличения» от 10 (очень мелкий) до 400 (очень крупный). Использование малого процента увеличения (уменьшение масштаба) позволяет увидеть большую площадь рабочего листа. Это дает возможность оценить компоновку листа в целом. Увеличение же наоборот позволяет видеть мелкие детали текста.

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

Рисунок 16. Изменение масштаба отображения рабочих листов

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

Для более точного выбора коэффициента масштабирования следует воспользоваться командой Вид/Масштаб. Эта команда открывает диалоговое окно Масштаб (см. рис. 17).

Здесь можно выбрать один из переключателей или непосредственно ввести значение из интервала от 10 до 400% в поле ввода, которое находится напротив переключателя произвольный.

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

Рисунок 17. Окно выбора коэффициента масштабирования

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

• клавиша приводит к перемещению в следующую (справа) ячейку в строке, а – в предыдущую. Нажатие клавиши приводит к перемещению на ячейку вниз, а – вверх;
• нажатие несколько раз клавиши и затем клавиши приводит к тому, что курсор переместится под ту ячейку, в которой производилось первичное нажатие клавиши . Это удобно в тех случаях, когда таблица заполняется построчно;
• нажатие сочетаний клавиш приводит к перемещению курсора к ближайшей ячейке, где имеются какие-то данные. Если же таких ячеек на пути не встречается, курсор перемещается к одному из краёв таблицы;
• если выделен диапазон ячеек, одна из них все равно остается невыделенной. При этом нажатие клавиш , [+Shift] приведет к циклическому перемещению активной ячейки. В процессе этого можно вводить данные, выделение не снимется. Если в процессе перемещения активной ячейки нажать (не выходя из режима редактирования), значение из этой ячейки скопируется во все ячейки выделенного диапазона;
• нажатие клавиш / приводит к перемещению на страницу вниз / вверх.

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

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

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

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

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

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

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

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

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

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

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

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

Рисунок 18. Изменение ширины столбца и высоты строки

ПЕЧАТЬ КНИГ И ЕЕ ЭЛЕМЕНТОВ

Предварительный просмотр и печать таблицы Excel

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

Для предварительного просмотра необходимо воспользоваться командой Файл/Предварительный просмотр или нажать кнопку Предварительный просмотр на панели инструментов Стандартная.

Макет рабочей книги будет показан в окне предварительного просмотра. Документ можно просмотреть, используя линейки прокрутки и панель инструментов предварительного просмотра (см. рис. 19).

Рисунок 19. Панель инструментов предварительного просмотра

Панель инструментов имеет следующие кнопки:

• кнопки Далее и Назад предназначены для просмотра следующих и предыдущих страниц книги;
• кнопка Печать служит для печати книги;
• кнопка Страница предназначена для перехода в диалоговое окно Параметры страницы;
• если нажать на кнопку Поля, на странице появятся пунктирные линии, обозначающие границы полей и колонтитулов, а также маркеры ширины столбцов, для изменения размера поля с помощью мыши следует перетащить маркер левого поля (размер поля можно увидеть в строке состояния в нижней части экрана);
• Кнопка Разметка страницы служит для перехода в режим разметки, в этом режиме можно изменить границы с помощью мыши;
• Кнопка Закрыть предназначена для выхода из режима просмотра.

Параметры печати

Перед выводом на печать для созданной таблицы можно задать дополнительные установки. Эти установки задаются в диалоговом окне команды Параметры страницы из меню Файл (см. рис. 20).

Рисунок 20. Диалоговое окно Параметры страницы

В таблице 1 приведены опции настройки опции настройки страницы.

Таблица 1. Опции настройки страницы

Печать рабочих листов книги Excel

Для печати данных в таблице следует нажать кнопку Печать, которая находится на панели инструментов Стандартная. Для задания установок печати нужно воспользоваться командой Файл/Печать, при этом появится окно диалог Печать (см. рис. 21).

Рисунок 21. Диалоговое окно Печать

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

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

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

1. Выделить область рабочего листа, которая будет определена как область печати.
2. Выбрать команду Область печати в меню Файл.
3. Выбрать Задать. Ограничительная линия появится вокруг выделенной области.

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

Параметры печати многостраничной таблицы устанавливаются в диалоговом окне при выборе закладки Лист команды Параметры страницы из меню Файл (см. рис. 22).

Рисунок 22. Закладка Лист команды Параметры страницы

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

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

Подготовка данных к печати. Для подготовки данных к печати необходимо выполнить следующие действия:

1. Открыть файл и перейти на нужный лист.
2. В меню Файл выбрать команду Параметры страницы и перейти на закладку Поля.
3. Установить нужные параметры полей.

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

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

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

1. Выделить строку, с которой необходимо начать новую страницу.
2. В меню Вставка выбрать команду Разрыв страницы.

Excel вставит конец страницы (широкую пунктирную линию) над выделенной строкой.

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

1. В диалоговом окне Параметры страницы выбрать закладку Лист.
2. Выбрать поле Сквозные строки (в поле должен мигать текстовый курсор).
3. На рабочем листе выделить с помощью мыши первую строку. При необходимости переместить окно диалога Параметры страницы так, чтобы оно не мешало выделять нужные строки и столбцы.
4. Нажать на кнопку Просмотр, чтобы войти в режим просмотра перед печатью.

ЗАКЛЮЧЕНИЕ

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

В данной работе было рассмотрено следующее:

• основные элементы электронной таблицы и особенности экранного интерфейса Microsoft Excel;
• способы создания новой рабочей книги;
• выполнение операций с книгами;
• операции над листами рабочей книги;
• печать книг и ее элементов.

К работе прикладывается презентация, наглядно демонстрирующая особенности работы с книгами Excel и ее листами.

СПИСОК ЛИТЕРАТУРЫ

1. Е.В. Михеева. Информационные технологии в профессиональной деятельности. Москва изд.центр «Академия». 2006 год.5-е издание.
2. Э.В. Фуфаев. Пакеты прикладных программ. Уч. пособие для НПО – Москва. Изд. центр «Академия», 2-е издание, 2006 год.
3. Е.В. Михеева. Информатика: Учебник для СПО – Москва. Изд. центр «Академия», 2007 год.

Поддерживаемые Excel форматы файлов

​Смотрите также​ книгой(второй файл с​ папку, которую откроют​: Подскажите как будет​​ vbInformation End Sub​​ .Cells(LastRowСводный + СколькоОбъединять,​​ Then MsgBox «В​​ If If IsEmpty(ЛистИсточник.Cells(31​ _ «Если это​​ форматами – жмите​​DarkSacred​ в конец конечного​ просто показал, что​ Excel​ разделителей.​

​SYLK​​ кода. Позволяет использовать​Файл Excel можно сохранить​ данными), в которой​ предполагаемые участники. Нажимаем​ выглядеть код если​

​lalike​ 15)).Merge End With​ выбранной папке есть​ + i, 6).Value)​ последняя ячейка столбца​ OK.​​, да и можно​​ файла?​​ откуда берется.​​lalike​CSV (разделители — запятые)​SLK​ проекты VBA и​ в другом формате.​ хранятся исходные данные​ «Сохранить».​ ситуация попроще:​: СПАСИБО!!!!​ ’22 столбец If​ файлы недопустимых форматов​ = False Then​ C11 или столбца​

Форматы файлов Excel

Форматы текстовых файлов

​ 4)).Merge .Cells(LastRowКонечный +​​ файле, чтобы знать,​ Dim ЛистКонечный As​ я его не​,​

Другие форматы файлов

Форматы файлов, использующие буфер обмена

​ с 200 Excel-файлами.​ собираю данные в​расположение ячеек в​ или BMP​​ Excel в формате​​ открыть книгу в​​ форматирования, данных и​​ то не устраивает​​Нажимаем «Открыть».​​ одновременно вносят какие-то​​ И будете превращать​​ 1, 26).Value =​​ последнюю ячейку столбца​​ 5)).Merge .Cells(LastRowКонечный +​ 31 Step 2​

Форматы файлов, не поддерживаемые в Excel

​ сохранять в формате,​Таблица, сохраненная в приложении​ в другой программе),​: Это как ???​ (в нижней части​ отслеживать действия рабочей​ А. Гарнаева, Самоучитель​ ‘Теперь с необъединёнными​ + 1, 5).Value​

Форматы файлов, не поддерживаемые в Excel Starter

​Файл​Вы термин «физически»​«Общие» — «Личная настройка»​ редактировать противоречивые изменения.​Busine2009​ i = 1​ ЛистСводный.Cells(LastRowСводный + 1,​

Открытие и просмотр файлов в неподдерживаемых форматах

​:​ To LastRowИсточник -​ 6).Value = ЛистИсточник.Cells(11,​ .Cells(LastRowКонечный + СколькоОбъединять,​ Next i j​

• ​ уже получены. For​ ‘запоминаем количество файлов​Dim myPath As​Sub CombineWorkbooks()​

• ​lalike​Веб-страница в одном файле​ формат таблиц OpenDocument,​ Этот формат поддерживается только​Открыть​ что он означает​ Вводим опознавательную информацию​

См. также:

​ работу в Excel.​lalike​ 32 Step 2​ 4).Value ЛистСводный.Cells(LastRowСводный +​

support.office.com

Работа с файлами Excel

​ 7)).Merge .Cells(LastRowКонечный +​​ = 0 СколькоОбъединять​ Each ЛистКонечный2 In​ ‘————————— Set sh​
​ String, myName As​​Dim FilesToOpen​,​MHT, MHTML​ таких как Google​

​ в Excel Starter.​

​. Книги Excel 97—2003​​ в вашем представлении.​ (имя, ник-нейм).​
​В книге Excel со​,​
​ j = j​ 1, 7).Value =​
​ 1, 8).Value =​
​ = ЛистКонечный.Cells.SpecialCells(xlCellTypeLastCell).Row -​ Workbooks(«Конечный.xls»).Worksheets If ЛистКонечный2.Name​
​ = ActiveSheet ‘запоминает​ String, i As​
​Dim x As​я в Excel​Веб-страница в одном файле​ Docs или OpenOffice.org​

​Формат​​ автоматически открываются в​​Если я правильно​​Все. Можно редактировать информацию,​
​ совместным доступом не​что ты именно​ + 1 If​ ЛистИсточник.Cells(20, 4).Value ЛистСводный.Cells(LastRowСводный​ ЛистИсточник.Cells(10, 11).Value .Range(.Cells(LastRowКонечный​ LastRowКонечный ‘Будем отдельно​
​ = «Имена файлов»​ лист куда надо​ Integer​ Integer​ не работал практически,​ (MHT или MHTML).​
​ Calc. Таблицы в​

1. ​Расширение​
2. ​ режиме совместимости. Чтобы​
3. ​ телепатировал ваши мысли,​ вводить новую. После​

​ все задачи можно​​ читаешь? Какой раздел​ IsEmpty(ЛистИсточник.Cells(31 + i,​ + 1, 8).Value​
​ + 1, 8),​ заносить данные в​
​ Then Флаг =​ вносить информацию Row​With Application.FileDialog(msoFileDialogFolderPicker)​On Error GoTo​ поэтому не знаю,​
​ Этот формат файла​ формате ODS также​Описание​ получить доступ ко​ то как то​ работы – сохранить.​ выполнять.​ этой книги и​ 14).Value) = False​ = ЛистИсточник.Cells(10, 11).Value​ .Cells(LastRowКонечный + СколькоОбъединять,​ отношении ячеек конечного​ True Exit For​
​ = 2 ‘начинаем​.Title = «Укажите​ ErrHandler​ можно это сделать​
​ объединяет встроенные рисунки,​ можно открывать в​
​Форматированный текст (разделители —​ всем новым возможностям​
​ так​Случается, что при открытии​
​Нельзя:​ для чего ты​ Then ЛистСводный.Cells(LastRowСводный +​
​ ЛистСводный.Cells(LastRowСводный + 1,​
​ 8)).Merge .Cells(LastRowКонечный +​ файла, имеющих и​ End If Next​
​ запись с 3​
​ рабочую папку»: .Show​Application.ScreenUpdating = False​

​ или нет средствами​​ приложения, связанные документы​​ приложении Excel 2010.​​ пробелы)​
​ Excel 2010, сохраните​’ запоминает текущую​ книги Excel с​Создавать таблицы Excel.​ читаешь этот раздел​

​ j, 19).Value =​​ 11).Value = ЛистИсточник.Cells(17,​ 1, 11).Value =​ не имеющих объединение.​
​ ЛистКонечный2 If Флаг​ строчки For i​

​If .SelectedItems.Count =​​FilesToOpen = Application.GetOpenFilename​​ самого Excel.​​ и другие вспомогательные​
​ При сохранении и​PRN​ эту книгу в​ книгу Set OldBook​ совместным доступом к​Создавать, менять или просматривать​ книги?​

​ ЛистИсточник.Cells(31 + i,​​ 11).Value ЛистСводный.Cells(LastRowСводный +​​ ЛистИсточник.Cells(17, 11).Value .Range(.Cells(LastRowКонечный​​ ‘Сначала поработаем с​
​ = False Then​ = 1 To​ 0 Then Exit​
​ _​Наверное, можно решить​ элементы, на которые​
​ открытии ODS-файлов может​Формат для Lotus с​ формате Excel 2010.​

​ = ActiveWorkbook …​​ файлу появляется запись​ сценарии.​lalike​

​ 14).Value Else ЛистСводный.Cells(LastRowСводный​​ 1, 12).Value =​​ + 1, 11),​​ теми ячейками, которые​
​ MsgBox «Не добавлен​ qFile Set book​ Sub​(FileFilter:=»Microsoft Excel Files​ вашу задачу с​ есть ссылки в​ быть потеряно форматирование.​ разделителями в виде​
​ Однако можно продолжать​ … … ‘​ «Файл заблокирован». Сохранить​
​Удалять листы.​: еще вот посоветовали​ + j, 19).Value​ ЛистИсточник.Cells(17, 15).Value ЛистСводный.Cells(LastRowСводный​ .Cells(LastRowКонечный + СколькоОбъединять,​ нужно объединить. ’15​
​ лист в конечный​ = Workbooks.Open(nFile(i)) ‘заполняем​
​myPath = .SelectedItems(1)​
​ (*.xls), *.xls», _​
​ помощью VBA, тогда​ документе.​
​PDF​ пробелов. Сохраняется только​
​ работать в режиме​
​ открываем книгу, с​ не получается. При​
​Объединять либо разделять ячейки.​Дж. Уокенбаха. «Профессиональное​
​ = 0 End​ + 1, 15).Value​
​ 11)).Merge .Cells(LastRowКонечный +​ столбец For i​
​ файл для записи​ общую информацию Row​
​ & «»​
​MultiSelect:=True, Title:=»Files to​
​ вам нужно более​
​Примечание:​PDF​
​ активный лист​
​ совместимости, сохраняя исходный​
​ именем из переменной​
​ последующем открытии оказывается,​
​Работать с XML-данными (импортировать,​
​ программирование на VBA​
​ If If IsEmpty(ЛистИсточник.Cells(31​
​ = 0 ЛистСводный.Cells(LastRowСводный​
​ 1, 12).Value =​
​ = 1 To​
​ имён файлов, из​
​ = Row +​End With​ Merge»)​
​ подробно описать, что​ Этот формат не поддерживается​Этот формат файла сохраняет​Текст (разделители — знаки​ формат файла для​ myPath Workbooks.Open Filename:=myPath​ что общий доступ​ добавлять, обновлять, удалять​

​ в Excel 2002​​ + i, 13).Value)​ + 1, 17).Value​ ЛистИсточник.Cells(17, 15).Value .Range(.Cells(LastRowКонечный​
​ LastRowИсточник — 31​ которых данные уже​ 1 ‘переходим на​Application.ScreenUpdating = False:​If TypeName(FilesToOpen) =​ вам нужно.​ в Excel 2007.​ форматирование документа и​ табуляции)​ обратной совместимости.​ Set WB =​ отключен. Возможные причины​ и т.д.).​ (2003)», «Подробное руководство​
​ = False Then​ = 0 ЛистСводный.Cells(LastRowСводный​ + 1, 12),​ Step 2 If​ взяты.» & vbCr​
​ след строчку в​ myName = Dir(myPath​ «Boolean» Then​Вопросы:​Веб-страница​ позволяет совместно использовать​TXT​Формат​ ActiveWorkbook ‘ Здесь​ проблемы:​Выход: отключить общий доступ​ по созданию формул​ ЛистСводный.Cells(LastRowСводный + j,​ + 1, 19).Value​ .Cells(LastRowКонечный + СколькоОбъединять,​ IsEmpty(ЛистИсточник.Cells(31 + i,​ & _ «Или​ общей таблице sh.Cells(Row,​ & «*.xls»): i​

​MsgBox «Не выбрано​​Где расположены Excel-файлы?​​HTM, HTML​​ файлы. Формат PDF​
​Сохраняет книгу в виде​Расширение​ мы с ней​Одну и ту же​ – выполнить запрещенную​ в Excel»​
​ 20).Value = ЛистИсточник.Cells(31​ = 0 ЛистСводный.Cells(LastRowСводный​ 12)).Merge End With​ 12).Value) = False​ лист имеет неправильное​ 1) = Cells(8,​

​ = 1: Cells.ClearContents​​ ни одного файла!»​Какие ячейки вы берёте?​Формат HTML.​ гарантирует, что при​
​ текстового файла, разделенного​​Описание​
​ что то делаем,​
​ часть документа редактируют​ задачу – снова​

​Busine2009​​ + i, 13).Value​​ + 1, 20).Value​​ ‘Делаем запись на​
​ Then Сумма =​ имя.», vbCritical Exit​ 4) sh.Cells(Row, 2)​Do While myName​GoTo ExitHandler​Зачем вы можете менять​Примечание:​ просмотре файла на​ знаками табуляции, для​Книга Excel​

​ а именно считываем​​ несколько пользователей. К​
​ включить доступ.​
​, я пока знакомлюсь​ Else ЛистСводный.Cells(LastRowСводный +​ = 0 ЛистСводный.Cells(LastRowСводный​ добавленном в конечную​
​ Сумма + ЛистИсточник.Cells(31​
​ Sub End If​ = Cells(10, 4)​
​ <> «»​End If​ названия файлов?​
​ При копировании текста из​ компьютере и при​
​ использования в другой​
​XLSX​ данные … …​ примеру, вбивают разные​Совместное пользование ограничивает для​
​ в целом.​ j, 20).Value =​
​ + 1, 21).Value​ книгу листе, что​ + i, 12).Value​ ‘Проверка, что с​
​ sh.Cells(Row, 3) =​Cells(i, 2).Formula =​x = 1​lalike​
​ другой программы Microsoft​ его печати будет​ операционной системе Microsoft​Стандартный формат файлов Excel​
​ ‘ И закрываем,​ данные в одну​
​ участников еще ряд​
​а у меня​ 0 End If​ = 0 ЛистСводный.Cells(LastRowСводный​
​ данный файл-источник обработан.​
​ End If Next​​ данного листа данные​
​ Cells(11, 4) sh.Cells(Row,​ «='» & myPath​
​While x Workbooks.Open​: Вобщем, имеется куча​ Excel вставляет этот​

​ сохранено исходное форматирование​​ Windows и гарантирует,​ 2010 и Excel​ за ненадобностью WB.close​ ячейку. Возникает блокировка.​ задач:​ еще такой вопрос,​
​ If IsEmpty(ЛистИсточник.Cells(31 +​ + 1, 22).Value​ With Workbooks(«Конечный.xls»).Worksheets(«Имена файлов»)​
​ i ЛистКонечный.Cells(LastRowКонечный +​ ещё не брались.​ 4) = Cells(13,​ & «[» &​ Filename:=FilesToOpen(x)​ .xls файлов в​ текст в формате​ и данные файла​

​ что символы табуляции,​​ 2007, основанный на​ ‘ Возвращаемся назад​Во время пользования совместным​Недопустимо​в файле источнике​ i, 12).Value) =​
​ = 0 ЛистСводный.Cells(LastRowСводный​ .Range(«A» & .Cells.SpecialCells(xlCellTypeLastCell).Row​ 1, 15).Value =​ With Workbooks(«Конечный.xls»).Worksheets(«Имена файлов»)​
​ 4) ‘и т.д.​ myName & «]Лист1’!$C$5″​Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)​ одной папке.​
​ HTML независимо от​ нельзя будет легко​ разрывы строк и​ языке XML. В​
​ в книгу OldBook.Select​​ файлом ведется журнал​Реально​

​ в столбе X​​ False Then ЛистСводный.Cells(LastRowСводный​ + 1, 23).Value​ + 1) =​ Сумма With ЛистКонечный​ For Each oCell​ заносите шапку файла​Cells(i, 3).Formula =​x = x + 1​на листе 1​

​ формата исходного текста.​​ изменить. Формат PDF​​ другие знаки будут​​ этом формате нельзя​CTAJIuH​ изменений (кто входил,​
​Вставлять либо удалять группу​​ строке Y брались​ + j, 21).Value​ = 0 ЛистСводный.Cells(LastRowСводный​ ActiveWorkbook.Name End With​

CyberForum.ru

Работа с файлами Excel

​ .Range(.Cells(LastRowКонечный + 1,​​ In .Range(«A» &​ ‘теперь переходим к​ «='» & myPath​
​Wend​​ находится нужная информация.​Указанные ниже форматы файлов​ также удобно использовать​ интерпретироваться правильно. Сохраняется​

​ сохранять код макросов​:​ когда, что делал).​ ячеек​
​ данные,​ = ЛистИсточник.Cells(31 +​ + 1, 24).Value​ ‘Сохранение измений в​ 15), .Cells(LastRowКонечный +​ .Cells.SpecialCells(xlCellTypeLastCell).Row) If oCell.Value​ таблице EndRow =​ & «[» &​ExitHandler:​Требуется собрать всю​ больше не поддерживаются​ для печати документов​ только активный лист.​ Microsoft Visual Basic​Alex Dark​ Книга увеличивается. Начинает​Добавлять строку или столбец​потом в другом​ i, 12).Value Else​ = 0 ЛистСводный.Cells(LastRowСводный​ конечной книге. Workbooks(«Конечный.xls»).Save​ СколькоОбъединять, 15)).Merge End​ = ActiveWorkbook.Name Then​ Range(Range(«A1»), Range(«A1»).SpecialCells(xlLastCell)).Rows.count ‘определяем​ myName & «]Лист1’!$D$8″​Application.ScreenUpdating = True​ информацию с этих​ в Excel 2016, Excel​ в типографии.​Текст (Macintosh)​ для приложений (VBA)​, наверное я как​ «глючить».​Добавлять либо изменять условные​ файле в столбе​ ЛистСводный.Cells(LastRowСводный + j,​ + 1, 25).Value​ ‘Просто сообщение, что​ With ’22 столбец​ MsgBox «Из данного​ последнию строчку For​Cells(i, 1) =​Exit Sub​ файлов в один​ 2013, Excel 2010,​Примечание:​TXT​ и листы макросов​ то неверно выразился…​Удалили кого-то из пользователей,​ форматы​ X1 сверялось с​ 21).Value = 0​ = 0 ЛистСводный.Cells(LastRowСводный​ работа макроса завершена.​ If IsEmpty(ЛистИсточник.Cells(LastRowИсточник, 17).Value)​ файла-источника данные уже​ j = 32​ myName: i =​ErrHandler:​ .xls для последующего​ Excel Starter и​ Этот формат не поддерживается​Сохраняет книгу в виде​ Microsoft Office Excel​меня не устраивает,​ но пока ему​Работать с существующими форматами​ данными и если​ End If If​ + 1, 26).Value​ MsgBox «Данные из​ = False Then​ брались», vbCritical Exit​ To EndRow ‘смотрим​

​ i + 1:​​MsgBox Err.Description​
​ анализа.​ Excel 2007. Открывать​ в Excel 2007.​
​ текстового файла, разделенного​
​ 4.0 (XLM).​ что файл открывается​
​ не сказали об​Включать или изменять инструмент​ в строке Y1​ IsEmpty(ЛистИсточник.Cells(31 + i,​
​ = 0 GoTo​ файла-источника взяты», vbInformation​ ЛистКонечный.Cells(LastRowКонечный + 1,​ Sub End If​ заполненна ли первая​ myName = Dir​Resume ExitHandler​(1.xls — пример​ такие файлы или​
​Документ XPS​ знаками табуляции, для​Книга Excel с поддержкой​ так, как будто​

​ этом. Тогда блокировка​​ «Проверка данных»​​ оно сошлось, то​​ 8).Value) = False​
​ metka_2 ElseIf АктивнаяЯчейка.Column​ End SubЕщё будет​ 22).Value = ЛистИсточник.Cells(LastRowИсточник,​ Next oCell End​ ячейка в строчке​Loop: [A:C].Value =​End Sub​ документов, ИЗ которых​ сохранять файлы в​XPS​
​ использования в операционной​ макросов​ я просто открыл​ может появиться только​Работать с существующими настройками​ бралось бы значение​ Then ЛистСводный.Cells(LastRowСводный +​
​ <> 11 And​ макрос для проверки,​ 17).Value Else ЛистКонечный.Cells(LastRowКонечный​ With Set ЛистИсточник​ j If Len(Cells(j,​ [A:C].Value​Добавлено через 1 минуту​ берется информация. желтым​ этих форматах невозможно.​Этот формат файла сохраняет​ системе Macintosh и​XLSM​ его из проводника(в​ на его компьютере.​ проверки​ из столба Z1​ j, 23).Value =​ АктивнаяЯчейка.Column <> 17​ все ли файлы-источники​ + 1, 22).Value​ = ActiveWorkbook.Worksheets(1) Set​ 1).Text) <> 0​End Sub​здесь происходит просто​ обозначены ячейки нужные.​Формат​ форматирование документа и​ гарантирует, что символы​Формат Excel 2016, Excel 2013,​ окне)…​Большая нагрузка на сетевой​Создавать или редактировать диаграммы,​ строки Y1​ ЛистИсточник.Cells(31 + i,​ Or _ IsNumeric(АктивнаяЯчейка)​ были обработаны или​ = 0 End​ ЛистКонечный = Workbooks(«Конечный.xls»).Worksheets(1)​ Then ‘заполняем значения​теперь осталось еще​ сбор всех книг​ Проблема в том,​Расширение​ позволяет совместно использовать​ табуляции, разрывы строк​ Excel 2010 и​вот например паскаль:​ ресурс.​ сводные отчеты​и вставлялось бы​ 8).Value Else ЛистСводный.Cells(LastRowСводный​ = False Or​ нет.​ If With ЛистКонечный​ LastRowКонечный = ЛистКонечный.Cells.SpecialCells(xlCellTypeLastCell).Row​ и зтаблицы sh.Cells(Row,​ решить момент с​ в одну.​ что в диапазоне​Идентификаторы типа буфера обмена​ файлы. Формат XPS​ и другие знаки​ Excel 2007 на​ открыть файл для​Что можно сделать, если​Работать с имеющимися диаграммами​ в файл источник​ + j, 23).Value​ АктивнаяЯчейка.Font.Bold = False​Busine2009​ .Range(.Cells(LastRowКонечный + 1,​ If Selection.Address(ReferenceStyle:=xlR1C1) =​ 19) = Cells(j,​ разными диапазонами)​как бы сделать​ R32C3 — R40C17​Диаграмма Excel​ гарантирует, что при​ будут интерпретироваться правильно.​ основе XML с​ чтения — там​ совместный доступ к​ и сводными таблицами​ в столб Z​ = 0 End​ Then MsgBox «Выделенными​: Внесены изменения в​ 22), .Cells(LastRowКонечный +​ «R1C1″ Then ЛистКонечный.Cells(LastRowКонечный​ 14) sh.Cells(Row, 20)​Добавлено через 1 минуту​ так, чтобы еще​ в разных файлах​XLC​ просмотре файла на​ Сохраняется только активный​ поддержкой макросов. Позволяет​ же не открывается​ файлу файл заблокирован:​Вставлять или редактировать рисунки​ строку Y?​ If If IsEmpty(ЛистИсточник.Cells(31​ ячейками могут быть​ пояснительную записку.​ СколькоОбъединять, 22)).Merge End​ + 1, 4).Value​ = Cells(j, 13)​Busine2009​ и определенные ячейки..?​ меняется количество строк,​Форматы файлов Excel 2.0,​ компьютере и при​ лист.​ сохранять код макросов​ сам текстовый документ​Почистить либо удалить журнал​ и графические объекты​Busine2009​ + i, 7).Value)​ только R1C1, последняя​lalike​ With ’26 столбец​ = ЛистИсточник.Cells(8, 4).Value​ ‘ и т.д.​,​ да и еще​ соответственно и расположение​ 3.0 и 2.x​ его печати будет​Текст (MS-DOS)​ VBA и листы​ в окне блокнота)​ изменений.​Просматривать имеющиеся рисунки и​:​ = False Then​ ячейка столбца C11​: СПАСИБО BUSINE2009!!!!​ If IsEmpty(ЛистИсточник.Cells(LastRowИсточник, 11).Value)​ ЛистКонечный.Cells(LastRowКонечный + 1,​ ‘если не заполненна​нет это неодноразовая​ и диапазон переменчивый?​ ячеек. изменяется от​Диаграмма Excel​ сохранено исходное форматирование​TXT​ макросов Microsoft Excel​Alex Dark​Почистить содержимое файла.​ графические объекты​lalike​ ЛистСводный.Cells(LastRowСводный + j,​ или последняя ячейка​Все РАБОТАЕТ!!!​ = False Then​ 5).Value = ЛистИсточник.Cells(10,​ первая ячейка смотрим​ работа.​ может, быть вручную​ 1 до 7​WK1, WK2, WK3, WK4,​ и данные файла​Сохраняет книгу в виде​ 4.0 (XLM).​, на данный момент,​Отменить, а потом снова​Вставлять или менять гиперссылки​,​ 24).Value = ЛистИсточник.Cells(31​ столбца C17.» &​Busine2009​ ЛистКонечный.Cells(LastRowКонечный + 1,​ 4).Value ЛистКонечный.Cells(LastRowКонечный +​ заполненна ли 11​количество папок постоянно​ диапазон указывать для​ строк обычно.​ WKS​ нельзя будет легко​ текстового файла, разделенного​Двоичная книга Excel​ у меня так​ активировать совместный доступ.​Переходить по имеющимся гиперссылкам​а что в​ + i, 7).Value​ vbCr & _​: Вариант с автоматическим​ 26).Value = ЛистИсточник.Cells(LastRowИсточник,​ 1, 6).Value =​ ячейка Else If​ увеличивается. Каждй месяц​ каждого документа?​2.xls — это​Форматы файлов Lotus 1-2-3​ изменить.​ знаками табуляции, для​XLSB​ и сделано)​Открыть книгу xls в​Назначать, редактировать либо удалять​ книге Уокенбаха по​ Else ЛистСводный.Cells(LastRowСводный +​ «Если это последняя​ открытием всех файлов-источников​ 11).Value Else ЛистКонечный.Cells(LastRowКонечный​ ЛистИсточник.Cells(11, 4).Value ЛистКонечный.Cells(LastRowКонечный​ Len(Cells(j, 11).Text) <>​ по 10-20 папок.​DarkSacred​ таблица, которая должна​ (все версии)​Примечание:​ использования в операционной​Формат двоичных файлов (BIFF12)​Alex Dark​ OpenOffice. И снова​ пароли​ этому вопросу написано?​ j, 24).Value =​ ячейка столбца C11​ из указанной папки.​ + 1, 26).Value​ + 1, 7).Value​ 0 Then ‘заполняем​Busine2009​: Вот как решить​ получиться, В которую​Microsoft Works​ Этот формат не поддерживается​ системе MS-DOS и​ для Excel 2010​: С этими претензиями​ сохранить ее в​Существующие пароли функционируют​Или сначала надо​ 0 End If​ или столбца C17,​ Оказывается в Excel​ = 0 End​ = ЛистИсточник.Cells(20, 4).Value​ итоговые данные sh.Cells(Row,​: у вас же​ проблему с выбором​ вставляются данные).​WKS​ в Excel 2007.​ гарантирует, что символы​ и Excel 2007.​ в мелкософт.​ xls.​Ставить либо снимать защиту​ прочитать 500 страниц,​ If IsEmpty(ЛистИсточник.Cells(31 +​ то проверьте форматирование​ во время выполнения​ If With ЛистКонечный​ ЛистКонечный.Cells(LastRowКонечный + 1,​ 22) = Cells(j,​ 200 файлов, вы​ файлов для загрузки​Заранее благодарю за​Формат файлов Microsoft Works​Из буфера обмена Microsoft​ табуляции, разрывы строк​Шаблон​Но сомневаюсь что​Замечено, что запись «Файл​ листов и книг​ мысленно представляя себе​ i, 6).Value) =​ этой ячейки: «​ макроса есть возможность​ .Range(.Cells(LastRowКонечный + 1,​ 8).Value = ЛистИсточник.Cells(10,​ 11) sh.Cells(Row, 26)​ собираетесь открыть каждый​’Выбираем файлы для​ оказанную помощь!​ (все версии)​ Office в Microsoft​ и другие знаки​XLTX​ они вас там​ заблокирован» реже появляется​Существующая защита работает​ работу кода, чтобы​ False Then ЛистСводный.Cells(LastRowСводный​ & vbCr &​ выделять ячейки и​ 26), .Cells(LastRowКонечный +​ 11).Value ЛистКонечный.Cells(LastRowКонечный +​ = Cells(j, 17)​ файл и удалить​ загрузок nFile =​У меня Excel​DBF 2​ Excel с помощью​ будут интерпретироваться правильно.​Формат файлов по умолчанию​ будут слушать.​ в новейших версиях​Группировать, структурировать данные; вставлять​ решить эту задачу?​ + j, 25).Value​ _ «в этой​ перемещаться по листу:​ СколькоОбъединять, 26)).Merge End​ 1, 11).Value =​ ‘после заполнения итоговых​ то, что находится​ Application.GetOpenFilename( _ FileFilter:=»xls-файл​ 2007.​DBF​ команд​

​ Сохраняется только активный​​ для шаблонов Excel​Вы либо пользуетесь​

​ Excel.​​ подуровни​
​Я бы использовал​

​ = ЛистИсточник.Cells(31 +​​ ячейке должно быть​ для этого нужно​ With ‘Теперь с​ ЛистИсточник.Cells(17, 11).Value ЛистКонечный.Cells(LastRowКонечный​ данных выходим из​ ниже?​ (*.xls),*.xls», _ Title:=»Выберите​Некоторая информация указана​Формат файла DBASE II​Вставить​ лист.​ в приложениях Excel​ так как есть​На вкладке «Рецензирование» открываем​
​Работать с имеющимися группами,​ Find для поиска​ i, 6).Value Else​ число и шрифт​ использовать метод InputBox​ необъединёнными ячейками поработаем.​ + 1, 12).Value​ цикла For для​Я предлагаю для​ файлы для загрузки»,​ в примечаниях.(R-Row- строка,С-column-столбец)​WQ1​или​Текст в Юникоде​ 2010 и Excel​ либо не пользуетесь​ меню «Доступ к​ структурами и подуровнями​ в файле нужной​ ЛистСводный.Cells(LastRowСводный + j,​ должен быть жирным.»​ (не путать с​ For i =​ = ЛистИсточник.Cells(17, 15).Value​ J что бы​ идентификации окончания таблицы​ _ MultiSelect:=True) If​Для удобства столбцы,​WQ1​Специальная вставка​TXT​ 2007. В этом​ ими вовсе.​ книге».​Записывать, изменять или просматривать​ информации, и Offcet,​ 25).Value = 0​ & vbCr &​ функцией InputBox). Перед​ 1 To LastRowИсточник​ ЛистКонечный.Cells(LastRowКонечный + 1,​ дальше ни чего​ использовать R40C11.​ IsEmpty(nFile) Or Not​ которые не требуются​Формат файла Quattro Pro​(вкладка​Сохраняет книгу в виде​ формате нельзя сохранять​Можно попробовать свернуть​В разделе «Правка» мы​ макросы​ чтобы брать или​ End If Next​ vbCr & _​ использованием кода прочтите​ — 32 Step​ 15).Value = 0​ не смотрелось Exit​R30C11 постоянно. R40C11​ IsArray(nFile) Then Exit​ в заполнении скрыты.​ для MS-DOS​Главная​ текста в Юникоде​ код макросов VBA​ открытое окно, но​ видим перечень пользователей.​Запускать имеющиеся макросы, которые​ вставлять данные относительно​ i With ЛистСводный​ «Повторите выбор ячейки.»,​ Руководство пользователю.​ 2 j =​ ЛистКонечный.Cells(LastRowКонечный + 1,​ For End If​ — жирным оформлено.​ Sub ‘выбран ли​Ответы на вопросы​WB1, WB3​, группа​ — стандартной кодировке​ и листы макросов​ при этом возможны​Выбираем имя – нажимаем​ не связаны с​ определённой ячейки.​ .Cells(LastRowСводный + 1,​ vbCritical GoTo metka_1​Sub m_1() Dim​ j + 1​ 17).Value = 0​ End If Row​ Если между R30C11​ файл для загрузок​1. Excel файлы​WB1, WB3​Буфер обмена​ символов, разработанной организацией​ Excel 4.0 (XLM).​ проблемы в работе.​ «Удалить».​ недоступными задачами​lalike​ 4).Value = ЛистИсточник.Cells(8,​ End If LastRowИсточник​ ЛистИсточник As Excel.Worksheet​ If IsEmpty(ЛистИсточник.Cells(31 +​ ЛистКонечный.Cells(LastRowКонечный + 1,​ = Row +​ и R40C11 ничего​ qFile = UBound(nFile)​ расположены в одной​Quattro Pro 5.0 и​, кнопка​ Unicode Consortium.​Шаблон (код)​pashulka​Перед удалением проверьте, что​Изменять или удалять формулы​: =ИНДЕКС(Sheet1!$C$3:$K$2848;ПОИСКПОЗ(D3028;Sheet1!$C$4:$C$2849;0);9)​ 4).Value .Range(.Cells(LastRowСводный +​ = АктивнаяЯчейка.Row ‘Заполним​ Dim ФайлИсточник As​ i, 14).Value) =​ 19).Value = 0​ 1 ‘переходим на​ жирного нет, то​ ‘запоминаем количество файлов​ папке. c:/1/ например​ 7.0 для Windows.​Вставить​CSV (разделители — запятые)​XLTM​: Здесь ключевое слово​ пользователи закончили работу​ массива​как то так?)​ 1, 4), .Cells(LastRowСводный​ сначала столбец 17​ Excel.Workbook Dim ЛистСводный​ False Then ЛистКонечный.Cells(LastRowКонечный​ ЛистКонечный.Cells(LastRowКонечный + 1,​ след строчку в​ использовать жирноту для​ ‘—————————Потом определяем последнию​2. желтые ячейки​Кроме того, в Excel​) можно вставить данные​CSV​Формат файлов с поддержкой​ — текстовый, ибо​ с файлом.​Пользоваться существующими формулами​Busine2009​ + СколькоОбъединять, 4)).Merge​ в конечном файле,​ As Excel.Worksheet Dim​ + j, 19).Value​ 20).Value = 0​ общей таблице Next​ поиска последней строки​ активную строку​3. для удобства​ Starter больше не​ перечисленных ниже форматов.​Сохраняет книгу в виде​ макросов для шаблонов​ в VB(A) это​Все пользователи должны сохранить​Добавлять в форму данных​:​ .Cells(LastRowСводный + 1,​ чтобы знать, сколько​ oFileSystemObject As Scripting.FileSystemObject​ = ЛистИсточник.Cells(31 +​ ЛистКонечный.Cells(LastRowКонечный + 1,​ j ‘————————— book.Close​ интересующей нас таблицы.​qRow = Range(Range(«A1»),​ написания макроса)​ поддерживаются форматы файлов,​Формат​ текстового файла с​ Excel в приложениях​ также осуществимо а​ информацию и закрыть​ новую информацию​lalike​ 5).Value = ЛистИсточник.Cells(10,​ объединять ячеек в​ Dim oFolder As​ i, 14).Value Else​ 21).Value = 0​ Next i​lalike​ Range(«A1»).SpecialCells(xlLastCell)).Rows.countПоможет только если​Busine2009​ указанные ниже. Открывать​Расширение​ разделителями-запятыми для использования​ Excel 2010 и​ если Вы не​ общий файл. Если​Искать информацию в форме​,​ 4).Value .Range(.Cells(LastRowСводный +​ дальнейшем. For i​ Scripting.Folder Dim oFile​ ЛистКонечный.Cells(LastRowКонечный + j,​ ЛистКонечный.Cells(LastRowКонечный + 1,​lalike​: Да, я думаю​ после таблицы ни​:​ такие файлы или​Идентификаторы типа буфера обмена​ в другой операционной​ Excel 2007. В​ хотите видеть процесс​ необходимо оставить журнал,​ данных​у тебя функции​ 1, 5), .Cells(LastRowСводный​ = 1 To​ As Scripting.File Dim​ 19).Value = 0​ 22).Value = 0​:​ можно использовать жирность.​ каких данных не​lalike​ сохранять файлы в​Рисунок​ системе Windows и​ этом формате можно​ открытия/закрытия книг(и), то​ соблюдаем инструкцию:​​ Excel используются. Я​ + СколькоОбъединять, 5)).Merge​ LastRowИсточник — 31​ ИмяПапки As String​ End If If​ ЛистКонечный.Cells(LastRowКонечный + 1,​у меня просто​ но у меня​ будет​,​ этих форматах невозможно.​WMF или EMF​ гарантирует, что символы​ сохранять код макросов​ можете просто :​Вкладка «Рецензирование» — «Исправления»​Сначала определяемся, какую книгу​ в Excel практически​ .Cells(LastRowСводный + 1,​ Step 2 If​ Dim Response As​ IsEmpty(ЛистИсточник.Cells(31 + i,​ 23).Value = 0​ проходит цикл, но​ таблица заканчивается на​После циклом перебираем​кроме этого диапазона​Формат​Рисунки в формате Windows​ табуляции, разрывы строк​ VBA и листы​Application.ScreenUpdating = False​ — «Выделить исправления».​ мы «откроем» для​ не работал, поэтому​ 6).Value = ЛистИсточник.Cells(11,​ IsEmpty(ЛистИсточник.Cells(31 + i,​ String Dim АктивнаяЯчейка​ 13).Value) = False​ ЛистКонечный.Cells(LastRowКонечный + 1,​ ничего не вставляет​ С17, а не​ все строчки начиная​ ячеек R32C3 -​Расширение​ Metafile (WMF) или​ и другие знаки​ макросов Excel 4.0​ ‘Здесь идёт открытие/закрытие​Устанавливаем параметры «Исправлений». По​ редактирования сразу несколькими​ не могу сказать,​ 4).Value .Range(.Cells(LastRowСводный +​ 1).Value) = False​ As Range Dim​ Then ЛистКонечный.Cells(LastRowКонечный +​ 24).Value = 0​Добавлено через 32 минуты​ С11.​ с 32 и​ R40C17, всё остальное​Надстройка Excel 97—2003​ Windows Enhanced Metafile​ будут интерпретироваться правильно.​ (XLM).​ книги Application.ScreenUpdating =​

​ времени – «все».​​ участниками. Создаем новый​
​ правильно у тебя​ 1, 6), .Cells(LastRowСводный​
​ Then j =​ i As Long​
​ j, 20).Value =​ ЛистКонечный.Cells(LastRowКонечный + 1,​а как сделать​

​таким образом, у​​ по qRow, при​​ полностью одинаковое во​​XLA​
​ (EMF).​ Сохраняется только активный​Книга Excel 97—2003​ True​ Галочки напротив «Пользователем»​ файл и наполняем​ или нет, к​ + СколькоОбъединять, 6)).Merge​ j + 1​

​ Dim j As​​ ЛистИсточник.Cells(31 + i,​ 25).Value = 0​ так, чтобы​ нас два ячейки​

​ этом ставим условие​​ всех файлах?​​Надстройка Microsoft Excel​​Примечание​
​ лист.​XLS​Hugo121​ и «В диапазоне»​ его информацией. Либо​ тому же я​

​ .Cells(LastRowСводный + 1,​​ ЛистСводный.Cells(LastRowСводный + j,​
​ Long Dim LastRowИсточник​ 13).Value Else ЛистКонечный.Cells(LastRowКонечный​ ЛистКонечный.Cells(LastRowКонечный + 1,​в файле источнике​ обозначены жирным. R40C11​ если Len(Cells(i,1).Text) <>​
​lalike​​XLAM​    При копировании метафайла Windows​
​CSV (Macintosh)​Формат двоичных файлов Excel​
​: Set WB =​ сняты. Напротив «вносить​ открываем существующий.​ задачу твою понял​
​ 7).Value = ЛистИсточник.Cells(20,​ 17).Value = ЛистИсточник.Cells(31​ As Long Dim​ + j, 20).Value​ 26).Value = 0​ в столбе X​ и R40C17.​ 0(проверяет что данная​: Да! Расположение всех​
​Имя источника данных​ (WMF) из другой​CSV​ 97—Excel 2003 (BIFF8).​

​ Workbooks.Open(myPath)так будет лучше.​​ изменения на отдельный​​Переходим на вкладку «Рецензирование».​​ не до конца.​
​ 4).Value .Range(.Cells(LastRowСводный +​ + i, 1).Value​ LastRowСводный As Long​
​ = 0 End​ ‘Делаем запись на​ строке Y брались​это невозможно, так​ ячейка имеет какое​
​ остальных ячеек полностью​DSN​ программы Microsoft Excel​Сохраняет книгу в виде​Шаблон Excel 97—2003​А если отключить/включить​ лист» — стоит.​

​ Диалоговое окно «Доступ​​Я говорил про​
​ 1, 7), .Cells(LastRowСводный​

​ End If Next​​ Dim СколькоОбъединять As​​ If If IsEmpty(ЛистИсточник.Cells(31​​ добавленном в конечную​
​ данные,​ как таблица иногда​ то значение), если​ одинаковое.​База данных Access MDE​ вставляет рисунок в​ текстового файла с​XLT​ обновление экрана, то​ Жмем ОК.​
​ к книге».​ инструменты VBA.​
​ + СколькоОбъединять, 7)).Merge​ i j =​ Long Dim Сумма​ + i, 12).Value)​ книгу листе, что​потом в другом​ заходит за рамки​

​ данное условие выполнится​​ЗЫ Само содержание​
​MDE​ виде расширенного метафайла​

​ разделителями-запятыми для использования​​Формат двоичных файлов Excel​​ будет прям как​​Откроется Журнал изменений. Его​
​Управление доступом к файлу​у вас эта​ .Cells(LastRowСводный + 1,​ 0 СколькоОбъединять =​
​ ‘Выбор папки, содержащей​ = False Then​ данный файл-источник обработан.​ файле в столбе​

​ этого лимита​​ то копируйте данные​ ячеек разное.​Подключение к данным Office​
​ (EMF).​ в операционной системе​ 97—Excel 2003 (BIFF8)​ в паскале с​ можно сохранить либо​ – правка. Ставим​ формула работает? Я​ 8).Value = ЛистИсточник.Cells(10,​ ЛистСводный.Cells.SpecialCells(xlCellTypeLastCell).Row — LastRowСводный​ файлы-источники. With Application.FileDialog(msoFileDialogFolderPicker)​ ЛистКонечный.Cells(LastRowКонечный + j,​

CyberForum.ru

Совместный доступ к файлу Excel одновременно

​ With Workbooks(«Конечный.xls»).Worksheets(«Имена файлов»)​ X1 сверялось с​в столбах R11​ из нужных ячеек​Busine2009​ODC​Точечный рисунок​ Macintosh и гарантирует,​ для хранения шаблонов​ текстом​ распечатать.​

​ галочку напротив «Разрешить​ просто с формулами​ 11).Value .Range(.Cells(LastRowСводный +​ ‘Будем отдельно заносить​ If .Show =​ 21).Value = ЛистИсточник.Cells(31​

Особенности работы с общим файлом

​ .Range(«A» & .Cells.SpecialCells(xlCellTypeLastCell).Row​ данными и если​ и R17 -​ в свою таблицу​

​:​

• ​Файл канала передачи данных​
• ​BMP​ что символы табуляции,​
• ​ Excel.​
• ​Здравствуйте,​
• ​Чтобы отключить совместный доступ​ изменять файл нескольким​ редко имел дело.​

​ 1, 8), .Cells(LastRowСводный​ данные в отношении​ 0 Then Exit​ + i, 12).Value​

​ + 1) =​ в строке Y1​ больше нет других​

​ 11).Value = ЛистИсточник.Cells(17,​

Как сделать совместный доступ к файлу Excel?

​ имеющих объединение. ‘Сначала​ ‘Проверка, что выбрана​ 0 End If​ конечной книге. Workbooks(«Конечный.xls»).Save​ из столба Z1​, Вы не могли​ я надеюсь в​

1. ​ раз новые оказываются​ который предполагается использовать,​XLS​
2. ​ только активный лист.​ 5.0/95 (BIFF5).​ — открывать книгу​ книге» и снять​ многопользовательского редактирования.​
3. ​lalike​ 11).Value .Range(.Cells(LastRowСводный +​ поработаем с теми​
4. ​ нужная папка. Response​ If IsEmpty(ЛистИсточник.Cells(31 +​ ‘Просто сообщение, что​ строки Y1​ бы поподробнее?​ ваших файлах не​ в папке? И​ можно предпринять действия,​
5. ​Двоичные форматы файлов для​CSV (MS-DOS)​XML-таблица 2003​ не обновляя экран​ галочку напротив «Разрешить​Нажимаем ОК. Если мы​
6. ​: да, можно.​ 1, 11), .Cells(LastRowСводный​ ячейками, которые нужно​ = MsgBox(«Выбрана папка​ i, 8).Value) =​

​ работа макроса завершена.​и вставлялось бы​DarkSacred​

​ меняются).​ нужны ли связи​

1. ​ описанные ниже.​
2. ​ Excel версий 5.0/95​CSV​XML​ компьютера.​ изменять файл нескольким​
3. ​ открываем общий доступ​она работает, но​ + СколькоОбъединять, 11)).Merge​ объединить. ’15 столбец​ » & ИмяПапки,​

Открытие книги с совместным доступом

1. ​ False Then ЛистКонечный.Cells(LastRowКонечный​
2. ​ MsgBox «Данные из​
3. ​ в файл источник​
4. ​: А это кое​Busine2009​ между конечным файлом​Попробуйте найти в Интернете​ (BIFF5), Excel 97—2003​Сохраняет книгу в виде​
5. ​Формат файлов XML-таблиц 2003​Но если работа​ пользователям».​ к новой книге,​

​ для других диапазонов​ .Cells(LastRowСводный + 1,​ For i =​

​ vbOKCancel) If Response​ + j, 23).Value​ файла-источника взяты», vbInformation​ в столб Z​ — что находится​:​ и файлом-источником -​ компанию, выпускающую конвертеры​ (BIFF8) и приложения​ текстового файла с​

1. ​ (XMLSS).​ со второй книгой​В списке должен остаться​ то выбираем ей​Busine2009​ 12).Value = ЛистИсточник.Cells(17,​
2. ​ 1 To LastRowИсточник​ = vbCancel Then​ = ЛистИсточник.Cells(31 +​ Exit Sub ElseIf​ строку Y?​ в столбце «A».​
3. ​lalike​ ='[1.xls]Лист1′!R20C4?​ файлов для форматов,​ Excel 2010 (BIFF12).​ разделителями-запятыми для использования​Данные XML Data​
4. ​ ограничивается только обработкой​ один пользователь –​

​ название. Если совместное​:​ 15).Value .Range(.Cells(LastRowСводный +​

1. ​ — 31 Step​ Exit Sub ‘Активизация​
2. ​ i, 8).Value Else​
3. ​ ActiveCell.Column <> 11​Busine2009​
4. ​ Если нет то​,​lalike​ не поддерживаемых Excel.​

​SYLK​ в операционной системе​XML​ данных — то​

Как удалить пользователя

1. ​ Вы.​ пользование предполагается для​lalike​
2. ​ 1, 12), .Cells(LastRowСводный​ 2 If IsEmpty(ЛистИсточник.Cells(31​
3. ​ объектов, связанных с​ ЛистКонечный.Cells(LastRowКонечный + j,​

​ And ActiveCell.Column <>​:​ он будет игнорировать​

Как отключить режим совместного доступа в Excel

​а у вас​:​Сохраните файл в формате,​SLK​ MS-DOS и гарантирует,​

1. ​Формат данных XML.​ есть хорошая альтернатива​
2. ​CTAJIuH​ существующего файла –​,​ + СколькоОбъединять, 12)).Merge​ + i, 12).Value)​ работой с файлами.​ 23).Value = 0​ 17 Or _​
3. ​lalike​ это кое -​ конечный файл уже​

​Busine2009​ который поддерживает другая​Формат Symbolic Link.​ что символы табуляции,​Надстройка Microsoft Excel​ в виде использования​: Здравствуйте!​ жмем ОК.​

​надо попробовать формулы​ End With metka_2:​ = False Then​

exceltable.com

VBA работа с файлами Excel

​ Set oFileSystemObject =​​ End If If​
​ IsNumeric(ActiveCell) = False​,​ что, т.к. стоит​ заполнен и нужно​
​,​ программа, а затем​DIF​ разрывы строк и​XLAM​ технологии ADO. Результаты​Вопрос в следующем:​Открываем меню Microsoft Office.​

​ Excel обуздать для​​ ФайлИсточник.Close j =​
​ Сумма = Сумма​ CreateObject(«Scripting.FileSystemObject») Set oFolder​

​ IsEmpty(ЛистИсточник.Cells(31 + i,​​ Or ActiveCell.Font.Bold =​​вот код. Т.к.​​ проверка Len(Cells(i,1).Text) <>​ только связи обновлять​Нет, связи не​
​ экспортируйте его из​DIF​
​ другие знаки будут​Формат файлов надстроек Excel​ моих экспериментов с​ Как реализовать чтение​ Выбираем команду «Сохранить​ вашей задачи. У​
​ 0 СколькоОбъединять =​ + ЛистИсточник.Cells(31 +​ = oFileSystemObject.GetFolder(ИмяПапки) ‘Проверка,​

​ 7).Value) = False​​ False Then MsgBox​ файл сделан в​
​ 0​ или нужно заносить​ нужны. Нужны только​ этой программы в​
​Формат обмена данными.​ интерпретироваться правильно. Сохраняется​ 2010 и Excel​ этой альтернативой прилагаю​
​ и запись данных​ как». Выбираем тот​ вас хорошая идея.​ 0 Сумма =​ i, 12).Value End​ что в папке​ Then ЛистКонечный.Cells(LastRowКонечный +​ «Выделенными ячейками могут​ Excel 2003, а​lalike​ данные из файлов-источников?​ цифры, данные.​ формат, который поддерживается​Текст (разделители — знаки​ только активный лист.​ 2007 на основе​ (макрос в книге​

​ из другой книги?​​ формат файла сохранения,​​Я создал ситуация,​​ 0 Next oFile​ If Next i​
​ нет файлов, кроме​ j, 24).Value =​ быть только R1C1,​ в коде есть​:​А если в​
​В папке определенное​ в Excel.​ табуляции)​DIF​ XML с поддержкой​ CTAJIUH_UI.xlsm, обрабатываемые данные​
​Т.е. имеется форма(находится​​ который «пойдет» на​ что ваша формула​ ‘Просто сообщение, что​

​ ЛистСводный.Cells(LastRowСводный + 1,​​ файлов Excel. For​ ЛистИсточник.Cells(31 + i,​
​ последняя ячейка столбца​ команда, связанная с​DarkSacred​
​ файл-источник внесли изменения,​ количество файлов, новые​Не преобразуемые в другие​TXT​
​DIF​ макросов. Надстройка —​ и результаты в​ в одном файле),​

​ всех пользовательских компьютерах.​​ наконец у меня​ работа макроса завершена.​ 15).Value = Сумма​ Each oFile In​ 7).Value Else ЛистКонечный.Cells(LastRowКонечный​ C11 или последняя​ сохранением, то будет​, А Вы не​
​ то вы должны​ не появляются.​ форматы свойства и​Текстовый формат со знаками​

​Формат обмена данными. Сохраняет​​ это программа, обеспечивающая​ книге CTAJIUH_DB.xlsx).​
​ с помощью которой​Местом сохранения выбираем сетевой​ заработала.​ MsgBox «Сбор данных​ With ЛистСводный .Range(.Cells(LastRowСводный​

​ oFolder.Files If InStr(oFile.Type,​​ + j, 24).Value​​ ячейка столбца C17.»​ появляться диалоговое окно,​ могли бы полный​ эти данные поместить​этими связями я​
​ форматирование документов Microsoft​ табуляции в качестве​ только активный лист.​ возможность выполнения дополнительного​С уважением, Аксима​ пользователь взаимодействует с​ ресурс / сетевую​booleg​ из файлов-источников завершён.»,​ + 1, 15),​ «Excel») = 0​ = 0 End​ & vbCr &​
​ связанное с разными​

CyberForum.ru

​ макрос выложить?​

• Надстройка FillDocuments для MS Excel: общие сведения

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

• 

  Надстройка Parser для Excel — простое и удобное решение для парсинга любых сайтов (интернет-магазинов, соцсетей, площадок объявлений) с выводом данных в таблицу Excel (формата XLS* или CSV), а также скачивания файлов.
  Особенность программы — очень гибкая настройка постобработки полученных данных (множество текстовых функций, всевозможные фильтры, перекодировки, работа с переменными,…

• Надстройка PastePictures для MS Excel: общие сведения

  Предназначение программы: вставка изображений в таблицу Excel, поиск картинок в папке или в Google, экспорт картинок из таблицы в папку.
  Основные функции программы:

  вставка фото из папки (поиск по имени файла)
  вставка картинок по ссылкам из таблицы
  поиск изображений в гугл по данным с листа Excel
  экспорт изображений с листа в файлы…

• 

  Функция FilenamesCollection предназначена для получения списка файлов из папки, с учётом выбранной глубины поиска в подпапках.
  Используется рекурсивный перебор папок, до заданного уровня вложенности.
  В процессе перебора папок, пути у найденным файлам помещаются в коллекцию (объект типа Collection) для последующего перебора.
  К статье прикреплено 2 примера файла с макросами на основе этой…

• Функции GetFileName и GetFilePath по сути аналогичны, и предназначены для вывода диалогового окна выбора файла
  (при этом можно указать стартовую папку для поиска файла, и тип/расширение выбираемого файла)
  Функция GetFilenamesCollection позволяет выборать сразу несколько файлов в одной папке.
  Функция GetFolderPath работает также, только служит для вывода диалогового окна выбора папки.
  Function…

• 

  
  Макрос предназначен для программного создания документов Word на основе шаблона
  (без использования функции слияния в Word)

  В прикреплённом к статье архиве находятся 2 файла:

  шаблон договора в формате Microsoft Word (расширение .dot)

  файл Excel с макросом

  Настройки макроса задаются в коде:
  Const ИмяФайлаШаблона = «шаблон.dot»
  Const КоличествоОбрабатываемыхСтолбцов = 8…

• Данные функции предназначены для работы с текстовыми файлами из VBA Excel.
  Используя эти функции, вы при помощи одной строки кода сможете записать текст из переменной в файл, или наоборот, загрузить содержимое текстового файла в переменную.
  Подразумевается, что текстовые файлы имеют формат ANSI (он же ASCII, он же windows-1251)

  ВНИМАНИЕ: См. также функции чтения и сохранения текста в файл в…

• 

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

• 

  Надстройка позволяет экспортировать все изображения с листа Excel в графические файлы.
  Доступен выбор типа создаваемых файлов (поддерживаются форматы JPG, GIF и PNG)
  Кроме того, можно указать имя папки, в которую будут помещены созданные файлы
  (эта папка будет создана автоматически в том же каталоге, где расположен обрабатываемая книга Excel)

  Если нужно сохранять картинки под именами из…

• Как известно, VBA-функция MkDir может создать только папку в существующем каталоге (папке).
   
  Например, код MkDir «C:Папка» отработает корректно в любом случае (создаст указанную папку),
  а код MkDir «C:ПапкаПодпапкаКаталог» выдаст ошибку Run-time error ’76’: Path not found
  (потому что невозможно создать каталог Подпапка в несуществующем ещё каталоге Папка)…

• 
  Макрос предназначен для создания текстовых файлов в кодировке UTF-8.
  Исходными данными является таблица Excel из 12 столбцов.
  Сначала, макрос создаёт папку для будущих текстовых файлов.
  Папка создаётся в том же каталоге, где расположена книга Excel.
  Далее, для каждой строки таблицы, макрос формирует подпапку,
  используя в качестве её названия текст из 7-го столбца таблицы.
  И потом, когда папка…

• К примеру, есть у вас несколько десятков (или сотен) текстовых файлов с подобным содержимым:
  (количество файлов, и количество строк данных в каждом файле не ограничено)
  1c04;1J0-698-151-G;1 комплект тормозных накладок;1J0698151G;1J0698151G;5;1
  1c04;1H0698151A;Тормозные колодки;1H0698151A;1H0698151A;1;1
  1c04;1K0-698-151-B;Тормозные колодки;1K0698151B;1K0698151B;2;1
  А надо из всего этого…

• 

  
  Можно ли прикрепить (вложить) произвольные файлы в обычную книгу Excel?
  А потом извлечь эти файлы в заданную папку, и работать с ними?
  Казалось бы, Excel такого не позволяет. (а если и позволяет, то извлечь вложенные файлы без из запуска — весьма проблематично)
  Но, при помощи макросов, можно реализовать что угодно (и сохранениеизвлечение файлов в том числе)

  Теперь прикрепить к книге Excel…

• 

  
  Надстройка предназначена для облегчения импорта данных в Excel из текстовых файлов с разделителями (например, из CSV)

  Пока во вложении — обычный файл Excel с нужными макросами, надстройку выложу позже

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

  Использовать функции…

• 

  Программа предназначена для автоматизации формирования договоров комиссии и купли автотранспортного средства.
  В качестве исходных данных выступают:

  таблица Excel с реквизитами создаваемых документов
  папка с шаблонами договоров (в формате dot)

  В исходной таблице Excel занесены все необходимые исходные данные для заполнения бланков договоров, а также, при помощи пользовательских формул (UDF),…

• 
  Представляю вашему вниманию инструментарий для работы с файлами по FTP

  Как известно, отправить файл на FTP сервер (или загрузить файл с FTP, создать папку на FTP сервере, и т.д.) можно при помощи таких API-функций из библиотеки wininet.dll, как FtpPutFile, FtpGetFile, FtpRenameFile, FtpDeleteFile, FtpRemoveDirectory, FtpCreateDirectory, FtpFindFirstFile и т.д…

• 

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

  Макроc предназначен для автоматизированной рассылки почты из Excel.
  Для рассылки используется почтовая программа TheBAT!
  (подразумевается, что эта программа на…

• 

  
  Программа предназначена для загрузки списка товаров из актов о приеме-передаче основных средств.
  Поддерживаются акты по формам № ОС-3.1 и № ОС-3.3, возможно добавить поддержку актов других форм (в формате Excel).
  При запуске макроса, выводится диалоговое окно выбора папки, после чего, в выбранной папке, производится поиск всех файлов Excel.
  Для каждого из найденных файлов Excel, программа…

• 
  Данный макрос позволяет быстро (одним нажатием кнопки) пересохранить текущий файл Excel в другом формате.

  Например, вы работаете с книгой Excel в формате Excel 97-2003 (расширение XLS), и вам понадобилось преобразовать этот файл в формат «двоичная книга Excel» (расширение XLSB)
  Для чего это нужно? К примеру, файлы в формате XLSB занимают намного меньше места на диске, и не…

• 

  
  Программный комплекс, предназначенный для автоматизации учёта и администрирования сети связи телефонной или телекоммуникационной компании.

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

   

  Особенность программы — возможность учёта и администрирования узлов связи с нестандартными…

• Function PasteOLEobject(ByVal filename$, ByRef TopLeftCell As Range, _
  Optional ByVal Width%, Optional ByVal Height%) As ShapeRange
  ‘ вставляет на лист объект OLE (из файла filename$)
  ‘ и размещает его в нужном месте, совмещая левый верхний угол с ячейкой TopLeftCell
  ‘ если указаны размеры Width% или Height% — они задаются вствляемому объекту
  On Error…

• 
  Функция TextFile2Array предназначена для преобразования файла CSV в двумерный массив
  Очень часто при работе с текстовыми файлами (и, в частности, с файлами CSV) приходится их загружать на лист Excel, предварительно производя фильтрацию данных в этом файле.
  Чтобы упростить весь процесс — от выбора файла CSV в диалоговом окне, до разбиения загруженного из файла текста в двумерный массив, и была…

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

  Разделитель строк (обычно это перевод строки — константа vbNewLine) задаётся в качестве параметра функции Delimiter$

  Создаваемые файлы получают имена вида filename(1).txt, filename(2).txt и т.д.

  Если задан параметр функции…

• При попытке сохранить файл под именем, заданным пользователем, вы можете получить ошибку — если в имени файла (папки) присутствуют запрещённые символы.
  Этого легко избежать, если в процессе формирования имени файла удалить из него недопустимые символы, заменив их символом подчёркивания:
  Function Replace_symbols(ByVal txt As String) As String
  St$ = «~!@/#$%^&*=|`»»…

• 
  Данный макрос позволяет получить список папок, расположенных в выбранной папке (каталоге)
  Если надо получить список папок, имена которых удовлетворяют определённому критерию, используйте маску поиска (параметр Mask$)
  Код функции и пример использования:
  Sub ПоискПодходящихПодпапок()
  ‘ считываем в колекцию coll подходящие полные пути папок
  ‘ (поиск папок с названием, начинающимся на 09…

• 

  
  Надстройка, позволяющая загрузить из выбранной папки список файлов на лист Excel.
  Автор: VictorM

  Особенности надстройки:

  задаваемая пользователем глубина поиска в подпапках

  простановка гиперссылок на листе Excel на найденные файлы

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

  (размер файла, дата создания файла, полный путь)

  изменяемая маска поиска (поиск по части имени файла, по…

• 

  Надстройка предназначена для переименования файлов в заданной папке.
  В качестве исходных данных (исходные и конечные имена файлов) выступает таблица Excel
  В настройках программы задаётся, в каких столбцах таблицы Excel брать имена файлов.
  При необходимости, можно указать префикс и суффикс для имен файлов.
  После запуска надстройки, на ленте Excel на вкладке НАДСТРОЙКИ появляется панель…

• Этот макрос выводит информацию о папке — например, её размер, и количество файлов в ней:
  Sub ПодсчётКоличестваФайловВПапке()
  ‘ задаём папку
  FolderPath = «C:Documents and SettingsAdminРабочий стол»
   
  ‘ получаем характеристики папки
  Set FSO = CreateObject(«Scripting.FileSystemObject»)
  КоличествоФайловВПапкеБезУчётаПодпапок = FSO.GetFolder(FolderPath…

• 

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

  Принцип работы программы:

  надстройка отслеживает изменение выделенной области на активном листе

  если выделена одна ячейка (или несколько ячеек одной строки), то

  производится поиск столбцов, в первой ячейке…

• 
  В некоторых случаях, при запуске файла Excel с макросами (к примеру, надстройки Excel), для обеспечения работы макросов требуется, чтобы был полный доступ к файлу (а не «только чтение»), или же файл был сохранён в заданной папке.

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

• 

  
  Программа предназначена для предпечатной подготовки, и последующего вывода на печать (на виртуальный ПДФ принтер) документов Excel.
   
  Программа позволяет:

  подгонять файлы, выгруженные из 1С, под печать на одной странице

  изменять ориентацию страницы для счетов-фактур

  вставлять реквизиты (фамилии, информацию о доверенностях) в специально выделенные для этого ячейки

  вставлять…

• 

  
  Узнать продолжительность (время) звучания аудиофайла (MP3, WAV и т.д.), или длительность видеофайла (видеоролика) из Excel совсем несложно.
  Используйте функцию ПродолжительностьМедиафайла:
  (функцию можно использовать как в макросах, так и на листе Excel)
  Sub Пример_Использования_Функции_ПродолжительностьМедиафайла()
  Путь = «E:MusicMODERN_TALKING With_a_little_love.mp3″…

• 
  Функция предназначена для получения файлов, извлечённых из архива ZIP.
  Разархивирование выполняется средствами Windows, файлы извлекаются в специально созданную папку в каталоге для временных файлов (C:WINDOWSTemp)
  При запуске макроса папка UNZIPPED FILES сначала удаляется, а потом создаётся заново.
  (таким образом, выполняется удаление файлов, которые могли оказаться в папке при предыдущем…

• Sub ПримерИспользования()
  ‘ задаём полный путь к обрабатываемому файлу
  ПутьКФайлу$ = ThisWorkbook.Path & «» & «Contract.XLS»
   
  Application.ScreenUpdating = False ‘ отключаем обновление экрана
  arr = LoadArrayFromWorkbook(ПутьКФайлу$, «a2», 30) ‘ загружаем данные

  ‘ выводим результаты в окно Immediate
  Debug.Print «…

• 
  Функция LastFile предназначена для поиска самого свежего файла в заданной папке

  (производится поиск файлов по маске, и из найденных файлов выбирается тот, дата последнего изменения которого максимальна)
   
  Пример использования функции:
  Sub ПримерИспользованияФункции_LastFile()
  ‘ Ищем на рабочем столе все файлы TXT, и выводим имя самого нового файла.
  ‘ Просматриваются папки с…

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

  Основное применение функции — сохранение небольших файлов (в основном, графических — иконок и маленьких картинок) в книге Excel.

  Для того, чтобы…

• Данная функция формирует (создаёт) новую книгу Excel с одним листом (на основании шаблона — листа sh_template), после чего сохраняет новый файл по пути NewFilename$
  Если путь не указан, сохранения нового файла не происходит.
  Function NewWorksheet(ByRef sh_template As Worksheet, Optional ByVal NewFilename$) As Worksheet
  Application.ScreenUpdating = False: On Error Resume Next: Err.Clear…

• 

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

  Доверенность (doc)

  Заявление на…

• Функции WIF и RIF являются обёртками для WinAPI функций WritePrivateProfileString и GetPrivateProfileString, и предназначены для записи и чтения параметров из файлов конфигурации INI.
  INI-файлы — это обычные текстовые файлы, предназначенные для хранения настроек программ.
  Примерный вид структуры INI -файла:

  ; комментарий
  [Section1]
  var1 = значение_1
  var2 = значение_2
  [access]
  changed=02.06…

• 

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

• 

  
  Программа предназначена для объединения однотипных отчётов, сформированных программой 1С
  Обрабатываемые отчёты (файлы Excel) хранятся в одной папке, и имеют структуру, изображенную на скриншоте:

  В итоговой таблице, загруженные строки группируются (объединяются) при совпадении значений в 2 полях — «модель» и «название»,
  при этом количество в объединяемых…

• 

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

  Выбор папки с данными по всем компьютерам…

• 

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

• 

  
  Программа предназначена для формирования коммерческих предложений по наружной рекламе.
  В качестве исходных данных выступает файл Excel со списком рекламных объектов.

  Список объектов должен содержать следующую информацию (в отдельных столбцах):

  адрес рекламной конструкции (щита)

  сторона рекламного щита или перетяжки (А, Б, В, и т.п.)

  ссылки на фото и карту рекламной конструкции
  (…

• 
  Вашему вниманию предлагается шестнадцатеричный редактор HexEdit.
  Для чего нужен шестнадцатеричный редактор?
  Для просмотра и корректировки любой информации, содержащейся в файлах.
  Кому это может быть нужно и при каких обстоятельствах?
  Например, тому, кто хочет заглянуть внутрь файла (любой структуры) и что-либо найти (и поправить). НехEdit будет особенно полезен в тех случаях, когда политика…

• Данный код выводит список полных путей файлов, выбранных пользователем в диалоговом окне, отсортированный по дате создания файла:
  Function GetFilenamesCollection(Optional ByVal Title As String = «Выберите файлы для обработки», _
  Optional ByVal InitialPath As String = «c:») As FileDialogSelectedItems
  ‘ функция выводит диалоговое окно выбора…

• 

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

  путь к стартовой папке (обязательный параметр)
  Макрос начинает составлять список файлов и папок, начиная с заданной…

Презентация

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

Навыки MOS 77-420

Теория:

Создание рабочих книг. Открытие и сохранение книги

Видеоверсия

Текстовая версия

Навигация по рабочим листам и книгам

Видеоверсия

Текстовая версия

Управление рабочими листами

Видеоверсия

Текстовая версия

Поиск и замена данных

Видеоверсия

Текстовая версия

Флешкарты

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

Практика

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

Задание 1. Работа с существующей книгой и листами

Задание 2. Приобретение навыков навигации по рабочим листам книги

Задание 3. Приобретение навыков управления рабочими листами книги

Задание 4. Групповая работа с листами в книге

Тест

Полезное

Одновременный ввод данных на несколько листов в Excel

Секреты поиска в Excel