Здравствуйте, необходимо из ячейки AV11 "УТВЕРЖДАЮ отчет в сумме" текст разделить и перенести на следующую строчку AN12, чтобы было удобно прочитать пользователю.Сумма должна быть прописью, например: сто тысяч двести, а следующие слова : восемьдесят шесть, уже в другой ячейке. P.S. для вывода суммы прописью использую надстройку MulTEx. Есть небольшой набросок, как вариант, подправьте и объясните, кто может, очень хочется разобраться в этом разрыве текста и его переносе: Txt = Range("A1").Value Arr = Split(Txt, " ")
For i = 0 To UBound(Arr) If i <= 2 Then Range("AV11").Value = Range("AV11").Value & " " & Arr(i) Else Range("AH12").Value = Range("AH12").Value & " " & Arr(i) End If Next
Здравствуйте, необходимо из ячейки AV11 "УТВЕРЖДАЮ отчет в сумме" текст разделить и перенести на следующую строчку AN12, чтобы было удобно прочитать пользователю.Сумма должна быть прописью, например: сто тысяч двести, а следующие слова : восемьдесят шесть, уже в другой ячейке. P.S. для вывода суммы прописью использую надстройку MulTEx. Есть небольшой набросок, как вариант, подправьте и объясните, кто может, очень хочется разобраться в этом разрыве текста и его переносе: Txt = Range("A1").Value Arr = Split(Txt, " ")
For i = 0 To UBound(Arr) If i <= 2 Then Range("AV11").Value = Range("AV11").Value & " " & Arr(i) Else Range("AH12").Value = Range("AH12").Value & " " & Arr(i) End If NextAlexLest2099
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
