Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Aлeкceй
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 След.
Макрос для замены данных в активной ячейки
 
#
24.03.2026 21:31:54
Здравствуйте.
Проблема в том, что (как выше писал Старичок) у Вас два макроса с одним и тем же именем:
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Чтобы убедиться нажмите Alt+F11 в инспекторе объектов (окошечко cлева) выберите ветку "Sheet1" и сами все увидите.
На всякий случай я объединил оба макроса в один (второй закомментировал).

PS. Пока писал ответ, Старичок ответил.
Изменено: Aлeкceй - 24.03.2026 21:35:41 (Опоздал с ответом.)
 
Перейти    
Сумма и количество по нескольким условиям
 
#
19.03.2026 12:20:22
Здравствуйте.
Еще вариант с Power Query. На лист с именем "PowerQuery" в левую таблицу скопируйте свои данные, а потом нажмите Ctrl+Alt+F5 и таблицы с суммой и количеством пересчитаются.  
 
Перейти    
Копирование формулы адреса с изменением ячеек запроса, одна ссылка адреса с разными ячейками
 
#
10.03.2026 23:02:34
Еще вариант макросом. Работает так - в ячейку C вводите путь, имя файла, название листа и ячейку С7 из которой подтягиваете цену, а дальше макрос подтягивает данные для ячеек которые находятся правее.
 
Перейти    
Копирование формулы адреса с изменением ячеек запроса, одна ссылка адреса с разными ячейками
 
#
06.03.2026 22:15:50
Здравствуйте.
Давайте попробуем сделать все автоматически. Я написал макрос (он в файле Формулы.xlsm). В нем в колонке А заполняете список файлов из которых нужно загрузить данные, в ячейке С2 нужно задать имя файла для выгрузки (файл который заполнится формулами) и нажать на кнопку "Объединить файлы". Попробуйте, может подойдет такой вариант.
 
Изменено: Aлeкceй - 08.03.2026 10:30:07
 
Перейти    
Нужен макрос платно. Не очень сложный.
 
#
24.02.2026 19:39:38
Пишу в ЛС. Выполнено, оплачено.
Изменено: Aлeкceй - 26.02.2026 21:52:21
 
Перейти    
Как многоблочную таблицу преобразовать в одноблочную?
 
#
23.02.2026 23:23:51
Еще до кучи вариант с PQ. На всякий случай работает так - на лист многоблочная грузите свои таблицы, нажимаете на Ctrl+Alt+F5 и на лист одноблочная в колонку F выводится результат.
PS. И еще мой вариант макроса - запускать макрос wrk.
Изменено: Aлeкceй - 23.02.2026 23:32:36
 
Перейти    
Как многоблочную таблицу преобразовать в одноблочную?
 
#
23.02.2026 13:31:03
Здравствуйте.
Скажите, пожалуйста, количество столбцов постоянное или может меняться? Подойдет если напишу макрос для преобразования таблицы?
 
Перейти    
Макрос для удаления кода на определенную дату, удаления кода на определенную дату
 
#
20.02.2026 15:21:36
Я не сотрудничаю. На работу не претендую.
 
Перейти    
Макрос для удаления кода на определенную дату, удаления кода на определенную дату
 
#
19.02.2026 20:08:02
Вячеслав, можете показать что есть и что нужно получить? Данные можете придумать, главное понять принцип.
 
Перейти    
Дубликаты внутри ячейки без разделителей, Дубликаты внутри ячейки без разделителей, надо как-то удалить дубли
 
#
19.02.2026 13:41:24
Здравствуйте.
Во вложении вариант макросом.
 
Перейти    
Сумма ячеек с определенным цветом, Сумма ячеек с определенным цветом
 
#
19.02.2026 12:03:52
Здравствуйте.
Почитайте тут https://www.planetaexcel.ru/techniques/9/162/
 
Перейти    
Корректно открыть файл CSV макросом
 
#
18.02.2026 21:30:40
Здравствуйте!
Еще вариант макросом.
В следующей строке, заменяете имя файла с путем на свои:
Код
  Call loadFile("e:\123\2\wrk.csv")
И все должно загрузиться на активный лист. Данные из wrk.csv считываю по строкам и разбиваю по ";". При загрузке есть проверка нет ли точки в качестве разделителя целой и вещественной части числа в колонке "Количество". Если есть, то она заменяется на запятую.
 
Перейти    
Как найти максимальное значение времени
 
#
17.02.2026 16:48:12
Msi2102, возможно у ТС задача похожая на ту, что я выполнял недавно. Там было что идут входы без выхода или выходы без входа. Спрашивал как такое может быть что идут одни входы и мне ответили что "вышли через дыру в заборе".
 
