Методы автоматизации при работе в MS Excel. Синявская Г.А. - 69 стр.

       диапазон Миллионы.
       В результате получим:
  =ЕСЛИ(B6=0;"";ЕСЛИ(ИЛИ(B10>4;B9=1);F12;ПРОСМОТР(B10;Массив_0_4;Миллионы)))
      Скопируем эту формулу на три столбца вправо и изменим некоторые ар-
гументы.
      В ячейке G11 заменим диапазон Миллионы на Тысячи.
      В ячейке Н11 заменим диапазон Миллионы на Рубли и в самой первой
функции ЕСЛИ заменим в первом аргументе ячейку D6 на ячейку В2 ( целая
часть числа), а во втором аргументе между двойными кавычками впишем фразу
«Ноль рублей»:
  =ЕСЛИ(B2=0;"Ноль рублей";ЕСЛИ(ИЛИ(D10>4;D9=1);H12;ПРОСМОТР(D10;Массив_0_4;Рубли)))

      В ячейке I11 заменим диапазон Миллионы на Копейки. И здесь не нужна
проверка на равенство нулю копеек, потому что даже если их нет, мы запишем
00 копеек. Формула в этой ячейке должна иметь вид:
           =ЕСЛИ(ИЛИ(E10>4;E9=1);I12;ПРОСМОТР(E10;Массив_0_4;Копейки))
      Осталось собрать все текстовые величины, разделив их пробелами и уда-
лив лишние пробелы. Чтобы не нагромождать очень длинных формул, соберем
все текстовые величины, относящиеся к миллионам, в ячейку F18:
                =СЖПРОБЕЛЫ(СЦЕПИТЬ(F7;" ";F9;" ";F10;" ";F11;" "))
      Скопируем эту формулу до ячейки I18 и изменим последнюю формулу (в
ячейке I18), удалив ссылки на ячейки I7 и I9 вместе с пробелами.
      Теперь в ячейке F20 соберем все текстовые величины из диапазона
F18:I18:
                 =СЖПРОБЕЛЫ(СЦЕПИТЬ(F18;" ";G18;" ";H18;" ";I18))
      Все суммы прописью, как правило, начинаются с прописной буквы. Нам
предстоит заменить первую букву в ячейке F20 на прописную. Специальной
функции для этого нет: функция ПРОПНАЧ заменяет строчные буквы на про-
писные в каждом слове, а функция ПРОПИСН заменяет все строчные буквы
на прописные. Поэтому нам надо разбить текстовую величину из ячейки F20 на
две: выделить первую букву и все оставшиеся буквы без первой. Первую букву
сделать прописной и «склеить» ее с оставшейся частью.
      Все формулы по порядку введем в ячейки F22:F26:
F22:   =ЛЕВСИМВ(F20)          Выделение первой буквы
F23:   =ПРОПИСН(F22)          Преобразование первой буквы в прописную
F24:   =ДЛСТР(F20)            Вычисление длины строки всей фразы
F25:   =ПРАВСИМВ(F20;F24-1)   Выделение правых символов из всей фразы без одного сим-
                              вола:
                              F20 – исходная фраза;
                              (F24-1) – количество выбираемых символов
F26: =F23&F25                 Объединение последовательностей символов с помощью
                              знака амперсанта (конкатенация) в одну последовательность



                                              69