С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
 
Рейтинг 4.81/668: Рейтинг темы: голосов - 668, средняя оценка - 4.81
аналитика
здесь больше нет...
3349 / 1664 / 184
Регистрация: 03.02.2010
Сообщений: 1,219
1

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

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

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

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

Утилиты


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

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



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

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

Веб-сервис


Игры




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





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

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

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

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

Надстройки
Доброго времени суток, форумчане! Подскажите, каким образом можно извлечь...

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

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

Ошибка в коде надстройки
Надстройка выдает ошибку 13. В коде ругается на строку: prob =...

163
KoGG
5278 / 1351 / 321
Регистрация: 23.12.2010
Сообщений: 2,019
Записей в блоге: 1
03.07.2013, 11:07 41
Надстройка Sparklines - диаграммы в ячейках.
Доработать надстройку Sparklines
1
Dragokas
Эксперт WindowsАвтор FAQ
17031 / 7089 / 857
Регистрация: 25.12.2011
Сообщений: 10,914
Записей в блоге: 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
5278 / 1351 / 321
Регистрация: 23.12.2010
Сообщений: 2,019
Записей в блоге: 1
30.07.2013, 14:31 43
Два фрактала на форме, рисование через API.
2
Вложения
Тип файла: zip API_Fractal.zip (19.2 Кб, 171 просмотров)
KoGG
5278 / 1351 / 321
Регистрация: 23.12.2010
Сообщений: 2,019
Записей в блоге: 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 / 1
Регистрация: 25.02.2013
Сообщений: 33
29.09.2013, 19:30 45
После установки Add-in VB Style Code у меня возник косяк отображения символов внутри скобок. Кто-нибудь сталкивался с подобным?
0
Миниатюры
Авторские программы, библиотеки, надстройки и шаблоны  
Acros Organics
0 / 0 / 1
Регистрация: 25.02.2013
Сообщений: 33
05.10.2013, 20:07 46
Предыдущий вопрос снимаю, т.к. Add-in VB Style Code работает нормально на другом компе.
Буквально пару минут назад решил проблемы копирования из/в компилятора VBA кириллических символов. Возможно кому-то будет полезно. Итак, чтобы корректно копировать кириллицу из VBA необходимо запустить .reg-файл следующего содержания:
Кликните здесь для просмотра всего текста
Код
REGEDIT4
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\CodePage]
"1250"="c_1251.nls"
"1251"="c_1251.nls"
"1252"="c_1251.nls"
"1253"="c_1251.nls"
"1254"="c_1251.nls"
"1255"="c_1251.nls"
"437"="c_866.nls"
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontMapper]
"ARIAL"=dword:000000cc
"DEFAULT"=dword:000000cc
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\Language]
"Default"="0419"
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes]
"Arial,0"="Arial,204"
"Arial Cyr,0"="Arial,204"
"Comic Sans MS,0"="Comic Sans MS,204"
"Courier,0"="Courier New,204"
"Courier,204"="Courier New,204"
"Courier New Cyr,0"="Courier New,204"
"Fixedsys,0"="Fixedsys,204"
"Helv,0"="MS Sans Serif,204"
"MS Sans Serif,0"="MS Sans Serif,204"
"MS Serif,0"="MS Serif,204"
"Small Fonts,0"="Small Fonts,204"
"Tahoma,0"="Tahoma,204"
"Times New Roman,0"="Times New Roman,204"
"Times New Roman Cyr,0"="Times New Roman,204"
"Tms Rmn,0"="MS Serif,204"
"Verdana,0"="Verdana,204"
"Arial CE,238"="Arial,204"
"Arial CYR,204"="Arial,204"
"Courier New CE,238"="Courier New,204"
"Courier New CYR,204"="Courier New,204"
"Times New Roman CE,238"="Times New Roman,204"
"Times New Roman CYR,204"="Times New Roman,204"
"Times New Roman Cyr,0"="Times New Roman,204"
"System,0"="System,204"
"Fixedsys,0"="Fixedsys,204"
"Small Fonts,0"="Small Fonts,204"
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout\DosKeybCodes]
"00000409"="ru"

