Изучение языка i в excel

Многие из вас уже знакомы с программой Excel от Microsoft, но используете ли вы ее по полной? Применяете ли вы в своей работе популярные функции или сводные таблицы? Создаете ли вы макросы для автоматизации своих действий? Действительно ли вы считаете себя опытным пользователем Excel, как это сейчас принято писать в резюме?

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

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

Я расскажу вам, как делить данные в ячейках по разным столбцам и как создать выпадающий список. Вам будет нелишним узнать о полезной функции анализа «Что Если». Вы наконец-то научитесь применять популярные функции ЕСЛИ и ВПР в своей работе. Научитесь создавать сводные таблицы и создавать макросы для автоматизации ваших повторяющихся действий. Кстати, более углубленные знания в этом направлении, вы можете получить в платном курсе «Excel и Google-таблицы: от новичка до эксперта».

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

Урок 1. Меню и вкладки в Excel

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

Урок 2. Понимание книг и рабочих листов, строка состояния. Добавление и удаление строк и столбцов

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

Урок 3. Изучение методов ввода и редактирования данных. Шаблоны Excel и заметки

Ввод данных — одно из самых основных действий, которые мы делаем в Excel, но есть некоторые правила, некоторые концепции, с которыми вам следует ознакомиться. Этим мы и займемся в нашем третьем уроке.

Урок 4. Создание и копирование простых формул в Excel

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

Урок 5. Комбинированный подсчет, вычисление процентов, закрепить ячейку в формуле excel ($)

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

Урок 6. Функции СУММ, СРЕДНЕЕ, РАНГ, НАИБОЛЬШИЙ

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

Урок 7. Регулирование размера строк и столбцов, объединение ячеек, перенос записи, выравнивание и работа с границами

Сегодня мы разберем способы форматирования рабочей области Excel. Я предполагаю, что вы уже знакомы с некоторыми продуктами Microsoft Office, как, например, Word, поэтому я не буду рассматривать те функции, с которыми вы, скорее всего, уже знаете.

Урок 8. Числовой и финансовый формат. Даты и условное форматирование

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

Урок 9. Создание и форматирование таблицы. Фильтрация и срезы в Excel

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

Урок 10. Работа с фигурами, добавление рисунков и схемы SmartArt в Excel

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

Урок 11. Копирование и перенос строк таблицы, скрытие строк и столбцов. Найти и заменить в Excel

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

Урок 12. Как сделать диаграмму в excel

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

Урок 13. Форматирование диаграмм, Спарклайны, Гистограмма и диаграмма Парето в Excel

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

Урок 14. Как закрепить строку, разделить таблицу, и функция «группировать»  

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

Урок 15. Как перемещаться между книгами Excel и упорядочить несколько окон

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

Урок 16. Создание, копирование и группировка рабочих листов Excel

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

Урок 17. Как посчитать данные из разных листов и файлов в Excel

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

Урок 18. Сортировка и фильтрация данных в Excel

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

Урок 19. Как разделить текст в ячейке excel по столбцам. Удаление дубликатов

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

Урок 20. Проверка значений и как сделать выпадающий список в excel

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

Урок 21. Применение функции анализа «Что Если»

Сегодня мы рассмотрим полезную функцию Excel под названием «Анализ Что Если». Она будет вам полезна не только для подсчета финансовой деятельности предприятия, но и для собственных финансовых планов.

Урок 22. Функция ЕСЛИ в Excel. Подробное объяснение с примерами

Одна из самых мощных функций Excel называется функцией ЕСЛИ. По своей природе она почти похожа на программирование и открывает двери для другого образа мышления. Функция ЕСЛИ – это условная функция. Она позволяет нам давать несколько ответов в зависимости от условия. 

Урок 23. Функция ВПР в Excel. Подробное объяснение с примерами

Здесь мы рассмотрим очередную мощную функцию Excel, которая называется ВПР. В прошлом уроке мы рассматривали функцию ЕСЛИ, где мы задавали условие и, в зависимости от значения, программа предоставляла результат. Функция ВПР ищет значение в заданной области и предоставляет результат, который наиболее совместим с каким-нибудь заданным параметром.

Урок 24. Функции СЧЁТЕСЛИ и СУММЕСЛИ в Excel

Сегодня будет короткий урок, где мы закончим разбирать популярные функции Excel и рассмотрим две сразу: СЧЁТЕСЛИ и СУММЕСЛИ.

Урок 25. Как сделать сводную таблицу в Excel и манипулировать ее данными

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

