Форум программистов, компьютерный форум, киберфорум
Наши страницы

VBA

Войти
Регистрация
Восстановить пароль
 
 
Рейтинг: Рейтинг темы: голосов - 2, средняя оценка - 5.00
аналитика
здесь больше нет...
3331 / 1660 / 184
Регистрация: 03.02.2010
Сообщений: 1,219
#1

Авторские программы, библиотеки, надстройки и шаблоны - VBA

12.02.2010, 17:42. Просмотров 108940. Ответов 143
Метки нет (Все метки)

 Комментарий модератора 
Коллектив модераторов раздела оставляет за собой право использовать данный пост аналитики для размещения и обновления оглавления темы.

Оглавление
- по тематике:

Утилиты


Инструменты программиста

Графические редакторы



Защита программного кода

Офисные операции

Веб-сервис


Игры




- по автору:
A-Z





Конец оглавления

Оригинальное сообщение от аналитики:

Надстройка для VBE "IndenterVBA" - позволяет редактировать стиль оформления программного кода.
27
Вложения
Тип файла: rar IndenterVBA.rar (253.1 Кб, 1493 просмотров)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.02.2010, 17:42
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Авторские программы, библиотеки, надстройки и шаблоны (VBA):

Подключение библиотеки в коде программы - VBA
Добрый день, уважаемые форумчане. При переносе макроса из 2003 в 2007 Excel возникла проблема с библиотекой Microsoft Office Web Components...

ошибка в коде надстройки - VBA
Надстройка выдает ошибку 13. В коде ругается на строку: prob = frmMain.txtSignifLevel.Value. :rtfm: Что значит эта строка? Совсем не...

