Уважаемые форумчане!
Мне нужна именно Ваша помощь, т.к. многие из Вас сталкиваются с программированием
Объясняю все по порядку:
В моем проекте Excel есть лист, на котором хранятся справочники с той или иной информацией. Их несколько и структура у них разная.
Например, в справочниках городов и улиц есть только код и наименование; в справочниках сотрудников и поставщиков - код, имя фамилия, адрес и куча другой информации, ну и т. д.
Эти справочники находятся на одном листе(!), каждый в виде таблицы (ListObject), которая динамически создается и заполняется из БД Access при вызове того или иного справочника. Вызов справочника осуществляется по ссылке, а сами ссылки - в столбце А. Но это только прелюдия.
Главная причина, по которой я к Вам обращаюсь - это контролы
Каждый справочник требует своей обработки (добавления, редактирования, удаления, поиска записей). В моем проекте это реализовано прямо на листе - сверху таблицы-справочника находятся контролы (элементы управления ActiveX), которые соответствуют полям текущего справочника. Но так как справочники различны по структуре, то и количество полей в них различное, а значит контролы тоже динамически должны убираться и появляться на нужном месте при вызове нужного справочника.
Моя просьба о помощи заключается в следующем: я не знаю как работать с группой однотипных контролов, создавать их посредством VBA на рабочем листе, а не на форме (пока только они созданы криво - при помощи команды Вставить на вкладке Разработчик) . Но это мне не совсем подходит, потому что не получается универсальности. Например, количество контролов типа "Label" должно создаваться именно по количеству столбцов таблицы-справочника, а Caption у них соответственно - это название столбца-поля
Затем другая проблема: Каждому "Lable" соответствует свой контрол с информацией изтекущей строки таблицы - где-то нужно создать поле, а где-то - выпадающий список. Например, календарь или флажок создать можно основываясь на формате определенного столбца таблицы (если в столбце таблицы хранится дата, то напротив соответствующего "Label" создается календарь). А различить поле или выпадающий список можно только связями между таблицами в БД (например в справочнике Товары есть подстановка категории из справочника КатегорийТовара), однако в таблице Excel этих связей и подстановок не видно - в этом-то и проблема.
У Вас наверное возникнет вопрос, а погуглить? Я ищу эту информацию довольно долго и ничего подходящего толком пока не нашла. "Рою носом, грызу гранит..." в книгах, но ничего подходящего пока нет ни на форумах, ни у Уокенбаха. Есть обработка группы, но на форме. А у меня НА ЛИСТЕ.
Я % на 30 знаю Excel, а уж о VBA и говорить стыдно но я учусь и развиваюсь. (Оффтоп) . Так вот, на одном из сайтов, т.е. здесь
http://www.sql.ru/forum/actualthread.aspx?tid=744303, я набрела на такой ответ
Shocker.Pro.Михаил.
Создать класс (или структуру), в котором будут ссылки на 11 кнопок, ссылки инициализировать при загрузке формы. Создать свойство (для класса) или процедуру (для структуру), в которой циклом все Visible=False для 11 кнопок.
Создать класс с автоматически собираемыми ссылками на контролы всей формы. Объединить их в именованные произвольные пересекающиеся группы контролов с помощью коллекций, сделать пользовательский редактор вхождения контролов в эти группы и хранение результатов в БД или еще где-то. Манипулировать свойствами Visible, Enabled, Value и прочими ништяками сразу именованных групп, не обращаясь к каждому контролу по отдельности. Назначить пользователей, права, раздать права группам, автоматически разрешать доступность контролов определенным пользователям.......................................
Все это замечательно, у меня есть такой движок.... Только это все - для больших проектов, ИМХО, автору все это нафих не нужно, вполне обойдется фреймом
Этот ответ меня заинтересовал и поэтому я обращаюсь к ВАМ за помощью. Можно ли что-нибудь подобное сотворить и с ActiveX-ми на листе?
Я пробовала уже созданные контролы определенного типа собрать в массив и работать с ним, но у меня пока не выходит
Также пробовала создавать формы для различных справочников и на них размещать соответсвующие контролы, только мне нужно, чтобы форма высвечивалась
без рамки (только рабочая область) и в нужном мне месте, которое я не могу указать: left - top не помогают, не там показывается. А по поводу рамки - нашла вот такой код, но ни тот ни другой код не работает - рамка все равно высвечивается
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
'Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
'Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
'Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
'Private Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'
'Private Const GWL_STYLE = -16
'Private Const WS_CAPTION = &HC00000
'
'Private Sub UserForm_Initialize()
' Dim lngWindow As Long
' Dim lFrmHdl As Long
' lFrmHdl = FindWindowA(vbNullString, Me.Caption)
' lngWindow = GetWindowLong(lFrmHdl, GWL_STYLE)
' lngWindow = lngWindow And (Not WS_CAPTION)
' Call SetWindowLong(lFrmHdl, GWL_STYLE, lngWindow)
' Call DrawMenuBar(lFrmHdl)
'End Sub
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function DrawMenuBar Lib "user32.dll" (ByVal hWnd As Long) As Long
Private Sub UserForm_Initialize()
Dim ihWnd As Long, iStyle As Long
ihWnd = FindWindow(vbNullString, Me.Caption)
iStyle = GetWindowLong(ihWnd, -16&)
SetWindowLong ihWnd, -16&, iStyle And Not &HC00000
DrawMenuBar ihWnd
End Sub
ПОМОГИТЕ МНЕ, ПОЖАЛУЙСТА, РАЗОБРАТЬСЯ С МОЕЙ ПРОБЛЕМОЙ
P.S. на другие форумы обращалась, но пока тишина. Прилагаю файлы для ознакомления с все вышеописанным. Заранее СПАСИБО.
с уважением, Nika
