Нужна аналогичная программа (надстройка, макрос) для Excel?
Оформите заказ, не забыв прикрепить примеры файлов, и описать, что и как должно работать.
Программное создание формы для ввода и редактирования данных таблицы Excel |
Программа предназначена для автоматизации процесса создания форм ввода и редактирования данных из таблиц Excel.
Сейчас реализована лишь малая часть программы.
Но уже сейчас программа достаточно точно распознаёт типы полей таблицы, и для полей типа "выпадающий список" и "поле с маской ввода" формирует список значений и маску ввода соответственно.
Как будет свободное время - постараюсь продолжить написание кода.
Если кто желает поучаствовать в проекте - присоединяйтесь )
- Добавить комментарий
- 119446 просмотров
Комментарии
Для X64 решение следующее.
В модуле modVBComponents то, что выделено красным, следует удалить.
И вместо удалённого вставить следующий код:
#If VBA7 Then
Public Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal ClassName As String, ByVal WindowName As String) As LongPtr
Public Declare PtrSafe Function LockWindowUpdate Lib "user32" (ByVal hWndLock As LongPtr) As LongPtr
#Else
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal ClassName As String, ByVal WindowName As String) As Long
Public Declare Function LockWindowUpdate Lib "user32" (ByVal hWndLock As Long) As Long
#End If
(7 строк).
И будет работать как на x86, так и на x64.
Запуск формы на 64 битной винде - кто-нибудь эту проблему решил?
Спасибо вам за такую огромную и очень нужную людям работу, могу поделиться своими наработками, С уважением Сергей. Владивосток.
А как на 64 битной винде запустить?
В описании, первой строкой красным цветом написано:
«Сейчас реализована лишь малая часть программы.»
потому и не работает - раз программа не доделана
(раньше она мне была нужна — мне часто заказывали всякие формы ввода — я и начал делать подобную программу, а сейчас я эти формы почти не делаю, так что надобность в программе отпала)
Почему не работает то? ни чего не понимаю форму пустую отображает а создавать не создает
Все конечно хорошо но только вот почему то не реагирует на команду создать.... и удалить считает попытки, в общем не работает хотя и безопасноть отключена и все такое. Кто подсскажет что к чему?
В этом случае не получится сделать программу универсальной.
Сколько каких элементов добавлять? Всех по 20 штук?
А если не хватит? К примеру, текстовых полей надо всего 5, а галочек (checkbox) - 30 штук...
Когда я начинал делать эту программу, я стремился прежде всего к универсальности, и максимальному удобству использования (чтобы пользователь нажал на кнопку, - и готовая форма ввода отобразилась на экране, причем чтобы пользователь мог передвинуть некоторые элементы, дописать код обработчиков, и т.п., и чтобы изменения сохранялись с файлом)
Форма ввода большой и не должна быть - я планировал элементы управления размещать на разных вкладках, по 5-10 элементов на вкладке MultiPage.
Увы, сейчас у меня слишком мало свободного времени, и я не знаю, когда у меня дойдут руки до завершения этой программы.
А что если добавить все элементы управления на форму сразу? И менять их параметр .Visible в зависимости от формы формирования вида и типа формы ввода - отображать те или иные элементы управления, с теми или иными параметрами и табиндексами?
Форма ввода все равно не может быть слишком большой, тогда уж удобнее использовать лист экселя голяком, без форм.
esli lyudam nravitsa znacit vse xorosho
Как будет время - продолжу работу над программкой
(у меня тогда вся работа встала из-за того, что контролы на форму то добавлялись, то нет)
Если с ShowModal = True контролы без проблем будут добавляться на разные вкладки MultiPage, независимо от того, открыт в данный момент редактор VBA, или нет, - то, думаю, всё получится.
Ну что аффтар - с тебя бутылка виртуального пива... Х.З. в чем дело, НО методом научного тыка (см. остальные мои посты на тему...) нашел камень преткновения... В общем, в свойстве формы FormMain меняешь ее свойство ShowModal на True и весь код замечательно работает без всяких сбоев и без OnError. Почему - х.з. - найдешь ответ - пости сюда и в мыло - я и так на это времени много потратил. В алыверды - если продолжишь работать в этом направлении - держи в курсе дела...
Еще одно наблюдение - корректирующее предыдущее:
Если запустить "Отобразить форму", то "Создать кнопки" не создает кнопки, если запустить 1! раз.
Если же запустить код/нажать кнопку "Создать кнопки" 2! раза - кнопки создаются
Итак, выдалась свободная минутка - пару слов о своих наблюдениях (Excel 2003 Eng) - может это вас к чему-либо подведет:
1) Если после загрузки файла что с листа, что из кода запустить "Создать кнопки" - кнопки создаются и остаются навечно
2) Если после загрузки файла что с листа, что из кода запустить сначала "Отобразить форму" - то, сколько потом не нажимай "Создать кнопки - они не создаются"
Вывод: в результате Unload Me - выгрузка формы происходит как-то не полностью...
Продолжаю изучение вопроса - если в чем-то продвинетесь сами - пишите сюда или на мыло...
Я недоделал программу (сделано только процентов 30 от необходимого)
Проблема в том, что программное добавление элементов управления на форму весьма глючно реализовано - мне не удалось добиться стабильной работы кода (раза со второго- третьего срабатывает, если запускать из Excel, а при запуске из VBA срабатывает в зависимости от того, загружена ли форма в редакторе VBA)
Поскольку опыта работы с программным добавлением контролов на форму у меня нет, я и забросил разработку.
(проблема не динамически выводить элементы управления на форму при каждом запуске - тут всё работает беспроблемно. Сложности при добавлении элементов на форму "навечно" - чтобы их потом можно было вручную передвигать на форме)
Что-то не догоню. У меня Форма редактирования и ввода данных показывается незаполненной. Это глюк моего Excel 2003 Eng или еще не дописанная часть?
Готов поучаствовать, вопрос в том - какой функционал вы под это дело хотите развернуть?
Хорошая разработка. Нужная. Но у меня другая проблема. Хотел бы с вами связаться, но не знаю как. Пробовал оформить заказ - не получается. А тема у меня похожая на вашу. Попробую связаться с вами еще раз. С уважением
Александр.
Спасибо за разработку. Хотел бы присоединиться.
Макросы и ВБ-редактор познаю самоучкой по мере надобности. Тема на сегодня для меня актуальна, потому как на работе все кому не лень заносят в головную таблицу что хотят. Надо создать форму ввода удобную настолько, чтоб не было желания у личного состава лазить в эксель и заносить туда ошибки.
Прошу разрешения иногда задавать дурацкие вопросы по теме.
С Уважением.
Дмитрий. Ариель. Израиль.