Ваш браузер устарел. Рекомендуем обновить его до последней версии.


Новости

2020.03.17

SD было обновлено

Смотреть

2019.08.21

 САНПРТО было обновлено

Смотреть

2018

 Запустился новый проект по гибридному усилителю звуковой мощности

Смотреть

Word & Excel

Word & Excel

Опубликовано 02.03.2019

Справочные материалы по Word & Excel.

Некоторые хитрые моменты использования Word & Excel.

WORD

1. Преобразовать число из цифровой записи в текстовую:

    а) Нажать Ctrl+F9 - появятся скобки {}

    б) Внутри скобок написать =555\*CardText и нажать F9. Язык написания в зависимости от локализации WORD (переводим клавиатуру в английскую раскладку и пишем цифры - текстовая запись числа будет на английском языке). 

    в) Для word 2007 - Рецензирование -> выбрать блок Правописание -> Выбрать язык

Пример: 

    г) Для редактирования поля нажать: shift + F9

    д) Запретить обновление поля: CTRL+F11

    е) Разрешить обновление поля: CTRL+SHIFT+F11

    ё) Обновление значения текущего поля. Если выделен весь документ (CTRL+А), то обновятся поля во всем документе: F9

 

2. Нумерация страниц

    {PAGE} -                  Страница

    {SECTIONPAGES } -  Общее_число_страниц в секции (от раздела до раздела)

    {NUMPAGES} -         Общее_число_страниц в документе

    {SECTION}.{PAGE} - Номер_раздела. Номер_страницы

    {={PAGE}+2} -         Номер страницы + 2

    {IF{PAGE}<>3 {PAGE}} - Печатать номера на всех страницах кроме третьей.

 

3. ключевые слова WORD для ссылки на блок ячеек:

    - LEFT –  ячейки, расположенные в строке левее ячейки с формулой 

    - RIGHT– ячейки, расположенные в строке правее ячейки с формулой 

    - ABOVE– ячейки, расположенные в столбце выше ячейки с формулой 

    - BELOW– ячейки, расположенные в столбце ниже ячейки с формулой 

 

4. Нумерация рисунков, таблиц, формул

    Для создания числовых последовательностей используется поле {SEQ Название_последовательности}. Последовательность увеличивается на единицу каждый раз, когда встречается в тексте документа.
Предпочтительней для добавления новых использовать кнопку Создать (Вставить название), окна Название вкладки Ссылки. В этом случае на новые последовательности можно будет ссылаться с использованием перекрестных ссылок.

{SEQ Приложения\* ALPHABETIC} - Последовательность Приложения, нумерация латинскими буквами.

{SEQ Приложение \c\* ALPHABETIC}.{SEQ Рисунок1 \* ARABIC} - Название рисунка в виде Приложение.Рисунок (А.1). Ключ \c вставляет ближайший предыдущий номер последовательности.

 

4.1.  Нумерация формул

  1. Создать однострочную, двухячеистую таблицу. Установить невидимые  поля;
  2. В 1ю ячейку добавить макет формулы: Вставка->Формула
  3. Во 2ю ячейку установить скобки, а внутри  поместить нумерацию формул: Ссылки->(Названия)->Вставить название (подпись - формулы, поставить галочку - исключить подпись из названия, нумерация - включить номер главы)

        4.  Выделить всю таблицу и добавить в экспресс-таблицы: Вставка->таблицы->Экспресс-таблицы->Сохранить выделенный фрагмент в ...

         5.  Для автоматической вставки: Вставка->таблица->Экспресс-таблицы

          5.1. Правой кнопкой мыши по Вставка->Экспресс-таблицы и выбрать Добавить на панель быстрого доступа. Данный шаблон формулы появится в самом верху окна. 

 

5. Переменные - поля

     а) Создать переменную (имя и значение):

           Свойства-Свойства документа-Дополнительные свойства-Прочие

    б) Вставить в документ, на место курсора:

           Вставка -> Экспресс-блоки -> Поле выбираем DocProperty и свою переменную

Обновлять как и все поля или при печати (напр. в pdf или 1 страницу).

 

6. Все рисунки по 8 см

Sub IMG_8sm()
' Ширина всех картинок 8см.
'
Dim inshp As InlineShape
    For Each inshp In ActiveDocument.InlineShapes
        Select Case inshp.Type
            Case 3, 4, 12, 13
                inshp.Select
                inshp.ScaleWidth = 100
                inshp.ScaleHeight = 100
                inshp.Width = CentimetersToPoints(8)
                'inshp.ScaleHeight = inshp.ScaleWidth
        End Select
    Next inshp
End Sub

 

7. Виды встроенных функций

Категория Функция Назначение
Статистические  AVERAGE() Вычисление сред. значение для диапазона ячеек, например: =AVERAGE(А1:С20)
COUNT() Подсчёт числа значений в указанном диапазоне ячеек, например: =COUNT(А1:С20; В25; А30)
MAX() Нахождение макс-ого знач. в указанном блоке ячеек, например: =MAX(А1:С20; В25; А30)
MIN() Нахождение мин-ого знач. в указанном блоке ячеек, например: =MIN (А1:С20; В25; А30)
SUM() Нахождение суммы чисел в указанном блоке ячеек, например: =SUM (А1:С20; В25; А30)
Математические ABS(x) Абсолютное значение вычисляемого выражения, например: = ABS(А1*В12-С25+100)
MOD(x, y) Остаток от деления первого числа на второе, например: = MOD(А1,С12)
INT(x) Целая часть числа, например: = INT(234.45)
PRODUCT() Произведение чисел в указанном диапазоне ячеек, например: = PRODUCT(А1:С20; В25; А30)
ROUND(x, y) Округление значения до указанного числа знаков, например, округлить до сотен: = ROUND(2345.45.-2)
SIGN(x) Определение знака числа, например (-1 для отрицательных и 1 для положительных): = SIGN(-2345.45)
Логические IF(x,y,z) Проверка заданного условия и присвоения значения ячейке: если условие истинно - значение 1, иначе значение 2:= IF (Е12>G12; значение 1;значение 2)
AND(x,y) Вычисляет значение 1, если заданы истинные значения логических аргументов, иначе – 0, например: = AND(А4>3; В3<3)
OR(x,y) Вычисляет значение 0, если заданы истинные значения любого логического аргумента, иначе – 1, например: = OR (А2>3; D3<=4)
NOT(x) Вычисляет значение 0, если заданы истинное значение логического аргумента, иначе – 1, например: = NOT( D4>2)
FALSE Логическая константа ложь, которой соответствует число 0.
TRUE Логическая константа истина, которой соответствует число 1.
DEFINED(x) Определяет значение в ячейке.

 

Excel

1. Сумма прописью

 847 439,51 
 восемьсот сорок семь тысяч четыреста тридцать девять рублей 51 коп.
=ИНДЕКС(сот;ОСТАТ(ОТБР(A7/10^8);10)+1)&ЕСЛИ(ОСТАТ(ОТБР(A7/10^7);10)=1;ИНДЕКС(ц­ать; ОСТАТ(ОТБР(A7/10^6);10)+1);ИНДЕКС(дес;ОСТАТ(ОТБР(A7/10^7);10)))& ЕСЛИ(ОСТАТ(ОТБР(A7/10^7);10)<>1; ИНДЕКС(ед; ОСТАТ(ОТБР(A7/10^6);10)+1);"")&ЕСЛИ(ОСТАТ(ОТБР(A7/10^6);1000); ЕСЛИ(ОСТАТ(ОТБР(A7/10^7); 10)=1;"миллионов "; ВПР(ОСТАТ(ОТБР(A7/10^6);10);мил;2));"")&ИНДЕКС(сот; ОСТАТ(ОТБР(A7/10^5);10)+1)& ЕСЛИ(ОСТАТ(ОТБР(A7/10^4);10)=1; ИНДЕКС(ц­ать; ОСТАТ(ОТБР(A7/10^3);10)+1); ИНДЕКС(дес; ОСТАТ(ОТБР(A7/10^4);10)))& ЕСЛИ(ОСТАТ(ОТБР(A7/10^4);10)<>1; ИНДЕКС(едж; ОСТАТ(ОТБР(A7/1000);10)+1);"") & ЕСЛИ(ОСТАТ(ОТБР(A7/1000);1000); ЕСЛИ(ОСТАТ(ОТБР(A7/10^4);10)=1; "тысяч "; ВПР(ОСТАТ(ОТБР(A7/1000);10);тыс;2));"") & ИНДЕКС(сот;ОСТАТ(ОТБР(A7/100);10)+1) & ЕСЛИ(ОСТАТ(ОТБР(A7/10);10)=1; ИНДЕКС(ц­ать; ОСТАТ(ОТБР(A7);10)+1);ИНДЕКС(дес;ОСТАТ(ОТБР(A7/10);10)))& ЕСЛИ(ОТБР(A7)=0; "ноль "; ЕСЛИ(ОСТАТ(ОТБР(A7/10);10)<>1; ИНДЕКС(ед;ОСТАТ(ОТБР(A7);10)+1);""))& ЕСЛИ(ОСТАТ(ОТБР(A7/10);10)=1;"рублей"; ВПР(ОСТАТ(ОТБР(A7);10);руб;2)) & ТЕКСТ(ОТБР((A7-ОТБР(A7)+0,00001)*100);" 00_ коп.")
 5 432,30  5 432 (пять тысяч четыреста тридцать два ) рубля 30 копеек