Чтобы вставить кириллический текст в VBA необходимо, чтобы он был того же шрифта, что стоит там в данный момент (стандартно - Courier New)
0
Kиpилл
Особый статус
Эксперт WindowsВирусоборец
8298 / 1649 / 78
Регистрация: 15.04.2011
Сообщений: 5,399
09.10.2013, 18:47 47
Цитата Сообщение от Acros Organics Посмотреть сообщение
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\CodePage]
"1250"="c_1251.nls"
"1251"="c_1251.nls"
"1252"="c_1251.nls"
"1253"="c_1251.nls"
"1254"="c_1251.nls"
"1255"="c_1251.nls"
"437"="c_866.nls"
как только понадобится поработать с каким нибудь из исправленных шрифтов то будут проблемы.
Попробуйте лучше так:
Код
"1251"="C_1251.NLS" 
"1252"="C_1251.NLS" 
"866"="C_866.NLS" 
"ACP"="1251" 
"OEMCP"="866" 
"MACCP"="10007" 
"OEMHAL"="vga866.fon" 
@="C_1251.NLS"
Цитата Сообщение от Acros Organics Посмотреть сообщение
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\Language]
"Default"="0419"
Это
Bash
1
2
3
"Default"="0419"
"InstallLanguage"="0419"
"InstallLanguageFallback"="0419"
последний параметр -multi_sz
1
Ципихович Эндрю
1411 / 321 / 28
Регистрация: 10.04.2009
Сообщений: 5,042
09.10.2013, 18:50 48
Цитата Сообщение от Казанский Посмотреть сообщение
Protect VBA (v.1.6)- программа, которая устанавливает защиту проекта VBA
по моему всё должно быть просто установил программу открыл её, выбрал файл Ворда - установил, я так делаю, но всё мне предлагает Protect - сколько на неё жать??
0
Dragokas
Эксперт WindowsАвтор FAQ
17031 / 7089 / 857
Регистрация: 25.12.2011
Сообщений: 10,914
Записей в блоге: 16
09.10.2013, 23:23 49
Acros Organics, предложенный вами твик реестра для решения проблемы копирования русского текста между приложениями с включенной английской раскладкой клавиатуры является весьма чрезмерным.

Для этого достаточно перенаправить запрос от одного файла - C_1252.nls

Код
REGEDIT4
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\CodePage]
"1252"="c_1251.nls"
Кроме того решение будет работать только на ОС семейства NT, т.е. до Server 2003 включительно.
Чтобы не быть голословным, я это проверял на виртуалках с чистыми системами.

Для ОС Vista, 7, 8 мною был создан патч замены указанного системного файла, не изменяющий прав на него, тем самым не подвергая риску безопасность системы.
Перед началом операции создается контрольная точка системы + старый файл сохраняется под именем C_1252.bak на всякий случай.

