Страницы: 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
Читать сообщение на форуме или сайте.
Excel VBA - подстановка значений из готового заполненного листа на основе выбранного значения в ComboBox
Автор: user06. Доброго времени суток, Собственно суть проблемы описана в названии темы. Не подтягиваются данные из листа с готовыми заполненными данными на userform. В excel файле на userform в первой части выбирается какое-либо значение, на основе выбранного значения в первой части фильтруются значения во второй части. И по идее на основе выбранного какого-либо значения во второй части должны подставляться значения в третью часть на userform. Но этого не происходит, и не могу понять почему. ...
Изменен: 04.04.2022
Читать сообщение на форуме или сайте.
VBA проверка на число (по заданному региональному стандарту)
Автор: Максим Зеленский. Привет всем. Немного туплю, порыл форум, но никак не найду подходящего решения, или не могу протестировать... а VBA основательно приподзабыл уже :) Есть три ячейки, в которых может быть написано число с десятичным знаком или без десятичного знака, причем может быть сохранено как текст или как число: 0.5true 0,5false  1trueнужен кусочек кода VBA для проверки содержимого ячейки Если в ячейке записано целое число, без десятичного знака, то это не ошибка. Неважно, как оно ...
Изменен: 13.10.2021
Читать сообщение на форуме или сайте.
Как создать в VBA формулу с функциями Exel
Автор: Дмитрий Величко. Здравствуйте! Помогите, пожалуйста: Сделал для работы формулу, которая будет выводить "снизу-вверх" выделенные строки и заменять в них определенные слова (направления света), записал ее себе в текстовом виде, чтобы не забыть и вставлять в файлы, если пригодится:  =ЕСЛИ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ИНДЕКС(Область которую надо копировать и переворачивать;СТРОКА(последняя строка в области ФИКСИРОВАННАЯ ПО СТРОКЕ)-СТРОКА(строка в ...
Теги: exel, vba
Изменен: 30.09.2020
Читать сообщение на форуме или сайте.
Передача аргументов пользовательской форме.
Автор: slepoi_kamin. Добрый день. Пытаюсь сделать универсальную форму для ввода данных. Идея такая: есть ПЕРВАЯ ФОРМА с текстбоксом, если в нем не хватает места, то можно нажать на кнопку откроется ВТОРАЯ ФОРМА с текстбоксом большого размера. В этот текстбокс мы вводим текст, нажимаем ок, и текст переносится в текстбокс первой формы. ПЕРВЫХ ФОРМ много и они разные. А ВТОРАЯ ФОРМА должна быть одна универсальная. То есть, по идее надо по нажатию на кнопку на ПЕРВОЙ ФОРМЕ передать во ВТОРУЮ ...
Изменен: 27.05.2020
Читать сообщение на форуме или сайте.
Связь(фильтр) данных между комбобоксами, Организация взаимосвязи между двумя комбобоксами
Автор: Джек Восмеркин. Как всегда, приветствую многоуважаемых форумчан! Есть два комбобокса, заполненные из таблицы с сервера. Выглядят так: 'Соединение с базой и получение данных в Combobx-ы' cn.Open    sSQL = "Select distinct id1 From Itog Where id1 IS NOT NULL Order by 1"    Set rs = cn.Execute(sSQL)    If Not cn.State = 1 Then Exit Sub    a = rs.GetRows    Me.ComboBox1.List = Application.Index(a, 1, 0) rs.Close:     cn.Close '------------------- cn.Open    ...
Теги: combobox
Изменен: 14.01.2020
Читать сообщение на форуме или сайте.
Фильтр данных в массиве с построением столбцов в «ComboBox» и «ListBox»
Автор: ASS9. Добрый день. Помогите, пожалуйста, изменить функцию «FilterArray», которая выполнят фильтрация данных в массиве по маске Like. В форме есть «ComboBox1» и «ListBox1». При входе «ComboBox1» заполняться массив данных в «ComboBox1» и «ListBox1» (4 столбца из листа Excel). Но при фильтрации данных в массиве через Function «FilterArray» остаются только ДВА СТОЛБЦА, и не возможно после выбора в «ComboBox1» или «ListBox1» получить данные из 3-ого и 4-ого столбца методом: ...
Теги: combobox, ListBox
Изменен: 17.04.2019
Читать сообщение на форуме или сайте.
ComboBox - присвоить имена столбцов
Автор: DDW. Добрый день. Как программно присвоить название колонке в ComboBox? Что-то типа      ComboBox.Column(1).HeadText = "Колонка_1"У меня стоит задача - считать данные с закрытой книги и заполнить ComboBox.  (Реализовано) Но как задать имя столбцам незнаю. Установил: ColumnCount = 3,  ColumnHeads = True
Теги: combobox
Изменен: 07.12.2018
Читать сообщение на форуме или сайте.
Изменить 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
Читать сообщение на форуме или сайте.
Выбор значения по двум параметрам в VBA
Автор: STF. Здравствуйте! Я далека от программирования. Пересмотрела много примеров с подобными задачами. Не нашлось ни одного более-менее мне подходящего. Поэтому хочу попросить помощи у вас. Нужно, чтобы после выбора типа местности(ComboBox1) и высоты(ComboBox2), в TextBox3 появилось значение соответствующего коэффициента k.
Изменен: 20.11.2016
Читать сообщение на форуме или сайте.
Результат работы регулярного выражения не работает с 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
Читать сообщение на форуме или сайте.
Макрос для переноса строк на новый лист при соответствии с условием
Автор: DrugS. Доброго времени суток!  Нужна помощь/предложения с кодом, на задание условия выборки для переноса строки, с соответствием всем 3м параметрам(в combobox) из основного листа(Отчет1), на создаваемый лист. P.S. Таблица укорочена из за ограничения размера загружаемого файла. Строк >40000.
Изменен: 09.06.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
Читать сообщение на форуме или сайте.
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
Наверх