Поиск
Автор: stalkerexe. Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Column = 1 And Target.Row > 1 And Not IsEmpty(Target.Value) And Target.Offset(0, 1).Value = "" Then _
Target.Offset(0, 1).Value = Format(Date, "yymm") + (Application.Max(Range("B2:B100")) + 1)
End Sub
При добавлении числа в ячейку рядом автоматически формируется номер, состоящий из части даты ГГММ плюс 4-х значный номер.
Нужно чтобы при ...
Изменен: 08.02.2024
Читать сообщение на форуме или сайте.Автор: AmarilloSlim. Здравствуйте, написал маленькую процедуру, которая в выбранном пользователем рейндже ищет заданный пользователем цвет и выдает значение определенной ячейки по соответствию этому цвету.
В принципе все работает, корректно, кроме того, что нужно постоянно вводить заново рейндж при каждом новом поиске цвета.
Можно конечно, захардкодить рейндж, но я хочу сделать программу более пластичной в случае если со временем диапазон данных разрастется.
Как сделать так, что бы инпутбокс на ...
Изменен: 18.09.2023
Читать сообщение на форуме или сайте.Автор: lists2. Добрый день! Изначальная задача состоит в том, чтобы Эксель красил красным значения больше чем три минуты 00:03:00. Вопрос на данный момент такой: нужно формат 00:00:00 превратить в формат 0:00:00 сразу для всех ячеек столбца.
Сейчас, для решения изначальной задачи форматирования я использую формулу =ЕСЛИ(L2>ВРЕМЯ(0;3;0);"КРАСНОЕ";"БЕЛОЕ"). Но данные я ввожу не в ручную, поэтому они отображаются в ...
Изменен: 16.08.2023
Читать сообщение на форуме или сайте.Автор: Илья Кудинов. СИТУАЦИЯ:
Имеется столбец данных.
Ячейки столбца могут содержать 3 варианта значений:
1) 0
2) 1
3) пустая ячейка (в которую никакая формула не возвращает значение, в неё просто ничего не писали никогда)
НУЖНО:
Записать справа от каждой ячейки значение, соответствующее каждому варианту исходного значения.
Для 0 вернуть 1.
Для 1 вернуть 0.
Для пустой ячейки вернуть пустую ячейку.
РЕШЕНИЕ:
Написал формулу в ячейке справа от исходной:
=ЕСЛИ(A1=0;1;(ЕСЛИ(A1=1;0;"")))
...
Изменен: 10.03.2023
Читать сообщение на форуме или сайте.Автор: Виталий Б. Здравствуйте, Хочу сделать чтобы после отработки макроса автоматически переходило на определенную вкладку на ленте Excel, с помощью vba, есть способ? (пользовательскую, например "ТТЗ/САЗ_4/СУР").
Поделитесь пожалуйста кодом :)
Изменен: 13.01.2023
Читать сообщение на форуме или сайте.Автор: Виталий Донец. Есть таблица с большим объемом данных, нужно объединить текстовые значения двух столбцов по определенному критерию в одну ячейку (наименование-1: значение-1; наименование-2: значение-2; ...).
Смысл, автоматизировать составление ТЗ для копирайтера по написанию статей.
Есть название темы статьи - это и есть критерий, например "Как переобуть машину?"
Есть ключевые слова (фразы) для этой статьи, каждая имеет: отдельную ячейку, отдельную строчку.
Есть слова подсветки ( ...
Изменен: 16.12.2022
Читать сообщение на форуме или сайте.Автор: Сергей Тихомиров. Здравствуйте, есть макрос копирования картинок по критерию и централизация картинок в ячейке, который работает, но чем больше строк тем больше нагрузка, соответственно медленнее и тд. Вопрос: Есть ли вариант упрощения или улучшение данного макроса? Подобных строк, как в файле, 300+Sub Вставка2()
Dim i&, r As Range, shp As Shape
For i = 4 To 393
Set r = Sheets(2).Cells.Find(Cells(i, 3).Value, LookAt:=xlWhole)
For Each shp In Sheets(2).Shapes
If shp.TopLeftCell.Address = r ...
Изменен: 25.08.2022
Читать сообщение на форуме или сайте.Автор: Степан Ульянов. Добрый день!
Помогите пожалуйста скорректировать макрос:
По выбранным файлам раскидывает по листам с соответственными наименованиями
Как изменить на копирование значением txt один под другим на активный лист с добавлением столца = наименование файла?
Sub собрать()
Dim FilesToOpen
Dim x As Integer
Application.ScreenUpdating = False
'отключаем обновление экрана для скорости
'вызываем диалог выбора файлов для импорта
FilesToOpen = Application.GetOpenFilename _
(FileFilter:=& ...
Изменен: 29.07.2022
Читать сообщение на форуме или сайте.Автор: BigVeter. Ищу Excel специалиста в Ангарске - поддержка, модернизация файла расчета изделий.
Макросы, сложные формулы, много зависимостей внутри файла, системность отсутствует.
Удаленные попытки неудачны.
На начальном этапе предполагается сориентироваться в файле при непосредственном общении.
Далее возможна работа из дома. При возникновении сложных вопросов, непосредственное общение. Поэтому Ангарск.
Ежемесячный бюджет от 25000 и выше.
Изменен: 10.05.2022
Читать сообщение на форуме или сайте.Автор: user06. Доброго времени суток,
Собственно суть проблемы описана в названии темы.
Не подтягиваются данные из листа с готовыми заполненными данными на userform.
В excel файле на userform в первой части выбирается какое-либо значение, на основе выбранного значения в первой части фильтруются значения во второй части.
И по идее на основе выбранного какого-либо значения во второй части должны подставляться значения в третью часть на userform. Но этого не происходит, и не могу понять почему.
...
Изменен: 04.04.2022
Читать сообщение на форуме или сайте.Автор: Евгений Рыбников. Задание на создание облачной файловой системы для хранения и обмена информации в формате Excel.
Формирование файловой системы, управляющей таблицами Excel (не более 50 файлов) на облачном сервисе (к примеру, One Drive).
Главная задача – организация обмена информацией через облачную файловую систему между Генератором информации и Получателем информации по средствам стандартной синхронизации Excel.
Информация для обмена указана в Приложении 1.
Так же во вложении подробное ...
Изменен: 30.03.2022
Читать сообщение на форуме или сайте.Автор: Владислав Тимонин. Есть таблица, как сделать эти шаги подскажите
Если C2 время работы с 8:00 до 17:00, то D1 с 10:15 до 10:30, то E1 С 12:30 до 13:00, то F1 с 15:00 до 15:15(Этот интервал как пример)
И чтобы не повторялось время перерывов у сотрудников работающие в это же время
И чтобы был авто выставление перерывов
Или подскажите Материал где можно это найти
Изменен: 24.03.2022
Читать сообщение на форуме или сайте.Автор: DNail. Есть столбец с маркой оборудования, есть столбец с моделями этого оборудования, есть столбец с количеством и столбец с серией оборудования. Нужно осуществить поиск по марке и моделе оборудования с получением результата по количеству и серии. Используя при этом TextBox/ComboBox. Пример ниже
Изменен: 20.01.2022
Читать сообщение на форуме или сайте.Автор: Игорь Песоцкий. Добрый день!
Задача макроса: вставлять n-ое кол-во строк (задается Inputbox) перед именным диапазоном.
Проблема: при повторном запуске (редко и в первый раз) выдает ошибку "Method 'Insert' of object 'Range' failed error".
Отмечает строчки (либо-либо):
wsWorkSheet.Range("Прочие").EntireRow.Insert
rngMyCell.Offset(2, 0).EntireRow.Insert
Вопрос: почему так происходит и как устранить.
Sub Файл_1()
Dim wsWorkSheet As ...
Изменен: 13.11.2021
Читать сообщение на форуме или сайте.Автор: Стиви Зас. Доброго времени суток!
Есть код VBA, который копирует выбранные столбцы по их названию в рабочий файл, но проблема в том, что копирует только из одной книги. Необходимо, чтобы макрос копировал выбранные столбцы из двух книг в лист рабочего файла. К примеру, из первого файла столбцы должны располагаться в диапазоне А1:P1, а из второго T1:AI1, с выводом названия файла без расширения для идентификации. Долго бодаюсь с проблемой, никак не могу найти решение. Подскажите, как можно ...
Изменен: 09.11.2021
Читать сообщение на форуме или сайте.Автор: Стиви Засранкин. Доброго времени суток!
Есть код VBA, который копирует выбранные столбцы по их названию в рабочий файл, но проблема в том, что копирует только из одной книги. Необходимо, чтобы макрос копировал выбранные столбцы из двух книг в лист рабочего файла. К примеру, из первого файла столбцы должны располагаться в диапазоне А1:P1, а из второго T1:AI1, с выводом названия файла без расширения для идентификации. Долго бодаюсь с проблемой, никак не могу найти решение. Подскажите, как ...
Изменен: 09.11.2021
Читать сообщение на форуме или сайте.Автор: Сергей Килин. Написал формулу на VBA - суммирование значений в зависимости от цвета текста
Public Function SumByColor(pRange1 As Range, CodeColor As Double) As Double
Application.Volatile
Dim rng As Range
Dim xTotal As Double
xTotal = 0
For Each rng In pRange1
If rng.Font.Color = CodeColor Then
xTotal = xTotal + rng.Value
End If
Next
SumByColor = xTotal
End Function
Формула работает в момент когда, меняются значения или вставки в ячейку. Значения записаны в 4 столбцах
Попробовал Private ...
Изменен: 08.10.2021
Читать сообщение на форуме или сайте.Автор: роман иванов. Добрый день!
Есть следующая ситуация:
книга эксель с некоторым количеством листов. на каждом листе несколько (пока 8, но возможно будет больше, и, возможно, не на всех листах одинаковое количество) диаграмм, на каждой диаграмме несколько рядов (количество рядов не одинаковое для всех диаграмм), все ряды ссылаются на диапазоны одинаковой длины, (но разных столбцов)
Необходим макрос, который будет протягивать эти диапазоны до указанной строчки (указывать через inputBox).
Для ...
Изменен: 12.09.2021
Читать сообщение на форуме или сайте.Автор: роман иванов. Добрый день!
Есть следующая ситуация:
книга эксель в с некоторым количеством листов. на каждом листе несколько (пока 8, но возможно будет больше) диаграмм, на каждой диаграмме несколько рядов.
Нужен макрос, для задания максимума границы оси X (в формате даты, через inputBox) на всех диаграммах ПОЧТИ всех листов.
С возможностью добавлять листы - исключения, на которых не нужно изменять ось (исключения прописать уже в теле макроса без imputBox, так как они не будут часто ...
Изменен: 12.09.2021
Читать сообщение на форуме или сайте.Автор: aroz. Добрый день, искал в интернете подобное, но всё не то, возможно даже не знаю как правильно формулировать вопрос
Есть папка с файлами excel, ~10.000 файлов, в каждом по 150 строк, в строках повторяются названия - для каждого своя сумма, нужно сделать, чтобы повторений не было и каждую сумму сложить в единую, на словах ничего не понятно, поэтому делаю пример и прикладываю файл с примером (1 лист - исходная база, 2 лист - то, что должно получится)
Исходная база:ДатаДокДатаСостНаим№ ...
Изменен: 20.07.2021
Читать сообщение на форуме или сайте.Автор: Евгений Женькин. Здравствуйте, помогите упростить макрос. Нужно зациклить или повторить макрос, чтобы на каждом листе заменялись данные с определенной строки листа "данных".
Выглядит макрос так: Sub Замена()
Sheets("99 (2)").Select
Cells.Replace What:="99", Replacement:="2", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Sheets("99 (3)").Select
Cells.Replace ...
Изменен: 13.07.2021
Читать сообщение на форуме или сайте.Автор: Павел Шерстнев. Доброго всем вечера. Столкнулся с необходимостью показа эскиза картинки из ячейки. Например при нажатии кнопки из юзерформ1 открыть юзерформ2 и подгрузить в нее картинку из определенной ячейки. Пока только мысли о сохранении этой картинки в определенную папку и уже от туда по конкретному адресу её открытие. (можно и через программу по умолчанию). Можно ли обратиться к картинке в ячейке напрямую?
Изменен: 07.03.2021
Читать сообщение на форуме или сайте.Автор: Roman Rev. Добрый день! :)
Кто сталкивался и может помочь, как с помощью функции Гиперссылка в Google Таблицах можно прописать формулу, которая будет искать слово из таблицы в поисковой системе гугл?
Заранее спасибо!
Изменен: 09.11.2020
Читать сообщение на форуме или сайте.Автор: detin. Приветствую всех.
Я только начал интересоваться макросами. Поискал на форуме и в сети, но решения не нашел.
Вопрос-задача: Можно ли из Экселя текст ячейки кнопкой с макросом посылать через API на конференцию по ZOOM?
Иногда приходится писать субтитры во время презентации. Прямо на конференции весь текст посылается хорошо. Но проблема в том, что не успеваю за докладчиком копировать необходимый текст и отсылать его. Хотелось бы его отсылать без необходимости переключаться между ...
Изменен: 01.11.2020
Читать сообщение на форуме или сайте.Автор: Yehor Movchan. Надо на один и тот же макрос назначить несколько сочетаний клавиш. Каким образом это сделать?
Изменен: 28.10.2020
Читать сообщение на форуме или сайте.Автор: Yehor Movchan. У меня есть к примеру какое-то значение в ячейке А1 (пусть это значение будет "Лист10"), надо сделать кнопку при нажатии на которую "Лист10" стал активным.
Изменен: 26.10.2020
Читать сообщение на форуме или сайте.Автор: Sniaper. В файле 3 модуля. Первый - функция, выполняющая вставку модуля № 3 в новый файл, второй - выполняет копирование листа и запускает функцию.
У меня не получается скопированный модуль засунуть в новый файл в "ЭтаКнига", вместо этого он создает модуль в новой книге.
Изменен: 26.10.2020
Читать сообщение на форуме или сайте.Автор: Алексей Краснов. Добрый вечер!
Столкнулся с проблемой - имеются ячейки, из которых функцией извлекается предпоследнее вхождение текста после определенного делителя "Human".
В том случае, если функция не находит подходящих значений, она возвращает #ЗНАЧ!, который мешает работе остальных функций, которые используют ссылки на эту.
Необходимо результат #ЗНАЧ! при вызове функции заменить на пустое значение ""
Долго гуглил информацию по поводу обхода ...
Изменен: 23.10.2020
Читать сообщение на форуме или сайте.Автор: Алексей Краснов. Добрый вечер!
Гуру VBA, очень прошу помочь с одной задачей, которая заключается в следующем:
Есть определенный диапазон строк с текстом и есть строковый массив, в который я заключил 38 регулярных выражений.
Каким образом можно проверить поочередно каждую строку в диапазоне на совпадение по всем RegExp из массива?
Если в строке не находится совпадение по первой строке из массива regexp (1), то идет проверка по второй строке из массива regexp (2), если совпадение не ...
Изменен: 22.10.2020
Читать сообщение на форуме или сайте.Автор: Cappuccino. Добрый день форумчане...
Пытаюсь по маленьку осмыслить VBA в excel по методу практического применения :D , но нужна помощь спецов, так как немного не понятны некоторые вещи.
Файлик прикрепил, для примера (Необходимо чтобы было следующее):
На листе "ФормаВвода", вводится требование, затем по нажатию кнопки "Ввод" копируем данные требования в таблицу на лист "Учет Приход_Расход".
Лист "ФормаВвода", ...
Изменен: 18.09.2020
Читать сообщение на форуме или сайте.