Универсальные калькуляторы

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

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

После того, как активизировали работу макросов, переходите во вкладку «Разработчик». Жмите на иконку Visual Basic, которая размещена на ленте в блоке инструментов «Код» (рис. 1).

Запускайте окно редактора VBA. Если центральная область отобразилась серым, а не белым цветом, это означает, что нет поля для введения кода. Чтобы включить его отображение, перейдите в пункт меню View и нажмите Code. А можно нажать функциональную клавишу F7 – появится поле для ввода кода (рис. 2).

В центральной области нужно записать код макроса (рис. 3).  Код имеет вид:
Sub Calculator()
Dim strExpr As String
' Введение данных для расчета
strExpr = InputBox("Введите данные")
' Вычисление результата
MsgBox strExpr & " = " & Application.Evaluate(strExpr)
End Sub

Вместо «Введите данные» можете записать любое удобное название. Оно будет располагаться над полем введения выражения. 

После того как ввели код, запишите файл. Его следует сохранить в формате с поддержкой макросов. Жмите на иконку в виде дискеты на панели инструментов редактора VBA. Запустится окно сохранения документа. Переходите туда, где хотите его сохранить, и в поле «Имя файла» присвойте имя документа. В поле «Тип файла» выберите формат «Книга Excel с поддержкой макросов (*.xlsm)» (рис. 4). После этого нажмите «Сохранить» в нижней части окна.

Чтобы запустить вычислительный инструмент при помощи макроса, находясь во вкладке «Разработчик», нажмите значок «Макросы» на ленте в блоке инструментов «Код». Запустится окно макросов, в котором выберите наименование макроса, который только что создали, выделите его и нажмите «Выполнить» (рис. 5).

Как выполнить вычисление. Чтобы произвести в калькуляторе вычисление, запишите в поле необходимое действие. После того как выражение ввели, нажмите на «OK» (рис. 6). Далее на экране появляется небольшое окошко с ответом. Чтобы его закрыть, жмите на «OK» (рисунок 7).

Как упростить вычисления. Неудобно переходить в окно макросов каждый раз, когда требуются вычисления. Упростим запуск окна вычислений. Во вкладке «Разработчик» щелкайте по иконке «Макросы». В окне макросов выберите наименование нужного объекта. Щелкайте по кнопке «Параметры…» (рис. 8).

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

Первую клавишу сочетания задает сама программа Excel. Это клавиша Ctrl. Следующую клавишу задает пользователь. Пусть это будет клавиша V (хотя вы можете выбрать и другую). Если данная клавиша уже используется программой, то будет автоматически добавлена еще одна клавиша в комбинацию – Shift. Впишите выбранный символ в поле «Сочетание клавиш» и нажмите на «OK». Затем закройте окно макросов.

Теперь при наборе выбранной комбинации горячих клавиш (в нашем случае Ctrl+Shift+V) будет запускаться окно калькулятора. Это быстрее и проще, чем каждый раз вызывать его через окно макросов.

Узкопрофильные калькуляторы

Узкопрофильный калькулятор выполняет специфические задачи. Чтобы создать этот инструмент, будем применять встроенные функции Excel. Для примера создадим инструмент конвертации величин массы. Для этого используйте функцию «ПРЕОБР». Синтаксис данной функции:

=ПРЕОБР(число;исх_ед_изм;кон_ед_изм)

• «Число» – это аргумент, имеющий вид числового значения той величины, которую надо конвертировать в другую меру измерения.
• «Исходная единица измерения» – аргумент, который определяет единицу измерения величины, подлежащей конвертации. Его задает специальный код, который соответствует определенной единице измерения.
• «Конечная единица измерения» – аргумент, определяющий единицу измерения той величины, в которую преобразуется исходное число. Он также задается с помощью специальных кодов.

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

• g – грамм;
• kg – килограмм;
• mg – миллиграмм;
• lbm – английский фунт;
• ozm – унция;
• sg – слэг;
• u – атомная единица.

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

• Конвертируемая величина;
• Исходная единица измерения;
• Результат конвертации;
• Конечная единица измерения.

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

В поля «Конвертируемая величина», «Исходная граница измерения» и «Конечная граница измерения» вы будете вводить данные, а в поле «Результат конвертации» – выводить конечный результат. Сделайте так, чтобы в поле «Конвертируемая величина» пользователь мог вводить только допустимые значения – числа больше нуля. Выделите ячейку, в которую будет вноситься преобразуемая величина, перейдите во вкладку «Данные» и в блоке инструментов «Работа с данными» кликните по значку «Проверка данных» (рис. 10).

Запускается окошко инструмента «Проверка данных». Выполним настройки во вкладке «Параметры». В поле «Тип данных» из списка выберите параметр «Действительное». В поле «Значение» выберите «Больше». В поле «Минимум» установите значение 0. В данную ячейку можно будет вводить только действительные числа (включая дробные), которые больше нуля (рис. 11).

Перемещайтесь во вкладку того же окна «Сообщение для ввода». Тут можно дать пояснение, что именно нужно вводить пользователю. Пользователь увидит пояснение, когда выделит ячейки ввода величины. В поле «Сообщение» напишите: «Введите величину массы, которую следует преобразовать» (рис. 12).

Перемещайтесь во вкладку «Сообщение об ошибке». В поле «Сообщение» напишите рекомендацию, которую увидит пользователь, если введет некорректные данные. Напишите: «Вводимое значение должно быть положительным числом». Чтобы завершить работу в окне проверки вводимых значений и сохранить введенные настройки, жмите на кнопку «OK» (рис. 13). При выделении ячейки появляется подсказка для ввода (рисунок 14).

Попробуйте ввести некорректное значение, например текст или отрицательное число. Появляется сообщение об ошибке и ввод блокируется. Жмите на кнопку  «Отмена» (рис. 15).

Переходите к полю «Исходная единица измерения». Сделайте так, чтобы пользователь выбирал значение списка из семи величин массы, перечень которых был выше при описании аргументов функции «ПРЕОБР». Ввести другие значения не получится (рис. 16).

Выделите ячейку «Исходная единица измерения». Кликайте по иконке «Проверка данных». В открывшемся окне переходите во вкладку «Параметры». В поле «Тип данных» установите параметр «Список». В поле «Источник» через точку с запятой (;) перечислите коды наименований величин массы для функции «ПРЕОБР», о которых шел разговор выше. Далее жмите на «OK» (рис. 17).

Если выделить поле «Исходная единица измерения», справа от него возникает пиктограмма в виде треугольника. При клике по ней открывается список с наименованиями единиц измерения массы (рис. 18).

Аналогичную процедуру в окне «Проверка данных» проведите с ячейкой «Конечная единица измерения». В ней получается такой же список единиц измерения. После этого переходите к ячейке «Результат конвертации». В ней – функция «ПРЕОБР» и выводится результат вычисления. Выделите данный элемент листа и нажмите на пиктограмму «Вставить функцию» (рис. 19).

Запускается мастер функций. Перейдите в категорию «Инженерные», выделите «ПРЕОБР» и нажмите «OK». Откроется окно аргументов оператора «ПРЕОБР». В поле «Число» введите координаты ячейки «Конвертируемая величина». Для этого поставьте курсор в поле и нажмите левой кнопкой мыши по этой ячейке. Ее адрес отображается в поле. Таким же образом вводите координаты в поля «Исходная единица измерения» и «Конечная единица измерения». Только на этот раз кликайте по ячейкам с такими же названиями, как у этих полей (рис. 20).

После того как все данные введены, нажмите «OK». В окошке ячейки «Результат конвертации» тут же отобразится результат преобразования величины согласно ранее введенным данным. Изменим данные в ячейках «Конвертируемая величина», «Исходная единица измерения» и «Конечная единица измерения». Функция при изменении параметров автоматически пересчитывает результат (рис. 21). Это говорит о том, что наш калькулятор функционирует.

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

Кликайте левой кнопкой мыши по элементу на пересечении горизонтальной и вертикальной панелей координат – выделяется лист. Кликайте правой кнопкой мыши по выделению – открывается контекстное меню, в котором выберите позицию «Формат ячеек…» (рис. 22). Запускается окно форматирования. Переходите во вкладку «Защита», снимайте галочку с параметра «Защищаемая ячейка» и кликайте «OK» (рис. 23).

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

Открывается окно установки защиты листа. В поле «Пароль для отключения защиты листа» вводите пароль, с помощью которого в будущем можно будет снять защиту. Остальные настройки можно оставить без изменений. Жмите «OK» (рис. 25). Затем открывается небольшое окошко, в котором следует повторить ввод пароля. Сделайте это и нажмите «OK» (рис. 26).

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

Встроенный калькулятор

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

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

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

После того как наименование «Калькулятор» отобразилось в правой области окна, жмите на «OK» внизу. Окно параметров Excel будет закрыто. Чтобы запустить калькулятор, кликните на одноименный значок, который теперь располагается на панели быстрого доступа. Инструмент «Калькулятор» функционирует, как обычный физический аналог, только на кнопки нужно нажимать курсором мышки, ее левой кнопкой.

А теперь переходите в следующий урок, там вы научитесь копировать формулы.