Перейти    
WEB API или другие способы подключения к PDF Creator 24
 
#
16.02.2026 11:24:14
evgeniygeo, здравствуйте.
Могу попробовать написать dll которая будет загружать картинки на лист Excel'а или сразу формировать pdf файл. Такое у Вас разрешено?
Изменено: Aлeкceй - 16.02.2026 11:26:07
 
Перейти    
PowerQuery объединение таблиц в разные столбцыы по ключу
 
#
15.02.2026 21:00:38
Здравствуйте.
Сделал как умею (на половину кнопками). Попробуйте, может подойдет.
PS. Исправьте мой путь к файлам на свой.
Изменено: Aлeкceй - 15.02.2026 22:06:38
 
Перейти    
При создании файла json Unicode escape последовательности (\u0423) не декодируются, vba проблема с кириллицей
 
#
14.02.2026 20:48:38
Цитата
написал:
А вообще сам код макросов нормально написан?
Вроде бы нормально.
 
Перейти    
При создании файла json Unicode escape последовательности (\u0423) не декодируются, vba проблема с кириллицей
 
#
14.02.2026 20:33:11
а Вы поменяли пути на свои (я отправил со своими путями)?
вот тут:
Код
    ' Настройка путей к файлам (измените на свои пути)
    jsonFilePath = "e:\Program Files\Telegram\export_716291858_20260214_110237.json" ' путь к исходному JSON
    excelFilePath = "e:\Program Files\Telegram\Лист Microsoft Excel.xlsx" ' путь к Excel файлу
    outputFilePath = "e:\Program Files\Telegram\merged_output.json" ' путь для сохранения результата
у меня получилось повторить ошибку после того, как указал букву несуществующего диска.
Изменено: Aлeкceй - 14.02.2026 20:34:17
 
Перейти    
Собрать в одну ячейку значения из многих других
 
#
14.02.2026 20:20:56
мой вариант не подошёл из-за дополнительного столбца?
попробуйте такую формулу (может можно и задать диапазон, но так точно в объединение попадут только красные ячейки):
Код
=ОБЪЕДИНИТЬ(" / ";1;G8;K8;O8;S8;W8;AA8;AE8;AI8;AM8;AQ8;AU8)
Изменено: Aлeкceй - 14.02.2026 21:13:31
 
Перейти    
При создании файла json Unicode escape последовательности (\u0423) не декодируются, vba проблема с кириллицей
 
#
14.02.2026 19:16:56
Здравствуйте.
Добавил функцию перекодировки кодов Unicode в строку. Функция называется UnicodeDecode. Посмотрите, может быть подойдет?  
 
Перейти    
Собрать в одну ячейку значения из многих других
 
#
12.02.2026 23:15:02
Здравствуйте.
Можно с добавлением дополнительного столбца (у меня это колонка BJ). В него ввести такую формулу:

=СЦЕПИТЬ(ЕСЛИ(ДЛСТР(G8)<>0;G8;"");ЕСЛИ(ДЛСТР(K8)<>0;"/"&K8;"");ЕСЛИ(ДЛСТР(O8)<>0;"/"&O8;"");ЕСЛИ(ДЛСТР(S8)<>0;"/"&S8;"");ЕСЛИ(ДЛСТР(W8)<>0;"/"&W8;"");ЕСЛИ(ДЛСТР(AA8)<>0;"/"&AA8;"");ЕСЛИ(ДЛСТР(AE8)<>0;"/"&AE8;"");ЕСЛИ(ДЛСТР(AI8)<>0;"/"&AI8;"");ЕСЛИ(ДЛСТР(AM8)<>0;"/"&AM8;"");ЕСЛИ(ДЛСТР(AQ8)<>0;"/"&AQ8;"");ЕСЛИ(ДЛСТР(AU8)<>0;"/"&AU8;""))

И в итоговый столбец такую (проверяем если первый символ / то удаляем его):

=ЕСЛИ(ЛЕВСИМВ(BJ8;1)="/";ПРАВСИМВ(BJ8;ДЛСТР(BJ8)-1);BJ8)

Если в колонке G всегда будет значение то хватит первой формулы и дополнительный столбец не потребуется.
Изменено: Aлeкceй - 12.02.2026 23:16:14
 
Перейти    
Сводная таблица. Суммирующий столбец второй по счёту., Как создать суммирующий столбец, который не будет дублировать другие столбцы.
 
#
11.02.2026 21:15:09
Здравствуйте.
Сделал в PQ. Запрос называется qryTable1 и выводится на лист "Результат".
 
