Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Отображение числа, Цифру написать прописью.
 
Цитата
написал:
дубль в разделе Работа
А если так
Код
    [URL=#]?[/URL]       1  2  3  4  5  6  7  8      With   doc_res.Range.Find             .Text =   "//TEXT//"             .Replacement.Text = sumInWords_RU(row_src.Range(  "I1"  ).Value)             .MatchWholeWord =   True             .MatchCase =   True             .Replacement.Highlight =   False             .Execute Replace:=2         End   With   
 
Код макроса на форуме нужно оформлять вот так (см. картинку)
Так и подсказали спасибо!
Доработать макрос, Доработать макрос
 
Спасибо, уже решено.
Доработать макрос, Доработать макрос
 
Добрый вечер. Есть макрос:
With doc_res.Range.Find
       .Text = "//TEXT//"
       .Replacement.Text = row_src.Range("I1").Value
       .MatchWholeWord = True
       .MatchCase = True
       .Replacement.Highlight = False
       .Execute Replace:=2
   End With
Он берет значение в колонке I EXEL и замещает им в шаблоне Word //TEXT//.
В данном случае это число.
Написана отдельная функция в модуле которая преобразует число в текст, пример - (5000, 00 преобразует в пять тысяч 00 копеек), она активируется с листа формулой =MSumProp().
Нужно сделать так чтобы к значению row_src.Range("I1").Value применялась функция MSumProp.

Функция число - текст находится в модуле выглядит так:
Function MSumProp$(chislo#) 'Автор MCH (Михаил Ч.), май 2012
Dim rub$, kop$, ed, des, sot, nadc, razr, i&, m$
If chislo >= 1E+15 Or chislo < 0 Then Exit Function

sot = Array("", "сто ", "двести ", "триста ", "четыреста ", "пятьсот ", "шестьсот ", "семьсот ", "восемьсот ", "девятьсот ")
des = Array("", "", "двадцать ", "тридцать ", "сорок ", "пятьдесят ", "шестьдесят ", "семьдесят ", "восемьдесят ", "девяносто ")
nadc = Array("десять ", "одиннадцать ", "двенадцать ", "тринадцать ", "четырнадцать ", "пятнадцать ", "шестнадцать ", "семнадцать ", "восемнадцать ", "девятнадцать ")
ed = Array("", "один ", "два ", "три ", "четыре ", "пять ", "шесть ", "семь ", "восемь ", "девять ", "", "одна ", "две ")
razr = Array("триллион ", "триллиона ", "триллионов ", "миллиард ", "миллиарда ", "миллиардов ", "миллион ", "миллиона ", "миллионов ", "тысяча ", "тысячи ", "тысяч ", "рубль ", "рубля ", "рублей ")

rub = Left(Format(chislo, "000000000000000.00"), 15)
kop = Right(Format(chislo, "0.00"), 2)

If CDbl(rub) = 0 Then m = "ноль "
For i = 1 To Len(rub) Step 3
   If Mid(rub, i, 3) <> "000" Or i = Len(rub) - 2 Then
       m = m & sot(CInt(Mid(rub, i, 1))) & IIf(Mid(rub, i + 1, 1) = "1", nadc(CInt(Mid(rub, i + 2, 1))), _
               des(CInt(Mid(rub, i + 1, 1))) & ed(CInt(Mid(rub, i + 2, 1)) + IIf(i = Len(rub) - 5 And CInt(Mid(rub, i + 2, 1)) < 3, 10, 0))) & _
               IIf(Mid(rub, i + 1, 1) = "1" Or (Mid(rub, i + 2, 1) + 9) Mod 10 >= 4, razr(i + 1), IIf(Mid(rub, i + 2, 1) = "1", razr(i - 1), razr(i)))
   End If
Next i
MSumProp = UCase(Left(m, 1)) & Mid(m, 2) & kop & " копе" & IIf(kop \ 10 = 1 Or ((kop + 9) Mod 10) >= 4, "ек", IIf(kop Mod 10 = 1, "йка", "йки"))
End Function

Напишите вашу цену.
Изменено: Dallas - 08.09.2022 21:57:10
Отображение числа, Цифру написать прописью.
 
Цитата
написал:
.Replacement.Text = row_src.Range("I1")
Модуль вставил.
Подобная формула исполняется на листе:
=sumInWords_RU(H8;"";"";"";1)
А как мне правильно вставит ее в мой макрос? В таком виде не работает(((

With doc_res.Range.Find
       .Text = "//TEXT//"
       .Replacement.Text = row_src.Range("sumInWords_RU(I1;"";"";"";1)").Value
       .MatchWholeWord = True
       .MatchCase = True
       .Replacement.Highlight = False
       .Execute Replace:=2
   End With

Помогите пжлст.
Отображение числа, Цифру написать прописью.
 
Цитата
написал:
Примените к части макроса
Спасибо большое, извините за тупость, а как прописать эту формулу в макрос:
With doc_res.Range.Find
      .Text = "//TEXT//"
      .Replacement.Text = row_src.Range("=ПОДСТАВИТЬ(ПРОПНАЧ(ИНДЕКС(n_4;ПСТР(ТЕКСТ(I1;n0);1;1)+1)&ИНДЕКС(n0x;ПСТР(ТЕКСТ(I1;n0);2;1)+1;ПСТР(ТЕКСТ(I1;n0);3;1)+1)&ЕСЛИ(-ПСТР(ТЕКСТ(I1;n0);1;3);"миллиард"&ВПР(ПСТР(ТЕКСТ(I1;n0);3;1)*И(ПСТР(ТЕКСТ(I1;n0);2;1)-1);мил;2);"")&ИНДЕКС(n_4;ПСТР(ТЕКСТ(I1;n0);4;1)+1)&ИНДЕКС(n0x;ПСТР(ТЕКСТ(I1;n0);5;1)+1;ПСТР(ТЕКСТ(I1;n0);6;1)+1)&ЕСЛИ(-ПСТР(ТЕКСТ(I1;n0);4;3);"миллион"&ВПР(ПСТР(ТЕКСТ(I1;n0);6;1)*И(ПСТР(ТЕКСТ(I1;n0);5;1)-1);мил;2);"")&ИНДЕКС(n_4;ПСТР(ТЕКСТ(I1;n0);7;1)+1)&ИНДЕКС(n1x;ПСТР(ТЕКСТ(I1;n0);8;1)+1;ПСТР(ТЕКСТ(I1;n0);9;1)+1)&ЕСЛИ(-ПСТР(ТЕКСТ(I1;n0);7;3);ВПР(ПСТР(ТЕКСТ(I1;n0);9;1)*И(ПСТР(ТЕКСТ(I1;n0);8;1)-1);тыс;2);"")&ИНДЕКС(n_4;ПСТР(ТЕКСТ(I1;n0);10;1)+1)&ИНДЕКС(n0x;ПСТР(ТЕКСТ(I1;n0);11;1)+1;ПСТР(ТЕКСТ(I1;n0);12;1)+1));"z";" ")&ЕСЛИ(ОТБР(ТЕКСТ(I1;n0));"";"Ноль ")&"рубл"&ВПР(ОСТАТ(МАКС(ОСТАТ(ПСТР(ТЕКСТ(I1;n0);11;2)-11;100);9);10);{0;"ь ":1;"я ":4;"ей "};2)&ПРАВСИМВ(ТЕКСТ(I1;n0);2)&" копе"&ВПР(ОСТАТ(МАКС(ОСТАТ(ПРАВСИМВ(ТЕКСТ(I1;n0);2)-11;100);9);10);{0;"йка":1;"йки":4;"ек"};2)")
      .MatchWholeWord = True
      .MatchCase = True
      .Replacement.Highlight = False
      .Execute Replace:=2

В таком виде не работает :(.

Отображение числа, Цифру написать прописью.
 
Здравствуйте, есть часть макроса:

With doc_res.Range.Find
       .Text = "//TEXT//"
       .Replacement.Text = row_src.Range("I1")
       .MatchWholeWord = True
       .MatchCase = True
       .Replacement.Highlight = False
       .Execute Replace:=2
   
End With
Соответственно тут число  в виде 555,55 из книги Exel копируется в Word в  том же виде.
Что изменить в коде VBA чтобы число копировалось в  Word в виде 555 рублей 55 копеек.
И если возможно падеж рублей/рубль копеек/копейки соблюдался автоматически, но это необязательно :).
Разъяснения, Нужно объяснить по скайпу
 
Цитата
Юрий М написал:
Предлагаете работу - смотрите, в каком разделе размещаете тему.Перенёс в платный раздел.
Очень сожалею о своем поступке:(.
Разъяснения, Нужно объяснить по скайпу
 
Добый вечер. Есть VBA код, нужно объяснить мне как он работает посредством скайпа. Плачу 250р/час.
Изменено: Dallas - 07.03.2018 21:57:55
База данных
 
Здравствуйте, нужна БД для учета и планирования учеб специалистов. ТЗ скину.
Счет по условиям дат
 

Все работает. Спасибо, убрал ковычки.

=СЧЁТЕСЛИМН(Лист2!L3:L1000000;"возврат";Лист2!I3:I1000000;">="&L2;Лист2!I3:I1000000;"<="&L3)

Изменено: Dallas - 23.04.2017 13:51:45
Счет по условиям дат
 
Спасибо поправил, там есть восклицательный знак. Формула на листе Лист 1, значения L2 и L3 тоже на Листе 1. Не работает:(.
Изменено: Dallas - 23.04.2017 13:33:30
Счет по условиям дат
 
Всем доброго дня.
Катастрофа, не работает формула вида:

=СЧЁТЕСЛИМН(Лист2!L3:L1000000;"возврат";"Лист2!I3:I000000";">=L2";Лист2!J3:J1000000;"<=L3")
Смысл: считать количество строк на листе Лист2 со значением "возврат" (столбец L) по условиям:
дата I (соответствующей строки L) в формате даты (листа Лист2) >= дате L2 в формате даты,
дата J (соответствующей строки L) в формате даты (листа Лист2) <= дате L3 в формате даты.

Помогите пожалуйста.
Изменено: Dallas - 23.04.2017 13:31:08
Word из Exel
 
Цитата
А чем моя готовая программа (FillDocuments) не устраивает?
Она у меня есть. Не устраивает, потому что нужно индивидуальное решение с работой в один клик т.к. есть куча деталей с генерацией готового документа WORD и работой в самой базе.
Word из Exel
 
Здравствуйте, нужно создать макрос для создания документа Word по базе Exel на основе шаблона Word. Бюджет 1.5к.
Автоматическое копирование значений из одной группы ячеек в другую
 
Здравствуйте, необходимо чтобы при вводе определенных значений в строку она активировалась и данные строки автоматически переносились в другую таблицу. Нужен подбор значений в одной ячейке по совпадению данных в других.
Также необходим макрос с генерацией документа Word по данным из определенных строк и возможность вести проект при выявлении косяков/доработок и тп.
Автоматическая генерация документа Word из Exel
 
SuperCat все выполнил, быстро, качественно.
Автоматическая генерация документа Word из Exel
 
Задача по автоматизации рабочего процесса. Есть база данных, есть готовые макросы, которые генерируют документ Word в определенный каталог, по данным из таблицы. Нужен еще один аналогичный макрос, который будет создавать документ Word.
Ошибка включения содержимого при первом открытии файла
 
Здравствуйте, подскажите пожалуйста в чем причина ошибки при включении содержимого (первое открытие файла). Вот ошибка.
https://1drv.ms/i/s!Ao2-yTuHGnOKukrB7UCLdCGH3FO8
https://1drv.ms/i/s!Ao2-yTuHGnOKuklLxQfG4JjvrMnN
Генерация документов Word на основе таблицы Exel, Автогенерация
 
Там сложная задача. Не решить базовым решением. Много нюансов.  
Генерация документов Word на основе таблицы Exel, Автогенерация
 
До сих пор актуально.
Генерация документов Word на основе таблицы Exel, Автогенерация
 
Здравствуйте. Задача по автоматизации рабочего процесса. Есть база данных, нужно накодить автоматическое создание документов Word на основе базы Exel по шаблону нажатием кнопки.
Страницы: 1
Наверх