Урок 26. Группировка и фильтры в сводной таблице excel. Сводные диаграммы.

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

Урок 27. Создание простых макросов в Excel

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

Урок 28. Как защитить рабочий лист или книгу и поделиться файлом Excel

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

Урок 29. Как печатать страницы и заголовки на каждой странице. Как вставить колонтитул в excel

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

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

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

Инструкция по работе в Excel

Книга Excel состоит из листов. Лист – рабочая область в окне. Его элементы:

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

Значения могут быть числовыми, текстовыми, денежными, процентными и т.д. Чтобы установить/сменить формат, щелкаем по ячейке правой кнопкой мыши, выбираем «Формат ячеек». Или жмем комбинацию горячих клавиш CTRL+1.

Для числовых форматов можно назначить количество десятичных знаков.

Примечание. Чтобы быстро установить числовой формат для ячейки — нажмите комбинацию горячих клавиш CTRL+SHIFT+1.

Для форматов «Дата» и «Время» Excel предлагает несколько вариантов изображения значений.

Отредактируем значение ячеек:

1. Щелкнем по ячейке со словом левой кнопкой мыши и введем число, например. Нажимаем ВВОД. Слово удаляется, а число остается.
2. Чтобы прежнее значение осталось, просто изменилось, нужно щелкнуть по ячейке два раза. Замигает курсор. Меняем значение: удаляем часть текста, добавляем.



3. Отредактировать значения можно и через строку формул. Выделяем ячейку, ставим курсор в строку формул, редактируем текст (число) – нажимаем Enter.

Для удаления значения ячейки используется кнопка Delete.

Чтобы переместить ячейку со значением, выделяем ее, нажимаем кнопку с ножницами («вырезать»). Или жмем комбинацию CTRL+X. Вокруг ячейки появляется пунктирная линия. Выделенный фрагмент остается в буфере обмена.

Ставим курсор в другом месте рабочего поля и нажимаем «Вставить» или комбинацию CTRL+V.

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

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

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

Чтобы выделить столбец, нажимаем на его имя (латинскую букву). Для выделения строки – на цифру.

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

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

Чтобы сохранить ширину столбца, но увеличить высоту строки, нажимаем на ленте кнопок «Перенос текста».

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

Объединим несколько ячеек: выделим их и нажмем кнопку «Объединить и поместить в центре».

В Excel доступна функция автозаполнения. Вводим в ячейку А2 слово «январь». Программа распознает формат даты – остальные месяцы заполнит автоматически.

Цепляем правый нижний угол ячейки со значением «январь» и тянем по строке.

Апробируем функцию автозаполнения на числовых значениях. Ставим в ячейку А3 «1», в А4 – «2». Выделяем две ячейки, «цепляем» мышью маркер автозаполнения и тянем вниз.

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

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

Таким же способом можно копировать строки.

Удалим столбец: выделим его – правой кнопкой мыши – «Удалить». Или нажав комбинацию горячих клавиш: CTRL+»-«(минус).

Чтобы вставить столбец, выделяем соседний справа (столбец всегда вставляется слева), нажимаем правую кнопку мыши – «Вставить» — «Столбец». Комбинация: CTRL+SHIFT+»=»

Чтобы вставить строку, выделяем соседнюю снизу. Комбинация клавиш: SHIFT+ПРОБЕЛ чтобы выделить строку и нажимаем правую кнопку мыши – «Вставить» — «Строку» (CTRL+SHIFT+»=»)(строка всегда вставляется сверху).



Как работать в Excel: формулы и функции для чайников

Чтобы программа воспринимала вводимую в ячейку информацию как формулу, ставим знак «=». Например, = (2+3)*5. После нажатия «ВВОД» Excel считает результат.

Последовательность вычисления такая же, как в математике.

Формула может содержать не только числовые значения, но и ссылки на ячейки со значениями. К примеру, =(A1+B1)*5, где А1 и В1 – ссылки на ячейки.

Чтобы скопировать формулу на другие ячейки, необходимо «зацепить» маркер автозаполнения в ячейке с формулой и протянуть вниз (в сторону – если копируем в ячейки строки).

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

Чтобы сделать ссылку абсолютной (постоянной) и запретить изменения относительно нового адреса, ставится знак доллара ($).

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

Значительно расширяют функционал программы встроенные функции. Чтобы вставить функцию, нужно нажать кнопку fx (или комбинацию клавиш SHIFT+F3). Откроется окно вида:

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

