Страницы: 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
Читать сообщение на форуме или сайте.
Упорядочивание массива по содержимому, массивы
Автор: Victor. Уважаемые форумчане, очень прошу помочь в решении следующей задачи: Есть объявленный массив SL(1 To 11), которому уже присвоены значения из целых чисел. Например, SL(1) = 20, SL(2) = 45, SL(3) = 10, SL(4) = 19 и т.д. Из этого массива нужно определить максимальное значение и присвоить его номер массиву HB() под первым номером. Например, максимальное значение в массиве SL() равно 45, тогда HB(1) = 2 (так как SL(2) = 45). Далее нужно определить какое из оставшихся значений массива SL ...
Изменен: 10.07.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
Читать сообщение на форуме или сайте.
Выбор температурной поправки, Выбор температурной поправки из диапазонов плотности (от мин и до мах значения)
Автор: badiv. Здравствуйте форумчане, прошу помощи в решении такой задачки например в ячейку ввожу плотность 0,6501 и температуру 15 она лежит в диапазоне А2:В2 те в диапазоне от 0,6500 до 0,6590 тогда нужно присвоить соответствующее значение поправки С2 те 0,000962 или найти другое соответствующее если плотность другая и рассчитываю плотность при 20 градусах по формуле =0,6501(плотность которую ввели)+0,000962(поправка)*(15(введенная нами температура)-20(температура 20)) т.е =0, ...
Изменен: 06.07.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
Читать сообщение на форуме или сайте.
Один массив из двух, Нужен код VВA собирающий новый массив из этих двух.
Автор: tmash. Внезапно появляются два заполненных массива м01 и м02.Чтобы не упутать, попробую объяснить на примере диапазонов.Количество столбцов (измерения) в массивах обычно разное. Нужен код VВA собирающий новый массив из этих двух. По рабоче-крестьянски: Если название столбца из м02 есть в м01, то добавить содержимое этого столбца под столбец тёзку. Если названия столбца из м02 нет в м01, то добавить название столбца к названиям столбцов, а данные добавить в новый столбец, ниже ...
Теги: массив, VBA
Изменен: 17.06.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
Читать сообщение на форуме или сайте.
Преобразовать массив, чтобы сначала выводились числа модуль которых меньше 1.
Автор: Yak73. Не представляю как это сделать с помощью формул Excel
Изменен: 25.12.2016
Читать сообщение на форуме или сайте.
Растянуть формулу массива через VBA, Варианты растягивая формулы массива средствами VBA
Автор: Mirai. Здравствуйте. Возникла, казалось бы простая задача, растянуть формулу массива до конца последней строки, но по какой то причине это не выходит. Делал так. В Range("P2: Последняя строка / столбец") у меня имеются формулы ({массивы}). Я прочитал на форумах, что за вставку массивов отвечает не formula / formular1c1, а FormulaArray. Растягивать нужно в "P3: последняя строка/столбец" 'Нахожу последний столбец / строку: lColumnsCnt = ...
Изменен: 24.10.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
Читать сообщение на форуме или сайте.
Выбор варианта из таблицы вариантов по номеру зачетки
Автор: Lex Backer. Здравствуйте! Помогите пожалуйста с данным вопросом, имеется таблица для выбора варианта по двум последним цифрам зачетки, но я не могу вернуть значение строки (номера варианта), если бы присутствовали значения столбцов, а не только строк, то реализовал бы через ВПР или ИНДЕКС, а тут только строки... - затрудняюсь.
Изменен: 17.07.2016
Читать сообщение на форуме или сайте.
Выбор варианта из последних цифр зачетки по таблице
Автор: itsnxt. Здравствуйте! Помогите пожалуйста с таким вот вопросом. Имеется таблица по которой необходимо выбрать вариант из последних цифр зачетки... Как это реализовать? Массив? Или же все таки придется писать 24 условия ЕСЛИ ? Файл таблицы есть ниже, там номера зачеток и таблица по которой выбирается вариант.
Изменен: 10.07.2016
Читать сообщение на форуме или сайте.
Поиск в масиве нужной ячейки по маске, с помощью формулы массива необходимо найти нужные ячейки по определённой маске...
Автор: Валерий Попов. помогите найти формулу массива, по которой я смогу вывести из таблицы нужные мне элементы по заданной мной маске.... хотелось бы обойтись формулой, чем макросом.... хочу использовать эту формулу в разных местах книги и сколько угодно раз.... я это сделал с помощью двух формул и могу использовать только в одном месте....  С уважением к Вам и Вашему времени.... спасибо....
Изменен: 06.03.2015
Читать сообщение на форуме или сайте.
Выборка данных из массива в столбец
Автор: BET4. Всем привет, искал-искал ответ, но не нашел, поэтому решил зарегистрировать и создать тему надеюсь на помощь. Суть - есть "продукт", у которого есть спецификация состоящая из 5 "наименований". При условии 10 "продуктов", количество уникальных "наименований" может доходить до 20. Содержание каждого "наименования" в каждом продукте строго индивидуально. Если мы знаем сколько продукта нужно произвести - задача посчитать сколько ...
Изменен: 13.02.2015
Читать сообщение на форуме или сайте.
Применить 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
Читать сообщение на форуме или сайте.
Список из заданного массива в одной ячейке, Формулой объеденить значения одного массива с заданным разделителем
Автор: andrey062006. Есть столбец из 10 ячеек. Необходимо формулой (желательно формулой) из каждой ячейки этого диапазона взять значение, разделить каждое запятой или точкой с запятой и вставить в одну ячейку. Пример прилагаю. Кроме формулы СМЕЩ в голову ничего не приходит, но не могу придумать как её использовать.
Изменен: 30.07.2014
Читать сообщение на форуме или сайте.
user-defined type not defined (ошибка), Работавшие ранее макросы перестали работать.
Автор: Name777_. Часть работавших ранее макросов перестала работать. Пользовательские типы данных создавались. Библиотеки в Tools-References не отключал (MS Excel 14.0 Object Library - галка стоит). Чем может быть вызвана эта ошибка? Как найти её причину?
Изменен: 15.07.2013
Читать сообщение на форуме или сайте.
Страницы: 1 2 След.
Наверх