Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » dsb75
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 След.
VBA готовые классы для создания древовидной структуры
 
#
24.05.2017 07:46:47
Цитата
Игорь написал:
Так что мой совет, - не мудрить излишне с этими объектами, либо переходить на более адекватную среду разработки
Согласен. Мой опыт с ООП в VBA подтверждает ваши слова. Надеюсь, однако, что нащупаю проблемный участок кода и пойму, что делать не стоит.
с уважением,
Батьянов Денис
 
Перейти    
VBA готовые классы для создания древовидной структуры
 
#
24.05.2017 07:43:42
vikttur, я же редко пишу и у меня пока в голове не уложились правильные привычки. Учту :)
с уважением,
Батьянов Денис
 
Перейти    
VBA готовые классы для создания древовидной структуры
 
#
23.05.2017 20:44:28
Какая-то печальная ситуация. Работает только при таком раскладе:
1. Скачиваем с сайта XLSM (ссылка в исходном сообщении)
2. Сохраняем в папку, которую ОС не считает потенциально опасной
3. Лезем в свойства файла, на первой вкладке может стоять галочка разблокировки подозрительного содержимого, пришедшего из инета, - разблокируем
4. Открываем файл
5. Открываем и сразу закрываем среду разработки VBA
6. После этого у меня работает так, как должен.

Пока нет идей с чем это может быть связано...
с уважением,
Батьянов Денис
 
Перейти    
VBA готовые классы для создания древовидной структуры
 
#
23.05.2017 14:41:54
Цитата
Юрий М написал:
Может не прикрепились? Каков размер архива?
Возможно я сам их удалил. К посту они прикрепились, а когда я начал писать следующий пост, они и в нём высветились. Ну, я и почистил...
с уважением,
Батьянов Денис
 
Перейти    
VBA готовые классы для создания древовидной структуры
 
#
23.05.2017 14:39:28
Ну, в любом случае, я у себя выложил версию 0.21. Сохраните её в нормальной папке (не Temporary Internet Files) перед запуском.
с уважением,
Батьянов Денис
 
Перейти    
VBA готовые классы для создания древовидной структуры
 
#
23.05.2017 14:37:33
Цитата
Юрий М написал:
Это почему?
Они изчезли... Я думал, админ прибрал :)
Изменено: dsb75 - 23.05.2017 14:39:51
с уважением,
Батьянов Денис
 
Перейти    
VBA готовые классы для создания древовидной структуры
 
#
23.05.2017 14:28:27
Цитата
dsb75 написал:
который я выложил в предыдущем сообщении
Кажется, архивы выкладывать нельзя. Я, честно говоря, подозревал. На сайте только вечером выложу.
с уважением,
Батьянов Денис
 
Перейти    
VBA готовые классы для создания древовидной структуры
 
#
23.05.2017 14:25:50
Цитата
Игорь написал:
Код хороший, всё качественно сделано
От вас, Игорь, это приятно слышать особенно. Не раз на вашем сайте "тырил" всякое полезное.
с уважением,
Батьянов Денис
 
Перейти    
VBA готовые классы для создания древовидной структуры
 
#
23.05.2017 14:23:38
Цитата
Ivan.kh написал:
скоро она может просто затеряться
Ну совсем то не потеряется, скоро Яндекс её проиндексирует :)
с уважением,
Батьянов Денис
 
Перейти    
VBA готовые классы для создания древовидной структуры
 
#
23.05.2017 14:22:15
Цитата
TSN написал:
Ваш труд впечатляет, конечно возможностей Collection / Dictionary / NET 2.0 (System.Collections.ArrayList) вполне хватает. Но с целью изучения Вашего кода и самообразования в мире VBA  в ближайший проект с удовольствием добавлю класс PerfectTree.
Я как-то пробовал .NET ArrayList из VBS, но поразила низкая производительность, поэтому более не трогал.

Цитата
Большое спасибо за труд.
Пожалуйста :)
с уважением,
Батьянов Денис
 
Перейти    
VBA готовые классы для создания древовидной структуры
 
#
23.05.2017 13:48:58
Jungl, попробуйте, пожалуйста, если будет возможность, с файлом, который я выложил в предыдущем сообщении.
с уважением,
Батьянов Денис
 
Перейти    
VBA готовые классы для создания древовидной структуры
 
#
23.05.2017 13:47:22
Вроде бы нашёл источник бед. Кастомная коллеция. Там метод
Код
Public Property Get NewEnum() As IUnknown
Attribute NewEnum.VB_UserMemId = -4
Attribute NewEnum.VB_MemberFlags = "40"
  Set NewEnum = colNodes.[_NewEnum]
End Property

должен быть с указанными атрибутами, а они куда-то делись в процессе экспорта/импорта.
Вставил 2-х томный архив (из-за лимита 100К).
с уважением,
Батьянов Денис
 
Перейти    
VBA готовые классы для создания древовидной структуры
 
#
23.05.2017 07:42:30
Цитата
Jungl написал:
Excel 2016 x64.
Ой, да, у меня и в 2013-м перестала работать новая то версия :) Пардон, буду разбираться.
с уважением,
Батьянов Денис
 
Перейти    
VBA готовые классы для создания древовидной структуры
 
#
23.05.2017 07:34:31
Цитата
Игорь написал:
почему бы не использовать объектную модель XML?
Наверное, по причине моего полного невежества в этой технологии :)
с уважением,
Батьянов Денис
 
Перейти    
VBA готовые классы для создания древовидной структуры
 
#
23.05.2017 07:32:01
Цитата
Ігор Гончаренко написал:
есть моменты, в которые Ваше творение превзошло TreeView?
Игорь, боюсь сравнивать будем красное и круглое. TreeView насколько я понимаю визуальный компонент, а у меня просто структура данные оптимизированная для программной манипуляции ею. Ближайший аналог - Dictionary.
с уважением,
Батьянов Денис
 
Перейти    
VBA готовые классы для создания древовидной структуры
 
#
23.05.2017 07:29:26
Цитата
Jungl написал:
Как-то так.
Эх. Жалко, что не разбирались - у меня под рукой 16-го нет... Ошибки есть наверняка, но есть желание их исправить.
с уважением,
Батьянов Денис
 
Перейти    
изменить данные в диаграмме.ppt
 
#
22.05.2017 23:04:29
Правой кнопкой на диаграмме - Изменить данные, а дальше 2 варианты: редактировать в PPT или запустить Excel
с уважением,
Батьянов Денис
 
Перейти    
VBA готовые классы для создания древовидной структуры
 
#
22.05.2017 22:54:08
Коллеги, добрый день.

Я написал на VBA несколько классов, реализующих универсальные древовидные структуры. Если вам не хватало возможностей Collection / Dictionary, то, я думаю, вам стоит посмотреть. Писал для себя в качестве развлечения и обучения ООП, причём довольно долго, поэтому вышло крайне добротно (имхо, конечно). Хотелось бы, чтобы кому-то пригодилось. Лежит тут. Спасибо.
Изменено: dsb75 - 22.05.2017 22:54:48
с уважением,
Батьянов Денис
 
Перейти    
VBA ListBox: поле RowSource отвергает функцию INDIRECT на этапе разработки
 
#
26.03.2017 09:18:24
Матерь божья, точно! Спасибо!
с уважением,
Батьянов Денис
 
Перейти    
VBA ListBox: поле RowSource отвергает функцию INDIRECT на этапе разработки
 
#
26.03.2017 08:40:03
Цитата
JeyCi написал:
есть язык вба, есть язык формул - вы кого с кем хотите скрестить и для чего..
Если бы вы внимательно вникли в написанное, то вам бы стало ясно, что я пытался действовать формулами.

Цитата
JeyCi написал:
для вас? или для XL'я? вы будете исполнять этот код? или XL? - ему массивом удобнее (если из кода)...
Это что за сектантство? :) Я действую тем путём, который эффективен с точки зрения моих трудозатрат и позволяет достигать цели.
с уважением,
Батьянов Денис
 