=ТЕКСТ(ОТБР(A8);"# ###")&" ("&ИНДЕКС(сот;ОСТАТ(ОТБР(A8/10^8);10)+1)&ЕСЛИ(ОСТАТ(ОТБР(A8/10^7);10)=1; ИНДЕКС(ц­ать;ОСТАТ(ОТБР(A8/10^6);10)+1); ИНДЕКС(дес;ОСТАТ(ОТБР(A8/10^7);10))) & ЕСЛИ(ОСТАТ(ОТБР(A8/10^7);10)<>1; ИНДЕКС(ед;ОСТАТ(ОТБР(A8/10^6);10)+1);"") & ЕСЛИ(ОСТАТ(ОТБР(A8/10^6);1000);ЕСЛИ(ОСТАТ(ОТБР(A8/10^7); 10)=1;"миллионов "; ВПР(ОСТАТ(ОТБР(A8/10^6);10);мил;2));"") &ИНДЕКС(сот;ОСТАТ(ОТБР(A8/10^5);10)+1)& ЕСЛИ(ОСТАТ(ОТБР(A8/10^4);10)=1;ИНДЕКС(ц­ать; ОСТАТ(ОТБР(A8/10^3);10)+1); ИНДЕКС(дес;ОСТАТ(ОТБР(A8/10^4);10)))& ЕСЛИ(ОСТАТ(ОТБР(A8/10^4); 10)<>1; ИНДЕКС(едж;ОСТАТ(ОТБР(A8/1000);10)+1);"")& ЕСЛИ(ОСТАТ(ОТБР(A8/1000);1000); ЕСЛИ(ОСТАТ(ОТБР(A8/10^4); 10)=1;"тысяч "; ВПР(ОСТАТ(ОТБР(A8/1000);10);тыс;2));"")& ИНДЕКС(сот;ОСТАТ(ОТБР(A8/100);10)+1)& ЕСЛИ(ОСТАТ(ОТБР(A8/10); 10)=1;ИНДЕКС(ц­ать; ОСТАТ(ОТБР(A8);10)+1); ИНДЕКС(дес;ОСТАТ(ОТБР(A8/10);10))) & ЕСЛИ(ОТБР(A8)=0;"ноль "; ЕСЛИ(ОСТАТ(ОТБР(A8/10);10)<>1; ИНДЕКС(ед;ОСТАТ(ОТБР(A8);10)+1);""))&") "& ЕСЛИ(ОСТАТ(ОТБР(A8/10);10)=1;" рублей"; ВПР(ОСТАТ(ОТБР(A8);10);руб;2)) & ТЕКСТ(ОТБР((A8-ОТБР(A8)+0,00001)*100);" 00_ копеек")
 23,60   23 (двадцать три ) рубля 60 копеек
 =ТЕКСТ(ОТБР(A9);"# ###")&" ("&ИНДЕКС(сот;ОСТАТ(ОТБР(A9/10^8);10)+1)& ЕСЛИ(ОСТАТ(ОТБР(A9/10^7);10)=1; ИНДЕКС(ц­ать; ОСТАТ(ОТБР(A9/10^6);10)+1);ИНДЕКС(дес;ОСТАТ(ОТБР(A9/10^7);10)))& ЕСЛИ(ОСТАТ(ОТБР(A9/10^7);10)<>1;ИНДЕКС(ед;ОСТАТ(ОТБР(A9/10^6);10)+1);"") &ЕСЛИ(ОСТАТ(ОТБР(A9/10^6);1000); ЕСЛИ(ОСТАТ(ОТБР(A9/10^7);10)=1;"миллионов ";ВПР(ОСТАТ(ОТБР(A9/10^6);10);мил;2));"")&ИНДЕКС(сот;ОСТАТ(ОТБР(A9/10^5);10)+1)& ЕСЛИ(ОСТАТ(ОТБР(A9/10^4);10)=1;ИНДЕКС(ц­ать; ОСТАТ(ОТБР(A9/10^3);10)+1); ИНДЕКС(дес;ОСТАТ(ОТБР(A9/10^4);10)))& ЕСЛИ(ОСТАТ(ОТБР(A9/10^4);10)<>1;ИНДЕКС(едж;ОСТАТ(ОТБР(A9/1000);10)+1);"")&ЕСЛИ(ОСТАТ(ОТБР(A9/1000);1000); ЕСЛИ(ОСТАТ(ОТБР(A9/10^4);10)=1;"тысяч "; ВПР(ОСТАТ(ОТБР(A9/1000);10);тыс;2));"") &ИНДЕКС(сот;ОСТАТ(ОТБР(A9/100);10)+1)& ЕСЛИ(ОСТАТ(ОТБР(A9/10);10)=1;ИНДЕКС(ц­ать; ОСТАТ(ОТБР(A9);10)+1); ИНДЕКС(дес;ОСТАТ(ОТБР(A9/10);10)))&ЕСЛИ(ОТБР(A9)=0; "ноль "; ЕСЛИ(ОСТАТ(ОТБР(A9/10);10)<>1; ИНДЕКС(ед;ОСТАТ(ОТБР(A9);10)+1);""))&") "& ЕСЛИ(ОСТАТ(ОТБР(A9/10);10)=1;" рублей"; ВПР(ОСТАТ(ОТБР(A9);10);руб;2))& ТЕКСТ(ОТБР((A9-ОТБР(A9)+0,00001)*100);" 00_ копеек")

 

 