Кликните здесь для просмотра всего текста
Bash
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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
@set @x=0; /* by Alex Dragokas
@echo off
SetLocal EnableExtensions EnableDelayedExpansion
 
echo Патч замены файла кодировки C_1252.nls
echo для предотвращения неверного отображения русского текста в редакторе VBA/VB.6
echo при копировании в английской раскладке клавиатуры
echo.
echo.
:: Проверка версии ОС
If /i "%PROCESSOR_ARCHITECTURE%"=="x86" (set Core=x32) else (set Core=x64)
set /p "=Версия ОС: %Core% "<nul
ver| find "6." && (
  rem Получаем права Администратора
  if "%1"=="" cscript.exe //nologo //e:jscript "%~f0"& Exit
  echo Права Администратора получены.
)
 
:: Переходим в папку с Batch-файлом
cd /d "%~dp0"
 
echo.
echo Этап резервного копирования.
echo.
 
echo. Создаю контрольную точку восстановления системы
echo.
WMIC /Namespace:\\root\default Path SystemRestore Call CreateRestorePoint "SafeZone.cc", 100, 10
if errorlevel 1 (
  echo Не удалось создать контрольную точку.
) else (
  echo Контрольная точка успешно создана.
)
 
if not exist Backup md Backup
 
:: Резервирование файла C_1252.NLS
if exist Backup\C_1252.bak (
  echo Внимание: резервная копия файла C_1252.NLS была создана ранее.
  set ch=
  set /p "ch=Хотите удалить ее? (Y/N) "
  if /i "!ch!"=="Y" del /q Backup\C_1252.bak
)
echo n|>nul copy /-y "%windir%\system32\C_1252.nls" Backup\C_1252.bak
echo.
echo Резервное копирование завершено.
 
echo.
echo Этап замены файлов кодировок
echo.
 
echo Сохраняю права на NSL-файлы в таблицу ACL
icacls "%windir%\system32\C_1252.NLS" /save "Backup\CodePage.ACL" /C >nul
echo.
echo Изменяю владельца на себя
takeown /f "%windir%\system32\C_1252.NLS" >nul
echo.
echo Получаю полные права
echo y|>nul cacls "%windir%\system32\C_1252.NLS" /e /g "%username%":f
echo.
echo Начат процесс замены файла...
echo.
:: Переименовую *.NLS в *.NLS_, чтобы обойти блокировку доступа к файлам, имеющим открытые дескрипторы
echo Переименование
:: Резервирую файл в системную папку
copy /-Y "%windir%\system32\C_1252.NLS" "%windir%\system32\C_1252.bak"
ren "%windir%\system32\C_1252.NLS" C_1252.NLS_
echo.
echo Замена
copy /y "%windir%\system32\C_1251.NLS" "%windir%\system32\C_1252.NLS" >nul
echo.
echo Переназначаю владельца на исходного - TrustedInstaller
icacls "%windir%\system32\C_1252.NLS" /setowner "NT Service\TrustedInstaller" /C >nul
echo.
echo Восстанавливаю права, исходя из эталонной таблицы ACL
echo.
icacls "%windir%\system32" /restore "Backup\CodePage.ACL" /C >nul
 
:: Удаление переименованого файла NLS после перезагрузки
set key=HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnceEx\1
reg add "%key%" /f /v 1 /t REG_SZ /d "cmd /c del /f /q %windir%\system32\C_1252.NLS_"
 
echo.
echo Все операции завершены.
echo.
echo Требуется перезагрузка системы Windows.
set ch=
set /p "ch=Введите Y для продолжения: "
if /i "%ch%"=="Y" shutdown -r -t 1
 
pause& Exit /B
 
*/new ActiveXObject('Shell.Application').ShellExecute (WScript.ScriptFullName,'Admin','','runas',1);
3
Вложения
Тип файла: zip CodePage_file_replacer_1252.nls_Win_Vista_7_8.zip (1.7 Кб, 61 просмотров)
KoGG
5278 / 1351 / 321
Регистрация: 23.12.2010
Сообщений: 2,019
Записей в блоге: 1
11.10.2013, 15:32 50
Цветы и циклоиды в Word + вариация на тему в Excel.
Вдохновленный Sasha_Smirnov -ым и его Телегой-лайт .
8
Миниатюры
Авторские программы, библиотеки, надстройки и шаблоны  
Вложения
Тип файла: doc Цветы.doc (55.0 Кб, 80 просмотров)
Тип файла: doc Цветы_2.doc (62.5 Кб, 38 просмотров)
Тип файла: xls PerpetumMobile.xls (78.0 Кб, 64 просмотров)
KoGG
5278 / 1351 / 321
Регистрация: 23.12.2010
Сообщений: 2,019
Записей в блоге: 1
17.10.2013, 15:15 51
Аэрохоккей.
4
Вложения
Тип файла: xls Аэрохоккей.xls (84.0 Кб, 244 просмотров)
RAVproFFI
33 / 33 / 1
Регистрация: 15.10.2013
Сообщений: 130
30.10.2013, 11:03 52
Отследить бездействие пользователя через VBA
2
KoGG
5278 / 1351 / 321
Регистрация: 23.12.2010
Сообщений: 2,019
Записей в блоге: 1
26.11.2013, 16:11 53
3d анимация американских горок с помощью автофигур.
3
Миниатюры
Авторские программы, библиотеки, надстройки и шаблоны  
Вложения
Тип файла: zip Coaster7_short.zip (1.75 Мб, 237 просмотров)
KoGG
5278 / 1351 / 321
Регистрация: 23.12.2010
Сообщений: 2,019
Записей в блоге: 1
26.11.2013, 16:13 54
3d диаграмма замок.
4
Миниатюры
Авторские программы, библиотеки, надстройки и шаблоны  
Вложения
Тип файла: zip Melting_Snow_Castle.zip (156.5 Кб, 158 просмотров)
влад74
99 / 17 / 0
Регистрация: 02.07.2012
Сообщений: 148
07.02.2014, 13:39 55
Пример универсального обработчика ошибок (автоматически определяет текущий модуль и процедуру)

В результате ошибки в коде появляется сообщение в котором указаны:
1. Название mdb
2. Название Модуля в котором произошла ошибка
3. Название процедуры (Sub/Function) в которой произошла ошибка
4. Название самой ошибки

Когда в работе много mdb это очень удобно.

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
Sub Указание_номера_строки_ошибки()
Dim i As Long, j As Long
 
On Error GoTo error_handler
 
i = 10
'MsgBox "Деление на ноль!!!"
Debug.Print i \ j
 
exit_statements:
Exit Sub
 
error_handler:
'=========================================================== ===========================
Dim startline As Long, startcolumn As Long, endline As Long, endcolumn As Long
VBE.ActiveCodePane.GetSelection startline, startcolumn, endline, endcolumn
 
MsgBox "МОДУЛЬ " & Chr(13) & VBE.ActiveCodePane.CodeModule.Name & Chr(13) & Chr(13) & "ПРОЦЕДУРА " & Chr(13) & _
VBE.ActiveVBProject.VBComponents(VBE.ActiveCodePane.CodeModu le.Name).CodeModule.ProcOfLine(startline, 0) & Chr(13) & _
Chr(13) & "ОШИБКА " & Chr(13) & Err.Description & "(" & Err.Number & ")", vbCritical, "ПРОЕКТ " & CurrentProject.Name &"
 
