|
|
| Другие темы раздела | |
|
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
|
|
| 12.03.2022, 16:46 [ТС] | 0 |
Excel Excel Макрос для копирования информации из одной таблицы в другую по условию - VBA - Ответ 1611678812.03.2022, 16:46. Показов 12653. Ответов 52
Метки (Все метки)
Ответ
И все же обнаружились некоторые странности в работе макроса
1. Если вся строка в левой части таблицы пустая (в т.ч. критерий кол-во) - макрос все равно переносит строку в правую таблицу 2. Если есть текст в столбце Наименование, но в графе кол-во - пусто - макрос все равно переносит строку в правую таблицу я для таких строк предполагал следующее в графе Кол-во сделать формулу - что то типа: - если сумма значений раздела больше 0 то в графе Кол-во символ ="пробел" и тогда раздел отобразиться в правой части - если сумма значений раздела меньше 0 то в графе символ ="" и тогда раздел НЕ отобразиться в правой части сводн.табл Но это наверно возможно только если макрос сможет читать результат формул как текст а не переносить сами формулы как сейчас??? в принципе есть и проблема с переносом формул...но это удалось решить изменив пути исходных значений в формуле на абсолютные Вернуться к обсуждению: Excel Макрос для копирования информации из одной таблицы в другую по условию VBA
0
|
|
| 12.03.2022, 16:46 | |
|
Готовые ответы и решения:
52
Макрос для переноса данных из одной таблицы в другую Макрос копирования ячеек по условию в Excel Макрос копирования ячеек по условию в Excel |
| 12.03.2022, 16:46 | |
| 12.03.2022, 16:46 | |
|
Помогаю со студенческими работами здесь
0
Макрос копирования данных из одной книги в другую
Написать макрос для переноса данных из одной таблицы в другую по кнопке Макрос переноса информации с одной страницы на другую
|