Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/9: Рейтинг темы: голосов - 9, средняя оценка - 4.67
DJFile
0 / 0 / 0
Регистрация: 11.04.2010
Сообщений: 31
1

Плагин для Excel с формой как в "Поиске решений"

03.12.2012, 21:11. Просмотров 1603. Ответов 9
Метки нет (Все метки)

Здравствуйте. Можно ли в Excel сделать что-то типа аддона, с формой как в "Поиске решений". То есть пользователь должен выбирать диапазоны ячеек, ограничения тд, после нажатия кнопки "Посчитать", на новой странице должны отобразиться результаты расчета. При том желательно чтобы решение было для Excel начиная с 2003 версии.

Спасибо.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.12.2012, 21:11
Ответы с готовыми решениями:

Как во всей книге Excel из 10-ти листов удалить " " двойные и более пробелы на " "
Очень хочется удалить во всей книге из 25 тысяч строк более одного пробелов...

Как использовать переменную в Excel/VBA в "объект".Formula="переменная"
Как использовать переменную в Excel/VBA в строке Dim переменная As int...

Макрос "Поиска решений" для ряда значений
Добрый день, помогите решить задачу: есть ряды данных в столбцах K и L...

Outlook: как задать "начало для письма" и чтобы был "прикреплен" соответствующий флаг
Доброго времени суток. В почте Outlook 2010, есть поле "Состояние отметки" -...

Маленькое продолжение темы "Аналог Excel-метода "OnTime"" или про многопоточность
Коллеги, хочу добавить несколько слов ... (раз уж речь зашла про 2003 офис)...

9
Alex77755
10740 / 3312 / 550
Регистрация: 13.02.2009
Сообщений: 9,757
03.12.2012, 21:49 2
Ну раз люди сделали значит можно.
Вот если б ты спросил как сделать, то пока не могу ответить - надо проверить пару вариантов
0
DJFile
0 / 0 / 0
Регистрация: 11.04.2010
Сообщений: 31
03.12.2012, 22:31  [ТС] 3
"Поиск решений" это нативная функция Excel. В Visual Studio можно написать именно плагин, при том хоть на VBA, хоть на C#, но это только для Excel 2007-2010
0
Alex77755
10740 / 3312 / 550
Регистрация: 13.02.2009
Сообщений: 9,757
03.12.2012, 23:05 4
нативная функция Excel, плагин, аддон - я в этих понятиях путаюсь.
Можно ли в Excel сделать что-то с формой как в "Поиске решений". То есть пользователь должен выбирать диапазоны ячеек, ограничения тд, после нажатия кнопки "Посчитать", на новой странице должны отобразиться результаты расчета.
Ну а почему нельзя использовать пользовательскую форму? накидать нужных контролов, снабдить кодом и сохранить как надстройку?

Добавлено через 3 минуты
попробовал - всё получается. Только пока форма диалога появляется сразу при установке галки в списке надстроек, а не по щелчку по пункту в меню, как у поиска решения. Но это нужно написать код не открытия формы, а добавления пункта в меню надстроек и кода для этого пункта. Но это решаемо
0
DJFile
0 / 0 / 0
Регистрация: 11.04.2010
Сообщений: 31
03.12.2012, 23:13  [ТС] 5
Тогда это то, что нужно. Только скажите, как сохранять как надстройку?
0
Alex77755
10740 / 3312 / 550
Регистрация: 13.02.2009
Сообщений: 9,757
03.12.2012, 23:36 6
Сохранить как - в типах файлов выбрать надстройка.
Потом в любой книге подключить
0
DJFile
0 / 0 / 0
Регистрация: 11.04.2010
Сообщений: 31
04.12.2012, 00:38  [ТС] 7
Спасибо. Думаю дальше разберусь.
0
Скрипт
5445 / 1126 / 49
Регистрация: 15.09.2012
Сообщений: 3,416
04.12.2012, 07:15 8
Плагин, адон, надстройка - это одно и то же, только разные слова. Есть и ещё другие названия надстройки.
0
Alex77755
10740 / 3312 / 550
Регистрация: 13.02.2009
Сообщений: 9,757
04.12.2012, 10:57 9
Ну вот и всё получилось как в обычных надстройках: при установке галки в списке в меню сервис появляется рабочий пунктик. При снятии галки пунктик пропадает. так что всё реально:
в эту книга будущей надстройки:
Visual Basic
1
2
3
4
5
6
7
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Delete_punkt_menu
End Sub
 
Private Sub Workbook_Open()
Create_punkt_menu
End Sub
в модуль:
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
Sub Create_punkt_menu()
With Application.CommandBars("Worksheet Menu Bar").Controls(6).Controls
'Создание пунка меню сервис
        With .Add(Type:=msoControlButton)
                .Caption = "Решения поиск"
                .OnAction = "Показать_форму"
        End With
End With
End Sub
 
 Sub Показать_форму()
 UserForm1.Show
 End Sub
 
Sub Delete_punkt_menu()
Dim S As Object
Dim Q As Object
Set S = Application.CommandBars("Worksheet Menu Bar").Controls(6)
For Each Q In S.Controls
    If Q.Caption = "Решения поиск" Then Q.Delete
Next
 
End Sub
1
DJFile
0 / 0 / 0
Регистрация: 11.04.2010
Сообщений: 31
05.12.2012, 00:04  [ТС] 10
Спасибо огромное. Буду пробовать=)
0
05.12.2012, 00:04
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.12.2012, 00:04

В форме создать кнопку, которая будет изменять текст в определенной строке Excel с "неоплачено" на "оплачено"
Добрый вечер, необходимо в форме создать кнопку которая будет изменять текст в...

Какая команда программы "Excel" аналогична параметру "DataOption1"
"DataOption1" - это параметр метода "Sort Method" в VBA-Excel. Метод "Sort"...

MS Acces VBA. Как вывести поле "фамилия" и "группа" из таблицы "студенты" в Access ?
Использовать Fields? Посмотрите в рисунке задания.


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

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

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