Страницы: 1
Поиск
Перенос таблицы из word с помощью VBA, оптимизация кода
Автор: KrabNaGalerah. Всем привет, есть у меня пару ворд файлов, длинных, с большой таблицей в примерно 3к строк (выгрузка). Эти таблицы нужно закинуть в эксель. Написал код. Закидываю значения в массив, потом уже буду с этим массивом дальше работать. Однако обработка оставляет желать лучшего, около 5ти минут считывает данную таблицу. Код не большой, может быть кто то уже делал похожие вещи и знает хитрости, к примеру может быть скопировать таблицу как нибудь целиком, или что нибудь похожее. ...
Теги: word, vba, array
Изменен: 09.02.2023
Читать сообщение на форуме или сайте.
VBA - как импортировать XML программно с подключенной внешне схемой, проблемы с программным импортом XML
Автор: kohet. Всем доброе время суток!  Проблема следующая. Есть энное количество XML файлов, которые надо импортировать в Excel и далее их там обрабатывать.  Но есть проблема - встроенная схема предполагает, что одно поле имеет тип "integer", в результате чего 18-значное число округляет последние 3 цифры.  Но мы ж не идиоты, мы ж читаем, что в документации Мелкософтов. Так как все файлы XML однотипные, выгружаем из одного из них макросом схему: Sub save_XML_scheme() Dim fPath As ...
Теги: xml, vba
Изменен: 13.10.2022
Читать сообщение на форуме или сайте.
VBA проверка на число (по заданному региональному стандарту)
Автор: Максим Зеленский. Привет всем. Немного туплю, порыл форум, но никак не найду подходящего решения, или не могу протестировать... а VBA основательно приподзабыл уже :) Есть три ячейки, в которых может быть написано число с десятичным знаком или без десятичного знака, причем может быть сохранено как текст или как число: 0.5true 0,5false  1trueнужен кусочек кода VBA для проверки содержимого ячейки Если в ячейке записано целое число, без десятичного знака, то это не ошибка. Неважно, как оно ...
Изменен: 13.10.2021
Читать сообщение на форуме или сайте.
Как создать в VBA формулу с функциями Exel
Автор: Дмитрий Величко. Здравствуйте! Помогите, пожалуйста: Сделал для работы формулу, которая будет выводить "снизу-вверх" выделенные строки и заменять в них определенные слова (направления света), записал ее себе в текстовом виде, чтобы не забыть и вставлять в файлы, если пригодится:  =ЕСЛИ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ИНДЕКС(Область которую надо копировать и переворачивать;СТРОКА(последняя строка в области ФИКСИРОВАННАЯ ПО СТРОКЕ)-СТРОКА(строка в ...
Теги: exel, vba
Изменен: 30.09.2020
Читать сообщение на форуме или сайте.
Передача аргументов пользовательской форме.
Автор: slepoi_kamin. Добрый день. Пытаюсь сделать универсальную форму для ввода данных. Идея такая: есть ПЕРВАЯ ФОРМА с текстбоксом, если в нем не хватает места, то можно нажать на кнопку откроется ВТОРАЯ ФОРМА с текстбоксом большого размера. В этот текстбокс мы вводим текст, нажимаем ок, и текст переносится в текстбокс первой формы. ПЕРВЫХ ФОРМ много и они разные. А ВТОРАЯ ФОРМА должна быть одна универсальная. То есть, по идее надо по нажатию на кнопку на ПЕРВОЙ ФОРМЕ передать во ВТОРУЮ ...
Изменен: 27.05.2020
Читать сообщение на форуме или сайте.
Изменить URL в запросе автоматически
Автор: xseed. День добрый. Есть запрос вида let Source = Json.Document(Web.Contents("https://api.binance.com/api/v1/klines?symbol=BTCUSDT&interval=1w&limit=50")), #"Converted to Table" = Table.FromList(Source, Splitter.SplitByNothing(), null, null, ExtraValues.Error), #"Extracted Values" = Table.TransformColumns(#"Converted to Table", {"Column1", each Text.Combine(List.Transform(_, Text.From), "#(tab)"), type text}), ...
Изменен: 08.11.2018
Читать сообщение на форуме или сайте.
С помощью рекурсии генерировать все возможные словосочетания из столбцов
Автор: maximusu. Привет всем. Ребята, помогите пожалуйста разобраться с проблемой. Есть следующая задача. Мне нужно объединить значения из всех столбцов и строк. Вначале мы берем первое значение первого столбца и присоединяем к нему первое значение из второго столбца. Затем к получившемуся результату присоединяем по очереди все значения третьего столбца, Затем вновь берем первое значение первого столбца, но присоединяем к нему уже второе значение второго столбца. И вновь к получившийся  ...
Изменен: 11.10.2018
Читать сообщение на форуме или сайте.
Выбор значений в ListBox по значению ComboBox
Автор: aimv. Привет Уважаемые! Ребят, такой вопрос - есть книга excel в которой созданы Лист1, Лист2, Лист3, Лист4, Лист5 Так же есть UserForm с элементами ListBox1, ComboBox1, CommandButton1 При запуске UserForm в ListBox1 загружаются название всех листов книги :Private Sub UserForm_Initialize() ListBox1.Clear For i = 1 To Sheets.Count ListBox1.AddItem Sheets(i).Name Next End Sub В ListBox1 включена опция MultiSelect = 1 - fmMultiSelectMulti В ComboBox1, так же ...
Теги: vba, EXCEL, ListBox, combobox
Изменен: 22.12.2017
Читать сообщение на форуме или сайте.
хеш ячейки
Автор: aist123. Вставляю этот макрос в Module1, запускаю, и вижу в ячейке B2 - #ЗНАЧ! и никак не могу в чем дело! ячейка A1-  пустая, в ней нет ничего.Function GetHash(ByVal txt$) As String Dim oUTF8, oMD5, abyt, i&, k&, hi&, lo&, chHi$, chLo$ Set oUTF8 = CreateObject("System.Text.UTF8Encoding") Set oMD5 = CreateObject("System.Security.Cryptography.MD5CryptoServiceProvider") abyt = oMD5.ComputeHash_2(oUTF8.GetBytes_4(txt$)) For i = 1 To LenB(abyt) ...
Теги: vba
Изменен: 18.02.2017
Читать сообщение на форуме или сайте.
vba Прочитать диапазон применения условного форматирования, не работает AppliesTo
Автор: vladjuha. Здравствуйте. На листе есть вручную созданные правила УФ. Созданы они с большим запасом по строкам (диапазон применения) - на все случаи вводимых пользователем объёмов данных. Но чаще УФ работают на ~10%. А раз так, да учитывая, что правила УФ  к тому же волотильны, пришла идея макросом, при необходимости, причёсывать нижнюю границу правил УФ (через ModifyAppliesToRange). Проблема в том, что не получается прочитать (свойство AppliesTo) текущий диапазон применения правила УФ ( ...
Теги: vba, FormatConditions
Изменен: 08.02.2017
Читать сообщение на форуме или сайте.
Результат работы регулярного выражения не работает с FormulaLocal, при корректном поиске и замене
Автор: vladjuha. Добрый день. В представленном примере при помощи регулярного выражения подбираются вхождения ДВССЫЛ(...) с последующей заменой на прямой путь к файлу. Есть две ячейки: в одном исходная формула состоит из одной строки, во второй - из трёх (перевод строки внутри ячейки). Результат поиска и замены корректный - это видно в отладочном окне, более того, если скопировать получаемый итог (для "трехстрочной" ячейки) ручками из отладки в ячейку - будет работать. ...
Изменен: 10.10.2016
Читать сообщение на форуме или сайте.
Выбор случайного значения из списка-массива (спинтакс)
Автор: NaMoRZA. Всем доброго вечера! Не смог кратко полностью описать в заголовке вопрос, но как бы основную проблему написал. Теперь подробнее. На днях столкнулся с новой задачей и никак не могу ее до конца решить. Суть: Найти в файле "html" все конструкции типа спинтакс, например, "{Доброго дня|Здравствуйте|Привет}, {уважаемый|дорогой} Петр!", случайным образом выбрать один вариант и заменить им набор. Т.е., в результате должно получиться: - Доброго дня ...
Изменен: 16.09.2016
Читать сообщение на форуме или сайте.
Вставить картинку в тело письма Lotus Notes, вставка в тело письма картинки из определенного диапазона
Автор: oleg_man. Добрый день. Прошу помочь. Есть функция отправки писем через Lotus Notes. Но не могу понять как в тело письма крепить картинку, например копию определенного диапазона ячеек, либо диаграмму. Public Function Local_mail( _ ByVal MyAtt As Variant, _ ByVal MyTheme As String, _ ByVal MyText As String, _ ByVal StrSendTo As Variant, _ ByVal StrCopyTo As Variant, _ StrBCC As Variant) 'MyAtt - вложение 'MyTheme - тема 'MyText - текст письма 'StrSendTo - кому 'StrCopyTo - ...
Изменен: 10.08.2016
Читать сообщение на форуме или сайте.
Применить sub к некоторым листам.
Автор: SanShiney. Приветсвую! Вопрос: Есть VBA код. К примеру, такой: Sub writeA() cells(1,1) = "A" End Sub Теперь, данный код, мне надо применить к определённым листам в книге, к примеру листы 1,3,7,8. Как это можно написать в VBA. гугл не помог. Видимо не правильно даю запрос.
Теги: vba, worksheets
Изменен: 31.01.2015
Читать сообщение на форуме или сайте.
Ошибка в данных сводной таблицы при использования фильтра через макрос, использовал office 2013 x64 на разных компьютерах, с разными файлами, проблема остается.
Автор: ozand. Всем добрый день! Столкнулся со следующей проблемой: создал две сводные таблицы на одном листенаписал макрос который в зависимости от выбранной ячейки в первой, фильтры во второй (это требуется для отображения детализации значений - аналог если щелкнуть по значению два раза, для получения изначальных данных, но в нужном формате) * по горизонтали в заголовке месяца, значения в таблице выдуманы и = месяцу (используется AVG). Номер месяца сделал специально чтобы видеть ошибку.  ...
Изменен: 13.01.2015
Читать сообщение на форуме или сайте.
Программа на VBA - АвтоСписок
Автор: Павел Коган. Уважаемые форумчане! Решил написать сюда, да исправят меня, при необходимости, модераторы.  Позвольте поделиться с вами, на мой взгляд, очень удобной программой на VBA, которая всем без особого труда поможет быстро форматировать таблицы, создавать выпадающие списки и привязывать их к таблице.  Прилагаю видео инструкцию по использованию этой программы - https://www.youtube.com/watch?v=6vVt4vVc0xM Файл с программой прикрепляю. Тестируйте на своих таблицах и пользуйтесь на ...
Изменен: 27.11.2014
Читать сообщение на форуме или сайте.
Ручной пересчет одного листа, вся книга - авто пересчет
Автор: rmaximus.       ДОбрый день, форумчане. Есть файл. В нем много много листов, а один из них очень большой. Так вот он своим пересчетом занимает время всей книги. что нужно: 1. Для всей книги оставить авто пересчет 2. для определенного листа (пускай Sheet1) отключить авто пересчет иустановить кнопку, чтобы при нажатии пересчитывался только этот лист в ручном режиме. Спасибо, большое за помощь
Изменен: 25.11.2014
Читать сообщение на форуме или сайте.
выбор строк и копирование по флажкам(checkbox) в указанный лист
Автор: viktor595. Я как раз по данной теме! Имеется табличка(прилагаю) в которой несколько листов, 1-й это командировка заполняется в командировке, остальные ведутся ежедневно(примерно). При записи командировки-записываются ВСЕ данные и мои и чужие кто был со мной в командировке(как бы общий отчетный материал). Возникает 2 вопроса: первый: - необходимо сделать кнопку (одну) и чекбоксы(напротив каждой строки), что бы при нажатии на кнопку копировались строки с флажками. При чем! копировались ...
Изменен: 26.10.2014
Читать сообщение на форуме или сайте.
Сравнение столбцов из разных файлов
Автор: Smilley. Здравсвтуйте. Прошу содействия в решении следующей задачи. Ежедневно выгружается файл с 3 колонками Фамилия, Имя, Отчество, количество строк в районе 20 тысяч. Имеется второй файл, где также три столбца выделены для ФИО (есть ещё много других столбцов). Необходимо проверить наличие в первом файле фамилий из второго файла. На данный момент задача решена путём перебора ячеек, но данный подход занимает около часа для обработки. Прошу подсказать метод или алгоритм для убыстрения ...
Теги: vba
Изменен: 09.10.2014
Читать сообщение на форуме или сайте.
Замена TRUE на true в ячейке текстового типа не работает
Автор: anmiles. Всем привет! Воспроизвожу по шагам в упрощённом виде: Создаю документПишу в ячейку A1 слово trueЖму Enter, значение ячейки А1 автоматически становится TRUEПравой кнопкой кликаю А1, выбираю формат ячеек, ставлю текстовый формат, жму ОКЗначение А1 остаётся TRUEОткрываю окно поиска и замены. В поиск пишу TRUE. В замену пишу true.Жму кнопку Заменить. Эксель говорит, что сделана одна замена, но значение ячейки А1 остаётся TRUEПробую заменить с разными опциями: чувствительность к ...
Теги: search, replace
Изменен: 24.03.2014
Читать сообщение на форуме или сайте.
user-defined type not defined (ошибка), Работавшие ранее макросы перестали работать.
Автор: Name777_. Часть работавших ранее макросов перестала работать. Пользовательские типы данных создавались. Библиотеки в Tools-References не отключал (MS Excel 14.0 Object Library - галка стоит). Чем может быть вызвана эта ошибка? Как найти её причину?
Изменен: 15.07.2013
Читать сообщение на форуме или сайте.
Создание окружностей с центром в точках, заданных на графике
Автор: linda_m. Нужно построить окружности, центр которых совпадает с точками на графике и каждая последующая окружность изменяет свой диаметр на 1. Возможно ли задать или построить такие окружности с помощью vba?
Изменен: 06.04.2013
Читать сообщение на форуме или сайте.
Страницы: 1
Наверх