Формирование списка улиц, ширина проезжей части которых не менее запрашиваемой величины

Для этого необходимо:

1. Табличный курсор поместить внутрь таблицы и выполнить команду: «данные– фильтр- автофильтр», при этом в каждой ячейке строки заголовка появляются кнопки раскрывающегося списка.

2. Раскрываем поле списка «Ширина», выбираем команду «Условие», и появляется окно пользовательского автофильтра, в котором вводим условие и мощность.

Получаем:

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

Для этого выполняем действия:

1. Выполняем команду ДАННЫЕ – ФИЛЬТР- АВТОФИЛЬТР, при этом в каждой ячейке строки заголовка появляются кнопки раскрывающегося списка.

2. Раскрываем поле списка «СпецАвтотранс», выбираем нужныйпредприятие.

Получаем:

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

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

В итоге получим:

Формирование отчета, включающего информацию об улицах, имеющих контактную сеть для троллейбусов.

1.Выполняем команду ДАННЫЕ – ФИЛЬТР- АВТОФИЛЬТР, при этом в каждой ячейке строки заголовка появляются кнопки раскрывающегося списка.

3. Раскрываем поле списка «Контактная сеть», выбираем пункт «есть».

Получаем:

Создание макроса с помощью макрорекордера.

Макрос представляет собой программу записи на встроенные в Excel языки VBA.

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

1. Табличный курсор поместить внутрь таблицы.

2. Выполнить команду СЕРВИС – МАКРОС – НАЧАТЬ ЗАПИСЬ. В диалоговом окне запись макроса можно задать имя макроса и затем щелкнуть по кнопке ОК.

3. Затем макрорекордер начнет запись макроса до тех пор, пока затем щелкнуть по кнопке ОСТАНОВИТЬ

Замечание: в некоторых случаях панель с кнопкой ОСТАНОВИТЬ может не появляется тогда надо выполнить команду СЕРВИС- МАКРОС – ОСТАНОВИТЬ .

Между пунктами 3 и 4 выполнить действия по созданию диаграммы.

Код макроса:

Sub Макрос1()

'

' Макрос1 Макрос

' Макрос записан 20.05.2005

'

'

Charts.Add

ActiveChart.ChartType = xl3DPieExploded

ActiveChart.SetSourceData Source:=Sheets("Таблица").Range("A1:B11"), PlotBy _

:=xlColumns

ActiveChart.Location Where:=xlLocationAsObject, Name:="Таблица"

End Sub