Вопрос № 57661: Добрый день! нужен макрос Excel. вопрос такой нужен макрос (скорее всего) чтоб в Excel при вводе числа писал его прописью.
заранее всем спасибо!...Вопрос № 57662: Уважаемые эксперты. Подскажите пожалуйста решение следующего вопроса из области VBA.
Для сохранения и конвертации документа в формат Word у меня используется следующая конструкция:
ActiveDocument.SaveAs FileName:=ActiveDocument.Path + &q...
Вопрос № 57.661
Добрый день! нужен макрос Excel. вопрос такой нужен макрос (скорее всего) чтоб в Excel при вводе числа писал его прописью.
заранее всем спасибо!
Отправлен: 04.10.2006, 08:12
Вопрос задал: ERA (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Puma
Здравствуйте, ERA!
Предлагаю Вам макрос, который переводит число в число прописью. Взят с сайта microsoft.com и немного доработан.
Но его нужно переработать для Excel, т.е. так, чтобы он мог понимать структуру таблицы.
Прикреплённый файл: Загрузить >> Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа. --------- Куда б я ни пошел, оно со мною: на форумах, в e-mail иль в ICQ. Мое ИМХО могучею скалою поддержит точку зрения мою.
Ответ отправил: Puma (статус: Практикант)
Ответ отправлен: 04.10.2006, 11:26
Отвечает: VLK
Здравствуйте, ERA!
Есть пример конвертации чисел в текстовый формат для Excel 97. Здешний сервак не позволяет отправить его из-за объема. Нужно - пишите ваш E-mail в личку.
Ответ отправил: VLK (статус: 7-ой класс)
Ответ отправлен: 05.10.2006, 16:23
Вопрос № 57.662
Уважаемые эксперты. Подскажите пожалуйста решение следующего вопроса из области VBA.
Для сохранения и конвертации документа в формат Word у меня используется следующая конструкция:
ActiveDocument.SaveAs FileName:=ActiveDocument.Path + "" + Left(ActiveDocument.Name, Len(ActiveDocument.Name) - 4), FileFormat:= _
wdFormatDocument, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
Подскажите, что нужно поправить, чтобы документ сохранялся под именем, предварительно введенным вручную в буфер обмена.
Отправлен: 04.10.2006, 08:19
Вопрос задал: mryc (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Dim n As String
Dim r As Range
Set r = ActiveDocument.Range(0, 0)
r.Paste
n = r.Text
r.Cut
ActiveDocument.SaveAs FileName:=ActiveDocument.Path + "" + n, FileFormat:= _
wdFormatDocument, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
Ответ отправил: HookEst (статус: 4-ый класс)
Ответ отправлен: 04.10.2006, 10:09 Оценка за ответ: 3 Комментарий оценки: Не получается. Пишет: Run-time error '5487': He yдaeтcя зaвepшить coxpaнeниe из-зa oшибки дocтyпa к фaйлy и далее новое имя файла. Но благодарю за идею