Перейти    
VBA ListBox: поле RowSource отвергает функцию INDIRECT на этапе разработки
 
#
25.03.2017 19:31:59
Спасибо, этот путь мне ясен, но может быть кто-то сможет объяснить причины описанного поведения Excel и способ, как убедить IDE принять INDIRECT.
с уважением,
Батьянов Денис
 
Перейти    
VBA ListBox: поле RowSource отвергает функцию INDIRECT на этапе разработки
 
#
25.03.2017 19:18:52
Цитата
vikttur написал: Я о том, что не использовать .RowSource, заполнить .list
Я бы хотел разобраться, как правильно использовать RowSource. Например, у меня есть другой файл, в котором успешно прописана в rowsource функция INDIRECT и всё работает, но как я это сделал я не помню совершенно.
с уважением,
Батьянов Денис
 
Перейти    
VBA ListBox: поле RowSource отвергает функцию INDIRECT на этапе разработки
 
#
25.03.2017 19:12:13
В таком случае, мой костыль изящнее вашего :)
с уважением,
Батьянов Денис
 
Перейти    
VBA ListBox: поле RowSource отвергает функцию INDIRECT на этапе разработки
 
#
25.03.2017 18:48:22
Легко сказать...
с уважением,
Батьянов Денис
 
Перейти    
VBA ListBox: поле RowSource отвергает функцию INDIRECT на этапе разработки
 
#
25.03.2017 18:08:43
Уважаемые, комрады!

Не подскажете ли, что можно сделать, чтобы обойтись вот без такого извращения:
Код
Private Sub UserForm_Activate()
  lbSpecs.RowSource = Replace(lbSpecs.RowSource, "ДВССЫЛ", "INDIRECT")
End Sub
Без этого листбокс показывает данные в режиме разработчика, но ничего не показывает в режиме исполнения.
В rowsource у меня следующее =ДВССЫЛ("TBL_SPEC_DB"). Это умная таблица.
Руками прописать INDIRECT не даёт... принимает только ДВССЫЛ.
с уважением,
Батьянов Денис
 
Перейти    
Есть ли будущее у VBA
 
#
02.09.2015 20:53:17
Vikttur, завязывайте с модераторством, у вас профессиональная деформация пошла на этой почве. На ровном месте "строите" людей. Это никому не на пользу, особенно вам. Всего доброго.
с уважением,
Батьянов Денис
 
Перейти    
Есть ли будущее у VBA
 
#
02.09.2015 18:44:35
Ничего себе оффтопьте на здоровье... :evil:
с уважением,
Батьянов Денис
 
Перейти    
Есть ли будущее у VBA
 
#
02.09.2015 12:14:31
Цитата
Olegersohn написал:
Т.е. считаете, что все уйдет в облако аки гугл докс?
Типа того. Устройств, с которых нужно работать уже много (ПК, ноутбуки, планшеты, смартфоны). Необходимо, чтобы прикладная программа одинаково работала на каждом и не требовала раздельной разработки под каждый тип клиента.
с уважением,
Батьянов Денис
 
Перейти    
windows 10
 
#
02.09.2015 09:21:03
Да куда ж вы торопитесь? Дождитесь хотя бы SP1 :)
Я, честно говоря, 8-ку то не поставил, так как в упор не вижу, чем же она лучше 7-ки. Чем хуже - видно хорошо.
с уважением,
Батьянов Денис
 
Перейти    
Есть ли будущее у VBA
 
#
01.09.2015 23:34:08
Цитата
Skif-F написал: ...Очень не хватает нормального наследования...
Не сказать, что мне его тоже очень не хватает, но тот же несчастный Turbo Pascal всё это умел уже в версии 5.5 от 1989 года :)
с уважением,
Батьянов Денис
 
Перейти    
Страницы: 1 2 След.
Наверх