|
|
|
| Другие темы раздела | |
|
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
|
||||||
| 11.03.2022, 12:04 [ТС] | 0 | |||||
Excel Excel Макрос для копирования информации из одной таблицы в другую по условию - VBA - Ответ 1611498511.03.2022, 12:04. Показов 13409. Ответов 52
Метки (Все метки)
Ответ
Создать массив чего? и куда его скопировать
В файле задан диапазон ARM? но не знаю то это или не то? и если то то куда его нужно скопировать? Так же попутный вопрос как сделать что бы в сводной таблице отображались значения как текст а не формула (если она будет в общей таблице)? Добавлено через 9 минут макрос модифицировал...стало значительно лучше
При переносе листа в другой файл с наличием других диапазонов (печати, ВПР и т.д.) он отказывается работать...как быть? то же самое происходит если листы из другого файла перенести в данный файл с макросом. По итогу мне нужен общая книга эксель из нескольких листов в том числе с данным макросом Добавлено через 7 минут я совсем не специалист в макросах и поэтому предполагаю что проблема в наличии других разделов. Возможно что это и не так Вернуться к обсуждению: Excel Макрос для копирования информации из одной таблицы в другую по условию VBA
0
|
||||||
| 11.03.2022, 12:04 | |
|
Готовые ответы и решения:
52
Макрос для переноса данных из одной таблицы в другую Макрос копирования ячеек по условию в Excel Макрос копирования ячеек по условию в Excel |
| 11.03.2022, 12:04 | |
| 11.03.2022, 12:04 | |
|
Помогаю со студенческими работами здесь
0
Макрос копирования данных из одной книги в другую
Написать макрос для переноса данных из одной таблицы в другую по кнопке Макрос переноса информации с одной страницы на другую
|