В Excel

Программирование на Visual Basic for Applications
balrog
Начинающий
Начинающий
 
Сообщения: 2
Зарегистрирован: 19.04.2005 (Вт) 8:27
Откуда: г. Якутск

В Excel

Сообщение balrog » 19.04.2005 (Вт) 9:49

Требуеться написать макрос. Макрос должен делать следующее:
В ячейку (cell1)которая выделена (activecell) вставить текст соответсвующий числу из др. ячейки (cell2). Т.е. вы запускаете макрос он предлагает вам выбрать ячейку cell2. после выбора он, например число 3456 переводит в текст "три тысячи четыреста пятьдесят шесть" и проверяет помещаеться ли он по ширине в данную ячейку cell1 если нет, то то что не поместилось попадает в нижнюю ячейку cell1(i+1,j). Причем перенос должен быть по словам. Вопрос:
1) как сделать первую часть, т.е. предложение выбора ячейки.
2) И как сделать последнюю часть, как проверить помещаеться текст или нет ведь .columnwidth показывает тока пиксели а разные символы разной ширины т.е. в ячейку куда влезет всего 12 цифр "3" влезет 20 символов "(".

Igor_123
Осторожный Баянист
Осторожный Баянист
Аватара пользователя
 
Сообщения: 1325
Зарегистрирован: 21.07.2004 (Ср) 13:00
Откуда: Днепропетровск

Сообщение Igor_123 » 19.04.2005 (Вт) 12:28

Вот
Вложения
Check.rar
Файл с примером
(10.13 Кб) Скачиваний: 46
Водки я вам не обещаю, но погуляем хорошо.
И. Сусанин.

Аватара (с) Тёмыч

balrog
Начинающий
Начинающий
 
Сообщения: 2
Зарегистрирован: 19.04.2005 (Вт) 8:27
Откуда: г. Якутск

Сообщение balrog » 20.04.2005 (Ср) 3:20

Igor_123 писал(а):Вот


спасибо

Igor_123
Осторожный Баянист
Осторожный Баянист
Аватара пользователя
 
Сообщения: 1325
Зарегистрирован: 21.07.2004 (Ср) 13:00
Откуда: Днепропетровск

Сообщение Igor_123 » 20.04.2005 (Ср) 9:11

Мнда...
bbs.vbstreets.ru писал(а):Добавлено: 20.04.2005 (Ср) 3:20
:D
А потом увидел
Откуда: г. Якутск
:D
Удачи
Водки я вам не обещаю, но погуляем хорошо.
И. Сусанин.

Аватара (с) Тёмыч


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: Google-бот и гости: 1

    TopList