Функция дсрзнач
Запишем макрос для нахождения среднего количества проданных фруктов в течение одного дня. Дату будем вводить через диалоговое окно InputBox.
Действия пользователя следующие:
Выбрать команду Сервис/Макрос/Начать запись. Задать имя «функции_ДСРЗНАЧ»
Установить курсор в ячейку С2 и ввести с клавиатуры любое наименование фрукта, которое есть в таблице, например, апельсины
Установить курсор в ячейку J15 и выбрать команду Вставка/Функция. В появившемся окне из списка «Категория» выбрать «Работа с базой данных», а затем – функцию ДСРЗНАЧ.
В появившемся окне ввести следующие параметры:
Для создания диалогового окна изменим текст макроса. Нужно выбрать команду Сервис/Макрос/Макросы/функции_ДСРЗНАЧ и нажать кнопку «Войти».
В строке макроса:
ActiveCell.FormulaR1C1 = "01.10.11"
Внести изменения:
ActiveCell.FormulaR1C1 = InputBox("Введите дату")
Свяжем соответствующую кнопку с макросом ДСРЗНАЧ. При нажатии на эту кнопку будет выводиться диалоговое окно:
Функция бдсумм
Запишем макрос для нахождения суммы продаж фруктов в течение одного дня. Дату будем вводить через диалоговое окно InputBox.
Действия пользователя следующие:
Выбрать команду Сервис/Макрос/Начать запись. Задать имя «функции_БДСУММ»
Установить курсор в ячейку С2 и ввести с клавиатуры любое наименование фрукта, которое есть в таблице, например, апельсины
Установить курсор в ячейку J17 и выбрать команду Вставка/Функция. В появившемся окне из списка «Категория» выбрать «Работа с базой данных», а затем – функцию БДСУММ.
В появившемся окне ввести следующие параметры:
Для создания диалогового окна изменим текст макроса. Нужно выбрать команду Сервис/Макрос/Макросы/функции_БДСУММ и нажать кнопку «Войти».
В строке макроса:
ActiveCell.FormulaR1C1 = "01.10.07"
Внести изменения:
ActiveCell.FormulaR1C1 = InputBox("Введите дату")
Свяжем соответствующую кнопку с макросом БДСУММ. При нажатии на эту кнопку будет выводиться диалоговое окно:
Функция бсчет
Запишем макрос для нахождения количества строк на определенную сумму, задаваемую с помощью условия, которое будем вводить через диалоговое окно InputBox.
Действия пользователя следующие:
Выбрать команду Сервис/Макрос/Начать запись. Задать имя «функции_БСЧЕТ»
Установить курсор в ячейку G2 и ввести с клавиатуры любое наименование фрукта, которое есть в таблице, например, апельсины
Установить курсор в ячейку G8 и выбрать команду Вставка/Функция. В появившемся окне из списка «Категория» выбрать «Работа с базой данных», а затем – функцию БСЧЕТ.
В появившемся окне ввести следующие параметры:
Для создания диалогового окна изменим текст макроса. Нужно выбрать команду Сервис/Макрос/Макросы/функции_БСЧЕТ и нажать кнопку «Войти».
В строке макроса:
ActiveCell.FormulaR1C1 = ">1000"
Внести изменения:
ActiveCell.FormulaR1C1 = InputBox("Введите условие для суммы")
Свяжем соответствующую кнопку с макросом БСЧЕТ. При нажатии на эту кнопку будет выводиться диалоговое окно:
