Страницы: 1 2 След.
Поиск
Перенос таблицы из 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
Читать сообщение на форуме или сайте.
Как свести сложную пересекающуюся матрицу в простой список?, Сложная таблица, которую надо сделать простой.
Автор: Nhead. Добрый день, пытаюсь свести большую матрицу в простой список, я приложил пример. В матрице по горизонтали идет город отправителя, а по вертикали город доставки, значения на пересечении городов отражают "зону сложности" отправки. Например из Абакана в Москву сложность 7, а из Москвы в Абакан 4. Мне надо эту монструозную матрицу превратить в список, на первом листе в примере нужно заполнить столбец "зоны", если делать это через ВПР, то нужно делать его по столбцу ...
Изменен: 10.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
Читать сообщение на форуме или сайте.
Расчет укладки трубы для теплого пола
Автор: iljadanilyuk. День добрый задача рассчитать сколько нужно укатать трубы теплого пола для обогрева помещения. Есть помещение. И его площадь (если нужно, есть точные размеры помещения. Есть расчетные тепловые потери, в ваттах. То сколько тепла теряет помещение. И тепловая мощность одного метра квадратного метра уложенного трубопровода.  В зависимости от необходимой мощности, и размера помещения,  нужно применять различный шагукладки трубы , от 10 см до 30 см , между трубами
Изменен: 13.06.2019
Читать сообщение на форуме или сайте.
Каскадные выпадающие списки. Список в Power Query, Нужно настроить сложную связку выпадающих списков у двух книг или через запрос создать именованный диапазон.
Автор: NeoSkywalker808. Здравствуйте, пересмотрел много информации. У меня есть две книги. Книга_1 и Книга_2. В Книге_1 у меня есть несколько листов (Лист_1, Лист_2 и т.д.) во всех есть данные организованные схожим образом. На каждом листе у меня есть таблица с данными.(смотри картинку во вложении) Книга_1 - является базой материалов на своем листе (Арматура, Бетон, Пиломатериал и т.д.) сформированы позиции и цены по ним. Книга_2 - базой работ. На Лист_1, сформирован общий список с ...
Изменен: 21.05.2019
Читать сообщение на форуме или сайте.
Фильтр данных в массиве с построением столбцов в «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
Читать сообщение на форуме или сайте.
Фильтрация данных, выбирая условия из выпадающих списоков
Автор: frimen. Добрый день. Необходимо провести фильтрацию данных в таблице выбирая нужные условия из выпадающего списка. В списках указан диапазон, поэтому при выборе списка с диапазоном, данные фильтровалась от и до согласно диапазона. При выборе дополнительного условия также с диапазоном, должны отфильтроваться уже отфильтрованные данные раньше. Подскажите, как это можно сделать?
Изменен: 17.01.2018
Читать сообщение на форуме или сайте.
Два списка зависимых от одного списка.
Автор: calebelt. Добрый день! Подскажите пожалуйста, как сделать зависимость двух списков от отдного списка. К примеру есть главный список: булочки, хлеб Список начинки: сосиска, колбаса, сыр Список соусов: горчица, кетчуп, майонез Если выбрали булку, то в списках начинки и соуса можно выбрать только колбасу, сыр, горчицу, майонез соответственно. Погуглил, посмотрел примеры, но что то не могу сориентироваться совсем. Файл пример во вложении. Списки и их значения раскрасил в соответсвующие ...
Теги: списки
Изменен: 15.01.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
Читать сообщение на форуме или сайте.
Скрипт для вставки полей из списка, Вставить в ячейку одно из заранее заданных полей
Автор: Mikers. Здравствуйте. Требуется вставлять в разные файлы Excel одну из заранее заданных типовых фраз. Фразы могут хранится либо во внешнем текстовом файле, либо в самом скрипте. Вставка производится, например, нажатием на комбинацию клавиш, по которой выпадает список с фразами. Каким скриптом это можно реализовать? Благодарю
Изменен: 26.03.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
Читать сообщение на форуме или сайте.
Связь выпадающих списков с данными в формуле
Автор: SimonZen. Можно ли сделать подобную вещь в экселе? Пока в голову приходит как вывернуться со связанными списками или огромные формулы на ЕСЛИ(). Суть следующая: есть несколько выпадающих списков, в зависимости от выбора в этом списке в формулу подставляется определенное число (если выбран А, то 1, если Б, то 2, если С то 3)
Теги: списки
Изменен: 02.06.2016
Читать сообщение на форуме или сайте.
заполнение детализации из справочника с несколькими столбцами, из тел.справочника с двумя тел.столбцами нужно проверить совпадения и указать ФИО
Автор: timerxan. День добрый, уважаемые форумчане. Возник такой вопрос: есть список с двумя телефонами: внутренними и внешними. делаю детализацию. Для наглядности нужно подписать кто звонил. Можно ли как то сделать проверку по двум столбцам из списка? Если да, то как? Заранее благодарю.
Изменен: 15.02.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
Читать сообщение на форуме или сайте.
Страницы: 1 2 След.
Наверх