Когда функция выбрана, нажимаем ОК. Откроется окно «Аргументы функции».

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

Excel распознает и другой способ введения функции. Ставим в ячейку знак «=» и начинаем вводить название функции. Уже после первых символов появится список возможных вариантов. Если навести курсор на какой-либо из них, раскроется подсказка.

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

Аргумент функции КОРЕНЬ – ссылка на ячейку A1:

ВВОД – программа нашла квадратный корень из числа 40.

Время на прочтение
7 мин

Количество просмотров 312K

Приветствую всех.

В этом посте я расскажу, что такое VBA и как с ним работать в Microsoft Excel 2007/2010 (для более старых версий изменяется лишь интерфейс — код, скорее всего, будет таким же) для автоматизации различной рутины.

VBA (Visual Basic for Applications) — это упрощенная версия Visual Basic, встроенная в множество продуктов линейки Microsoft Office. Она позволяет писать программы прямо в файле конкретного документа. Вам не требуется устанавливать различные IDE — всё, включая отладчик, уже есть в Excel.

Еще при помощи Visual Studio Tools for Office можно писать макросы на C# и также встраивать их. Спасибо, FireStorm.

Сразу скажу — писать на других языках (C++/Delphi/PHP) также возможно, но требуется научится читать, изменять и писать файлы офиса — встраивать в документы не получится. А интерфейсы Microsoft работают через COM. Чтобы вы поняли весь ужас, вот Hello World с использованием COM.

Поэтому, увы, будем учить Visual Basic.

Чуть-чуть подготовки и постановка задачи

Итак, поехали. Открываем Excel.

Для начала давайте добавим в Ribbon панель «Разработчик». В ней находятся кнопки, текстовые поля и пр. элементы для конструирования форм.

Появилась вкладка.

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

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

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

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

Кодим

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

И вот мы в среде разработки VB. Также её можно вызвать из контекстного меню командой «Исходный текст»/«View code».

Перед вами окно с заглушкой процедуры. Можете его развернуть. Код должен выглядеть примерно так:

Sub FormatPrice()End Sub

Напишем Hello World:

Sub FormatPrice()
    MsgBox "Hello World!"
End Sub

И запустим либо щелкнув по кнопке (предварительно сняв с неё выделение), либо клавишей F5 прямо из редактора.

Тут, пожалуй, следует отвлечься на небольшой ликбез по поводу синтаксиса VB. Кто его знает — может смело пропустить этот раздел до конца. Основное отличие Visual Basic от Pascal/C/Java в том, что команды разделяются не ;, а переносом строки или двоеточием (:), если очень хочется написать несколько команд в одну строку. Чтобы понять основные правила синтаксиса, приведу абстрактный код.

Примеры синтаксиса

' Процедура. Ничего не возвращает
' Перегрузка в VBA отсутствует
Sub foo(a As String, b As String)
    ' Exit Sub ' Это значит "выйти из процедуры"
    MsgBox a + ";" + b
End Sub' Функция. Вовращает Integer
Function LengthSqr(x As Integer, y As Integer) As Integer
    ' Exit Function
    LengthSqr = x * x + y * y
End FunctionSub FormatPrice()
    Dim s1 As String, s2 As String
    s1 = "str1"
    s2 = "str2"
    If s1 <> s2 Then
        foo "123", "456" ' Скобки при вызове процедур запрещены
    End IfDim res As sTRING ' Регистр в VB не важен. Впрочем, редактор Вас поправит
    Dim i As Integer
    ' Цикл всегда состоит из нескольких строк
    For i = 1 To 10
        res = res + CStr(i) ' Конвертация чего угодно в String
        If i = 5 Then Exit For
    Next iDim x As Double
    x = Val("1.234") ' Парсинг чисел
    x = x + 10
    MsgBox xOn Error Resume Next ' Обработка ошибок - игнорировать все ошибки
    x = 5 / 0
    MsgBox xOn Error GoTo Err ' При ошибке перейти к метке Err
    x = 5 / 0
    MsgBox "OK!"
    GoTo ne

Err:
    MsgBox 

"Err!"

ne:

On Error GoTo 0 ' Отключаем обработку ошибок

    ' Циклы бывает, какие захотите
    Do While True
        Exit DoLoop 'While True
    Do 'Until False
        Exit Do
    Loop Until False
    ' А вот при вызове функций, от которых хотим получить значение, скобки нужны.
    ' Val также умеет возвращать Integer
    Select Case LengthSqr(Len("abc"), Val("4"))
    Case 24
        MsgBox "0"
    Case 25
        MsgBox "1"
    Case 26
        MsgBox "2"
    End Select' Двухмерный массив.
    ' Можно также менять размеры командой ReDim (Preserve) - см. google
    Dim arr(1 to 10, 5 to 6) As Integer
    arr(1, 6) = 8Dim coll As New Collection
    Dim coll2 As Collection
    coll.Add "item", "key"
    Set coll2 = coll ' Все присваивания объектов должны производится командой Set
    MsgBox coll2("key")
    Set coll2 = New Collection
    MsgBox coll2.Count
End Sub

Грабли-1. При копировании кода из IDE (в английском Excel) есь текст конвертируется в 1252 Latin-1. Поэтому, если хотите сохранить русские комментарии — надо сохранить крокозябры как Latin-1, а потом открыть в 1251.

Грабли-2. Т.к. VB позволяет использовать необъявленные переменные, я всегда в начале кода (перед всеми процедурами) ставлю строчку Option Explicit. Эта директива запрещает интерпретатору заводить переменные самостоятельно.

Грабли-3. Глобальные переменные можно объявлять только до первой функции/процедуры. Локальные — в любом месте процедуры/функции.

Еще немного дополнительных функций, которые могут пригодится: InPos, Mid, Trim, LBound, UBound. Также ответы на все вопросы по поводу работы функций/их параметров можно получить в MSDN.

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

Кодим много и под Excel

В этой части мы уже начнём кодить нечто, что умеет работать с нашими листами в Excel. Для начала создадим отдельный лист с именем result (лист с данными назовём data). Теперь, наверное, нужно этот лист очистить от того, что на нём есть. Также мы «выделим» лист с данными, чтобы каждый раз не писать длинное обращение к массиву с листами.

Sub FormatPrice()
    Sheets("result").Cells.Clear
    Sheets("data").Activate
End Sub

Работа с диапазонами ячеек

Вся работа в Excel VBA производится с диапазонами ячеек. Они создаются функцией Range и возвращают объект типа Range. У него есть всё необходимое для работы с данными и/или оформлением. Кстати сказать, свойство Cells листа — это тоже Range.

Примеры работы с Range

Sheets("result").Activate
Dim r As Range
Set r = Range("A1")
r.Value = "123"
Set r = Range("A3,A5")
r.Font.Color = vbRed
r.Value = "456"
Set r = Range("A6:A7")
r.Value = "=A1+A3"

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

1. Считали группы из очередной строки.
2. Пробегаемся по всем группам в порядке приоритета (вначале более крупные)
   1. Если текущая группа не совпадает, вызываем процедуру AddGroup(i, name), где i — номер группы (от номера текущей до максимума), name — её имя. Несколько вызовов необходимы, чтобы создать не только наш заголовок, но и всё более мелкие.
3. После отрисовки всех необходимых заголовков делаем еще одну строку и заполняем её данными.

Для упрощения работы рекомендую определить следующие функции-сокращения:

Function GetCol(Col As Integer) As String
    GetCol = Chr(Asc("A") + Col)
End FunctionFunction GetCellS(Sheet As String, Col As Integer, Row As Integer) As Range
    Set GetCellS = Sheets(Sheet).Range(GetCol(Col) + CStr(Row))
End FunctionFunction GetCell(Col As Integer, Row As Integer) As Range
    Set GetCell = Range(GetCol(Col) + CStr(Row))
End Function

Далее определим глобальную переменную «текущая строчка»: Dim CurRow As Integer. В начале процедуры её следует сделать равной единице. Еще нам потребуется переменная-«текущая строка в data», массив с именами групп текущей предыдущей строк. Потом можно написать цикл «пока первая ячейка в строке непуста».

Глобальные переменные

Option Explicit ' про эту строчку я уже рассказывал
Dim CurRow As Integer
Const GroupsCount As Integer = 2
Const DataCount As Integer = 3

FormatPrice

Sub FormatPrice()
    Dim I As Integer ' строка в data
    CurRow = 1
    Dim Groups(1 To GroupsCount) As String
    Dim PrGroups(1 To GroupsCount) As String

    Sheets(

"data").Activate
    I = 2
    Do While True
        If GetCell(0, I).Value = "" Then Exit Do
        ' ...
        I = I + 1
    Loop
End Sub

Теперь надо заполнить массив Groups:

На месте многоточия

