работа с базами. Excel_5_Работа с базами данных в EXCEL 2007. A1, B1, C1,D1 ввести соответственно Фамилия и инициалы, Должность, Оклад, Зарплата
 Скачать 42.5 Kb.
|
|
Работа с базами данных в EXCEL 2007 В ячейки A1, B1, C1,D1 ввести соответственно Фамилия и инициалы, Должность, Оклад, Зарплата. Выделить эти ячейки и на вкладке Главная в группе Выравнивание выбрать тип выравнивания: по вертикали – Выровнять по середине, по горизонтали – По центру, а затем щёлкнуть на кнопке Перенос текста. При необходимости изменить ширину столбцов, установив указатель мыши в строку заголовков столбцов на их границу (указатель примет форму чёрного креста с двунаправленной горизонтальной стрелкой) и протащив мышь в требуемом направлении (при нажатой левой клавиши). При выделенных ячейках A1 ÷ D1 щёлкнуть на кнопке Форма, расположенной на Панели быстрого доступа, а затем щёлкнуть на кнопке OK (на экране появится форма). Если кнопка Форма отсутствует на Панели быстрого доступа, необходимо выполнить щелчок на кнопке Настройка панели быстрого доступа, из появившегося меню выбрать команду Другие команды, а в окне Параметры Excel из списка Выбрать команды из: выделить команду Все команды и дважды щёлкнуть на кнопке Форма. Ввести в форму данные (кроме поля Зарплата) о первом сотруднике и щёлкнуть на кнопке формы Добавить; причём, переход от одного поля к другому, допустим, от поля Фамилия и инициалы к полю Должность, осуществлять нажатием клавиши [Tab] или щелчком мыши. Ввести с помощью формы данные о 7 – 8 работниках; по окончании ввода данных щёлкнуть на кнопке Закрыть. Ввести в первую ячейку поля Зарплата (ячейка D2) формулу =1,5*C2-0,13*1,5*C2, затем скопировать её вниз. Установить табличный курсор на любую ячейку поля Фамилия и инициалы и на вкладке Данные в группе Сортировка и фильтр щёлкнуть на кнопке Сортировка от А до Я. Установить табличный курсор на любую ячейку таблицы, щёлкнуть на кнопке Сортировка в группе Сортировка и фильтр, в окне Сортировка из списка Сортировать по выбрать поле Должность, щёлкнуть на кнопке Добавить уровень, а в списке Затем по выбрать значение Фамилия и инициалы, после чего щёлкнуть на кнопке ОК. Установить табличный курсор на любую ячейку таблицы, на вкладке Данные в группе Сортировка и фильтр щёлкнуть на кнопке Фильтр, после чего в каждой из ячеек заголовков столбцов появляется кнопка раскрывающегося списка; щёлкнуть на кнопке поля Должность и из списка выбрать требуемое значение этого поля; вновь щёлкнуть на этой кнопке и выбрать другую должность; для появления всех записей после щелчка на данной кнопке поставить флажок параметру (Выделить все). Щёлкнуть на кнопке поля Зарплата, в списке Числовые фильтры выбрать команду Настраиваемый фильтр; в окне Пользовательский автофильтр в верхнем левом окошке выбрать операцию меньше, а в верхнее правое окошко ввести требуемое значение поля Зарплата и щелкнуть на кнопке OK; вновь щёлкнуть на кнопке поля Зарплата и поставить флажок параметру (Выделить все). Отключить фильтр щелчком на кнопке Фильтр. В ячейку, расположенную ниже таблицы, ввести текст Итого, установить табличный курсор в ячейку этой же строки поля Оклад, на вкладке Формулы в группе Библиотека функций щёлкнуть на кнопке Автосумма и нажать на клавишу [Enter]. Аналогичным образом подсчитать фонд заработной платы. Ввести текст Средняя зарплата в ячейку, расположенную под ячейкой со значением Итого, установить табличный курсор в ячейку этой строки поля Зарплата и щелчком на кнопке раскрывающегося списка, расположенной правее кнопки Автосумма, выбрать из списка операцию Среднее; методом протаскивания мыши выделить диапазон ячеек со значениями поля Зарплата и нажать на клавишу [Enter]. Скопировать таблицу на другой лист. Установить табличный курсор на любую ячейку поля Должность скопированной таблицы и на вкладке Данные в группе Сортировка и фильтр щёлкнуть на кнопке Сортировка от А до Я. В группе Структура вкладки Данные выполнить щелчок на кнопке Промежуточные итоги. В появившемся диалоговом окне Промежуточные итоги в поле При каждом изменении в: выбрать значение Должность, в поле Операция: - команду Среднее, а в поле Добавить итоги по: установить флажок полю Зарплата и щёлкнуть на кнопке OK. Перейти к первоначальной таблице и установить табличный курсор за пределы таблицы, активизировать вкладку Вид, щёлкнуть на кнопке раскрывающегося списка, расположенной на кнопке Макросы, и выбрать команду Запись макроса. В окне Запись макроса при необходимости задать имя макроса, допустим, Должность (по умолчанию система формирует имена автоматически: Макрос1, Макрос2 и т.д.) и щелкнуть на кнопке OK (Все дальнейшие действия пользователя, в том числе и ошибочные, будут запомнены системой, пока пользователь не остановит запись макроса щелчком на кнопке раскрывающегося списка Макросыи выборе команды Остановить запись). Переместить табличный курсор в любую ячейку таблицы, перейти на вкладку Данные, в группе Сортировка и фильтр щёлкнуть на кнопке Фильтр, а затем щёлкнуть на кнопке поля Должность и из списка выбрать требуемое значение этого поля, допустим, мастер. После выполнения этих операций (выбор работников заданной должности), описанных в п.10, необходимо перейти на вкладку Вид, щёлкнуть на кнопке раскрывающегося списка Макросы и выполнить команду Остановить запись. Перейти на вкладку Данные и щёлкнуть на кнопке Фильтр (таблица примет первоначальный вид). Активизировать вкладку Вставить и создать на листе фигуру, допустим, прямоугольник; написать в прямоугольнике текст Должность; щелкнуть правой клавишею мыши на фигуре и в появившемся контекстном меню выбрать команду Назначить макрос. В окне Назначить макрос объекту выделить имя макроса Должность и щёлкнуть на кнопке OK (на экран будет выведен список сотрудников выбранной должности). Щёлкнуть на кнопке Фильтр, расположенной на вкладке Данные. Перейти на вкладку Вид, выполнить щелчок на кнопке Макросы, в появившемся диалоговом окне Макрос выделить имя созданного макроса Должность и щёлкнуть на кнопке Войти, после чего на экран выводится макрос (код программы, автоматически написанный на языке Visual Basic for Application так называемым макрорекордером). Отредактировать макрос, заменив строку ActiveSheet.Range("$A$1:$D$4").AutoFilter Field:=2, Criteria1:="мастер" на строку ActiveSheet.Range("$A$1:$D$4").AutoFilter Field:=2, Criteria1:=InputBox("Введите название должности") (ввели ключевое слово InputBox, а в круглые скобки вставили текст "Введите название должности" вместо текста "мастер"; функция InputBox() позволяет вводить данные). Закрыть окно Microsoft Visual Basic и щёлкнуть на кнопке OK. Выполнить щелчок на сформированной кнопке Должность, расположенной на листе, а в окне с надписью Введите название должности указать выбранную должность; проделать аналогичную операцию для выбора другой должности. |