У нас всегда: бесплатный софт, вэб-сервисы, ресурсы по раскрутке и дизайну, заработок и спонсоры, техническая документация, свежие номера журнала "Internet Zone"- все это на http://www.izone.com.ua/ 

Макросы для Excel

Владислав КОРОЛЬКОВ

    

    Сумма прописью

    Предлагаемая макрос-функция позволяет записать прописью итоговую сумму при подготовке в MS Excel 97 бухгалтерских и других документов. Ею можно будет воспользоваться, если поместить ее в вашу рабочую книгу или в библиотеку макросов. После этого, вписав формулу: = ГРН (число) в какую-либо ячейку листа Excel, вы получите это число, записанное прописью на украинском языке. Параметром этой функции может быть не только константа, но и любая ссылка на ячейку с числом, отвечающую требованиям Excel. Текст макроса легко изменить. Отечественную денежную единицу можно заменить на любую другую. Изменить можно и язык. Дополнительные сведения о модификации приведены в самом макросе, в комментариях.

    Дата прописью

    В MS Excel предусмотрено много функций для работы с датами. Тем не менее, еще одна не помешает. Она предусматривает запись даты в формате, принятом в бухгалтерских документах: ”7” вересня 1999 р. Текст функции короток, и мы приводим его полностью.

Attribute VB_Name = ”Модуль2”

‘ Преобразование даты в украинский формат прописью
‘ Макрос записан 25. 08. 96 (Корольков Владислав)

Function ДТ$(N)
Attribute ДТ.VB_ProcData.VB_Invoke_Func = ” \n14”
Dim naim(1 To 12) As String
naim(1) = ” січня ”
naim(2) = ” лютого ”
naim(3) = ” березня ”
naim(4) = ” квітня ”
naim(5) = ” травня ”
naim(6) = ” червня ”
naim(7) = ” липня ”
naim(8) = ” серпня ”
naim(9) = ” вересня ”
naim(10) = ” жовтня ”
naim(11) = ” листопада ”
naim(12) = ” грудня ”
s$ = ””
If IsDate(N) Then
i = Month(N)
s$ = ” ”” ” + Str(Day(N)) + ” ”” ” + naim(i) +
Str(Year(N)) + ” р.”
End If
ДТ$ = s$
End Function

    Напоминаем, что проще воспользоваться предлагаемыми макросами, если:

  • запустить Excel 97;
  • вызвать Visual Basic (Сервис -> Макрос -> Редактор Visual Basic);
  • по очереди импортировать предлагаемые функции (Файл -> Импорт файла). При этом в окне Проект среди модулей появятся импортированные;
  • закрыть VB и вернуться в Excel.

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

Владислав КОРОЛЬКОВ,
vikor@zstu.zaporizhzhe.ua

Источник: http://www.cp.comizdat.com


Copyright © 1999-2000гг. "Internet Zone" & Nik Romanov. nikspase@mail.ru, nikspase@hotmail.ru,  http://www.izone.com.ua/
Копирование и использование данных материалов разрешается только в случае указания на журнал "Internet Zone" как на источник получения информации, при этом во всех ссылках обязательно явное указание адреса вэб-сайта http://www.izone.com.ua/.