Dim I2 As Integer
For I2 = 1 To GroupsCount
    Groups(I2) = GetCell(I2, I)
Next I2
' ...
For I2 = 1 To GroupsCount ' VB не умеет копировать массивы
    PrGroups(I2) = Groups(I2)
Next I2
I =  I + 1

И создать заголовки:

На месте многоточия в предыдущем куске

For I2 = 1 To GroupsCount
    If Groups(I2) <> PrGroups(I2) Then
        Dim I3 As Integer
        For I3 = I2 To GroupsCount
            AddHeader I3, Groups(I3)
        Next I3
        Exit For
    End If
Next I2

Не забудем про процедуру AddHeader:

Перед FormatPrice

Sub AddHeader(Ty As Integer, Name As String)
    GetCellS("result", 1, CurRow).Value = Name
    CurRow = CurRow + 1
End Sub

Теперь надо перенести всякую информацию в result

For I2 = 0 To DataCount - 1
    GetCellS("result", I2, CurRow).Value = GetCell(I2, I)
Next I2

Подогнать столбцы по ширине и выбрать лист result для показа результата

После цикла в конце FormatPrice

Sheets("Result").Activate
Columns.AutoFit

Всё. Можно любоваться первой версией.

Некрасиво, но похоже. Давайте разбираться с форматированием. Сначала изменим процедуру AddHeader:

Sub AddHeader(Ty As Integer, Name As String)
    Sheets("result").Range("A" + CStr(CurRow) + ":C" + CStr(CurRow)).Merge
    ' Чтобы не заводить переменную и не писать каждый раз длинный вызов
    ' можно воспользоваться блоком With
    With GetCellS("result", 0, CurRow)
        .Value = Name
        .Font.Italic = True
        .Font.Name = "Cambria"
        Select Case Ty
        Case 1 ' Тип
            .Font.Bold = True
            .Font.Size = 16
        Case 2 ' Производитель
            .Font.Size = 12
        End Select
        .HorizontalAlignment = xlCenter
    End With
    CurRow = CurRow + 1
End Sub

Уже лучше:

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

Поэтому чуть-чуть меняем код с добавлением стиля границ:

Sub AddHeader(Ty As Integer, Name As String)
    With Sheets("result").Range("A" + CStr(CurRow) + ":C" + CStr(CurRow))
        .Merge
        .Value = Name
        .Font.Italic = True
        .Font.Name = "Cambria"
        .HorizontalAlignment = xlCenterSelect Case Ty
        Case 1 ' Тип
            .Font.Bold = True
            .Font.Size = 16
            .Borders(xlTop).Weight = xlThick
        Case 2 ' Производитель
            .Font.Size = 12
            .Borders(xlTop).Weight = xlMedium
        End Select
        .Borders(xlBottom).Weight = xlMedium ' По убыванию: xlThick, xlMedium, xlThin, xlHairline
    End With
    CurRow = CurRow + 1
End Sub

Осталось лишь добится пропусков перед началом новой группы. Это легко:

В начале FormatPrice

Dim I As Integer ' строка в  data
CurRow = 0 ' чтобы не было пропуска в самом начале
Dim Groups(1 To GroupsCount) As String

В цикле расстановки заголовков

If Groups(I2) <> PrGroups(I2) Then
    CurRow = CurRow + 1
    Dim I3 As Integer

В точности то, что и хотели.

Надеюсь, что эта статья помогла вам немного освоится с программированием для Excel на VBA. Домашнее задание — добавить заголовки «ID, Название, Цена» в результат. Подсказка: CurRow = 0 CurRow = 1.

Файл можно скачать тут (min.us) или тут (Dropbox). Не забудьте разрешить исполнение макросов. Если кто-нибудь подскажет человеческих файлохостинг, залью туда.

Спасибо за внимание.

Буду рад конструктивной критике в комментариях.

UPD: Перезалил пример на Dropbox и min.us.

UPD2: На самом деле, при вызове процедуры с одним параметром скобки можно поставить. Либо использовать конструкцию Call Foo(«bar», 1, 2, 3) — тут скобки нужны постоянно.

Денис Зуев Пользователь Сообщений: 71 Регистрация: 02.01.2013

