» Excel VBA (часть 3)

grbdv
Цитата:

http://rghost.net/private/39549317/264aa8595818cef5d9d42c087b1b5c09

Можно и проще сделать. Вот сильно оптимизированный вариант - ссылка. Чтобы увеличить на единицу, выделяем диапазон и Ctrl+Shift+U
Чтобы уменьшить на единицу, выделяем диапазон и Ctrl+Shift+D
Если хоткеи не пробиваются в файле, а пишутся в систему, тогда надо задать самостоятельно комбинации.

Maximus777
Совершенно верно. Только ведь форма нужна и для дополнительного осмысливания того, что делаешь. А эти клавиатурные... многие их ведь просто недолюбливают, причин этому - множество.

И, потом, у меня ведь заложена возможность (в коде нет) ввести нужное число в поле и прирастить именно на эту величину.

syd
Снкс.
Но про камни не забудь. Например - пустые ячейки тоже будут изменяться. Надо ставить проверку. Проверку на корректность - тоже нужно.

И, помни - откатов в VBA нет :( Если изменил и не уверен - лучше не сохраняться и закрыть файл. А автосохранение может быть включено ;) Т.е. нужны резервные копии.

Добавлено:

Цитата:

у меня ведь заложена возможность (в коде нет) ввести нужное число в поле и прирастить именно на эту величину.

Надо добавить модуль формы вот этой процедурой:

Код:
Private Sub tbxValue_AfterUpdate()
Call sb_SetTbx
End Sub

grbdv

Да, про обратный откат я уже заметил. )) Я все же какой ни какой айтишник)))

Еще раз всем спасибо. особенно grbdv

Mishel917
Вот Вам обещанный пример работы с ListView от Xtreme. Плюс в коде пример работы с API системы.

Maximus777

Из файла ListView_MulniPage скопировал элемент управления ListView. Это Xtreme ListView ? Вставил для пробы на форму. Смещения скопированного ListView на переходах из вкладки на вкладку MultiPage такиеже, может даже смещается чаще.

Mishel917
Цитата:

Из файла ListView_MulniPage скопировал элемент управления ListView. Это Xtreme ListView ?

Нет. Xtreme красивый. Ссылка выше именно с ним. Только там без MultiPage. Надо попробовать, у Xtreme есть и такой контрол.

Maximus777

Спасибо за пример. Пока что он у меня не открывается. Библиотека не зарегистрирована. Разбераюсь - как регистрировать.
Есть вопрос - как Xtreme ListView с проектом переносить на другой компьютер. На другом компьютере тоже необходимо библиотеку регистрировать или можно её носить вместе в одной папке?

Mishel917
Цитата:

Разбераюсь - как регистрировать.

Батник там в помощь.


Цитата:

На другом компьютере тоже необходимо библиотеку регистрировать

Да.

Maximus777

Добрый день!

Прочитал в Блокноте файл Codejock.Controls.v12.01 – пример регистрации библиотеки. С помощью этого примера можно регистрировать *.ocx.

Ещё один вопрос по теме регистрации библиотеки. Представленная регистрация есть общая, т. е. после регистрации *.ocx. на неё можно будет делать ссылку из нескольких программ. А можно сделать надстройку в Excel, которая обеспечивала бы подключение *.ocx и выход на Xtreme ListView (отдельный Toolbox) только для Excel?

Mishel917
Цитата:

А можно сделать надстройку в Excel, которая обеспечивала бы подключение *.ocx и выход на Xtreme ListView (отдельный Toolbox) только для Excel?

Боюсь, что мой уровень не позволяет ответить на такой вопрос. Но в чём проблема? Пусть пользуется, кто хочет.

Mishel917

Цитата:

А можно сделать надстройку в Excel, которая обеспечивала бы подключение *.ocx и выход на Xtreme ListView (отдельный Toolbox) только для Excel?

Зачем это все?