2. Отправка писем

Через гипер ссылку VBA
ГИПЕРССЫЛКА(СЦЕПИТЬ("mailto:";J2; "&subject="; $B$1;"&body=";$B$2; $B$3); ДЛСТР(СЦЕПИТЬ("mailto:";J2;"&subject="; $B$1; "&body=";$B$2;$B$3)))

Dim Outlook_ As New Outlook.Application
Dim Message As Outlook.MailItem
Const NameFile = "c:\customer.txt"
Set Message = Outlook_.CreateItem(olMailItem)
With Message
.Subject = ""
.To = "AdressTo@mail.ru"
.Body = ""
.Attachments.Add (NameFile)
'Application.SendKeys "{ENTER}"
.Send
End With
Set Message = Nothing
Set Outlook_ = Nothing

 

3. Разные формулы

1) найти сколько раз повторяется слово в тексте:

    =(ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;B1;"")))/ДЛСТР(B1)

2) найти почтовый индекс в строке, в любом месте:

    =ПРОСМОТР(9^10;--ПСТР(ПОДСТАВИТЬ(A6;",";"я")&"я";СТРОКА($1:$99999);7))

3) перенос на вторую строку. Должен быть включен перенос строк. (или ALT(лев)+Enter):

    ="первая" & СИМВОЛ(10) & "вторая"

4) Убрать лишние символы в адресе:

    =СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ЛЕВСИМВ(H2;2);",";"")&ПСТР(СЖПРОБЕЛЫ(H2);3;ДЛСТР(H2)-4)&ПОДСТАВИТЬ(ПРАВСИМВ(СЖПРОБЕЛЫ(H2);2);",";"");"АК,";"Алтайский край,"))

5) Фамилия Имя Отчество -> И.О. Фамилия+у(м):

    =ЛЕВСИМВ(G2) & "." & ЛЕВСИМВ(H2) &". " & F2 & ЕСЛИ(J2=1;"у";"")

6) Если дальше повторяются записи, то 1:

    =ЕСЛИ(C2=C3;1;"")

7) 

 

 4. Преобразование ФИО

ФИО И.О. Фамилия Фамилия И.О.  (отчества может не быть)
 Петров Денис Михайлович   Д.М. Петров  Петров Д.М.
=ПСТР(B158; НАЙТИ(СИМВОЛ(32); B158;1)+1;1) &"."& ПСТР(B158; ПОИСК(СИМВОЛ(32); B158; НАЙТИ(СИМВОЛ(32); B158;1)+1)+1;1)&". "&ЛЕВСИМВ(B158; НАЙТИ(СИМВОЛ(32); B158;1)-1) =ЛЕВСИМВ(B158; НАЙТИ(СИМВОЛ(32); B158))& ЕСЛИ( ДЛСТР(B158)-ДЛСТР(ПОДСТАВИТЬ(B158; СИМВОЛ(32);""))=1; ПСТР(B158; НАЙТИ(СИМВОЛ(32); B158)+1;1); ПСТР(B158; НАЙТИ(СИМВОЛ(32); B158)+1;1)&"." & ПСТР(B158; НАЙТИ( СИМВОЛ(32); B158; НАЙТИ(СИМВОЛ(32); B158)+1)+1;1))&"."

 

.