|
|
Другие темы раздела | |
VBA Перенос диаграммы из Excel в Word через маркер
https://www.cyberforum.ru/ vba/ thread3158427.html Добрый день! Данный код написан для переноса текста из excel в word по маркерам. Помогите, пожалуйста, добавить код для копирования диаграммы из excel в word. Диаграмма должна вставляться в нужно место через замену маркера. Код для переноса текста: Private Sub CommandButton1_Click() |
Неверное количество аргументов или недопустимое присвоение свойства VBA Добрый день! Есть рабочий макрос который отлично выполняется если запускать сам файл с макросом (макрос в таблице вставляет/копирует строку с содержимым). Если файл (шаблон Word с поддержкой макросов (*.dotm)) поместить в автозапуск (C:\Users\User\AppData\Roaming\Microsoft\Word\STARTUP) и попытаться по кнопке в ленте запустить макрос, то выходит ошибка/предупреждение:... |
VBA Задание директории по умолчанию Споткнулся на ровном месте.:) Как задать директорию по умолчанию при сохранении файла? С диалогами Open/Save - там все понятно. Вот пример такой: Dim stFolderName As String Dim lSuccess As Long stFolderName = "D:\Test" ' имя директории, куда нужно делать сохранение ChDir stFolderName ' меняю текущую директорию https://www.cyberforum.ru/ vba/ thread3158294.html |
VBA Сократить поиск не заполненных "поле со списком"
https://www.cyberforum.ru/ vba/ thread3158269.html Здравствуйте! Есть рабочий VBA поиска не заполненных "поле со списком". 1. Как сократить код? 2. Если (к примеру) DropdownListEntries.Item(11) в документе больше 11, будет ошибка. Каким образом сделать проверку если заранее неизвестно количество? Sub ПолеСоСпискомМакрос() 'Ищем первые строки Dim cc As ContentControl For Each cc In ActiveDocument.ContentControls |
VBA Обращение к таблице вложенной в другую таблицу Добрый день. Необходимо обратиться к таблице вложенной в другую таблицу. Подскажите каким образом это сделать? Dim ct, cc, cr As Long ct = Selection.Tables.Count cr = Selection.Rows.First.Index cc = Selection.Cells(1).ColumnIndex MsgBox "Таблица - " & ct & "Столбец - " & cc & "Строка - " & cr Данный макрос дает данные исключительно внешней таблицы With... |
VBA Создание документа Word в новой вкладке Set app = CreateObject("Word.Application") app.Visible = True app.Documents.Add CurrentProject.Path & "\Шаблон\Послужной.dot" app.Activate В предложенном коде создается документ Word, однако если в момент запуска кода приложение word открыто, то возникает ошибка, каким образом можно переработать код, что бы макрос создавал документ в новой вкладке? Спасибо https://www.cyberforum.ru/ vba/ thread3158230.html |
VBA Определить количество слов в строке 4. Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Определить количество слов в стоке. https://www.cyberforum.ru/ vba/ thread3158152.html |
Найти произведение двух полиномов VBA 3. Найти произведение двух полиномов Произведение многочленов равно многочлену, членами которого являются произведения каждого члена другого многочлена. Чтобы найти произведение многочленов, необходимо каждый член одного многочлена умножить на каждый член другого многочлена, а полученные одночлены сложить |
VBA Найти сумму элементов массива стоящих на четных местах 1. Нахождения суммы (количества) элементов массива стоящих на четных (нечетных) местах. https://www.cyberforum.ru/ vba/ thread3158150.html | VBA Составить функции Всем привет, нам дали задание для самостоятельной работы, но мы делали совсем другое, когда спросили как делать нам не ответили буду очень благодарна помощи. На сколько я поняла это все надо писать в функции. Если не займет много вашего времени, пожалуйста помогите. Заранее огромное спасибо!!! 1. Нахождения суммы (количества) элементов массива стоящих на четных (нечетных) местах. 2. На... https://www.cyberforum.ru/ vba/ thread3158142.html |
На отрезке [n, m] найти все автоморфные числа. VBA На отрезке найти все автоморфные числа. Число называется автоморфным , если последние цифры квадрата этого числа дают то же самое число |
VBA Ошибка ByRef
https://www.cyberforum.ru/ vba/ thread3158139.html Здравствуйте нужна помощь, не могу понять как правильно все написать. Буду рада помощи, даже объяснения. Заранее благодарю!! Function P(m As Long, n As Long) As Long Dim sum As Long, i As Long For i = m To n sum = sum + 2 * i Next P = sum TextBox1.Text = P |
570 / 119 / 17
Регистрация: 04.10.2015
Сообщений: 452
|
|
11.03.2024, 22:10 | 0 |
Excel Выявление длины фигуры в px - VBA - Ответ 1724292511.03.2024, 22:10. Показов 542. Ответов 14
Метки (Все метки)
Ответ
Он же просит в пикселях.
Ваше решение верно, если отрезок точно вписан в прямоугольник. Тут даже придумывать ничего не надо. Вернуться к обсуждению: Выявление длины фигуры в px VBA
0
|
11.03.2024, 22:10 | |
Готовые ответы и решения:
14
Вычисление площади фигуры, и длины ее разреза Создание двухмерной фигуры из отрезков определенной длины Нахождение длины контура заданной геометрической фигуры Известны длины каждой из сторон 12-угольника. Определить периметр этой фигуры |
11.03.2024, 22:10 | |
11.03.2024, 22:10 | |
Помогаю со студенческими работами здесь
0
Вычисление длины окружности, площади круга, а также изменение размера фигуры Написать 3 функции - смещения фигуры на указанный вектор, удвоения размера фигуры, перекрашивания фигуры Используя различные фигуры (точка, линия, эллипс, круг, прямоугольник и др.) вывести в окне фигуры: домик, человечек, солнце. Фигуры должны быть запол Фигура Управляющий размер, после ввода значений Длины, размер фигуры не изменяется и остаётся прежним Найти в векторе количество строк длины 1, длины 2,..., длины n и сформировать по найденным количествам новый вектор От верёвки длины l отрезали 3/4 её длины. Какой длины стала верёвка? От верёвки длины l отрезали 3/4 её длины. Какой длины стала верёвка? С++ |