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


Новости

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 вставляет ближайший предыдущий номер последовательности.

 

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))&"."

 

.