|
|
Другие темы раздела | ||||||||||||||||||
VBA Не соблюдается условие в Word VBA
https://www.cyberforum.ru/ vba/ thread805265.html Всем здравствуйте. У меня такая проблема, переменная kolP1 подсчитывает параграфы в документе, nP1-ввод номера параграфа, отсюда казалось бы и логическое условие:если пользователь вводит число превышающее параграфы - то соответственно тестовое сообщение, и перенаправление на повторный ввод информации: vvod: kolP1 = ActiveDocument.Paragraphs.Count vvod: nP1 = InputBox("Введите номер... |
VBA При выборе даты в календаре - заполнять ячейки по порядку до определенной даты и рядом высвечивать день недели Здравствуйте. Нужна ваша помощь. В программе есть написанный на VBA календарь. нужно написать код, что бы при выборе даты заполнялись нижние ячейки по порядку до определенной даты и рядом высвечивался день недели. P.S. Чтобы добавить календарь нужно на листе сентябрь выбрать ячейку B1 | |||||||||||||||||
VBA Word: заменить и сдвинуть каретку сразу после ввода
https://www.cyberforum.ru/ vba/ thread804983.html Подскажите, пожалуйста, как сразу после ввода определённых символов заменить их другими и сдвинуть каретку в нужную позицию? Для простой замены во время ввода есть Автозамена в Word (то есть напечатали заменяемые символы, нажали пробел и эти символы заменились на нужные). Но как управлять Автозаменой программно, чтобы можно было ещё добавить изменение позиции каретки? Например, нужно во... |
VBA Очень медленное копирование? Здравствуйте,уважаемые форумчане.Я написал не сложный макрос,но при копировании такого количества строк ,он работает больше пяти минут на одном листе.Пробовал делать на массиве are(),но как для массива are указать , переделать эту строку , не получается: d = Cells(a + k, Columns.count).End(xlToLeft).Column Sub КОПИР() Dim a&, f&, w&, t&, e&, k&, l&, g&, v&, x&, d& ... https://www.cyberforum.ru/ vba/ thread804778.html | |||||||||||||||||
VBA взаимодействие "if" and "or" Ребята посмотрите пожалуйста где ошибка, вместо того чтобы удалять ячейки в которых нет 00 или 03 или 06 и т.д. Удаляется все. Sub aero2() Dim wsh As Worksheet Dim i As Long Dim j As Long Dim m As Long |
VBA Word: Создать элемент контестного меню и навешать на него процедуру с параметрами Добавляю в контестное меню текста новый элемент. При выборе данного элемента необходимо исполнить макрос с определнными парметрами. Если передавать максрос, в котором не используются парметры, то все работает. Выполнить с парамтерами не получается. Пишет: "Макрос не найден". Sub test(Optional number As Integer = 1) Debug.Print number End Sub https://www.cyberforum.ru/ vba/ thread804460.html | |||||||||||||||||
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" соответствующих заданному параметру?
файл с уже готовым примером на основе забитого значения "3
Наверх
|