Поиск
Автор: pancrat. Прошу помощи! Не могу сообразить, как на писать простой макрос чтения KML-файла. Требуется прочитать KML-файл, и занести данные в таблицу на листе 1. Начал писать загрузил kml-файл, дальше требуется взять из него информацию по точкам и линиям, но как это сделать... не понимаю.
Изменен: 22 фев 2021
Читать сообщение на форуме или сайте.Автор: Алексей Краснов. Добрый вечер!
Столкнулся с проблемой - имеются ячейки, из которых функцией извлекается предпоследнее вхождение текста после определенного делителя "Human".
В том случае, если функция не находит подходящих значений, она возвращает #ЗНАЧ!, который мешает работе остальных функций, которые используют ссылки на эту.
Необходимо результат #ЗНАЧ! при вызове функции заменить на пустое значение ""
Долго гуглил информацию по поводу обхода ошибок с помощью CVErr(xlErrValue)/Application...
Изменен: 23 окт 2020
Читать сообщение на форуме или сайте.Автор: a.m.v.. Всех приветствую.
Прошу помощи клуба знатоков.
Руководством поставлена задача иметь отчет по работе с generic e-mail. Я имею ввиду, некая Excel таблица в которой присутствует информация из INBOX & SENT папок: сколько писем приходит (папка INBOX), когда, от кого, тема и на сколько писем был ответ (папка SENT) от сотрудника, в обязанности которого входит работа с generic e-mail. В MS Outlook присутствует несколько учетных записей.
По создал макрос на основе приложенного уважаемым Webley...
Изменен: 24 сен 2020
Читать сообщение на форуме или сайте.Автор: restor38ru. Здравствуйте, пользователи форума.
Пытаюсь написать макрос, для копирования данных из одной книги в другую
Sub auto()
Dim r, p, a As String
r = "Путь к файлу" \\ изменил из за конфиденциальности
p = ThisWorkbook.Name
a = Dir(r)
GetObject (r)
Workbooks(p).Worksheets("1").Range("D31") = Workbooks(a).Worksheets("октябрь").Range("B4").Value
Workbooks(p).Worksheets("1").Range("D32") = Workbooks(a).Worksheets("октябрь")...
Изменен: 24 сен 2020
Читать сообщение на форуме или сайте.Автор: Иван Растеряев. Здравствуйте! Есть возможность изменить макрос в Excel'е на большее количество значений? В данный момент макрос выдаёт только 6, а база состоит из 100 тысяч. Или будет проще написать новый макрос? Данные от кабинета Почты России имеются (токен авторизации и тд).
Изменен: 14 сен 2020
Читать сообщение на форуме или сайте.Автор: Vlad_Sm. .
Изменен: 3 сен 2020
Читать сообщение на форуме или сайте.Автор: Алексей Голубев. Всем привет. Стоит такая задача:
Нужно с одной книги excel выгружать все записи в другую, и каждой записи давать уникальный ID. Возможно си такое сделать?
Со страницы РМК в другую книгу, пример страницы в другой книге есть на странице "Приемка". Помогите решить данный вопрос пожалуйста!
Изменен: 16 июл 2020
Читать сообщение на форуме или сайте.Автор: Max Shams. Доброго времени суток. Есть множество подобных вопросов, но не один из найденных макросов не отвечает заданным критериям.
Как сохранить в отдельные книги определенные листы?
1. Чтобы активация происходила кнопкой(предполагаю что через вставку фигуры).
2. Чтобы сохранились определенные активные листы(кнопка находится на первом листе, листы для сохранения на 3-4-5(может больше, может меньше) название у всех разное)
3. Чтобы название файлов было по названию листа
4. Чтобы путь сохранения...
Изменен: 13 июн 2020
Читать сообщение на форуме или сайте.Автор: leshajanaev. Здравствуйте, господа. Необходима помощь следующего характера. Средствами VBA необходимо написать функцию, которая на вход имеет массив строковых значений как пример это столбец ( "ААА", "ККК", "ЭЭЭ", "-", "-", "-" ) значения находятся в ячейках А1...А6 - эти ячейки и образуют массив. Необходимо что бы функция отсеивала значения "-" и итоговое значение ячейки с формулой данной функции должно быть "ААА;...
Изменен: 25 май 2020
Читать сообщение на форуме или сайте.Автор: Станислав Вьюжанин. Добрый день друзья.
Нужна помощь. Необходимо с помощью двойного клика по диапазону в столбце G в столбец J. Не удаляя при этом значения в в ячейке J, но зачеркивая их.
Изменен: 20 фев 2020
Читать сообщение на форуме или сайте.Автор: luibrain. Здравствуйте, не могу никак соскрапить значение с сайта в ячейку, мне известен css selector, но выдает различные ошибки.
Прошу помочь с решением данного вопроса.
Сайт: https://zakupki.gov.ru/epz/contract/contractCard/common-info.html?reestrNumber=2183104497918000748 (https://zakupki.gov.ru/epz/contract/contractCard/common-info.html?reestrNumber=2183104497918000748)
Что нужно соскрапить: Дата заключения контракта - 30.10.2018 (только саму дату надо, без заголовка)
Селектор необходимого:...
Изменен: 22 янв 2020
Читать сообщение на форуме или сайте.Автор: TimurV.. Здравствуйте формочани уже отчаялся и пришел к Вам с просьбой помочь. Суть проблемы следующая есть таблица если какая либо из ячеек пуста подставляется данные с другой. Макрос должен запускаться при открытии и только в данной книге. Сам плохо разбираюсь в VBA только начал изучать, из всех примеров собрал данный вариант.
Sub Q()
If IsEmpty(Range("C3")) = True Then
Range("J3").Select
Selection.Copy
Range("C3").Select
Selection.PasteSpecial Paste:=xlPasteValues...
Изменен: 13 янв 2020
Читать сообщение на форуме или сайте.Автор: zandaki2. Привет!
Нужна помощь знатоков VBA. Файл прикрепил.
Дело в том, что копировать от строки до строки очень и очень долго, в примере лишь часть файла, а по факту он огромен.
Нужен макрос, который копировал бы значение строки до тех пор, пока не появится иное значение. А затем копировал это иное значение пока не появится третье и так далее.
Начало таблицы всегда одинаковое, однако количество фамилий (строк соответственно) постоянно меняется.
Изменен: 21 окт 2019
Читать сообщение на форуме или сайте.Автор: FVL. доброго времени суток, уважаемые форумчане!
довольно много времени пытался найти самостоятельно решение моей задачи, но потерпел неудачу :(
осталось надеяться на ВАШИ "светлые" головы ;)
задача заключается в следующем: есть база сотрудников (лист1 книги Тест) с частью необходимой информации (оставшаяся часть берется из другой базы), нужно создать другую (третью) базу в которой будут попадать только необходимые данные.
предположим что сотрудников больше 3000 чел и 60% из них...
Изменен: 21 окт 2019
Читать сообщение на форуме или сайте.Автор: Argo9. Доброго дня, позвольте спросить. Написал небольшую функцию в VBA. Я только начал вариться в кодинге. Функция работает и копирует нужные диапазон, но почему то возвращает в строку адреса значений "-1" (при некоторых изменениях true ). Я так понял так как возвращается значение типа Range, а нужно string. Значение берутся из нескольких ячеек (адреса почты). Как мне вернуть в строку адреса аутлук значение из 2-5 ячеек?
хотелось бы в строку ".To = " вбивать значение из...
Изменен: 24 сен 2019
Читать сообщение на форуме или сайте.Автор: 5n0vv. Добрый день. Имеется вот такой код. Подскажите, пожалуйста, как в финале композиции сделать, чтобы вместо "delete" было "поместить в корзину"? Заранее благодарю.
Dim FSO '
Изменен: 20 сен 2019
Читать сообщение на форуме или сайте.Автор: pervyakov.ma. Комрады, стоит задача: Из файла эксель необходимо забить в настройку отборов обработки 1С список кодов. Но так как я далек от этого, то я решил воспользоваться топорным способом и написать макрос в экселе через оператор SendKeys. И все бы ничего, только возникла проблема с обращением к окну 1С. Через оператор AppActivate не получается, так как файл приложения имеет формат 1cv8s (3).rdp и макрос выдает ошибку.
Поэтому вопрос: Есть ли простенькая команда, которая выполнит действие...
Изменен: 30 май 2019
Читать сообщение на форуме или сайте.Автор: Walkish. Добрый день!
В чем суть проблемы:
Имеется сводный файл, который аггрегирует в себе различную информацию из сборки других файлов. Эти файлы выгружаются ежедневно и в их название дописывается дата, например - "Отчет1_20.03.2019".
В сводном файле каждый день приходится править дату файла в формуле:=ВПР(I4;[Отчет1_20.03.2019.csv]Отчет1_20.03.2019!$D:$G;2;0)
Я хочу написать что то типа такого: =ВПР(I4;[Отчет1_"&ТЕКСТ(СЕГОДНЯ();"ДД.ММ.ГГГГ")&"...
Изменен: 20 мар 2019
Читать сообщение на форуме или сайте.Автор: Aramzes. Подскажите пожалуйста код макроса для скрытия\отмены скрытия пустых столбцов. Т.е. сначала планируется фильтровать по "фирмам", потом по "числу", и хочется видеть результат выставленных фильтров без пустых столбцов значений q1-q13.
Изменен: 13 мар 2019
Читать сообщение на форуме или сайте.Автор: zz1x1zz. Я в макросах нуб полнейший. Сегодня 4 часа изучал что есть макросы и как они работают для простейшей цели.
В итоге написал простой макрос что вносит значение NOW() даты и времениSub **
ActiveCell.Value = Now()
End SubСтолкнулся с проблемой отмены: Привычное Ctrl+z не работает. В связи с тем вопрос:
Как добавить запрет на внесение изменений в ячейки, в которых уже есть данные?
З.ы. Админ:
Поиск долго думает, а при запросе по более чем одному слову выдаёт "При выполнении скрипта...
Изменен: 28 янв 2019
Читать сообщение на форуме или сайте.Автор: Valmonth502. Нужна помощь с написание кода программы.Боссу на работе нужно автоматизировать поиск в таблицах excel... Есть отдельный файл excel где около ста тысяч обозначений деталей для машины с А1 до А100000. Есть другой отдельный файл excel где список тех деталей которые менялись в 2016 году, отдельный файл за 2017 год и 2018. Боссу нужен итоговый файл где по каждой измененной детали будет отображаться номер изменения за все года. Алгоритм я придумал, но вот в синтаксисе я не силен. Алгоритм...
Изменен: 27 янв 2019
Читать сообщение на форуме или сайте.Автор: Valmonth502. Боссу на работе нужно автоматизировать поиск в таблицах excel... Есть отдельный файл excel где около ста тысяч обозначений деталей для машины с А1 до А100000. Есть другой отдельный файл excel где список тех деталей которые менялись в 2016 году, отдельный файл за 2017 год и 2018. Боссу нужен итоговый файл где по каждой измененной детали будет отображаться номер изменения за все года. Алгоритм я придумал, но вот в синтаксисе я не силен. Алгоритм следующий: в файле "база"...
Изменен: 27 янв 2019
Читать сообщение на форуме или сайте.Автор: shurikzar. Прошу помощи (VBA Макрос) по сортировке строк по таблице с n-числом строк, с i-числом возможных дубликатов.
Необходимо чтобы строки с одинаковыми "названиями" ...
Изменен: 18 окт 2018
Читать сообщение на форуме или сайте.Автор: Fuad1992. Добрый день уважаемые форумчане!
Кто знает как прописать в Power Query запросе, Path путь на документ не в текущей папке, а на 1 папку ниже?
Честно говоря пробовал всячески прописать путь в текущей папке, однако безуспешно( А про папку ниже вообще молчу)
Возможно ли это?)
Документ с PQ таблицей-----C:\Users\FUAD\Desktop\Cars\FORD.xlsm
Документ для выгрузки -----C:\Users\FUAD\Desktop\TEST.xlsm
Добавлю и код и файл во вложение.
Спасибо!
ActiveWorkbook.Queries.Add Name:="Table1"...
Изменен: 21 июн 2018
Читать сообщение на форуме или сайте.Автор: Fuad1992. Добрый день уважаемые профи.
В документе TEST имеется код, который создает новый документ в необходимой папке (Cars).
Потом, в этом новом документе, создается PQ таблица, которая привязана к документу TEST.
Там действует фильтрация ("МАРКА") и убираются не нужные строки (Остается только "Ford").
В добавок переименовывается страница, заголовок и сам файл. Новое имя пишется в InputBox.
Цель такая, чтобы в запросе, а точнее в фильтрации PQ таблицы было значение...
Изменен: 21 июн 2018
Читать сообщение на форуме или сайте.Автор: Alex375. Добрый день! Имеется макрос, заполняющий шаблон Word документа значениями из ячеек Excel.
В данном макросе есть функция проверки значения в ячейке excel на превышение 256 символов и вставки текста в шаблон Word пошагово, если значение превышает 256 символов:'Функция проверки и разбиения строки
Sub Replace(Word1, Word2, WD)
Lencheck = Len(Word2) 'Проверка длины строки для вставки
If Lencheck > MaxLen Then 'Если строка более 256 символов вставку следует выполнить по этапно
Start...
Изменен: 6 июн 2018
Читать сообщение на форуме или сайте.Автор: Walkish. Форумчане, доброго времени суток!
Прошу подсказать что делаю не так.
Имеется документ Visio, со 100 листами, необходимо каждый лист сохранить в отдельный PDF файл и назвать первыми 2мя символами листа.
Есть следущий макрос :
Sub savetopdf()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\Desktop" & "\" & Left(s.Name, 2)
Next
End Sub
Update:
Разобрался со всем, кому если нужно вот код:...
Изменен: 26 апр 2018
Читать сообщение на форуме или сайте.Автор: Yahoman. Друзья, привет!
Помогите пожалуйста, кто знает...
Есть массив (столбец) с датами в текстовом формате "21/12/2017". Нужно в этом же массиве (столбце) такие записи преобразовать в формат дат.
Пример во вложении
Изменен: 27 дек 2017
Читать сообщение на форуме или сайте.Автор: Kyvaldenius. День добрый.
пытаюсь сделать сортировку на выбранном диапазоне ячеек от второй строки первой ячейки до 9 столбца не известной ячейки (каждый раз может быть разная)
lLastRow- номер последней ячейки
и не знаю как дальше выбрать участок
от А2 до Н lLastRow
что бы сортировку применить на этом диапазоне ячеек
lLastRow = Cells.SpecialCells(xlLastCell).Row
Range("A3", Rows.Count).Select
'Set ra = sh.Range(sh.Range("a11"), sh.Range("a" &...
Изменен: 6 сен 2017
Читать сообщение на форуме или сайте.