Редактирование надстройки EXCEL - VBA
Ситуация: есть файл start.xla (при запуске сам не показывается, а формирует и запускает временный файл _start.xls с главным меню...

Временно отключить надстройки - VBA
Здравствуйте! Необходимо в начале действия макрос отключить (или приостановить) действие всех надстроек, а в конце снова включить....

Вызов надстройки через VBA - VBA
Здравствуйте. Очень нужна Ваша помощь. Задача следующая: В VBA для Excel 2003 необходимо написать макрос с использованием (вызовом)...

Всё про надстройки .XLA - VBA
Предлагаю в этой теме обсудить все аспекты надстроек .XLA . Частично эти вопросы затрагивались в теме ...

143
Казанский
13211 / 5102 / 1227
Регистрация: 24.09.2011
Сообщений: 7,882
30.12.2012, 12:47 #31
Готовые решения и полезные коды на Visual Basic 6.0

Мне это казалось очевидным, но, судя по тому, сколько благодарностей набрал пост...
0
Alex77755
10573 / 3170 / 517
Регистрация: 13.02.2009
Сообщений: 9,296
31.12.2012, 19:47 #32
Цитата Сообщение от Казанский Посмотреть сообщение
Если у кого-нибудь не работает прокрутка колесиком мыши в редакторе VBA, установите эту крошечную программу.
Страница на сайте разработчика: http://www.gasanov.net/VBScroll.asp
Спасибо. Очень удобная программа.
Одно неудобство - зачем-то постоянно лезет в интернет, а фаервол не хочет запоминать её и постоянно выдаёт сообщение. Невольно наталкивает на мысль: а зачем простенькая программа постоянно лезет в интернет? Не нравятся мне такие программы. Даже если они и безвредны!
1
Казанский
13211 / 5102 / 1227
Регистрация: 24.09.2011
Сообщений: 7,882
01.01.2013, 23:04 #33
Цитата Сообщение от Alex77755 Посмотреть сообщение
Одно неудобство - зачем-то постоянно лезет в интернет
Честно говоря, не замечал, хотя пользуюсь давно
Цитата Сообщение от Alex77755 Посмотреть сообщение
фаервол не хочет запоминать её и постоянно выдаёт сообщение
Может, можно настроить фаервол так, чтобы он блокировал запросы этой программы без сообщений?
0
Dragokas
Эксперт WindowsАвтор FAQ
16037 / 6855 / 826
Регистрация: 25.12.2011
Сообщений: 10,612
Записей в блоге: 16
04.01.2013, 02:00 #34
Так есть официальное от Майкрософт.

DLL: VB Дочитайте статью до конца - там поддержка VBA IDE заявлена тоже (Reg-ключик).

Для VBA

Для самих элементов управления:
API на основе HookXP от Karl E. Peterson's
0
tevadim
90 / 0 / 1
Регистрация: 09.01.2013
Сообщений: 2
09.01.2013, 11:35 #35
SUPER утилита на все случаи жизни ! ASAP НАДСТРОЙКА - БЕСПЛАТНАЯ Можно прочитать http://shperk.ru/uroki/excel/makrosy-v-excel.html
0
Вложения
Тип файла: rar ASAPUtilities_4-8-6_HS_Setup.rar (7.87 Мб, 308 просмотров)
Казанский
13211 / 5102 / 1227
Регистрация: 24.09.2011
Сообщений: 7,882
17.02.2013, 14:25 #36
Как провозглашают создатели, цель надстройки - облегчить ежедневную жизнь программиста
Она помогает писать код, конструировать формы, документировать проект, оценивать качество кода.

Подробно и с картинками на этой странице: http://www.mztools.com/v3/features.aspx
Версия 3 для VBA (только для 32 бит!), VB6, VB5 бесплатна: http://www.mztools.com/v3/download.aspx
2
влад74
98 / 16 / 0
Регистрация: 02.07.2012
Сообщений: 142
14.03.2013, 11:48 #37
Всем доброго .....
Делюсь наработанным.
Во вложенном файле исходный интерфейс БД Access.
БД защищена от Шифта, нет доступа к коду, ленте и к навигации.
База "запоролена". При открытие нужно будет создать свой код. Срок действия кода - полгода, затем каждые полгода нужно вводить новый код (или блокировать код - чтобы отключить пароль).
Доступ к шифту, коду, навигации, ленте можно восстановить. Для этого нужно открыть Админ_форму (нажав F11 - пароль kurguzov).

good luck
1
Вложения
Тип файла: rar MacCess_&_Kurguzov.rar (157.7 Кб, 147 просмотров)
KoGG
5262 / 1335 / 314
Регистрация: 23.12.2010
Сообщений: 2,015
Записей в блоге: 1
22.03.2013, 11:02 #38
OLAP куб - реализован в виде класса OLAP. Предназначен для работы с ячейками Excel как с OLAP кубом.
Создание куба OLAP в excel 2010

OLAP куб весьма оригинальный объект.
Например запросы из примера:
MyOLAP.cube() возвращает 3-х мерную матрицу
MyOLAP.cube(, , 3) возвращает двумерную матрицу
MyOLAP.cube(, 2, 3) возвращает одномерную матрицу- вектор
MyOLAP.cube(10, 2, 3) возвращает переменную.
Аналогичны особенности и в присвоении данных кубу.
3
Казанский
13211 / 5102 / 1227
Регистрация: 24.09.2011
Сообщений: 7,882
19.04.2013, 14:50 #39
Protect VBA (v.1.6)- программа, которая устанавливает защиту проекта VBA от просмотра и изменения.
При попытке открыть проект VBA, защищенный этой программой, появляется сообщение

Project Locked - Project is unviewable

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

> В общем-то прога хорошая, хотя и тоже не такая уж и надежная(для знающих). Она делает недоступным проект VBA. А делает она это правкой потоков файла в VBA_PROJECT_CUR. При помощи FARManager можно попытаться посмотреть, что именно она меняет(это кому вдруг очень интересно станет). При определенном желании и терпении можно снять и такую защиту.
Но проги по удалению паролей(типа AOPR) здесь бессильны, что радует

> к моему великому огорчению код МОЖНО посмотреть (слегка в диковатом виде) в OpenOffice
2
Вложения
Тип файла: zip ProtectVBA.zip (286.7 Кб, 214 просмотров)
Dragokas
Эксперт WindowsАвтор FAQ
16037 / 6855 / 826
Регистрация: 25.12.2011
Сообщений: 10,612
Записей в блоге: 16
19.04.2013, 15:24 #40
Статья. Ускоряем запуск Excel 2007

Не по теме:

Не знаю, в какую это тему. В идеале - для раздела об Excel.

0
KoGG
5262 / 1335 / 314
Регистрация: 23.12.2010
Сообщений: 2,015
Записей в блоге: 1
03.07.2013, 11:07 #41
Надстройка Sparklines - диаграммы в ячейках.
Доработать надстройку Sparklines
1
Dragokas
Эксперт WindowsАвтор FAQ
16037 / 6855 / 826
Регистрация: 25.12.2011
Сообщений: 10,612
Записей в блоге: 16
13.07.2013, 03:22 #42
FormFun
Автор: Stephen Bullen & Tim Clem

Класс API-функций для управления стилями формы:
  • Модальность
  • Убрать строку заголовка
  • Видимость формы в панели задач, как отдельного процесса
    (в зависимости от этого параметра форма будет сворачиваться
    либо в угол экрана родительского объекта Excel, либо в панель задач)
  • Смена иконки с выбором источника ICO, либо EXE или DLL в качестве ресурса.
  • Убрать кнопку закрытия формы
  • Добавить кнопку "Развернуть на весь экран"
  • Добавить кнопку "Свернуть"
  • Разрешить изменение размеров формы
  • Сделать строку заголовка узкой = мелкие кнопки
  • Убрать системные кнопки (останется только заголовок).

Оформлено в виде демо-формы

Авторские программы, библиотеки, надстройки и шаблоны
Авторские программы, библиотеки, надстройки и шаблоны


FormFun.zip

---------------------------------
P.S. Там у него, кстати, еще много чего интересного:
http://www.oaltd.co.uk/Excel/Default.htm
http://www.oaltd.co.uk/MVP/Default.htm
3
KoGG
5262 / 1335 / 314
Регистрация: 23.12.2010
Сообщений: 2,015
Записей в блоге: 1
30.07.2013, 14:31 #43
Два фрактала на форме, рисование через API.
2
Вложения
Тип файла: zip API_Fractal.zip (19.2 Кб, 167 просмотров)
KoGG
5262 / 1335 / 314
Регистрация: 23.12.2010
Сообщений: 2,015
Записей в блоге: 1
29.08.2013, 17:57 #44
Использовать в целях переименовавания музыкальных файлов для воспроизведения в случайном порядке.
Данный макрос переименовывает все файлы в выбранной папке, присоединяя слева к старому имени файла случайный порядковый номер. Если у файла в имени был слева номер, то старый номер удаляется.
Кликните здесь для просмотра всего текста
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
Sub Rename_PlayFiles()
    Dim oFSO As Object, oFolder As Object, oFile As Object
    Dim i%, j%, MyPath$, FCnt%, Min!, PoTemp!, sTmp$, sL$, sR$, Usl As Boolean
    With Application.FileDialog(msoFileDialogFolderPicker)
        .ButtonName = "Выбрать": .Title = Title: .InitialFileName = "C:\"
        If .Show <> -1 Then Exit Sub
        MyPath = .SelectedItems(1)
    End With
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    Set oFolder = oFSO.GetFolder(MyPath)
    MyPath = MyPath & "\"
    FCnt = oFolder.Files.Count
    ReDim OldNames$(FCnt), NewNames$(FCnt), Poryadok!(FCnt), NewPrefix$(FCnt)
    i = 0
    For Each oFile In oFolder.Files
        i = i + 1
        OldNames(i) = oFile.Name
        sL = Left$(OldNames(i), 5)
        sR = Right$(OldNames(i), Len(OldNames(i)) - 5)
        Usl = True
        If sL Like "[0-9][0-9][0-9][0-9]_" Then
           sL = ""
        ElseIf sL Like "[0-9][0-9][0-9][0-9]?" Then
           sL = Right$(sL, 1)
        ElseIf sL Like "[0-9][0-9][0-9]*" Then
           sL = Right$(sL, 2)
        ElseIf sL Like "[0-9][0-9]*" Then
           sL = Right$(sL, 3)
           Usl = False
        ElseIf sL Like "[0-9]*" Then
           sL = Right$(sL, 4)
           Usl = False
        Else
            Usl = False
        End If
        If Usl Then
            sL = Replace(sL, "_", "")
            sL = Replace(sL, " ", "")
        End If
        NewNames(i) = sL & sR
        Poryadok(i) = Rnd
        NewPrefix(i) = Format$(i, "0000") & "_"
    Next
    Randomize Timer
    For i = 1 To FCnt
        Min = Poryadok(i)
        For j = i + 1 To FCnt
            If Min > Poryadok(j) Then
                PoTemp = Poryadok(i)
                Poryadok(i) = Poryadok(j)
                Poryadok(j) = PoTemp
                sTmp = NewPrefix(i)
                NewPrefix(i) = NewPrefix(j)
                NewPrefix(j) = sTmp
            End If
        Next j
    Next i
    For i = 1 To FCnt
        OldNames(i) = MyPath & OldNames(i)
        NewNames(i) = MyPath & NewPrefix(i) & NewNames(i)
        Name OldNames(i) As NewNames(i)
    Next i
    Set oFolder = Nothing
    Set oFSO = Nothing
End Sub
2
Acros Organics
0 / 0 / 0
Регистрация: 25.02.2013
Сообщений: 33
29.09.2013, 19:30 #45
После установки Add-in VB Style Code у меня возник косяк отображения символов внутри скобок. Кто-нибудь сталкивался с подобным?
0
Миниатюры
Авторские программы, библиотеки, надстройки и шаблоны  
29.09.2013, 19:30
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.09.2013, 19:30
Привет! Вот еще темы с ответами:

Хранение картинок в теле надстройки - VBA
Добрый день! Возможно ли хранить картинку в самом файле (&quot;надстрока.xlsx&quot;) и вставлять ее на лист средствами VBA? к примеру:...

Добавление надстройки Excel в Ribbon - VBA
Здравствуйте. Написал я две надстройки на VBA для Excel, и захотелось мне поместить две кнопки для запуска этих надстроек на ленту в...

Вызов окна функции из надстройки - VBA
Добрый день. Сделал надстройку типа RIBBON. В меню перечислил свои пользовательские функции. Хочу, чтобы при щелчке по пункту меню,...

Назначение комбинации клавиш макроса у надстройки - VBA
Есть надстройка в ней полезные макросы.....для вызова которых есть комбинации клавиш.... и так возникла потребность написания....новых...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
45
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru