Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
VBA Как передать параметр при использовании CommandBarButton.OnAction Предполагаю, что с помощью команды "OnAction" нельзя вызывать процедуру с параметром. Для того, чтобы вызвать процедуру с параметром: нужно сделать процедуру без параметра, которую запустит кнопка командой "OnAction". А процедура без параметра запустит процедуру с параметром; нужно использовать команду Application.CommandBars.ActionControl.Parameter. Эта команда получает параметры элемента... https://www.cyberforum.ru/ vba/ thread804432.html VBA Заполнить ListBox выборкой по значениям из другого столбца таблицы
Доброе время суток, уважаемые форумчане! Не могу никак сообразить, как сделать выборку из таблицы перебором строк и заполнить листбокс значениями из соответствующего столбца нужных строк? Конкретнее и наглядно на картинке -> http://imghost.in/img/2013-03/10/fu9gje3xz2xejrbns8tjehdvd.png Есть таблица с именами и датами. Есть ЮзерФорма, суть в том что при открытии этой самой ЮзерФормы...
VBA Вывод массива в строку https://www.cyberforum.ru/ vba/ thread804207.html
Ребята, помогите пожалуйста дописать код. Option Base 1 Const n = 40 Sub Zadanie2() Dim X(n) As Double Dim Y(n) As Double Dim maxX As Double, maxY As Double Dim str_a, str_b For i = 1 To 40 X(i) = Int(Rnd * 100)
VBA VB И снова здравствуйте, помогите пожалуйста с написанием текста программ.. заранее огромное спасибо тем кто откликнется! Задание 1 Задан массив целых чисел. Определить среднее арифметическое значение чётных чисел в диапазоне 1..30. Задание 2 Задан числовой массив. Сформировать массив отклонений от среднего арифметического значения исходного массива. Задание 3 Задан числовой массив.... https://www.cyberforum.ru/ vba/ thread804082.html
Поиск ячейки по значению VBA
Здравствуйте! У меня есть таблица, она находится в левом верхнем углу листа Excel. Я считываю из нее данные, делаю расчеты и вывожу в другой лист результат. Нужно, чтоб программа правильно работала, даже если слева добавить несколько столбцов и/или сверху добавить несколько строк в лист. Можно ли найти левую верхнюю ячейку моей таблицы по значению и как это сделать? Ведь невозможно перебрать все...
VBA Вывести список всех значений, соответствующих заданному параметру Добрый день! подскажите пожалуйста, как выбирая в ячейке A1 ("лист1") ключ, получить список всех значений в колонках G:H из таблицы на вкладке "лист2" соответствующих заданному параметру? файл с уже готовым примером на основе забитого значения "33" в ячейке A1 - прикладываю P.S. к сожалению выпадающий список в ячейке A1 не работает при конвертации файла в формат Excel 2003. P.S.... https://www.cyberforum.ru/ vba/ thread803864.html
VBA Определить будут ли заданные три точки расположены на одной прямой https://www.cyberforum.ru/ vba/ thread803799.html
Помогите выполнить задание) VBA. Даны три точки А( X 1 , Y 1 ), В( X 2 , Y 2 ), C(X3,Y3). Определить, будут ли они расположены на одной прямой.
Считать данные с листа в массив, найти максимум, вывести в диалоговое окно VBA
Помогите, пжл. подправить программу, чего-то некорректно работает. Создать процедуру для выполнения следующих действий: 1. Записать в массив с именем М данные, хранящиеся в ячейках B3:В8 листа Excel с именем «Исходный», а в массив с именем N - данные, хранящиеся в ячейках D2:D7 того же листа. 2. Определить массив К, каждый элемент которого равен сумме соответствующих элементов...
VBA Outlook - распознавание "отметки к исполнению" https://www.cyberforum.ru/ vba/ thread803661.html
Все доброго времени суток. Ситуация такая, в организацию поступаю множество писем, в каждом этом письме вложение с заполненной клиентами анкетой, при сортировке этих писем, анкеты заполненные не корректно помечаются как спам (ставиться отметка к исполнению - "спам" и завершается) и эти письма вместе с вложение необходимо пересылать ответственному сотруднику. Хочу сделать макрос который сам бы...
VBA Создать пользовательскую форму, выводящую значения функции Необходимо создать пользовательскую форму, выводящую значения функции. Добавить в форму кнопку Отмена для завершения работы с пользовательской формой. https://www.cyberforum.ru/ vba/ thread803300.html
Вычисление определенного интеграла методов прямоугольников VBA
Надо написать программу вычисления определенного интеграла методов прямоугольников в VBA. интеграл-(корень из sin(x))*cos(x)dx я не понимаю вообще интегралы. помогите пожалуйста
VBA Макрос для вычесление расчета, с несколькими критериями Помогите разобраться, как можно организовать, данный расчет с помощью VBA. Желательно, что бы расчет происходил автоматически, без нажатия каких либо кнопок, а сразу после появления новых данных. Пробовал решить данную, задачу с помощью формул, но из-за зацикливания формул, решить не получилось. Задача следующая: В колонки "1-й оборот", "2-й оборот","3-й оборот","4-й оборот""5-й оборот"... https://www.cyberforum.ru/ vba/ thread802944.html
6 / 5 / 2
Регистрация: 04.01.2013
Сообщений: 56
0

