Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 324 След.
Автозавершение кода при работе с объектом
 
Доброе время суток
Цитата
OlegO написал:
но как можно узнать метод, ведь после точки не показывается подсказка
А почему должна подсказываться, если вы используете позднее связывание? Подключите явно библиотеку "Microsoft CDO for Windows 2000 Library" и изучайте, что там есть.
не обновляется форма при длительных расчетах
 
Цитата
RainMan написал:
Все заработало
до тех пор пока пользователь исчо раз не нажал чего-нибудь на форме :) , с целью так сказать, что-то улучшить или ускорить
Раскрыть записи в списке при разном количестве полей, Power Query
 
Цитата
buchlotnik написал:
чёй-то? Excel PQ 2.72.5556.441 - полет нормальный
Михаил, в Excel 2016 Power Query застыл на версии 2.61, увы. А там нет действительно missingField as nullable number. В Office 365, да, там есть.
не обновляется форма при длительных расчетах
 
Доброе время суток
Цитата
RainMan написал:
куда  копать
Попробуйте Repaint method (Microsoft Forms
Скорость расчетов в Excel зависит от установленной версии visual c++?
 
Доброе время суток
Цитата
Glago написал:
А вот с новой функцией ФИЛЬТР
А какое это имеет отношение к
Цитата
Скорость расчетов в Excel зависит от установленной версии visual c++?
Вы уж тогда попросите модераторов переименовать тему в "Вопросы от Glago" ;)
Запрет выбора из раскрывающегося списка
 
Доброе время суток
Цитата
alex55116 написал:
Хотелось бы просто отключить тот пункт.
Ну, положим, надстройкой вы его отключите. Далее будете отключать Alt+↓. А потом потребуется запретить Ctrl+C, Ctrl+V ;)  Или всё же лучше сразу начать с культуры ввода данных?
Раскрыть записи в списке при разном количестве полей, Power Query
 
Доброе время суток.
Ещё вариант
Код
let
    Source = Table.FromColumns(
    {{
        [CustomerID = 13, Name = "Bob", Phone = "1234567"],
        [CustomerID = 14, Name = "Bo", Phone = "67"],
        [CustomerID = 17, Phone = "1567"],
        [CustomerID = 19, Name = "Bro", Phone = "1267"]
    }}),
    result = Table.ExpandRecordColumn(Source, "Column1", {"CustomerID", "Name", "Phone"})
in
    result
Как изменть факт, чтобы его разниц с планом была в указанном диапазоне?, учет электроэнергии
 
OfftopBorn_in_CCCP, вы точно от туда? Там так вопросы не ставили
Цитата
Born_in_CCCP написал:
можно ли
Вам кто-то запрещает?!
Power Query Подсчет количества определенных значений в одном столбце.
 
Направляю результат :)
Power Query Подсчет количества определенных значений в одном столбце.
 
Цитата
Георгий Шкуро написал: Файл .pbix сможет делу помочь?
Да

Цитата
Весит 20М
чтите правила, не стесняйтесь, там очень доходчиво написано
Цитата
2.3. Приложите файл(ы) с примером (общим весом не более 300Кб) в реальной структуре и форматах данных того, что есть сейчас и того, что хотелось бы на выходе.
Адрес последнего входящего сообщения в outlook, плавающая ошибка при срабатывании макроса
 
Цитата
Антон Антонов написал:
но это кривота не особо внесла ясность
Похоже и код не смог помочь... Или просто - такое воспитание: спасибо как лайк? :)
Power Query Подсчет количества определенных значений в одном столбце.
 
Цитата
Георгий Шкуро написал:
я не могу доработать решение собственными силами. Буду признателен, если поможете разобраться.
Вы уверены, что это можно сделать по картинке?
Адрес последнего входящего сообщения в outlook, плавающая ошибка при срабатывании макроса
 
Цитата
Антон Антонов написал:
это кривота не особо внесла ясность
Пожалуйста, пример такой сортировки, хотя странно, что вы совсем не хотите пользоваться поиском уже решённых задач и тратите столько времени на ожидание. :(
Код
Set Items = myFolder.Items
Items.Sort "[ReceivedTime]", True
Set myItem = Items.GetFirst
автоматическая конвертация шрифта при вставке в google таблице
 
Цитата
apl написал:
поменьше  телодвижений
Легко - достаточно запомнить Ctrl+Shift+V :)
автоматическая конвертация шрифта при вставке в google таблице
 
Доброе время суток
Цитата
apl написал:
при вставке копированного текста в ячейку
Вы не поверите! Но в Google spreadsheet, подобно Excel, есть тоже возможность специальной вставки! Поэтому
Цитата
apl написал:
заданный ранее шрифт , размер и посередине
при такой вставке не пострадают!
Успехов!
Изменено: Андрей VG - 31 Май 2020 23:57:31
PQ.Импорт типов для столбцов
 
Доброе время суток.
Вариант.
Код
let
    typeDef = Table.ToRows(Table.TransformColumns(Excel.CurrentWorkbook(){[Name="types"]}[Content], {"Type", each Expression.Evaluate(_, #shared)})),
    typed = Table.TransformColumnTypes(Excel.CurrentWorkbook(){[Name="Таблица"]}[Content], typeDef)
in
    typed
Удаление всех дубликатов слов на листе документа csv файла с помощью макроса, Удаление дублей в колонке
 
Цитата
seregasss435 написал:
только не удаляет те дубли
а где доказательства сего безобразия? Похоже на облыжное высказывание.
Как удалить дубликаты в нескольких столбцах
 
Доброе время суток
Цитата
Imran написал:
Но когда я выделяю Все столбцы дубли не находит а если выделить отдельно столбец A то норм.
Снимите галки с неиспользуемых для поиска дубликатов столбцов. Только вы уверены, что должны остаться первые попавшиеся по столбцу А строки? Можете сообщить, в чём смысл такого действия?
Удаление всех дубликатов слов на листе документа csv файла с помощью макроса, Удаление дублей в колонке
 
Доброе время суток
Цитата
seregasss435 написал:
для колонки B:B
Вариант
Код
Public Sub RemoveDubs()
    Dim pDict As Object, vData As Variant
    Dim i As Long, LRow As Long
    LRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, 2).End(xlUp).Row
    vData = ActiveSheet.Range(ActiveSheet.Cells(1, 2), ActiveSheet.Cells(LRow, 2)).Value
    Set pDict = CreateObject("Scripting.Dictionary")
    For i = LBound(vData) To UBound(vData)
        If Not IsEmpty(vData(i, 1)) Then
            vData(i, 1) = Join(GetNonDictItems(vData(i, 1), pDict), ",")
        End If
    Next
    ActiveSheet.Range(ActiveSheet.Cells(1, 2), ActiveSheet.Cells(LRow, 2)).Value = vData
End Sub

Private Function GetNonDictItems(ByVal baseText As String, ByVal pDict As Object)
    Dim subStrs() As String, k As Long, nonDict As Object
    Set nonDict = CreateObject("Scripting.Dictionary")
    subStrs = Split(baseText, ",")
    For k = LBound(subStrs) To UBound(subStrs)
        If Not pDict.Exists(subStrs(k)) Then
            nonDict(subStrs(k)) = Empty
            pDict(subStrs(k)) = Empty
        End If
    Next
    GetNonDictItems = nonDict.Keys
End Function
2 Макроса на таблицу кадров
 
Цитата
угрюмый написал:
просрочки паспорта от текущей даты
А как вы предполагаете это сделать, определить просрочку, хотя бы ручками, если есть данные только по дате выдачи (предполагая, что Документ, дата = дата выдачи), но нет данных по дню рождения? Магия?
Извлечь из текста только фамилию
 
Цитата
Михаил Л написал:
запустили формулу
и получили 12% ошибок 50 / 412. При таких исходных текстах, даже как-то хорошо "распознаёт" :)
Извлечь из текста только фамилию
 
Доброе время суток
Цитата
azma написал:
прошу Вас
пометить те самые некоторые тексты.
[ Закрыто] Как нарисовать диаграмму и таблицу. Сколько в какие даты было посещений, способ создании диаграммы дата
 
Доброе время суток
Цитата
Lari написал:
где в вашем примере поситли Лиды и Кликнули Лиды?
А смысл в этом вопросе, если по условию
Цитата
2.6. Один вопрос - одна тема. Не следует в открываемой теме обозначать и задавать сразу несколько вопросов.
то это
Цитата
Jalil написал:
у меня 3 вопороса.
приведёт к закрытию темы.
Как сделать так чтобы внесенные изменения дублировались в другой книге (в копии файла, но в другой директории на локальном компьютере)
 
Доброе время суток
Цитата
Эдуард Бекбулатов написал:
в копии файла, но в другой директории на локальном компьютере
По ищите по форуму. Макросов, создающих копию текущей книги в заданной папке - вагон и маленькая тележка. Ну, либо вы что-то не договариваете.
Развернуть вертикальную вложенную таблицу (xml) в один ряд PowerQuery., XML
 
Цитата
yuraok написал: Пеэтому хочу понять...
...просто нету времени чтобы детальней изучать PowerQuery
вы не находите, что эти две части фразы между собой не сбиваются по смыслу?

Цитата
как Вы его генерировали?
я его написал в расширенном редакторе, то есть - без использования кнопок.

Цитата
мне нужно будет например развернуть 3 параметра
создать функцию, которая будет искать столбцы с типами данных - таблица, преобразовывать в записи, находить составлять для столбца уникальный список названий полей записей, используя этот список, разворачивать в новые столбцы. Чтобы это описать - потребуется статья. Вы уверены, что форумные ответы должны быть такими?
Если у вас настолько нет времени, то закажите код и обучение по нему в разделе Работа форума. Специалисты, уверен, найдутся.
Развернуть вертикальную вложенную таблицу (xml) в один ряд PowerQuery., XML
 
Цитата
yuraok написал:
ВАШ КОД К МОЕМУ XML-файлу.
Я составлял код именно для вашего файла, который находится в архиве
Цитата
yuraok написал:
Primer2_xml.rar  (2.08 КБ)
Просто поменяйте путь в коде к этому файлу на вашем компьютере.
Изменено: Андрей VG - 30 Май 2020 21:45:33
Развернуть вертикальную вложенную таблицу (xml) в один ряд PowerQuery., XML
 
Доброе время суток
Цитата
yuraok написал:
ПОМОЖЕТ КТО НАПИСАТЬ
А что в этом предложении делает слово "ПОМОЖЕТ"?
Вариант.
Быстрый доступ из макроса (через ADO) к массиву пар Ключ|Значение, хранящемся в текстовом файле
 
Цитата
bedvit написал:
а SQLiteForExcel, свою базу не в оперативке держит?
Привет, Виталий.
SQLiteForExcel - это SQLite3_StdCall.dll обёртка над стандартной sqlite3.dll (собственно движок SQLite), чтобы можно было использовать функции dll. В движке sqlite3.dll используется подход к вызовам, отличный от stdcall.
Соответственно, можно работать с базами SQLite ровно так, как определено в движке: с базой в файле, или с несколькими базами в файлах, можно и с базой только в памяти, а можно и в смешанном режиме - и с базой в памяти и с базой в файле.
Изменено: Андрей VG - 30 Май 2020 14:26:29
Адрес последнего входящего сообщения в outlook, плавающая ошибка при срабатывании макроса
 
Доброе время суток
Цитата
Антон Антонов написал:
как заставить
Изучить Items object (Outlook) (Время чтения: 2 мин), Items.Sort method (Outlook) и уже после всего этого Items.GetLast method (Outlook) или Items.GetFirst method (Outlook) в зависимости от направления сортировки. Как-то так, если не надеяться, что единственно возможной трактовкой GetLast является то, что он возвращает элемент последний по дате получения. :)
Быстрый доступ из макроса (через ADO) к массиву пар Ключ|Значение, хранящемся в текстовом файле
 
Цитата
sokol92 написал:
было бы замечательно, если бы Виталий (Bedvit) разработал dll по этому поводу
Добрый вечер, Владимир.
Не уловил. По ссылке на проект SQLiteForExcel как раз и реализована такая библиотека. Может запросы несколько низко уровневые... Ну, или вы про то, что там две библиотеки: одна собственно SQLite, другая wrapper to stdcall? Не думаю, что Виталий возьмётся рекиомплировать SQLite так, чтобы была возможность использовать stdcall (по другому VBA не умеет работать с функциями в dll).
Прогнал без вывода на лист обе функции: для загруженного в массив набора и бинарным поиском и запросами к SQLite. Бинарный выиграл 0,01 секунды против 0,1 секунды у SQLite. Хотя почему, в общем-то понятно.
Изменено: Андрей VG - 29 Май 2020 22:01:24
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 324 След.
Наверх