|
|
|
| Другие темы раздела | |
|
VBA Отправка локального файла (фото) в телеграм VBA
https://www.cyberforum.ru/ vba/ thread2955679.html Добрый день. Хочу с вами поделиться рабочим кодом VBA который делает криншот диапазона ячеек в excel сохраняя его локально на ПК в формате который Вы укажите и отправляет его в телеграм чат/бот. Пользуйтесь, вот только есть один минус в данном коде файлы с выше 50КБ (килобайт) не уходят по какой причине выяснить пока не удается если вдруг кто знает в чем проблема подскажите! Буду очень... |
VBA Первый и последний нулевой элемент For i = 1 To n If A(i) = 0 Then p = i ' первый нулевой элемент Exit For End If Next i For i = n To 1 Step -1 If A(i) = 0 Then p1 = i ' последний нулевой элемент |
| VBA Преобразование ФИО в Фамилию И.О. в WORD документе Доброго дня) Пытаюсь сделать Replacer в WORD макросе,но не с простой заменой,а с преобразованием полной Фамилии Имени Отчества в Фамилию И.О. Он должен взять текст из TextBox1,преобразовать в нужный вариант и вставить в документ вместо ключевого слова, например Name1. Вызов реплейсера я понимаю как сделать Call Replacer("Name1", TextBox1.Value) Сам реплейсер тоже https://www.cyberforum.ru/ vba/ thread2955556.html |
VBA Запросить у пользователя значение точки x, вычислить и вывести на экран значение функции F(x) в этой точке
https://www.cyberforum.ru/ vba/ thread2955315.html написать программу которая запрашивает у пользователя значение точки x , затем вычисляет и выводит на экран значение функции F(x) в этой точке |
|
VBA Ускорить действие кода Добрый день! Подскажите, как можно ускорить выполнение кода, представленного ниже. При больших объемах данных (около 15 тыс) зависает и не выполняется. Sub SORTING() Application.ScreenUpdating = False With Sheets(3) LR = .Cells(Rows.Count, 1).End(xlUp).Row Set TOPIC = CreateObject("Scripting.Dictionary") For Each CL In Range(.Cells(5, 15), .Cells(LR, 15)) VL = TOPIC.Item(CStr(CL)) |
VBA Поменять местами минимальные элементы векторов, найти сумму средних арифметических двух векторов Даны векторы А(15) и В(15). Если сумма первых пяти элементов вектора А больше произведения последних двух элементов вектора В, то поменять местами минимальные элементы векторов А и В, иначе найти сумму средних арифметических двух векторов и заменить им каждый четный элемент векторов А и В. Вывести начальный и конечный состав векторов на лист Excel. https://www.cyberforum.ru/ vba/ thread2954468.html |
| VBA Положительные и отрицательные элементы переписать в отдельные массивы Дан массив С(20). Заполнить его значениями по следующей формуле – Int(Rnd*50)-25. Переписать подряд в массив А положительные и в массив В отрицательные элементы массива С. Вывести массивы на лист Excel. https://www.cyberforum.ru/ vba/ thread2954466.html |
VBA Как добавить эту формулу через vba Здравствуйте Подскажите, как добавить такую формулу с помощью vba: =LEFT(D2,4) & "/" & MID(D2,5,2) & "/" & MID(D2,7,2) Добавлено через 7 минут Проблему решил. Помощь не требуется. |
| VBA Поля в документе Всех приветствую. Подскажите как через код обратится к полю документу или его название? Цель состоит в том что бы заменить значение на обычный текст https://www.cyberforum.ru/ vba/ thread2954282.html |
VBA Автоматическое проставление графика работы по таблице рабочих часов
https://www.cyberforum.ru/ vba/ thread2954055.html Доброго времени суток! Появилась необходимость автоматизировать заполнения графика работы сотрудника в соответствии с табелем. Есть несколько основных графиков работы (5\2, 2\2, 1\3), нужно чтобы при заполненном листе табеля, где проставлены рабочие часы (при 1\3 также там проставлено сколько часов ночных, ночные часы можно игнорировать в графике и просто складывать ночные и дневные часы)... |
|
VBA Макрос переноса строки на другой лист Здравствуйте, специалисты! Помогите, пожалуйста, разобраться с макросом в excel. Я не разбираюсь в кодах, но начал заинтересовываться. Задача: -Создание архива выполненных задач. -Перенос строки с первого листа по условию значения "100%" в диапазоне на второй лист, затем удаление этой строки с первого листа. -Уже подсмотрел готовый код на форуме, но он полностью удаляет всё на втором... |
VBA Группировка по датам и суммам Добрый день! Помогите пожалуйста написать макрос группировки сумм по датам, т.к имеются числа 01.01.2022 с суммой 5, 01.01.2022 с суммой 10, 02.01.2022 с суммой 15. Необходимо сгруппировать по датам и суммам, чтобы 01.01 было 15, 02.01 те же 10. https://www.cyberforum.ru/ vba/ thread2953490.html |
|
0 / 0 / 0
Регистрация: 19.12.2019
Сообщений: 46
|
|
| 0 | |
Excel Excel Макрос для копирования информации из одной таблицы в другую по условию - VBA - Ответ 1611393010.03.2022, 17:13. Показов 13409. Ответов 52
Метки (Все метки)
Помогите доработать медленный макрос (см.файл макрос Nik035) или возможно кто то предложит альтернативный более шустрый вариант кода для моей задачи: сам в этом совсем не разбираюсь В эксель есть две таблицы Левая - ОБЩАЯ исходная где есть все наименования и по которой идет отбор в СВОДНУЮ и только из тех строк для которых в ОБЩЕЙ проставлено какое то значение в графе - кол-во. т.е. выбор по условию кол-во ЗНАКОВ в графе (графа Кол. > 0) не всегда знаки это число может быть что то типа 1* или * с форматированием в цвет (бел) для отображения пустой строки В левой ОБЩЕЙ таблице будет порядка 200-300 наименований из которых по условию (графа Кол. > 0) строки копируются в СВОДНУЮ таблицу справа. Сводную перед заполнением наверно нужно предварительно очищать. Я так понимаю макрос из файла тормозит на переносе форматирования текста из ОБЩЕЙ таблицы, в принципе если по другому ускорить работу макроса не получится (кроме как убрав копирование этого форматирования текста) то можно этим пожертвовать или хотя бы оставить форматирование только для графы обозначение. Всем откликнувшимся, заранее ОГРОМНОЕ спасибо! Вернуться к обсуждению: Excel Макрос для копирования информации из одной таблицы в другую по условию VBA
0
|
|
| 10.03.2022, 17:13 | |
|
Готовые ответы и решения:
52
Макрос для переноса данных из одной таблицы в другую Макрос копирования ячеек по условию в Excel Макрос копирования ячеек по условию в Excel |
| 10.03.2022, 17:13 | |
| 10.03.2022, 17:13 | |
|
Помогаю со студенческими работами здесь
0
Макрос копирования данных из одной книги в другую
Написать макрос для переноса данных из одной таблицы в другую по кнопке Макрос переноса информации с одной страницы на другую
|