Привет дорогой читатель, давно ничего не постил, очень много работы в последнее время. Рынки растут, особенно в ИТ. Все переходят в онлайн, поэтому мануалы по офису Майкрософт, никогда не были так актуальны как сейчас. Поэтому ловите от меня небольшой презент по экселю.
Кто использует Excel?
В основном его используют студенты и офисные сотрудники для расчета различных рабочих задач или в случае со студентами, автоматизация курсовых. Но есть незадача, ввод формул в Excel очень ограничен и сам синтаксис достаточно неудобен — долго писать и ограничен 32 формулами в одной ячейке. Однако функционал можно дополнить скриптами VBA которые ничем не ограничены и алгоритмы пишутся намного быстрее и легче.
Зачем я пишу, что и так всем понятно? Давайте приступим
И так сформируем себе задачу - нужно написать макрос который будет считать гипотенузу по теореме Пифагора.
a^2 + b^2 = c^2
a, b - катет
c - гипотенуза
Подготовка
Создадим 2 колонки в экселе, в первой колонке записываем первый катет во второй колонке второй катет.
Зажимаем клавиши ALT + F8, должно выйти окошко в поле "Имя макроса" вводим любое имя (в видеоролике я вводил "Пифагор" — для удобства, нажимаем создать.
Вылезло окошко?
Начинаем писать программу.
Не пугайтесь сложных слов, на деле все это проще паренной репы.
Итак, стираем стандартную программу, пишем:
Function Пифагор (ByVal a, b As Range)
Dim c As Double
If a = 0 Or b = 0 Then
Пифагор = "уберите 0"
Else
Пифагор = (a ^ 2 + b ^ 2) ^ (1 / 2)
End if
End Function
1. Объявляем функцию и пишем какие параметры она принимает
2. Объявляем гипотенузу
3. Пишем условие, что если один из катетов будет равняться 0, тогда
4. Функция выведет "уберите 0"
5. Если ни один из катетов не равен нулю, тогда
6. Формула
Заключение
Теперь самое приятное, кликаем на нашу таблицу или закрываем окно и пишем: =Пифагор(А1; B2) (к примеру вы сами можете кликнуть по нужному полю).
Воаля наша формула работает!
Подводя итоги, мы можем резюмировать, что писать свои формулы для экселя не сложнее чем использовать встроенные. Однако я советую использовать свои, когда решение стандартными функциями получается длинным или невозможным.
