|
Владислав
КОРОЛЬКОВ
Сумма прописью
Предлагаемая макрос-функция
позволяет записать
прописью итоговую сумму
при подготовке в 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
|
.gif){kind=small}