Перейти    
Что за символ появляется после конвертации таблицы из Ворда в Эксель и как от него избавиться?
 
#
06.02.2026 15:10:31
Точно не работает? У меня офис 2019 и все работает.
 
Перейти    
Что за символ появляется после конвертации таблицы из Ворда в Эксель и как от него избавиться?
 
#
06.02.2026 11:29:25
Присоединяюсь, можно маленький кусочек word файла?
 
Перейти    
Как макросом выполнить F2+Enter для диапазона ячеек с текстом/есть ли этому замена?
 
#
05.02.2026 21:36:22
Цитата
написал:
Разве что кто-нибудь сможете подсказать, как его ускорить, чтобы он за раз всю книгу брал?
Подсказываю - загружаете выбранный диапазон в массив, проходите по каждому элементу массива и обрабатываете его и потом выгружаете массив обратно на лист. Будет существенно быстрее.
 
Перейти    
Вопрос по библиотеке QRCodeAx для формирования QR кодов
 
#
05.02.2026 10:00:57
Здравствуйте.
Есть надстройка пользователя (bedvit) этого форума, скачать можно тут https://bedvit.ru/xll/ В этой надстройке есть печать QRCode. Посмотрите, может подойдет.
 
Перейти    
Как макросом выполнить F2+Enter для диапазона ячеек с текстом/есть ли этому замена?
 
#
05.02.2026 00:13:26
попробуйте такой макрос
Код
Sub FixAllLineBreakIssues()
    Dim cell As Range
    Dim originalText As String
    Dim fixedText As String
    
    Application.ScreenUpdating = False
    
    For Each cell In ActiveSheet.UsedRange
        If cell.Value <> "" Then
            originalText = cell.Value
            
            ' Шаг 1: Нормализация переносов строк
            fixedText = Replace(originalText, vbLf, vbCrLf)
            fixedText = Replace(fixedText, vbCr, vbCrLf)
            
            ' Удаляем двойные переносы
            Do While InStr(fixedText, vbCrLf & vbCrLf) > 0
                fixedText = Replace(fixedText, vbCrLf & vbCrLf, vbCrLf)
            Loop
            
            ' Шаг 2: Удаляем переносы в начале и конце
            fixedText = Trim(fixedText)
            
            ' Шаг 3: Применяем исправленный текст
            If originalText <> fixedText Then
                cell.Value = fixedText
            End If
            
            ' Шаг 4: Включаем перенос текста
            cell.WrapText = True
        End If
    Next cell
    
    ' Шаг 5: Автоподбор размеров
    ActiveSheet.UsedRange.EntireRow.AutoFit
    ActiveSheet.UsedRange.EntireColumn.AutoFit
    
    Application.ScreenUpdating = True
    
    MsgBox "Исправление переносов строк завершено!", vbInformation
End Sub

PS. Не мое, подсказал ИИ, но вроде работает.
 
Перейти    
Как поменять данные в нескольких книгах не открывая их?, Как не открывая файлы поменять данные в нескольких книгах
 
#
03.02.2026 22:09:27
доделал. в архиве файлы: Замена_значений.xlsm - файл с макросами, замена данных.xlsx - файл где заменяются значения, Поставка данных.xlsx - файл откуда берется значение для подстановки на лист "стр1"
 
Перейти    
Сравнение таблиц водителей для одноразовых заявок, Перемещение таблицы из ворд в Excel и вставка идентичных новых таблиц для подсвечивания новых данных
 
#
02.02.2026 20:26:46
Здравствуйте.
Можете показать как выглядит таблица в excel? Или она такая же как в word? Вопросов нет, т.к. такая же тема создана в разделе работа.
Изменено: Aлeкceй - 02.02.2026 20:32:06
 
Перейти    
Как поменять данные в нескольких книгах не открывая их?, Как не открывая файлы поменять данные в нескольких книгах
 
#
02.02.2026 20:24:09
немного изменил порядок работы. теперь можете задать значение (для колонки А) при котором заменять значение в колонке В. значение которое нужно вставить тоже можно указать. проверял у меня работает с сотыми и десятыми.
насчет второй части не понял основного - при каком условии вставлять ссылку на ячейку, т.е. при каком значении в колонке А нужно вставлять ссылку в В.
 
Перейти    
Как поменять данные в нескольких книгах не открывая их?, Как не открывая файлы поменять данные в нескольких книгах
 
#
02.02.2026 11:57:43
Здравствуйте.
Попробуйте написать так:
Код
aData(i, 2) = 999.45
Вечером сделаю так, что значение для замены будет настраиваемым.
 
Перейти    
Страницы: 1 2 3 4 5 6 7 8 9 10 След.
Наверх