предыдущее

----- Original Message -----
From: "Андрей" <shani@surgut.apkbank.ru>
To: <Aleks>
Sent: Monday, July 17, 2006 2:06 PM
Subject: s11excel.narod.ru: сообщение в гостевой книге

Добрый день!

Нужна Ваша помощь. Работаю в банке, занимаюсь погашением векселей. Эта процедура, довольно, однообразная, поэтому решил в Excel забить формулы. Не могу только одного сделать, может Вы подскажите.

1) Необходимо забить в ячейку количесто предъявленных векселей и чтобы на другом листе появилось столько же 20-ти значных счетов. Чтобы было понятнее, в кратце расскажу, что сколько приносят погашать векселей, столько же счетов и нужно открыть. Принесли, скажем 5 векселей, значит нужно подготовить одно распоряжение на открыте 5-ти двадцатизначных счетов.

2) Возможно ли сделать такой формат в ячейке, чтобы он считывал сумму с другой ячейки,а сам высвечивал эту же сумму, но печатными буквами? Типа ячейка А1 "20" = В1"Двадцать" или А1"30" = В1"Тридцать" и.т.д.

______________________________________________________________________
Добрый день и Вам!

1) к сожалению, я понятия не имею, как выглядит распоряжение и двадцатизначные счета, поскольку работаю в школе.
Если принять их просто за двадцатизначные числа, то возникает вопрос, А как они должны быть расположены, столбиком друг под другом или в одну строку...???
Если это числа, и располагать их нужно друг под другом, то опять вопрос, а где их взять, ведь не генерировать же их случайным образом...

2) этот вопрос сформулирован понятно и ответ на него однозначный – можно, но это займет слишком много времени и макрос получится очень длинный, поскольку вы оперируете, надо полагать числами не до 10, а скорее всего и миллионы…
Впрочем, я могу показать, как это можно сделать, но, увы, ограничусь только десятком,
в этом случае функция может начинаться так:

Function ЧИС(Number As Double) As String
ЧИС = "Простите, я таких чисел еще не знаю"
If Number = 0 Then ЧИС= ""
If Number = 1 Then ЧИС = "один"
If Number = 2 Then ЧИС = "два"
If Number = 3 Then ЧИС = "три"
If Number = 4 Then ЧИС = "четыре"
If Number = 5 Then ЧИС = "пять"
If Number = 6 Then ЧИС = "шесть"
If Number = 7 Then ЧИС = "семь"
If Number = 8 Then ЧИС = "восемь"
If Number = 9 Then ЧИС = "девять"
If Number = 10 Then ЧИС = "десять"
'..................................
End Function

А Вы, при желании, всегда можете продолжить…

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

Посмотреть макрос и скачать исходник


(Скорее всего, такие макросы уже есть готовые в Интернете…)

 

 

 

Рейтинг@Mail.ru главная программы задачи карта Copyright © СОМИТ, А.Козлов, 2005 г