Поиск
Автор: 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
Читать сообщение на форуме или сайте.Автор: 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
Читать сообщение на форуме или сайте.Автор: tmash. Внезапно появляются два заполненных массива м01 и м02.Чтобы не упутать, попробую объяснить на примере диапазонов.Количество столбцов (измерения) в массивах обычно разное.
Нужен код VВA собирающий новый массив из этих двух.
По рабоче-крестьянски:
Если название столбца из м02 есть в м01, то добавить содержимое этого столбца под столбец тёзку.
Если названия столбца из м02 нет в м01, то добавить название столбца к названиям столбцов, а
данные добавить в новый столбец, ниже ...
Изменен: 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) ...
Изменен: 18.02.2017
Читать сообщение на форуме или сайте.Автор: vladjuha. Здравствуйте.
На листе есть вручную созданные правила УФ. Созданы они с большим запасом по строкам (диапазон применения) - на все случаи вводимых пользователем объёмов данных.
Но чаще УФ работают на ~10%. А раз так, да учитывая, что правила УФ к тому же волотильны, пришла идея макросом, при необходимости, причёсывать нижнюю границу правил УФ (через ModifyAppliesToRange).
Проблема в том, что не получается прочитать (свойство AppliesTo) текущий диапазон применения правила УФ ( ...
Изменен: 08.02.2017
Читать сообщение на форуме или сайте.Автор: Yak73. Не представляю как это сделать с помощью формул Excel
Изменен: 25.12.2016
Читать сообщение на форуме или сайте.Автор: Mirai. Здравствуйте. Возникла, казалось бы простая задача, растянуть формулу массива до конца последней строки, но по какой то причине это не выходит. Делал так.
В Range("P2: Последняя строка / столбец") у меня имеются формулы ({массивы}).
Я прочитал на форумах, что за вставку массивов отвечает не formula / formular1c1, а FormulaArray.
Растягивать нужно в "P3: последняя строка/столбец"
'Нахожу последний столбец / строку:
lColumnsCnt = ...
Изменен: 24.10.2016
Читать сообщение на форуме или сайте.Автор: vladjuha. Добрый день.
В представленном примере при помощи регулярного выражения подбираются вхождения ДВССЫЛ(...) с последующей заменой на прямой путь к файлу.
Есть две ячейки: в одном исходная формула состоит из одной строки, во второй - из трёх (перевод строки внутри ячейки).
Результат поиска и замены корректный - это видно в отладочном окне, более того, если скопировать получаемый итог (для "трехстрочной" ячейки) ручками из отладки в ячейку - будет работать. ...
Изменен: 10.10.2016
Читать сообщение на форуме или сайте.Автор: NaMoRZA. Всем доброго вечера!
Не смог кратко полностью описать в заголовке вопрос, но как бы основную проблему написал. Теперь подробнее.
На днях столкнулся с новой задачей и никак не могу ее до конца решить.
Суть:
Найти в файле "html" все конструкции типа спинтакс, например, "{Доброго дня|Здравствуйте|Привет}, {уважаемый|дорогой} Петр!", случайным образом выбрать один вариант и заменить им набор. Т.е., в результате должно получиться:
- Доброго дня ...
Изменен: 16.09.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
Читать сообщение на форуме или сайте.Автор: Валерий Попов. помогите найти формулу массива, по которой я смогу вывести из таблицы нужные мне элементы по заданной мной маске.... хотелось бы обойтись формулой, чем макросом.... хочу использовать эту формулу в разных местах книги и сколько угодно раз.... я это сделал с помощью двух формул и могу использовать только в одном месте....
С уважением к Вам и Вашему времени.... спасибо....
Изменен: 06.03.2015
Читать сообщение на форуме или сайте.Автор: BET4. Всем привет, искал-искал ответ, но не нашел, поэтому решил зарегистрировать и создать тему надеюсь на помощь.
Суть - есть "продукт", у которого есть спецификация состоящая из 5 "наименований".
При условии 10 "продуктов", количество уникальных "наименований" может доходить до 20. Содержание каждого "наименования" в каждом продукте строго индивидуально. Если мы знаем сколько продукта нужно произвести - задача посчитать сколько ...
Изменен: 13.02.2015
Читать сообщение на форуме или сайте.Автор: SanShiney. Приветсвую!
Вопрос:
Есть VBA код. К примеру, такой:
Sub writeA()
cells(1,1) = "A"
End Sub
Теперь, данный код, мне надо применить к определённым листам в книге, к примеру листы 1,3,7,8.
Как это можно написать в VBA. гугл не помог. Видимо не правильно даю запрос.
Изменен: 31.01.2015
Читать сообщение на форуме или сайте.Автор: ozand. Всем добрый день!
Столкнулся со следующей проблемой:
создал две сводные таблицы на одном листенаписал макрос который в зависимости от выбранной ячейки в первой, фильтры во второй (это требуется для отображения детализации значений - аналог если щелкнуть по значению два раза, для получения изначальных данных, но в нужном формате)
* по горизонтали в заголовке месяца, значения в таблице выдуманы и = месяцу (используется AVG). Номер месяца сделал специально чтобы видеть ошибку.
...
Изменен: 13.01.2015
Читать сообщение на форуме или сайте.Автор: Павел Коган. Уважаемые форумчане! Решил написать сюда, да исправят меня, при необходимости, модераторы.
Позвольте поделиться с вами, на мой взгляд, очень удобной программой на VBA, которая всем без особого труда поможет быстро форматировать таблицы, создавать выпадающие списки и привязывать их к таблице.
Прилагаю видео инструкцию по использованию этой программы - https://www.youtube.com/watch?v=6vVt4vVc0xM
Файл с программой прикрепляю. Тестируйте на своих таблицах и пользуйтесь на ...
Изменен: 27.11.2014
Читать сообщение на форуме или сайте.Автор: rmaximus. ДОбрый день, форумчане.
Есть файл. В нем много много листов, а один из них очень большой.
Так вот он своим пересчетом занимает время всей книги.
что нужно:
1. Для всей книги оставить авто пересчет
2. для определенного листа (пускай Sheet1) отключить авто пересчет иустановить кнопку, чтобы при нажатии пересчитывался только этот лист в ручном режиме.
Спасибо, большое за помощь
Изменен: 25.11.2014
Читать сообщение на форуме или сайте.Автор: viktor595. Я как раз по данной теме!
Имеется табличка(прилагаю) в которой несколько листов, 1-й это командировка заполняется в командировке, остальные ведутся ежедневно(примерно).
При записи командировки-записываются ВСЕ данные и мои и чужие кто был со мной в командировке(как бы общий отчетный материал).
Возникает 2 вопроса: первый: - необходимо сделать кнопку (одну) и чекбоксы(напротив каждой строки), что бы при нажатии на кнопку копировались строки с флажками. При чем! копировались ...
Изменен: 26.10.2014
Читать сообщение на форуме или сайте.Автор: Smilley. Здравсвтуйте. Прошу содействия в решении следующей задачи. Ежедневно выгружается файл с 3 колонками Фамилия, Имя, Отчество, количество строк в районе 20 тысяч. Имеется второй файл, где также три столбца выделены для ФИО (есть ещё много других столбцов). Необходимо проверить наличие в первом файле фамилий из второго файла. На данный момент задача решена путём перебора ячеек, но данный подход занимает около часа для обработки. Прошу подсказать метод или алгоритм для убыстрения ...
Изменен: 09.10.2014
Читать сообщение на форуме или сайте.Автор: andrey062006. Есть столбец из 10 ячеек.
Необходимо формулой (желательно формулой) из каждой ячейки этого диапазона взять значение, разделить каждое запятой или точкой с запятой и вставить в одну ячейку.
Пример прилагаю.
Кроме формулы СМЕЩ в голову ничего не приходит, но не могу придумать как её использовать.
Изменен: 30.07.2014
Читать сообщение на форуме или сайте.Автор: Name777_. Часть работавших ранее макросов перестала работать.
Пользовательские типы данных создавались. Библиотеки в Tools-References не отключал (MS Excel 14.0 Object Library - галка стоит).
Чем может быть вызвана эта ошибка? Как найти её причину?
Изменен: 15.07.2013
Читать сообщение на форуме или сайте.