|
|
Другие темы раздела | |
VBA CorelDraw: как получить площадь кривой произвольной формы, в которой есть "дырки" произвольной формы?
https://www.cyberforum.ru/ vba/ thread838071.html Стоит задача рассчитать площадь сложной кривой. В CorelDraw у кривых есть стандартное свойство, отображающее площадь кривой. ActiveLayer.Shapes(1).Curve.Area Но проблема в том, что оно работает правильно только с простыми объектами. Если же взять "бублик", т.е. когда мы возьмём две окружности, выравняем их относительно друг к друга по центру и вычтем меньшую из большей. То это же свойство... |
Формирование таблиц Word VBA Доброго времени суток, господа программеры! Есть небольшая проблемка, пытаюсь ее решить, теперь и с Вашей помощью. Необходимо программными средствами создать таблицу в Word из трех различных "типовых" строк. Количество, последовательность и наполнение этих строк постоянно будет меняться. Ясно одно, что нужно создать три объекта (Range или Table) и вставлять их по мере необходимости, но как это в... |
VBA Дистрибутив макроса Есть макрос с формой, каким способом можно перенести его на другой компьютер? Желательно что-бы получилось что-то типа дистрибутива, запускаем его и он автоматически распаковывается куда надо. https://www.cyberforum.ru/ vba/ thread837856.html | VBA Заполнить клетки [A1], [A2], [A3], . элементы последовательности aN=3:2*aN-1*aN-1 где a1=1 и N=2,3,4,....,10 https://www.cyberforum.ru/ vba/ thread837852.html |
Использовать номер колонки для блока With VBA Доброго времени суток. у меня буквально короткий вопрос. Есть переменная FindBegin за которой закреплен адрес определенной ячейки. Из этого адреса мне нужен только номер столбца, который я впоследствии хочу использовать для выполнения операций в блоке With - End With т.е. если адрес у ячейки: Cells(23, 4), то блок With выполняется для диапазона: With ("D : D")... end with (пробелы между :... |
VBA Нужно удалить пустые ячейки из выбронного столбца
https://www.cyberforum.ru/ vba/ thread837695.html Пожалуйста, помогите. Я только учись писать макросы. Вот написала один, а он некоректно работает. Цель: нужно удалить пустые ячейки из выбронного столбца. Мой макрос не удаляет пустые ячейки, если они идут одна за другой. Плиз, помогите, розобраться почему, так?? Sub Макрос3() 'Не удаляет 2 и больше подряд пустых ячейки Dim R As Range Set R = Application.InputBox("Ввыделите верхнюю левую... |
VBA Перенос информации из excel в word
https://www.cyberforum.ru/ vba/ thread837643.html Здравствуйте! Есть большая просьба - помогите))) Возможно ли с помощью Макросов VBA решить задачу по более простому и автоматизированному переносу данных из exel в word? Сначала вбиваются данные в exel, затем я просто их копирую в word, но хотелось бы это автоматизировать. |
Удаление строки из listbox и excel VBA Добрый день. Не могли бы помочь в написании кода удаления строки из listboxa так,чтобы удаленное поле было удалено и в excel. вот код,он удаляет выбранные строки из listbox,но в excel все остается по прежнему: Private Sub CommandButton4_Click() Sheets("Фермеры").Select UF2.ListBox1.RemoveItem (UF2.ListBox1.ListIndex) End sub |
VBA Сумма ячеек после макроса Есть диапазон ячеек (D22 : D23), есть макрос (на кнопке) который добавляет к диапазону строку. Как в ячейке указать формулу, чтоб после добавления строки она считала сумму? сам макрос: Sub Кнопка5_Щелчок() Range("end_string").EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove ' протянул формулы Range("end_string").Offset(-2).Resize(2).FillDown ' подсветил https://www.cyberforum.ru/ vba/ thread837460.html |
VBA Дан массив X
https://www.cyberforum.ru/ vba/ thread837417.html 1)Дан массив X=(9, 6.47, 2.39, 4, 8.917, 3.25, 8.625, 7.14, 4.123). Найти произведение его элементов, значения которых по модулю больше 5. 2) 3) 4)Ввести слово и вывести все буквы, стоящие на нечетных местах, в строку. |
arctg в VBA VBA помогите плиз .дело в том что arctg в vba определен от -пи/2 до пи/2. но если у меня случайный угол генерируется от 0 до 360, как мне учесть это? |
VBA Как правильно применить к циклу Do until Добрый день. помогите пожалуйста скорректировать код. Хочу чтобы цикл подсчитал кол-во незакрашенных ячеек в диапазоне и остановил подсчет когда встретит ячейку желтого цвета. но видимо я что-то намудрил с циклом и он не делает что мне нужно. подправьте пожалуйста мой код: Dim iCount As Long iCount = 0 For i = 5 To 100 https://www.cyberforum.ru/ vba/ thread837280.html |
0 / 0 / 0
Регистрация: 15.04.2013
Сообщений: 17
|
|
15.04.2013, 13:33 [ТС] | 0 |
Собрать свод из Excel файлов, присылаемых по почте - VBA - Ответ 441648715.04.2013, 13:33. Показов 7305. Ответов 31
Метки (Все метки)
Ответ
Вот в таком виде приходит сам отчет....к нему также идут приложения, и соответственно каждый месяц приходится вручную копировать и вставлять листочки в своды. сам отчет 42 листа (42 управления), плюс каждое приложение также. работа конечно до дури проста, но хочется не тратить время на такие действия
Добавлено через 2 минуты Думается мне должен быть макрос, каждое управление должно всегда быть закодировано под одним и тем же номером и при копировании автоматически № 1 занимать место на первом листе в сводном файле Добавлено через 1 минуту Сейчас сделано так. 42 листа. потом лист 43-сводный, где суммируются суммы и прочее. просто от руки заложены формулы. далее идут листы в развернутом виде..проверка от прошлого отчета и прочее Добавлено через 3 минуты либо отчеты сначала нужно сохранить все в одну папку, а потом они автоматически встанут на свои места.. Добавлено через 1 минуту Могу в принципе выложить вообще все своды эти, если объем позволит Вернуться к обсуждению: Собрать свод из Excel файлов, присылаемых по почте VBA
0
|
15.04.2013, 13:33 | |
Готовые ответы и решения:
31
Access создание excel файлов и их отправка по почте Необходимо собрать информацию в общий свод VBA EXCEL: Собрать кучу файлов в один Собрать кучу файлов в один файл Excel |
15.04.2013, 13:33 | |
15.04.2013, 13:33 | |
Помогаю со студенческими работами здесь
0
Свод по нескольким листам Excel Попытка сделать свод (универсальный, ну почти) excel таблиц VBA Excel свод данных разных вкладок в одну, при условиях Передача файлов по почте Отправка файлов по почте Отправка файлов по почте |