Страница 8 из 10
Re: Полезности
Добавлено: 25 июл 2008, 14:39
Mint86
CodeCleaner
During the process of creating VBA programs, a lot of "junk" builds up in your files. If these files aren't cleaned periodically you will start getting strange problems caused by this extra baggage. Cleaning a project involves saving all of it's VBComponents out to text files, deleting the components, then importing the components back from the text files
http://www.oaltd.co.uk/DLCount/DLCount. ... leaner.exe
Re: Полезности
Добавлено: 25 июл 2008, 14:51
Mint86
IndenterVBA
It adds the ability to rebuild all the indenting for a VBA procedure, module or project (i.e. indenting after each If, For etc and outdenting before each End If, Next etc.). The routine handles all valid VBA constructs, including line continuations, multi-statement lines and conditional compilation items and works within all of the Office products and any other VBA6 host. Please let me know of any valid VBA syntax that it does not correctly indent.
http://www.oaltd.co.uk/DLCount/DLCount. ... terVBA.exe
Re: Полезности
Добавлено: 25 июл 2008, 23:40
Aent
А что нового то ? Вроде бы та же самая версия 3.5 от 2005 г. ...
Re: Полезности
Добавлено: 26 июл 2008, 10:02
Mint86
Прошу прощения убрал данную фразу.
Календарь на год с часами - UserForm
Добавлено: 26 июл 2008, 20:19
VictorM
Вот, может кому пригодится.
Календарь на год, часы, текущая дата, выбор года, выбор названия месяцев (рус., укр.)
Все в одном
***
немного доработал, процедуру
Private Sub Set_Mоnth(MyDate As Date) - заполнение 12-ти месяцев, можно заменить вот этим
Код: Выделить всё
Private Sub Set_Mоnth(MyDate As Date)
'Установка календаря
MyYear = Year(MyDate)
toMonth = Month(MyDate)
MyDay = Day(MyDate)
I = 1
For m = 1 To 12
MyMonth = m
MyWeekDay = Weekday(DateSerial(MyYear, MyMonth, 1), vbMonday)
MyCountDay = Day(DateSerial(MyYear, MyMonth + 1, 1) - 1)
l_start = 2 - MyWeekDay
For I = I To I + 5
For J = 1 To 7
If l_start >= 1 And l_start <= MyCountDay Then
Me.Controls("Cell_" & I & "_" & J).Caption = l_start
Else
Me.Controls("Cell_" & I & "_" & J).Caption = ""
End If
If l_start = MyDay And MyMonth = toMonth Then
Set_On_Off CInt(I), CInt(J)
End If
l_start = l_start + 1
Next J, I
Next m
End Sub
(см. 2-й файл)
Re: Полезности
Добавлено: 28 июл 2008, 06:11
Mint86
Можно еще добавить возможность, смены названий дней недель. Чтобы пользователь мог добавлять другие языки
Re: Полезности
Добавлено: 28 июл 2008, 12:03
Mint86
Здесь календарь
Можно еще добавить возможность, смены названий дней недель. Чтобы пользователь мог добавлять другие языки
рус. англ.
Добавлено: 28 июл 2008, 17:08
VictorM
Mint86 писал(а):Можно еще добавить возможность, смены названий дней недель. Чтобы пользователь мог добавлять другие языки
добавил.
Русский, английский языки.
Представление недели в формате Пн- Вс и Su - Sa.
(Файл перепакован 2 раза - не позволял размер для загрузки на форум)
Re: Полезности
Добавлено: 30 июл 2008, 02:43
Aent
http://torrents.ru/forum/viewtopic.php?t=1015677
VB Decompiler Pro 5.0
Год выпуска: 2008
Версия: Pro 5.0
Разработчик:
GPcH Soft
Платформа: Windows 95/98/ME/2k/XP/2003/Vista
Совместимость с Vista: да
Системные требования: Pentium 166, 32Mb RAM
Язык интерфейса: только английский, русский Help
Описание:
VB Decompiler - это декомпилятор программ (EXE, DLL, OCX), написанных на Visual Basic 6.0.
Re: Полезности
Добавлено: 10 авг 2008, 23:57
Aent
У Пирсона обновление
http://www.cpearson.com/excel/ShuffleArray.aspx
Приведён код VBA подпрограммы рандомизирующей VBA массив.
IMHO - Полезная штука.