Боюсь, что только для Ексель - нет. Ведь любая библиотека, независимо от того, как она регистрируется (пусть она и регистрируется чисто через Ексель хоть рукми, хоть программно), все равно пишется в реестр, как класс и становится доступна любому приложению в системе.

А, вообще, для программного управления библиотеками нужно подключить следующую библиотеку :)
Microsoft Visual Basic for Applications Extensibility

grbdv
Цитата:

А, вообще, для программного управления библиотеками нужно подключить следующую библиотеку
Microsoft Visual Basic for Applications Extensibility

Разве, что при запуске подключать, а при выходе отключать. Но присоединяюсь к вопросу:


Цитата:

Зачем это все?

Maximus777

Цитата:

при запуске подключать, а при выходе отключать

В этой схеме тоже какие-то траблы, кто-то на что-то ругаться будет. Я тихо помню, давно что-то подобное городил... Код не скомпилируется. И одно дело - подключать-отключать ужЕ зареганную б-ку, другое дело - регить-разрегить. Вобщем - лучше не соваться в этот огород.

Если отвлечься от этих непонятных хотелок, то самое надежное - книгу передавать в комплекте с библиотекой и батником для реги-разреги.

grbdv
Цитата:

Вобщем - лучше не соваться в этот огород.

Согласен. Тем более без достаточного уровня знаний.

Всем спасибо за содержательные ответы.

Ещё немного продолжу тему таким вопросом (Maximus777 в определённой степени уже дал ответ)
Допустим, выбран вариант переделать книгу в комплекте с библиотекой и батником для регистрации и снятия регистрации библиотеки. Регистрация относительно простая операция – одна запись в реестр и библиотека зарегистрирована. Снять регистрацию очевидно задача сложнее, - необходимо будет редактировать не одну запись в реестре (удалять ключи). В этом надёжно разобраться можно и сохранить работоспособный реестр?

Mishel917
Рег/анрег - это не "одна запись в реестр" и не "редактировать не одну запись в реестре (удалять ключи)". Для пользователя это две почти одинаковых строки 'regsvr32 library.ocx' и 'regsvr32 /u library.ocx'. Есть хелп 'regsvr32 /?'

Но, здесь это оффтоп. Тем более в контексте "В этом надёжно разобраться можно и сохранить работоспособный реестр"


Добавлено:
Да, забыл написать, что команда regsvr32 как сама добавит множественное число записей в реестр, так сама и удалит. Поэкспериментируй со своей библиотекой, посравнивай реестр, не бойся - она корректно и ставится и удаляется. Короче - не заморачивайся :)

Можно ли в теле макроса вписать "Описание".
Имею в виду не коментиы, а описание которое видно при откритии окна "Макрос"

P.S. Кнопку "Параметры" не предлогать...

Код: Sub Макрос1()
'
' Макрос1 Макрос
' Трали-вали тили-тили
'

'
Range("C11:C17").Select
Selection.Font.Bold = True
End Sub

Попробуйте изменить ' Трали-вали тили-тили на ' Нифига не Трали-вали тили-тили
И Вы увидите что совсем не етото текст отображается в описании.

Если создавать макрос и вписать текст в описание то тот же текст закомментируется в коде, но не на оборот

NJCorp
Вы не поверите. Нажал "Начать запись", залез в нелюбимую Вами кнопку "Параметры" и получил код:

Код: Sub Макрос2()
'
' Макрос2 Макрос
' Макрос записан 05.08.2012 (Admin)
'

'
Application.MacroOptions Macro:="Макрос1", Description:="нифига не трали-вали" _
, ShortcutKey:=""
End Sub

Maximus777

Добрый день!

Сделал попытку зарегистрировать модуль Codejock.Controls.v12.0.1.ocx пакетным файлом Windows из той же папки Controls – ошибка – 0х80040200 – модуль Codejock.Controls.v12.0.1.ocx загружен но не удалось выполнить вызов DllRegisterServer (компьютер перегружал). Чезез Пуск -> Выполнить -> Обзор -> Reg -> Ок – ошибка таже.
В папку System32 пока Codejock.Controls.v12.0.1.ocx не копировал. На компьютере ОС- Windows Vista. Что не так?

Mishel917
вот с Вистой я Вам ничем не помогу, нет у меня ни одного компа в пределах досягаемости с этой системой. А так, навскидку, думаю не хватает прав, хотя вполне может оказаться, что проблема в русских символах в пути, по которому лежит батник. Попробуйте вручную, скопируйте Codejock.Controls.v12.0.1.ocx и Codejock.Controls.v12.0.1.lic в System32 и сделайте Пуск -> Выполнить -> regsvr32 Codejock.Controls.v12.0.1.ocx

В пути русских символов нет - D:/Program Files/Controls/... - за пределами папки Windows, которая на C. Придётся копировать в System32, если с правами не разберусь.

Добавлено:
Maximus777

Начну с регистрации модуля Codejock.Controls.v12.0.1.ocx на копмьютере без прав. Один вопрос - если зарегистрирую модуль, то елементы Xtreme в список Available Control попадают автоматически или ещё что-то надо крутить? После регистрации модуля,в References проекта надо что-то помечать галочкой?

Mishel917

Цитата:

После регистрации модуля,в References проекта надо что-то помечать галочкой?

А в палитру инструментов необходжимые Вам контролы уже вручную надо добавлять.


Цитата:

В пути русских символов нет - D:/Program Files/Controls/...

Пробелы тоже являются злом в некоторых случаях.

Всем доброго времени суток!

На первой вкладке MultiPage размещён Calendar на второй вкладке список (ListBox или ListView). При Click на Calendar макрос записывает на Лист дату, после чего открывает вторую вкладку.

Me.MultiPage1.Value = 1

На второй вкладке у списка тоже есть событие Click. Бывает так, что Click на первой вкладке вызывает подряд запуск макроса на первой вкладке и на второй вкладке.

Вопрос, - каким способом можно блокировать срабатывание макроса на второй вкладке, при Click на первой вкладке MultiPage?

Mishel917
а нельзя ли выложить сам файл, чтобы, так сказать, прям на операционном столе выяснить причину болезни?

Mishel917

Цитата:

каким способом можно блокировать срабатывание макроса на второй вкладке, при Click на первой вкладке MultiPage?

1. Надо внимательно разобраться в цепочке возникающих событий контролов. Хэлп в помощь и/или эксперимент - загнать в код все события со стопами. Некоторые события могут программно вызывать следующие, некоторые - нет (т.е. только из интерфейса)

2. Некторые события имеют встроенную возможность их отмены (см. п.1)

3. Всего несколькими постами я выкладывал пример, в котором есть обход нежелательного события, не имеющего отмены:

Код:
Private Sub sbtValue_Change()
Select Case bSkp
Case True ' ОБХОД СОБЫТИЯ
bSkp = False
Case False
Call sb_SetTbx
bSkp = True
sbtValue.Value = 0
End Select
End Sub

Пример - http://rghost.ru/39609799


Причина срабатывания подряд двух событий в примере на Page2 и Page3 в не всегда надёжной работе левой кнопки мыши. Левая кнопка мыши вместо одного Click - а может выдавать два. Полагаю такая ситуация в рабочей программе заслуживает внимания. Теоретически такое может быть, и MultiPage этому способствует. Курсор находится в одной точке, а вкладки меняются быстро. Если Click мыши не успевает отключиться, то будут срабатывать два события.

Если у Вас мыши исправные, то срабатывание подряд двух событий не будет проявляться.

Mishel917
События в VBA обрабатываются синхронно. Хоть с исправными мышами, хоть при отсутствии оных вообще :) Настоятельно, повторно, рекомендуется изучить последовательность возникновения событий в конкретных элементах управления.

Бзв, выкладывая пример, надо информировать, что требуются сторонние библиотеки.

grbdv

Для работы примера необходимо установить из своего компьютера ListView1 на Page1 и ListView2 на Page2. Библиотека - Microsoft ListView Controls, version, 6.0

На Page0 находится Calenedar1.