- Любовные романы
- Фантастика и фэнтези
- Ненаучная фантастика
- Ироническое фэнтези
- Научная Фантастика
- Фэнтези
- Ужасы и Мистика
- Боевая фантастика
- Альтернативная история
- Космическая фантастика
- Попаданцы
- Юмористическая фантастика
- Героическая фантастика
- Детективная фантастика
- Социально-психологическая
- Боевое фэнтези
- Русское фэнтези
- Киберпанк
- Романтическая фантастика
- Городская фантастика
- Технофэнтези
- Мистика
- Разная фантастика
- Иностранное фэнтези
- Историческое фэнтези
- LitRPG
- Эпическая фантастика
- Зарубежная фантастика
- Городское фентези
- Космоопера
- Разное фэнтези
- Книги магов
- Любовное фэнтези
- Постапокалипсис
- Бизнес
- Историческая фантастика
- Социально-философская фантастика
- Сказочная фантастика
- Стимпанк
- Романтическое фэнтези
- Ироническая фантастика
- Детективы и Триллеры
- Проза
- Юмор
- Феерия
- Новелла
- Русская классическая проза
- Современная проза
- Повести
- Контркультура
- Русская современная проза
- Историческая проза
- Проза
- Классическая проза
- Советская классическая проза
- О войне
- Зарубежная современная проза
- Рассказы
- Зарубежная классика
- Очерки
- Антисоветская литература
- Магический реализм
- Разное
- Сентиментальная проза
- Афоризмы
- Эссе
- Эпистолярная проза
- Семейный роман/Семейная сага
- Поэзия, Драматургия
- Приключения
- Детская литература
- Загадки
- Книга-игра
- Детская проза
- Детские приключения
- Сказка
- Прочая детская литература
- Детская фантастика
- Детские стихи
- Детская образовательная литература
- Детские остросюжетные
- Учебная литература
- Зарубежные детские книги
- Детский фольклор
- Буквари
- Книги для подростков
- Школьные учебники
- Внеклассное чтение
- Книги для дошкольников
- Детская познавательная и развивающая литература
- Детские детективы
- Домоводство, Дом и семья
- Юмор
- Документальные книги
- Бизнес
- Работа с клиентами
- Тайм-менеджмент
- Кадровый менеджмент
- Экономика
- Менеджмент и кадры
- Управление, подбор персонала
- О бизнесе популярно
- Интернет-бизнес
- Личные финансы
- Делопроизводство, офис
- Маркетинг, PR, реклама
- Поиск работы
- Бизнес
- Банковское дело
- Малый бизнес
- Ценные бумаги и инвестиции
- Краткое содержание
- Бухучет и аудит
- Ораторское искусство / риторика
- Корпоративная культура, бизнес
- Финансы
- Государственное и муниципальное управление
- Менеджмент
- Зарубежная деловая литература
- Продажи
- Переговоры
- Личная эффективность
- Торговля
- Научные и научно-популярные книги
- Биофизика
- География
- Экология
- Биохимия
- Рефераты
- Культурология
- Техническая литература
- История
- Психология
- Медицина
- Прочая научная литература
- Юриспруденция
- Биология
- Политика
- Литературоведение
- Религиоведение
- Научпоп
- Психология, личное
- Математика
- Психотерапия
- Социология
- Воспитание детей, педагогика
- Языкознание
- Беременность, ожидание детей
- Транспорт, военная техника
- Детская психология
- Науки: разное
- Педагогика
- Зарубежная психология
- Иностранные языки
- Филология
- Радиотехника
- Деловая литература
- Физика
- Альтернативная медицина
- Химия
- Государство и право
- Обществознание
- Образовательная литература
- Учебники
- Зоология
- Архитектура
- Науки о космосе
- Ботаника
- Астрология
- Ветеринария
- История Европы
- География
- Зарубежная публицистика
- О животных
- Шпаргалки
- Разная литература
- Зарубежная литература о культуре и искусстве
- Пословицы, поговорки
- Боевые искусства
- Прочее
- Периодические издания
- Фанфик
- Военное
- Цитаты из афоризмов
- Гиды, путеводители
- Литература 19 века
- Зарубежная образовательная литература
- Военная история
- Кино
- Современная литература
- Военная техника, оружие
- Культура и искусство
- Музыка, музыканты
- Газеты и журналы
- Современная зарубежная литература
- Визуальные искусства
- Отраслевые издания
- Шахматы
- Недвижимость
- Великолепные истории
- Музыка, танцы
- Авто и ПДД
- Изобразительное искусство, фотография
- Истории из жизни
- Готические новеллы
- Начинающие авторы
- Спецслужбы
- Подростковая литература
- Зарубежная прикладная литература
- Религия и духовность
- Старинная литература
- Справочная литература
- Компьютеры и Интернет
- Блог
Интернет-журнал 'Домашняя лаборатория', 2007 №3 - Вудворт
Шрифт:
Интервал:
Закладка:
2.�����������, ���� �� ��� �������� ���������.
3.����� ����, �� ������� � ������ 1, ���� ���, �� ��������� ������.
"����"�� ��-��������� "If". ������ �� ����� ����� � ���������� ��������� �������. �������� �������: "���������� If", ������ �������, �������� ���� �� ��������� ��������� ���� If, Then, Else � ��[7].
������� "���������� If�Then�Else"�� ����� ������ ����� ��������. �������� �������, �� ������� ������ ��������� �������:
If ������� Then [����������] [Else ����������_�ls�]
����� �� ������� ������ ���� � ���? ��������, ������� ���������� �������� ���������� � ���� �� 0, �� ���������� ������, � ���� 0, �� ������������. � ��� ����� ���������� ���������� �������� ����������? ���������, ��� �� � VBA ������� ��� ������ ��������? ������� � ������ ���������: "Documents", �������� ����� � ���������� �������� ������. ��� � ���� � � ������ ������� ����� "Count": ������ �����, ��� ������� ��������. ������� �� �� ������ � ��������� �� ��� ������� � ������ � ��, ��� ������� ������� �������� ���������. �� ���� ������� ������ ��������� ��� "If Documents. Count > 0 Then�". ��, � ���������� � ������� � ����� � ���� ��� ��������.
����� ������� "Else�" ����� ��������, � ������ �������� ������ ���������� ����� ������� "If�"�� ���� ��� ����� � �� ���������� ��������� �� �������� �� ��� ���, ���� ��������� �������� ���������. � ��������� ���, ��������, ����� ����� ���������, ���������� �� �������� ��������,�� ����� ����� ���� ��������� ��������� �� ��������� � ������. ���������� ������� MsgBox (� �� ���������� �������� �������� � �������):
signal = MsgBox("��������� ���������", vbInformation, "��������� �������")
����, ��������� ������. ����� � ������� ����������� ���� "���������" ��������� �� ������, ����� ���� ��� ��������� ������, � ��������� �� ��� �������������.
������ ��������� �� ��� ��������. ������� ���, ����� ��� ������������ ��������� ����������� �� � ����� ������, � � ���������, ���������� �������������, � ����� ������������ ��� ������� ��� ����� �� ������������ ����������� ����, �������� �� ���������.
����� ������������� ��������. � ���������� ��������� ������� ����� "dialog boxes", ������� ��� �� ������� �� ������ ���. � ����������� ���� ������ ������� ������ � "Displaying Built-In Word Dialog-Boxes", ��� ��� ���, ���� �� ��������, ����� ����� ����, ��� ������ ���������� ���������� ����. ������ � �������� ����� ������� ��������, ��� � ������� ������� Dialogs("��� �������").Show ����� ������� �� ����� ����� ���������� ���������� ���� Word, ����� ���� �������� ����� ��� ���������� � �����. ��������� ����� ����, ������� ���������� �� ���� � �����-������ ����������. ��� ����� �������� ��������� ����������������� ������ � ����� ���������� � ��� ��� ��������� ����� ���������� ���� (���.�3.11).
���.�3.11. ��� ������ ������ ������� ����� ��������� ������ ���������� ���������� ���� Word..
� �������� ������ ������ ���� �� ����� ���������".Display" � ����� ���� �� ����� ��� �����-���� ����������� ��������: ���� � ������� �������
Dialogs(wdDialogFileOpen).Show ����� �������� ���� �������� �����, �� ��� ������� ������ "�������" � ��� ��������� � ���� ���� ����� ������, � ���� ���� ���������� �������� Dialogs(wdDialogFileOpen).Display, �� �������� ����� �� ����������, �� ��� ���������� ����� ����� ����� �������� � ����������:
With Dialogs(wdDialogFileOpen)
.Display
imya=.Name
End With
� ������������ ������������ ��� ��� �� ������ ����������.
��� ������������� ���������� ���������� ���� Word ����������� ������������� ��������� With, ��� ���, �������� ��, ������������� �������� ����
Dialogs(wdDialogFileOpen).Display
imya=Dialogs(wdDialogFileOpen).Name
�������� �� �����.
����� �������� ����������� �� ���� Dialogs(wdDialogCopyFile)�� ����������� �����. ��������� ������ "Built-in dialog box argument lists" ���� "Displaying built-in Word dialog boxes", �������� ������ ���� ��������� ���������� ���������� ���� (�� ���� ����������, �������� ������� ����� �������� �� ���� ��� ������ ��). ��� ���������� �������� "Directory" (�����, ���� ����������� ����, ��������� � ��������� "FileName" ��� ���������� ������ "Show" ��� "Execute" � ��� ���������� ���������� ������ ���������� ������� ��� ��������� ����������� ���������� �� ���������� ����������� ���� ��� ����������� ���������� �������). ������������������ � ���� ����� � ������� � ����������������� ������ ��������� ���:
Sub experience4()
With Dialogs(wdDialogCopyFile)
.Display
papka = .Directory
End With
MsgBox papka
End Sub
�������� ��� ��������� ��������� ���, ��������, ��� � ���������� "papka" ������������ ���� � ��� �����, ��, ���� � ���� ��� ����� ���� �������, �� ���� ����������� ���������: "C: Program FilesMicrosoft 0£:£�1���������", � ���� �������� � ���� �� ����, �� ������� �� ����� �� ��������. ������� ������������ ���������� ����� ���������� � ������ �������. ������� ��� ����� � ������� ��� ��������� ��� ������ "Left", "Rigth", "Mid" � "Len":
If Right(papka, 1) = Chr$(34) Then papka = Mid(papka, 2, Len(papka) ��2)
"Chr$(34)" � ��� �������, ������� ���������� ������ � ASCII-����� 34: �������. (������ ������ � Dos � Windows ����� ���� ����� � ASCII-���, �� �������� ��� ����� �������

