Самоучитель VBA

достопримечательности Австрии |

Еще раз о составлении базы данных


Урок 10
Урок 10. Тема: Еще раз о составлении базы данных...
Цель урока
Цель урока В разрабатываемом в данном уроке приложении создается база данных туристической фирмы "С нами не соскучишься" на рабочем листе с пользовательским интерфейсом и средствами...
Практика
Практика В этом уроке строится приложение с пользовательским интерфейсом по заполнению и обработке базы данных туристической фирмы "С нами не соскучишься". База данных состоит из дву...
РЮАКХЖЮ
рЮАКХЖЮ....
ПХЯ У10 1 Рабочий лист БазаДанных
пХЯ. У10.1. Рабочий лист БазаДанных...
ПХЯ У10 2 Рабочий лист Архив
пХЯ. У10.2. Рабочий лист Архив После загрузки программа сама будет создавать свой интерфейс, отображать название окна приложения и если на рабочих листах нет заголовков полей, то создавать их....
ПХЯ У 10 3 Диалоговое окно Регистрация туристов фирмы "С нами не соскучишься"
пХЯ. У 10.3. Диалоговое окно Регистрация туристов фирмы "С нами не соскучишься"...
ПХЯ У10 4 Диалоговое окно Поиск
пХЯ. У10.4. Диалоговое окно Поиск...
ПХЯ У10 5 Диалоговое окно Перерегистрация туристов фирмы "С нами не соскучишься"
пХЯ. У10.5. Диалоговое окно Перерегистрация туристов фирмы "С нами не соскучишься"...
ПХЯ У10 6 Диалоговое окно Фильтрация
пХЯ. У10.6. Диалоговое окно Фильтрация Перейдем к рассмотрению кнопок панели инструментов пользовательского меню. Кнопка Назнач...
РЮАКХЖЮ"
рЮАКХЖЮ" End With ' ' Вторая кнопка ' With .Add(Type:=msoControlButton, Id:=3) .TooltipText = "Сохранить" .OnAction = "Модуль!.Запись" End With With .Add(Type:=m...
ПХЯ У10 7 Рабочий лист СводнаярЮАКХЖЮ
пХЯ. У10.7. Рабочий лист Сводная...
РЮАКХЖЮ Public Sub UserForml_Initialize() '
' Процедура активизации диалогового окна Регистрация туристов ' и задание элементов раскрывающегося списка ' ' ' Проверка наличия заголовка базы данных. ' Построение заголовка базы данных...
РЮАКХЖЮ () '
рЮАКХЖЮ () ' ' Процедура построения сводной таблицы ' Dim n As Integer ' ' Dim Списки, Назначение As String Dim Лист As Object Dim ИмяКниги As String ИмяКниги = ActiveWorkbook.Name '...
РЮАКХЖЮ
рЮАКХЖЮ For Each Лист In Worksheets If Лист.Name = "Сводная...
РЮАКХЖЮ" Then Sheets("СводнаяТаблица") Delete
рЮАКХЖЮ" Then Sheets("СводнаяТаблица").Delete End If Next Лист ' Создается новый рабочий лист с именем Сводная...
РЮАКХЖЮ '
рЮАКХЖЮ ' Worksheets.Add ActiveSheet.Name = "Сводная...
РЮАКХЖЮ"
рЮАКХЖЮ" n = Worksheets("БазаДанных").Range("A2").CurrentRegion.Rows.Count ' ' ' Определение диапазона, по которому будет строиться ' сводная таблица (Списки) и где...
РЮАКХЖЮ!R1C1" '
рЮАКХЖЮ!R1C1" ' ' Создание сводной таблицы ' ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:=Cписки, TableDestination:=Hазвание, ТаblеNаmе:="Отчет" ActiveSh...
РЮАКХЖЮ As PivotTable
рЮАКХЖЮ As PivotTable Dim Диапазон As Range Set Сводная...
РЮАКХЖЮ = ActiveSheet PivotTables("Отчет")
рЮАКХЖЮ = ActiveSheet.PivotTables("Отчет") With ActiveSheet.PivotTables("Отчет") ' ' He отображаются итоги по строкам и столбцам ' .RowGrand = False .ColumnGrand = False...
РЮАКХЖЮ"
рЮАКХЖЮ" With ActiveChart .HasTitle = False .Axes(xlCategory, xlPrimary).HasTitle = False .Axes(xlValue, xlPrimary).HasTitle = True .Axes(xlValue, xlPrimary).AxisTitle.Characters.Tex...
ПХЯ У10 8 Сообщение о неудачном поиске клиента
пХЯ. У10.8. Сообщение о неудачном поиске клиента Private Sub CommandButtonl_Click() ' Процедура поиска клиента ' ' Dim i As Integer Dim j As Integer Dim n As Integer Dim Строка As Integ...
Самостоятельное задание
Самостоятельное задание Построить приложение, учитывающее движение товара на складе магазина "Все, чего душа пожелает". В диалоговом окне приема товара на склад (Рисунок У10.9) преду...
ПХЯ У10 9 Диалоговое окно Все чего душа пожелает Прием товара
пХЯ. У10.9. Диалоговое окно Все, чего душа пожелает. Прием товара. Единицу измерения товара следует вводить при помощи раскрывающегося списка. Первоначально, в списке задать две единицы измере...
ПХЯ У10 10 Автоматическое расширение элементов раскрывающегося списка
пХЯ. У10.10. Автоматическое расширение элементов раскрывающегося списка Предусмотреть в приложении средства поиска товара. При продаже товара записывать информацию о проданном товаре в базу да...








Начало