Добрый день. Люди добрые, может кто-нибудь поможет сделать макрос для запоминания англ. слов (предложений). Описание: после вызова макроса появляется форма (см. лист «Пример формы»). В форме 2 поля и 2 кнопки. При нажатии на кн. «Следующее» в верхнем поле  появляется русское предложение, при следующем нажатии этой кнопки в нижнем поле появляется английское предложение. Желательно чтобы русское при этом не уходило, чтобы не забыть какое-либо слово. База находится на 1 странице: в столбце А – русские предложения, в столбце  В – английские. Если предложение знаешь, то жмешь кн. «Следующее», если не знаешь, то жмешь кн. «Не выучил» и невыученные предложения парой (например: рус. из ячейки А2 + анг. из ячейки В2) копируются на другой лист «Не выученное». И, если можно, то сделать шрифт не слишком мелкий (Arial 20 или т.п.), лишь бы длинные предложения умещались в форму. Заранее спасибо и извините, если слишком много хотелок.   Прикрепленные файлы Пример.rar (98.34 КБ) Изменено: Денис Зуев — 23.09.2016 22:15:07 Не серчайте, ежели, что не так сказал…

Kuzmich Пользователь Сообщений: 7998 Регистрация: 21.12.2012	Есть специальный сайт для изучения английского языка Программа для изучения английских слов и выражений — http://enghelp.ru/downloads/602-programma-dlja-izuchenija-anglijjskikh.html Teacher — программа для запоминания английских слов — http://enghelp.ru/downloads/537-teacher-programma-dlja-zapominanija.html и много чего полезного

Денис Зуев Пользователь Сообщений: 71 Регистрация: 02.01.2013

Спасибо. Но в рекомендуемой Вами программе English_Word, можно работать только с готовыми словарями .dat и не вижу возможности работы со своими примерами в формате Ексель (у меня же есть готовые паттерны в Екселе). Также хотелось бы, не выбирать из 5-ти готовых вариантов, а активно вспоминать самому. Ну, а если бы программа могла сохранять трудные слова на отдельном листе, чтобы прорабатывать потом только их — это было значительно ускорило время освоения английского. Можно, конечно, по-старинке: писать карточки вручную, но это занимает много времени. Есть еще «Анки», но она не портабельна поэтому макрос в Ексель был бы идеальным вариантом. p.s. teacher — не пошел на Win 8.1 Изменено: Денис Зуев — 23.09.2016 23:49:59 Не серчайте, ежели, что не так сказал…

JeyCi Пользователь Сообщений: 3357 Регистрация: 27.11.2013

#4 24.09.2016 09:32:49 Цитата Денис Зуев написал: и извините, если слишком много хотелок. извините, что нарушаю Правила Форума ? или что не ознакомился с ними? — зачем извиняться, если можно исправляться?   Количество вопросов вас не смущает? — Цитата Денис Зуев написал: 1) появляется форма (см. лист «Пример формы»). В форме 2 поля и 2 кнопки. 2) При нажатии на кн. «Следующее» в верхнем поле  появляется русское предложение, 3) при следующем нажатии этой кнопки в нижнем поле появляется английское предложение. 4) Если предложение знаешь, то жмешь кн. «Следующее», 5) если не знаешь, то жмешь кн. «Не выучил» 6) невыученные предложения парой (например: рус. из ячейки А2 + анг. из ячейки В2) копируются на другой лист «Не выученное». 7) сделать шрифт не слишком мелкий (Arial 20 или т.п.), на какие вопросы нашли ответы через Поиск? как пробовали применить для своей проблемы? в чём и где возникла проблема? p.s. ищите примеры оформления TextBox и подтягивайте в др. поле с листа — или методом Range().Find, или поиском по массиву, или по словарю, созданному из массива или собранному из ячеек….. или Application.Match Изменено: JeyCi — 13.10.2016 08:13:17 чтобы не гадать на кофейной гуще, кто вам отвечает и после этого не совершать кучу ошибок — обратитесь к собеседнику на ВЫ — ответ на ваш вопрос получите — а остальное вас не касается (п.п.п. на форумах)

Денис Зуев Пользователь Сообщений: 71 Регистрация: 02.01.2013	Вы правы. Нашел, в соседней ветке, на просторах «Планеты Excel», программу для английских слов. Переделал под себя как мог. Осталось решить 2 вопроса: 1.С копированием на другой лист невыученных слов; 2. Отображение ответа не в TextBox, а таком же поле (Label), как и вопрос, чтобы можно было увеличить шрифт. Помогите пож-ста, т.к. VBA не знаю. Не серчайте, ежели, что не так сказал…

Юрий М Модератор Сообщений: 60581 Регистрация: 14.09.2012 Контакты см. в профиле	А в какой момент должен появиться перевод? И Label только из-за того, чтобы увеличить размер шрифта? Но ведь и в ТекстБокс (а не в MsgBox, как сейчас) можно задать нужный размер шрифта.

Денис Зуев Пользователь Сообщений: 71 Регистрация: 02.01.2013

При нажатии на кн. «Следующее» в верхнем поле появляется русское предложение, при следующем нажатии этой же кнопки, в нижнем поле появляется английское предложение (перевод). Желательно чтобы русское при этом не уходило. Label  или ТекстБокс — не принципиально,важен размер шрифта. Но писать в ТекстБоксе не планируется (займет больше времени, а важна скорость повторения), только перебирать предложения с др. листа.   Изменено: Денис Зуев — 24.09.2016 12:06:45 Не серчайте, ежели, что не так сказал…

Юрий М Модератор Сообщений: 60581 Регистрация: 14.09.2012 Контакты см. в профиле	#8 24.09.2016 12:08:39 Так в чём же смысл тестирования? Человек будет просто жать на кнопку «Следующее». Я так понимаю, что в нижнем поле тестируемый должен написать СВОЙ вариант перевода, а потом идёт сравнение. Цитата Денис Зуев написал: Желательно чтобы русское при этом не уходило. А в какой момент русский текст должен исчезнуть?

Юрий М Модератор Сообщений: 60581 Регистрация: 14.09.2012 Контакты см. в профиле	Посмотрите вариант, и скажите, что сейчас не так.

Денис Зуев Пользователь Сообщений: 71 Регистрация: 02.01.2013

Есть файлы с готовыми примерами в Ексель. Смысл проги в том, чтобы показать из базы предложение на русском, быстро вспомнить его на английском и следующим нажатием проверить правильность его воспроизведения. Наработать скорость воспроизведения каждой фразы — до 2-3 сек. Т.е. добиться автоматизма на готовых примерах.   Русский текст данного предложения исчезает как и сейчас, при следующем нажатии кнопки «Следующее». Т.е. нажал — появился только русский текст сверху; нажал — на экране остается русский сверху и появляется англ. снизу; нажал — сверху новое русское предложение (анг. — пусто); нажал — на экране остается  русский сверху и появляется англ. снизу, и т.д. Изменено: Денис Зуев — 24.09.2016 12:33:18 Не серчайте, ежели, что не так сказал…

Юрий М Модератор Сообщений: 60581 Регистрация: 14.09.2012 Контакты см. в профиле

Денис Зуев Пользователь Сообщений: 71 Регистрация: 02.01.2013

#12 24.09.2016 12:37:19 Цитата Юрий М написал: Посмотрите вариант, и скажите, что сейчас не так. Английский сразу видно быть не должно. Я его должен вспомнить сам. А уже потом нажать и проверить: правильно я его помню или нет. Т.к. перевести с на анг. на рус. достаточно легко. А вот обратно воспроизвести фразу уже труднее Изменено: Денис Зуев — 24.09.2016 12:38:40 Не серчайте, ежели, что не так сказал…

Юрий М Модератор Сообщений: 60581 Регистрация: 14.09.2012 Контакты см. в профиле	#13 24.09.2016 12:39:21 Цитата Денис Зуев написал: Английский сразу видно быть не должно. Я его должен вспомнить сам. А уже потом нажать и проверить: правильно я его помню или нет. Сейчас так и происходит: загрузили форму — есть только русский, а английского нет.

Денис Зуев Пользователь Сообщений: 71 Регистрация: 02.01.2013	Извините, сразу не понял. Спасибо большое.   Изменено: Денис Зуев — 24.09.2016 13:15:08 Не серчайте, ежели, что не так сказал…

Юрий М Модератор Сообщений: 60581 Регистрация: 14.09.2012 Контакты см. в профиле	Денис, ну а посмотреть внимательно? ))

Денис Зуев Пользователь Сообщений: 71 Регистрация: 02.01.2013

Извините еще раз. Не посмотрел. Спасибо большущее!!! Теперь изучение английского пойдет гораздо быстрее!!! А можно последнюю просьбу (если конечно реализовать ее не сложно). Можно как-то завершить цикл? Т.е. в базе 20 слов. Можно показывать их по порядку и после программа завершает показ. Просто сейчас не понятно: все слова были показаны из базы или что-то программа не успела показать, а ты завершил просмотр. Изменено: Денис Зуев — 24.09.2016 19:52:29 Не серчайте, ежели, что не так сказал…

