Полезности

[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

[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

[Aent]

Новая версия популярной программы IndenterVBA

http://www.oaltd.co.uk/DLCount/DLCount. ... terVBA.exe

А что нового то ? Вроде бы та же самая версия 3.5 от 2005 г. ...

[Mint86]

Прошу прощения убрал данную фразу.

[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-й файл)

[Mint86]

Можно еще добавить возможность, смены названий дней недель. Чтобы пользователь мог добавлять другие языки

[Mint86]

Здесь календарь

Можно еще добавить возможность, смены названий дней недель. Чтобы пользователь мог добавлять другие языки

[VictorM]

Можно еще добавить возможность, смены названий дней недель. Чтобы пользователь мог добавлять другие языки

добавил.
Русский, английский языки.
Представление недели в формате Пн- Вс и Su - Sa.
(Файл перепакован 2 раза - не позволял размер для загрузки на форум)

[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.

[Aent]

У Пирсона обновление
http://www.cpearson.com/excel/ShuffleArray.aspx
Приведён код VBA подпрограммы рандомизирующей VBA массив.
IMHO - Полезная штука.