Resume exit_statements
'=========================================================== ===========================
End Sub
2
Вождь
216 / 48 / 2
Регистрация: 18.02.2010
Сообщений: 81
07.02.2014, 14:32 56
Цитата Сообщение от влад74 Посмотреть сообщение
...определяет текущий модуль и процедуру...
Ага, только не ошибки, а курсора
0
Dragokas
Эксперт WindowsАвтор FAQ
17031 / 7089 / 857
Регистрация: 25.12.2011
Сообщений: 10,914
Записей в блоге: 16
13.02.2014, 23:13 57
Автоматическое включение/отключение макросов в Office 2000 - 2013 (x32, x64) с помощью батника.

ссылка.
1
Казанский
14428 / 5973 / 1587
Регистрация: 24.09.2011
Сообщений: 9,408
09.03.2014, 01:42 58
MsgBoxEx - MsgBox с таймаутом

Известно, что CreateObject("WScript.Shell").PopUp хорошо работает в скриптах VBS, но в VBA окно часто не закрывается по таймауту. Для использования в VBA написал функцию, которая запускает метод PopUp из скрипта.

Текст модуля с функцией
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
Option Explicit
 
Public Function MsgBoxEx(Prompt, Optional Buttons As VbMsgBoxStyle = 0, Optional Title, Optional SecondsToWait = 0) As VbMsgBoxResult
'---------------------------------------------------------------------------------------
' Procedure : MsgBoxEx
' Author    : Казанский, [email]exceleved@yandex.ru[/email]
' Date      : 07.03.2014
' Purpose   : MsgBox with timeout based on WScript.Shell Popup method. Creates .VBS file
'             in temporary folder, runs it, returns result code, deletes the file.
' Arguments : First three are the same as for MsgBox, 4-th is timeout in seconds.
'           : If 4-th arg. is omitted or <=0 then waits for user action infinitely.
' Ret.Value : The same as of Msgbox, -1 if timeout occured.
' Errors    : Raises error 735 if temporary folder can't be found.
'---------------------------------------------------------------------------------------
 
Dim sTmp$, ff%, WshShell As Object
Set WshShell = CreateObject("WScript.Shell")
sTmp = Environ("temp")
If sTmp = "" Then
  sTmp = Environ("tmp")
  If sTmp = "" Then
    sTmp = WshShell.SpecialFolders("MyDocuments")
    If sTmp = "" Then Err.Raise 735 'Can't save file to TEMP directory
  End If
End If
sTmp = sTmp & Format$(Now, """\~MsgBoxEx""YYMMDDHHMMSS"".vbs""")
ff = FreeFile
Open sTmp For Output As ff
 
If IsMissing(Title) Then Title = ""
 
'Popup(<Text>,<SecondsToWait>,<Title>,<Type>)
 
Print #ff, "WScript.Quit CreateObject(""WScript.Shell"").Popup (""" & Str2Code(Prompt) & _
  """, " & Int(SecondsToWait) & ", """ & Str2Code(Title) & """, " & Int(Buttons) & ")"
Close ff
MsgBoxEx = WshShell.Run(sTmp, 0, True)
On Error Resume Next
Kill sTmp
End Function
 
Private Function Str2Code$(s)
'---------------------------------------------------------------------------------------
' Procedure : Str2Code
' Author    : Казанский, [email]exceleved@yandex.ru[/email]
' Date      : 07.03.2014
' Purpose   : Replaces combinations CR+LF, LF+CR, single chars CR, LF with " & vblf & "
'             to be used in VBS code
'---------------------------------------------------------------------------------------
 
Str2Code = Replace$( _
            Replace$( _
              Replace$( _
                Replace$( _
                  Replace$(s, """", """"""), _
                vbCrLf, vbLf), _
              vbLf & vbCr, vbLf), _
            vbCr, vbLf), _
           vbLf, """ & vblf & """)
End Function

Форма для запуска функции с разными параметрами (сделал по аналогии с формой "MsgBox Assistant" MZ-Tools).
Тестировал в WinXP SP3 + Office 2007. Просьба к владельцам 64-битных систем протестировать там.
8
Вложения
Тип файла: xls MsgBoxEx.xls (79.0 Кб, 199 просмотров)
Sasha_Smirnov
5468 / 1311 / 143
Регистрация: 08.02.2009
Сообщений: 4,029
Записей в блоге: 29
22.04.2014, 15:24 59
KoGG, а вывод замка на объёмный принтер возможен (в 3D)?
0
KoGG
5278 / 1351 / 321
Регистрация: 23.12.2010
Сообщений: 2,019
Записей в блоге: 1
22.04.2014, 16:18 60
Возможен, если кто-нибудь напишет драйвер.
1
22.04.2014, 16:18
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.04.2014, 16:18

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

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

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


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

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

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