Поиск
Автор: KrabNaGalerah. Всем привет,
есть у меня пару ворд файлов, длинных, с большой таблицей в примерно 3к строк (выгрузка). Эти таблицы нужно закинуть в эксель.
Написал код. Закидываю значения в массив, потом уже буду с этим массивом дальше работать. Однако обработка оставляет желать лучшего, около 5ти минут считывает данную таблицу. Код не большой, может быть кто то уже делал похожие вещи и знает хитрости, к примеру может быть скопировать таблицу как нибудь целиком, или что нибудь похожее.
...
Изменен: 09.02.2023
Читать сообщение на форуме или сайте.Автор: kohet. Всем доброе время суток! Проблема следующая. Есть энное количество XML файлов, которые надо импортировать в Excel и далее их там обрабатывать.
Но есть проблема - встроенная схема предполагает, что одно поле имеет тип "integer", в результате чего 18-значное число округляет последние 3 цифры.
Но мы ж не идиоты, мы ж читаем, что в документации Мелкософтов. Так как все файлы XML однотипные, выгружаем из одного из них макросом схему: Sub save_XML_scheme()
Dim fPath As ...
Изменен: 13.10.2022
Читать сообщение на форуме или сайте.Автор: Nhead. Добрый день, пытаюсь свести большую матрицу в простой список, я приложил пример. В матрице по горизонтали идет город отправителя, а по вертикали город доставки, значения на пересечении городов отражают "зону сложности" отправки. Например из Абакана в Москву сложность 7, а из Москвы в Абакан 4. Мне надо эту монструозную матрицу превратить в список, на первом листе в примере нужно заполнить столбец "зоны", если делать это через ВПР, то нужно делать его по столбцу ...
Изменен: 10.10.2022
Читать сообщение на форуме или сайте.Автор: Анастасия. Здравствуйте, коллеги! В расчётной таблице необходимо привести сводную табличку для вычисления общего кол-ва м2 определённого вида стекла. Первый столбец включает перечень видов с выпадающим списком, для выбора стекла. В заказах они могут дублироваться.
Затем выбираю диапазон консолидации с суммированием, это столбец "Стекло" и "S, кв.м."
И всё, пиши "пропало"... Дальше не получается.
Причём проделывая те же манипуляции со столбцами "Стекло& ...
Изменен: 06.05.2022
Читать сообщение на форуме или сайте.Автор: Максим Зеленский. Привет всем.
Немного туплю, порыл форум, но никак не найду подходящего решения, или не могу протестировать... а VBA основательно приподзабыл уже :)
Есть три ячейки, в которых может быть написано число с десятичным знаком или без десятичного знака, причем может быть сохранено как текст или как число: 0.5true 0,5false 1trueнужен кусочек кода VBA для проверки содержимого ячейки
Если в ячейке записано целое число, без десятичного знака, то это не ошибка. Неважно, как оно ...
Изменен: 13.10.2021
Читать сообщение на форуме или сайте.Автор: Дмитрий Величко. Здравствуйте! Помогите, пожалуйста:
Сделал для работы формулу, которая будет выводить "снизу-вверх" выделенные строки и заменять в них определенные слова (направления света), записал ее себе в текстовом виде, чтобы не забыть и вставлять в файлы, если пригодится:
=ЕСЛИ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ИНДЕКС(Область которую надо копировать и переворачивать;СТРОКА(последняя строка в области ФИКСИРОВАННАЯ ПО СТРОКЕ)-СТРОКА(строка в ...
Изменен: 30.09.2020
Читать сообщение на форуме или сайте.Автор: Широков. Уважаемые специалисты!
Посоветуйте, пожалуйста, как мне решить следующую проблему.
У меня есть таблица в Excel 2010, в которой макросом из основного листа данные по определенному критерию выбираются на лист «Выборка».
На этом листе у меня в настоящее время есть именованный диапазон со следующим описанием
=СМЕЩ('Выборка'!$D$2;0;0;ПОИСКПОЗ(1E+306;'Выборка'!$D:$D))
На основе листа «Выборка» у меня строится график, в котором ряд задаётся через ...
Изменен: 20.08.2020
Читать сообщение на форуме или сайте.Автор: slepoi_kamin. Добрый день.
Пытаюсь сделать универсальную форму для ввода данных.
Идея такая: есть ПЕРВАЯ ФОРМА с текстбоксом, если в нем не хватает места, то можно нажать на кнопку откроется ВТОРАЯ ФОРМА с текстбоксом большого размера. В этот текстбокс мы вводим текст, нажимаем ок, и текст переносится в текстбокс первой формы.
ПЕРВЫХ ФОРМ много и они разные. А ВТОРАЯ ФОРМА должна быть одна универсальная.
То есть, по идее надо по нажатию на кнопку на ПЕРВОЙ ФОРМЕ передать во ВТОРУЮ ...
Изменен: 27.05.2020
Читать сообщение на форуме или сайте.Автор: zurkirill. Всем здравствуйте, много лет пользуюсь поиском по данному форуму, который решает 99,9% всех вопросов.
Но видимо настал день и мне создать тему.
Файл прилагаю реальный, не модифицированный для примера. Excel 2016 MSO (16.0.4266.1001)
Описываю пошагово.
1. в фильтре столбца Материал ввожу в поле текстового поиска слово "коробка" и вижу два вида позиций:
"Клеммная коробка для использования ........." -очень длинное название
& ...
Изменен: 09.11.2019
Читать сообщение на форуме или сайте.Автор: iljadanilyuk. День добрый
задача рассчитать сколько нужно укатать трубы теплого пола для обогрева помещения.
Есть помещение. И его площадь (если нужно, есть точные размеры помещения. Есть расчетные тепловые потери, в ваттах. То сколько тепла теряет помещение. И тепловая мощность одного метра квадратного метра уложенного трубопровода.
В зависимости от необходимой мощности, и размера помещения, нужно применять различный шагукладки трубы , от 10 см до 30 см , между трубами
Изменен: 13.06.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
Читать сообщение на форуме или сайте.Автор: xploid. Здравствуйте, уважаемые форумчане!
В качестве примера, прикрепил сортированную таблицу учебных заведений с фамилиями учеников и их оценками. Пожалуйста, помогите создать макросом именованные диапазоны так чтобы имена диапазонов брались из столбца "Код уч. заведения".
Изменен: 27.08.2018
Читать сообщение на форуме или сайте.Автор: TuchinSV. Добрый день!
Есть у меня формула =СЧЁТЕСЛИМН(D3:D38;"=0";C3:C38;"<>вых")
Она производит подсчёт ячеек удовлетворяющих условиям. Формула одинакова на всех листах книги.
В моей книге Excel много листов
Мне надо преобразовать формулу таким образом, чтобы я, например, на первом листе выбирал из выпадающего списка имя листа и формула выдавала значения подсчета на выбранном листе.
В моем понимании мне надо в формулу каким то ...
Изменен: 01.06.2018
Читать сообщение на форуме или сайте.Автор: Jack Famous. Доброго времени суток, Планетяне!
Хотелось бы оживить парочку родственных архивных тем:
Как расформатировать весь лист кроме выделенного диапазона? и
Как без цикла инвертировать выделение? — обе от Alex_ST.
Как я понял, без цикла можно обойтись только создавая лист, как тут показал Игорь — быстро, просто и надёжно.
В том числе, я остановил своё внимание на ещё 2х решениях: сбор диапазонов в Union циклом, как тут и решение от Дмитрия «The_Prist» Щербакова через ...
Изменен: 22.03.2018
Читать сообщение на форуме или сайте.Автор: frimen. Добрый день. Необходимо провести фильтрацию данных в таблице выбирая нужные условия из выпадающего списка. В списках указан диапазон, поэтому при выборе списка с диапазоном, данные фильтровалась от и до согласно диапазона. При выборе дополнительного условия также с диапазоном, должны отфильтроваться уже отфильтрованные данные раньше. Подскажите, как это можно сделать?
Изменен: 17.01.2018
Читать сообщение на форуме или сайте.Автор: calebelt. Добрый день!
Подскажите пожалуйста, как сделать зависимость двух списков от отдного списка.
К примеру есть главный список: булочки, хлеб
Список начинки: сосиска, колбаса, сыр
Список соусов: горчица, кетчуп, майонез
Если выбрали булку, то в списках начинки и соуса можно выбрать только колбасу, сыр, горчицу, майонез соответственно.
Погуглил, посмотрел примеры, но что то не могу сориентироваться совсем. Файл пример во вложении. Списки и их значения раскрасил в соответсвующие ...
Изменен: 15.01.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
Читать сообщение на форуме или сайте.Автор: 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) ...
Изменен: 18.02.2017
Читать сообщение на форуме или сайте.Автор: vladjuha. Здравствуйте.
На листе есть вручную созданные правила УФ. Созданы они с большим запасом по строкам (диапазон применения) - на все случаи вводимых пользователем объёмов данных.
Но чаще УФ работают на ~10%. А раз так, да учитывая, что правила УФ к тому же волотильны, пришла идея макросом, при необходимости, причёсывать нижнюю границу правил УФ (через ModifyAppliesToRange).
Проблема в том, что не получается прочитать (свойство AppliesTo) текущий диапазон применения правила УФ ( ...
Изменен: 08.02.2017
Читать сообщение на форуме или сайте.Автор: 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
Читать сообщение на форуме или сайте.Автор: simon100500. Здравствуйте!
Делаю макрос, который после запуска позволит выбрать на соседнем листе не связанный (рваный, по Ctrl) диапазон, соединит каждую ячейку диапазона через разделитель "; " и добавит к активной ячейке.
Сделал форму, на ней элемент RefEdit1 для выбора диапазона.
Повесил на кнопку формы такой макрос. Для связанного диапазона работает. А для "рваного" — нет.
Private Sub CommandButton1_Click()
Dim Y As Range
Dim Cell As ...
Изменен: 19.07.2016
Читать сообщение на форуме или сайте.Автор: SimonZen. Можно ли сделать подобную вещь в экселе? Пока в голову приходит как вывернуться со связанными списками или огромные формулы на ЕСЛИ().
Суть следующая: есть несколько выпадающих списков, в зависимости от выбора в этом списке в формулу подставляется определенное число (если выбран А, то 1, если Б, то 2, если С то 3)
Изменен: 02.06.2016
Читать сообщение на форуме или сайте.Автор: phaggi. Подскажите, пожалуйста, как найти в строке, содержащей несколько слов, любое слово из диапазона.
Первое, что пришло в голову: {=НАЙТИ(диапазон;строка)}
Если в диапазоне в первой ячейке есть слово, содержащееся в строке, то "найти" его находит.
Если слово содержится в диапазоне не в первой ячейке, "найти" его не находит, выдает ошибку.
Думал над вариантом с ЧАСТОТА, но что-то тоже не родилось ничего толкового.
Поиск в гугле и внутре Планеты выдает, как ...
Изменен: 28.03.2016
Читать сообщение на форуме или сайте.Автор: KatherineBack. Ребят, в лабораторной работе задание: произвести обмен данными (значениями) между двумя диапазонами.
Нашла макрос, он работает как надо, все замечательно...
Но мне для защиты нужно объяснить каждую функцию, строку и их значения.
вот сам макрос:
Sub SelsXchange()
With Selection
If Not .Areas.Count = 2 Then Exit Sub
If Not .Areas(1).Columns.Count = .Areas(2).Columns.Count Then Exit Sub
If Not .Areas(1).Rows.Count = .Areas(2).Rows.Count Then Exit Sub
Dim tmpArea: ...
Изменен: 18.02.2016
Читать сообщение на форуме или сайте.Автор: timerxan. День добрый, уважаемые форумчане.
Возник такой вопрос: есть список с двумя телефонами: внутренними и внешними.
делаю детализацию. Для наглядности нужно подписать кто звонил.
Можно ли как то сделать проверку по двум столбцам из списка? Если да, то как?
Заранее благодарю.
Изменен: 15.02.2016
Читать сообщение на форуме или сайте.