Денис Зуев Пользователь Сообщений: 71 Регистрация: 02.01.2013	Добавил цифры перед предложениями. Может так отслеживать еще не показанное будет проще? Хотя если в базе 30 фраз, была показана 27-ая или нет — будет сложно определить.   Изменено: Денис Зуев — 25.09.2016 10:45:55 Не серчайте, ежели, что не так сказал…

Юрий М Модератор Сообщений: 60581 Регистрация: 14.09.2012 Контакты см. в профиле	Я бы немного изменил схему: добавил бы на форму кнопку «Перевести», при нажатию на которую в ТекстБокс мы получали бы перевод. А кнопка «Следующее», как и обычно. Со счётчиком проблема решаема.

Денис Зуев Пользователь Сообщений: 71 Регистрация: 02.01.2013	Ваше решение конечно улучшит программу! Кнопку добавить я смогу, а вот прописать к ней код, знаний не хватает… Не серчайте, ежели, что не так сказал…

Денис Зуев Пользователь Сообщений: 71 Регистрация: 02.01.2013	Добавил кнопку. Немного изменил интерфейс (мне кажется так удобнее). Не серчайте, ежели, что не так сказал…

Юрий М Модератор Сообщений: 60581 Регистрация: 14.09.2012 Контакты см. в профиле	Писал код — не видел Вашего сообщения. Посмотрите мой вариант )

Денис Зуев Пользователь Сообщений: 71 Регистрация: 02.01.2013	Теперь программа стала идеальна! Есть все что нужно. Есть еще светлые головы в России! Спасибо большое за потраченное на меня силы и время. Теперь английский держись!!! Не серчайте, ежели, что не так сказал…

Юрий М Модератор Сообщений: 60581 Регистрация: 14.09.2012 Контакты см. в профиле	Если ТекстБокс заполнять не планируется, то лучше заблокировать его от ввода данных. Или удалить процедуру обработки.

Денис Зуев Пользователь Сообщений: 71 Регистрация: 02.01.2013	Для перебора фраз я думаю это не принципиально. Тем более, что случайное добавление или удаление слова в это поле не влияет ни на базу, ни на копирование невыученных слов.   Не серчайте, ежели, что не так сказал…

Денис Зуев Пользователь Сообщений: 71 Регистрация: 02.01.2013

Заметил одну деталь. Программа берет из базы (например, из 30 шт.) фразы в случайном порядке. Какие-то фразы она покажет 3 раза, какие-то 2 раза и какие-то 1 раз, а несколько шт. — ни разу. Счетчик отсчитает 30 раз и либо выходим, либо продолжаем заниматься. Но может получиться, что какую-либо фразу, программа не покажет и за 2 раза, т.е. она останется не выученной. Не серчайте, ежели, что не так сказал…

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

Денис Зуев Пользователь Сообщений: 71 Регистрация: 02.01.2013	А можно второй вариант, фиг с ним (со случайным перебором). Порядок работы планирую такой: прошел базу, на ее место копируем невыученные слова и добавляем еще новые слова. Поэтому случайный перебор не принципиален. Изменено: Денис Зуев — 25.09.2016 14:30:39 Не серчайте, ежели, что не так сказал…

Юрий М Модератор Сообщений: 60581 Регистрация: 14.09.2012 Контакты см. в профиле

Денис Зуев Пользователь Сообщений: 71 Регистрация: 02.01.2013	Ну теперь вроде все. Спасибо, что не бросили со мной возиться. Надеюсь, что программа пригодиться не только мне, но и другим изучающим английский язык. Не серчайте, ежели, что не так сказал…

Денис Зуев Пользователь Сообщений: 71 Регистрация: 02.01.2013	#30 26.10.2016 21:02:58 Здравствуйте Юрий. А можно еще одну просьбу? Если в ячейке с русской фразой, часть предложения перенесена на другую строку с помощью ALT+Enter, то программа не показывает перевод этой строки в ТекстБоксе (см. приложенный файл). Я так понимаю, дело в последней строке (выделял красным) Код Private Sub CommandButton5_Click() Dim Rng As Range Set Rng = Sheets("List of words").Columns(1).Find(what:=Me.Label2.Caption, LookIn:=xlValues, lookAt:=xlWhole, SearchDirection:=xlPrevious) Можно как-то обойти это или все предложения должны быть только в одну строку? Прикрепленные файлы English Tutor v.3-05.xls (59.5 КБ) Не серчайте, ежели, что не так сказал…

Перейти к содержанию