м вклада» запишите код:
Private Sub CommandButton1Click()
Вызываем процедуру формирования заголовков БД
ЗаголовокРабочегоЛиста
End Sub
6. Для формирования заголовков столбцов базы данных создайте процедуру Sub пользователя, которая будет вызываться из процедуры обработки кнопки рабочего листа Прием вклада. Для этого выполните команду меню Visual Basic Вставка, Процедура и присвойте ей имя ЗагловокРабочегоЛиста. Процедура выполняет следующие действия:
проверяет, заполнена ли первая строка – строка заголовков столбцов (по назначению ячейки А1), если заполнена, то не выполняет никаких действий, завершает работу и передает управление в точку вызова;
если первая строка не заполнена, то в ячейки первой строки рабочего листа записывает названия граф таблицы базы данных, комментарии к ним, закрепляет первую строку и завершает работу, передавая управление в точку своего вызова.
В окне редактирования кода введите текст программы этой процедуры:
Private Sub ЗаголовокРабочегоЛиста()
Активизируем рабочий лист
Application. Worksheets("База"). Activate
Проверяем, есть ли названия столбцов БД
With ActiveSheet
If . Range("A1"). Value "Фамилия" Then
. Range("A2"). Select
Else
ActiveSheet. Cells. Clear
Записываем названия столбцов
Range("A1:E1"). Value Array("Фамилия", "Тип", "Сумма", "Отделение", "Примечание")
Фиксируем первую строку
. Range("2:2"). Select
ActiveWindow. FreezePanes True
. Range("A2"). Select
Вставляем комментарии
. Range("A1"). AddComment
. Range("A1"). Comment. Visible False
. Range("A1"). Comment. Text Text:&qu
Страницы: << < 91 | 92 | 93 | 94 | 95 > >>