Word: Создать элемент контестного меню и навешать на него процедуру с параметрами - VBA - Ответ 4232678

10.03.2013, 10:46. Показов 1957. Ответов 8
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
Добавляю в контестное меню текста новый элемент.
При выборе данного элемента необходимо исполнить макрос с определнными парметрами.

Если передавать максрос, в котором не используются парметры, то все работает.
Выполнить с парамтерами не получается. Пишет: "Макрос не найден".

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
Sub test(Optional number As Integer = 1)
    Debug.Print number
End Sub
 
 
Sub menu()
    Dim cb As CommandBar
    Dim cbb As CommandBarButton
    
    ResetCommandBar ' Сброс
 
    Set cb = CommandBars("text") ' контекстное меню для текста
    Set cbb = cb.Controls.Add(Type:=msoControlButton)  ' добавляем новый элемент
    cbb.Caption = "Элемент меню" ' Текст элемента
    
    cbb.OnAction = "test"    ' РАБОТАЕТ 
    cbb.OnAction = "test(2)"  ' НЕ РАБОТАЕТ
    cbb.OnAction = "test 2"   ' НЕ РАБОТАЕТ
    cbb.OnAction = "test " & Chr(34) & "2" & Chr(34) & ""  ' НЕ РАБОТАЕТ
    cbb.OnAction = Templates(3).Path & "\" & Templates(3).Name & "!test 2"  ' НЕ РАБОТАЕТ
End Sub
 
Sub ResetCommandBar()
    ' Сброс
    Dim cb As CommandBar
    CustomizationContext = NormalTemplate
    Set cb = CommandBars("Text")
    cb.Reset
End Sub
Каким способом можно передать параметры?

Вернуться к обсуждению:
Word: Создать элемент контестного меню и навешать на него процедуру с параметрами VBA
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.03.2013, 10:46
Готовые ответы и решения:

Возможно ли создать процедуру с опциональными параметрами?
Всем доброго времени суток! Столкнулся с задачей написать кое-какую игру пошаговую. Управление -...

Нужно создать хранимую процедуру для БД с параметрами
Нужно создать хранимую процедуру для БД с параметрами, подсчитывающую количество товаров во всех...

Как создать и вызвать процедуру с параметрами (пример в описании) ?
CREATE PROC proc1 (@a int, @b int) as begin SELECT @a, @b end proc1(1, 2) Процедура...

Создать документ Word и вставить в него текст из буфера
Всем привет! Народ, помогите на vb.net осуществить следующее: 1. Создать документ Word и вставить...

8
10.03.2013, 10:46
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.03.2013, 10:46
Помогаю со студенческими работами здесь

Создать файл Word, поместить в него один из тестов
Есть Вордовский файл типа, в нем 20 вариантов тестирования. Нужно программно создать новый файл...

Создать новый документ Word и вывести в него числа от 1 до N
Создать новый документ и вывести в него числа от 1 до N (N вводится в программе в EDIT) каждое...

Создать свой элемент - правильный шестиугольник с минимальными параметрами
Нужно создать элемент на подобии линии из PowePacks, точнее их совокупности. В общем надо создать...

Вписать 4 подпрограммы: процедуру без параметров, процедуру с параметрами-значениями (параметром переменной), функцию
var i, N: integer; A, P, S: real; begin writeln('Введите вещественное число:'); ...

Создать процедуру, которая определяет последний мини-мальный элемент в трех средних строках матрицы. Заменить в матрице этот элемент нулем.
Задание звучит как: Сформировать матрицы {aij}n,m , {bij}k,l , где i<=(n,k), j<=(m,l) , элементы...

Создать меню MS Word
Здравствуйте, нужно создать проект, содержащий меню, аналогичное MS Word. Общий вид проекта...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru