Поиск
Автор: KrabNaGalerah. Всем привет,
есть у меня пару ворд файлов, длинных, с большой таблицей в примерно 3к строк (выгрузка). Эти таблицы нужно закинуть в эксель.
Написал код. Закидываю значения в массив, потом уже буду с этим массивом дальше работать. Однако обработка оставляет желать лучшего, около 5ти минут считывает данную таблицу. Код не большой, может быть кто то уже делал похожие вещи и знает хитрости, к примеру может быть скопировать таблицу как нибудь целиком, или что нибудь похожее.
...
Изменен: 09.02.2023
Читать сообщение на форуме или сайте.Автор: kohet. Всем доброе время суток! Проблема следующая. Есть энное количество XML файлов, которые надо импортировать в Excel и далее их там обрабатывать.
Но есть проблема - встроенная схема предполагает, что одно поле имеет тип "integer", в результате чего 18-значное число округляет последние 3 цифры.
Но мы ж не идиоты, мы ж читаем, что в документации Мелкософтов. Так как все файлы XML однотипные, выгружаем из одного из них макросом схему: Sub save_XML_scheme()
Dim fPath As ...
Изменен: 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 основательно приподзабыл уже :)
Есть три ячейки, в которых может быть написано число с десятичным знаком или без десятичного знака, причем может быть сохранено как текст или как число: 0.5true 0,5false 1trueнужен кусочек кода VBA для проверки содержимого ячейки
Если в ячейке записано целое число, без десятичного знака, то это не ошибка. Неважно, как оно ...
Изменен: 13.10.2021
Читать сообщение на форуме или сайте.Автор: Дмитрий Величко. Здравствуйте! Помогите, пожалуйста:
Сделал для работы формулу, которая будет выводить "снизу-вверх" выделенные строки и заменять в них определенные слова (направления света), записал ее себе в текстовом виде, чтобы не забыть и вставлять в файлы, если пригодится:
=ЕСЛИ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ИНДЕКС(Область которую надо копировать и переворачивать;СТРОКА(последняя строка в области ФИКСИРОВАННАЯ ПО СТРОКЕ)-СТРОКА(строка в ...
Изменен: 30.09.2020
Читать сообщение на форуме или сайте.Автор: slepoi_kamin. Добрый день.
Пытаюсь сделать универсальную форму для ввода данных.
Идея такая: есть ПЕРВАЯ ФОРМА с текстбоксом, если в нем не хватает места, то можно нажать на кнопку откроется ВТОРАЯ ФОРМА с текстбоксом большого размера. В этот текстбокс мы вводим текст, нажимаем ок, и текст переносится в текстбокс первой формы.
ПЕРВЫХ ФОРМ много и они разные. А ВТОРАЯ ФОРМА должна быть одна универсальная.
То есть, по идее надо по нажатию на кнопку на ПЕРВОЙ ФОРМЕ передать во ВТОРУЮ ...
Изменен: 27.05.2020
Читать сообщение на форуме или сайте.Автор: van_der_bolt. Всем доброго времени суток! Опять столкнулся с похожей проблемой, как была у меня в прошлый раз. Такая, да не такая точнее. В прошлый раз мне очень помогли форумчане, ещё раз большое спасибо откликнувшимся. :)
В общем, ситуация такова. Имеется книга Excel, в которой два листа.
1) Первый лист называется "Список новых штрих кодов" (условно обозначим S1), и содержит список тех штрих кодов, которые нужно было поменять (и были поменяны) в нашей базе.
2) Второй ...
Изменен: 23.01.2020
Читать сообщение на форуме или сайте.Автор: Павел. Доброго времени суток!
Что то никак не могу разобраться с синтаксисом :(
Скриптом спамить не буду, кратко опишу.
Есть форма для заполнения юзерами. В форме есть выпадающие списки, которые формируются в зависимости от участка работы юзера. Т.е. выбор участка - выбор линии (динамический диапазон через ВПР).
В общем вопрос - как правильно указать VBA что имя источника для популяции списка Lines именно L (последняя строка).
Dim L As String
L = CStr(main.Range(" ...
Изменен: 25.08.2019
Читать сообщение на форуме или сайте.Автор: NeoSkywalker808. Здравствуйте, пересмотрел много информации.
У меня есть две книги. Книга_1 и Книга_2.
В Книге_1 у меня есть несколько листов (Лист_1, Лист_2 и т.д.) во всех есть данные организованные схожим образом.
На каждом листе у меня есть таблица с данными.(смотри картинку во вложении)
Книга_1 - является базой материалов на своем листе (Арматура, Бетон, Пиломатериал и т.д.) сформированы позиции и цены по ним.
Книга_2 - базой работ. На Лист_1, сформирован общий список с ...
Изменен: 21.05.2019
Читать сообщение на форуме или сайте.Автор: 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
Читать сообщение на форуме или сайте.Автор: 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, так же ...
Изменен: 22.12.2017
Читать сообщение на форуме или сайте.Автор: Delta-Dude. Коллеги, подскажите, пожалуйста.
Необходимо сделать список наиболее частых значений (артикулов) без создания дополнительных столбцов.
Проблема в том, что помимо подсчета уникальных значений (артикулов) есть ещё их количество и нужно составить список ТОП 20
Итоговый вариант выглядит так
Артикул №112233 - 10 штук
Артикул №112244 - 5 штук
Артикул №112255 - 3 штуки
Артикул №112266 - 2 штуки
Артикул №112277 - 2 штуки
и т.д.
Во вложении пример. Можно макросом, можно ...
Изменен: 07.12.2017
Читать сообщение на форуме или сайте.Автор: tmash. Внезапно появляются два заполненных массива м01 и м02.Чтобы не упутать, попробую объяснить на примере диапазонов.Количество столбцов (измерения) в массивах обычно разное.
Нужен код VВA собирающий новый массив из этих двух.
По рабоче-крестьянски:
Если название столбца из м02 есть в м01, то добавить содержимое этого столбца под столбец тёзку.
Если названия столбца из м02 нет в м01, то добавить название столбца к названиям столбцов, а
данные добавить в новый столбец, ниже ...
Изменен: 17.06.2017
Читать сообщение на форуме или сайте.Автор: tmmp. Добрый день!Есть прайс с запчастями, на одном листе запчасти а на другом содержание! Хочу сделать что бы содержание было на 1вом листе выпадающем списке. при нажатии на элемент списка происходила прокрутка как при гипперссылке! (группы пронумерованы)
кто поможет буду благодарен
Изменен: 28.02.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) ...
Изменен: 18.02.2017
Читать сообщение на форуме или сайте.Автор: vladjuha. Здравствуйте.
На листе есть вручную созданные правила УФ. Созданы они с большим запасом по строкам (диапазон применения) - на все случаи вводимых пользователем объёмов данных.
Но чаще УФ работают на ~10%. А раз так, да учитывая, что правила УФ к тому же волотильны, пришла идея макросом, при необходимости, причёсывать нижнюю границу правил УФ (через ModifyAppliesToRange).
Проблема в том, что не получается прочитать (свойство AppliesTo) текущий диапазон применения правила УФ ( ...
Изменен: 08.02.2017
Читать сообщение на форуме или сайте.Автор: Mirai. Здравствуйте. Возникла, казалось бы простая задача, растянуть формулу массива до конца последней строки, но по какой то причине это не выходит. Делал так.
В Range("P2: Последняя строка / столбец") у меня имеются формулы ({массивы}).
Я прочитал на форумах, что за вставку массивов отвечает не formula / formular1c1, а FormulaArray.
Растягивать нужно в "P3: последняя строка/столбец"
'Нахожу последний столбец / строку:
lColumnsCnt = ...
Изменен: 24.10.2016
Читать сообщение на форуме или сайте.Автор: vladjuha. Добрый день.
В представленном примере при помощи регулярного выражения подбираются вхождения ДВССЫЛ(...) с последующей заменой на прямой путь к файлу.
Есть две ячейки: в одном исходная формула состоит из одной строки, во второй - из трёх (перевод строки внутри ячейки).
Результат поиска и замены корректный - это видно в отладочном окне, более того, если скопировать получаемый итог (для "трехстрочной" ячейки) ручками из отладки в ячейку - будет работать. ...
Изменен: 10.10.2016
Читать сообщение на форуме или сайте.Автор: NaMoRZA. Всем доброго вечера!
Не смог кратко полностью описать в заголовке вопрос, но как бы основную проблему написал. Теперь подробнее.
На днях столкнулся с новой задачей и никак не могу ее до конца решить.
Суть:
Найти в файле "html" все конструкции типа спинтакс, например, "{Доброго дня|Здравствуйте|Привет}, {уважаемый|дорогой} Петр!", случайным образом выбрать один вариант и заменить им набор. Т.е., в результате должно получиться:
- Доброго дня ...
Изменен: 16.09.2016
Читать сообщение на форуме или сайте.Автор: lexx_32. Добрый день,
Столкнулся с такой задачей, что необходимо сформировать уникальный список. Т.е. у нас есть постоянные списки "Заказы от мамы, папы, бабушки, дедушки", которые могут содержать одинаковые продукты. Подскажите пожалуйста, как их объединить, при условии что в столбце С - указано "Да, этот список необходимо купить" без использования VBA? Мне нужно получить на список не повторяющихся продуктов.
Всем заранее спасибо за помощь.
http ...
Изменен: 11.08.2016
Читать сообщение на форуме или сайте.Автор: 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
Читать сообщение на форуме или сайте.Автор: Mist1402. Друзья, здравствуйте.
Помогите решить задачку, пожалуйста. Файл прилагаю. Нужно сделать так, чтобы при выборе модели котла и его мощности (лист 1) авоматически заполнялись поля с техническими данными (подтянутые с листа 2).
Не хватает знаний, к сожалению. Буду очень благодарен за помощь. Надеюсь, что такого вопроса не было. Просмотрел множество тем с примерами, не нашел ответа(
Изменен: 05.02.2016
Читать сообщение на форуме или сайте.Автор: aesp. Здравствуйте!
Прошу помощи в автоматизации такой задачи:
На Листе "Исходные" расположены разные по высоте столбца списки цифр. Первый список начинается в A1.
Остальные начинаются с разных строк. Необходимо с помощью макроса расположить объединённый список этих цифр на Лист "Результат" строго друг под другом без пробелов.
Если это кому-то просто и быстро, пожалуйста, помогите.
Благодарю!
Изменен: 03.10.2015
Читать сообщение на форуме или сайте.