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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 338 След.
Функция выделения жирным, Функция выделения жирным
 
Доброе время суток
Цитата
_Igor_61 написал:
Должно помочь
Игорь - это вряд ли. Автор кода что-то глубокое знает про Unicode 32. По быстрому не удалось найти, как обеспечивается подобная полужирнизация. Хотя насколько это употребимо? Шрифт для ячейки Times New Roman, а функция Bold явно заставляет использовать некий другой шрифт :)
P. S. Может Владимир Sokol92 подтянется - он корифей в этом деле.
Изменено: Андрей VG - 8 Июл 2020 23:00:20
Добавить столбцы с записями через одну в автоматическом режиме.
 
Цитата
yuraok написал:
продолжение обсуждения моего вопроса.
Вопрос был
Цитата
Добавить столбцы с записями через одну в автоматическом режиме.
А сейчас про что? Вот и не стесняйтесь создать ещё тему и ещё. Зачем стремиться к нарушению правил и потенциальному бану?
Как передавать данные с Google Sheets в Excel
 
Цитата
Mike123 написал:
есть встроенные в excel настройки...
Есть, конечно, стоит только отбросить застенчивость и осмелится написать первый вопрос в поисковой системе :)
КАК ИЗ POWER QUERY ИЛИ POWER BI ПОЛУЧИТЬ ДАННЫЕ ИЗ GOOGLE SPREADSHEETS(ГУГЛ ТАБЛИЦЫ), Импорт данных в Power BI из Google Таблиц во первых строках отдачи.
Успехов.
Как передавать данные с Google Sheets в Excel
 
Доброе время суток
Цитата
Mike123 написал:
передавать в Excel.
Отсюда следует, что активная сторона это Google Spreadsheet с javascript. Вы уверены, что не ошиблись форумом?
Left Find в Power Query
 
Доброе время суток.
Leborham, буду заранее благодарен, если вы прочтёте правила форума и выполните их.
А пока, изучите Text.PositionOf, Text.Start, if then else
Изменено: Андрей VG - 8 Июл 2020 10:59:14
Экспорт данных из access в excel по признаку
 
Цитата
БМВ написал:
SQL запрос будет эффективным.
Привет, Михаил.
А как собственно без SQL ещё тянуть данные из Access? Этого добра, как SQL запросом получить данные на рабочий лист на VBA вагон и маленькая тележка. Судя по этой теме, ТС уже год как работает с Access, но уровень знаний, как-то не впечатляет.
Updated.
Почти тоже самое, но на Power Query, параметры запроса вводятся "ручками". База расположена в c:\Path\Database1.accdb
Изменено: Андрей VG - 8 Июл 2020 08:52:35
Выгрузка данных из запроса PQ, несоответствие данных в сводной таблице из запроса
 
Цитата
Михаил Л написал:
PQ тоже отчебучил
Почему? Алгоритмы сортировки - они разные. Большинство быстрых - не гарантируют тот же самый порядок при равных ключевых полях сортировки. Не следует переносить опыт работы с сортировкой в Excel как единственно возможный подход где-нибудь ещё.
Экспорт данных из access в excel по признаку
 
Тогда стоит подождать форумчанина, которому будет интересно написать такой макрос. :)
Формула Minifs в Power Pivot
 
Цитата
Blazh написал:
думал
Не подменяйте смысла слов. То что вы написали называется - предполагал. Думать можно только после изучения Справочник по функциям DAX
Формула Minifs в Power Pivot
 
Доброе время суток
Цитата
Blazh написал:
неохота
Спасибо за честное признание. Это сразу видно и по названию темы и по постановке вопроса.
К изучению: CALCULATE, MIN, FILTER их комбинация и даёт заветный minifs :)
Экспорт данных из access в excel по признаку
 
Доброе время суток
Цитата
Tidus1988 написал:
не очень силен в VBA
Тогда лучше использовать древний, аж с Excel 95 Microsoft Query :)  Для тестирования архив распаковать в папку c:\path
Обойти ошибку в вычисляемом поле сводной при делении на ноль
 
Цитата
PooHkrd написал:
Не видел я внешних относительно модели кнопок, чтобы формулу столбца внести
Эк вас, Алексей, на кнопочках то приклинило :)  Есть доказательство того, что есть только однозначная связь между существованием кнопки в интерфейсе и чего-нибудь в объектной модели, только и позволяющее это использовать в VBA?
Предполагаю, что MDX тут путь лежит, но идти туда не охота.
Изменено: Андрей VG - 7 Июл 2020 19:27:36
Баг или фича? Почему значение #d# для Excel'я является числом
 
Доброе время суток
Просто похоже VBA считает d аналогом e, как decimal. Если набрать в Immediate
Код
?3d34

 3E+34 
Вполне себе логичный результат.
Изменено: Андрей VG - 7 Июл 2020 19:24:10
Обойти ошибку в вычисляемом поле сводной при делении на ноль
 
Доброе время суток.
Цитата
sokol92 написал:
cannot be created
Ну, тут как бы не всё так грустно, по крайней мере в Excel 365, особенно если про Power Query. С удалением, да в объектной модели Power Pivot, пока швах. С переименованием объектов, забавно Dummy1 :)   Так и не наковырял, как вычисляемый столбец в таблицу подженить :(
Код
Public Sub JustTryIt()
    Dim sPQL As String, wbQuery As WorkbookQuery
    Dim wbConn As WorkbookConnection, pTable As ModelTable
    Dim pMeasuure As ModelMeasure
    sPQL = "let" & vbLf & "    items = {1..100},"
    sPQL = sPQL & vbLf & "    repeat = List.Transform(items, each List.Numbers(1000, 100, 100)),"
    sPQL = sPQL & vbLf & "    members = List.Combine(repeat),"
    sPQL = sPQL & vbLf & "    toTable = Table.FromColumns({members}, type table [Column1 = Int64.Type]),"
    sPQL = sPQL & vbLf & "    add = Table.AddColumn(toTable, ""Column2"", each try 1000 * Number.Random() otherwise null, Number.Type)"
    sPQL = sPQL & vbLf & "in" & vbLf & "    add"
    'create power query query
    Set wbQuery = ThisWorkbook.Queries.Add("TPQLData", sPQL, "This is auto geterated query")
    'change created query
    wbQuery.Formula = "// this is this query description in its code" & vbLf & wbQuery.Formula
    ThisWorkbook.Model.Initialize
    Set wbConn = ThisWorkbook.Connections.Add2("TPQLDataPP", "Add that query to model", "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=TPQLData;Extended Properties=""""", _
    "Select * From [TPQLData]", xlCmdSql, True, False)
    Set pTable = ThisWorkbook.Model.ModelTables(1)
    'excelent change of name
    pTable.Dummy1 wbQuery.Name
    Set pMeasuure = ThisWorkbook.Model.ModelMeasures.Add("Just Sum", pTable, "SUM('" & wbQuery.Name & "'[Column2])", ThisWorkbook.Model.ModelFormatDecimalNumber(True, 2), "created by vba measure")
End Sub
Посмотрю завтра, что из этого в Excel 2016 действует.
Updated
Посмотрел. Код полностью отработал.
P. S. Глючит, если открыто окно Power Pivot.
Изменено: Андрей VG - 7 Июл 2020 09:25:20
Разграничить доступ к информации в книге
 
Цитата
БМВ написал:
и не написано что база это Excel файл ;-)
Но! Могло подразумеваться - форум то по Excel! Просто следует современному тренду экономии на буковках до потери смысла - зато так загадочно получается :)
Как построить углы на графике из заданной точки?
 
Как "художник" художнику
Как на графике по датам пропустить выходные?
 
Доброе время суток.
Вариант
Разграничить доступ к информации в книге
 
Доброе время суток
Цитата
evgeniygeo написал: можно
А не поделитесь тайным знанием? Поскольку на форуме уже не раз обсуждалось, что еже ли некто имеет доступ к файлу и, если он защищён паролем, имеет его, то обеспечить
Цитата
так чтобы те кто вводит данные не могли украсть всю базу
фактически не возможно.
Сколько названий изменилось на строго заданное?
 
Цитата
Максим написал:
Объясню
Спасибо, наконец-то стало понятно почему.
Цитата
Михаил Л написал:
Что ни пост  то новость
вот тут, Михаил, не согласен. В рамках чисто формульного решения, тема, с учётом сообщения #55!, вполне себе нормально декомпозированная подзадача. А как будет использоваться и где, это уже другая задача :)  Просто, в рамках постановки возможно только формульное или vba решение.
Конечно, если реструктуризировать, то можно решить и с помощью Power Query и Power Pivot. Но в этом случае получится комплексное задание :)
Вот Максим и не стал заморачиваться, а может не желает использовать pq/pp
Сколько названий изменилось на строго заданное?
 
Ещё раз Power Query :)
Корректный импорт данных с сайта
 
Цитата
Михаил Л написал:
Вот файл в подтверждение работоспособности способа копи-пасте в подготовленные ячейки
Михаил, приношу свои извинения, описался, исправил.
Корректный импорт данных с сайта
 
Цитата
Михаил Л написал:
Как видите в сообщении #5
Ну, что вы, право слово, Михаил. Мне не сложно повторить. Клиенту же сложно же будет перечитать столько сообщений в своей теме, столько букв!
Цитата
XottabbI4 написал:
выделил столбцы где данные встают некорректно, выбрал формат ячеек "текстовый"
Не будет ли столь любезен, XottabbI4, , и не затруднит ли белы рученьки приложить файл с примером ваших попыток?
Изменено: Андрей VG - 6 Июл 2020 08:11:13
Некорректный вывод на печать при различных разрешениях монитора.
 
Доброе время суток.
Михаил, не проще ли всё перенести в Word? В нём искажений нет.
Корректный импорт данных с сайта
 
Цитата
XottabbI4 написал:
Пробовал - не помогает(  
А не расскажете по шагам, что вы делали? У меня в файле - получилось, можете, если это вас не затруднит, его даже посмотреть.
Последовательный список из диапазона
 
Доброе время суток
Цитата
Alliar написал:
Можете показать скрипт
Да не проблема, только зря вы игнорируете
Цитата
Mershik написал:
не поместятся ваши 2 млн строк в excel - если делать все одним списком..
Версия на Power Query для первого набора - останется только обновить. :)
Успехов.
Обновление запросов PowerQuery по очереди.
 
Цитата
Михаил Л написал:
spisok = ("Запрос — test";"Запрос — test1";"Запрос — test3";"Запрос — test2")
А почему вы решили, что это должно работать?
Код
Sub RefreshPQ2()
    
    Dim ws As Worksheet, qt As QueryTable, oc As Object, IsBG_Refresh As Boolean
    Dim i As Long, spisok
    spisok = Array("Запрос — test", "Запрос — test1", "Запрос — test3", "Запрос — test2")
    
  
    For i = LBound(spisok) To UBound(spisok)
       
       Set oc = ThisWorkbook.Connections(spisok(i))
       IsBG_Refresh = oc.OLEDBConnection.BackgroundQuery
       oc.OLEDBConnection.BackgroundQuery = False
       oc.Refresh
       oc.OLEDBConnection.BackgroundQuery = IsBG_Refresh
    Next
End Sub
Обновление запросов PowerQuery по очереди.
 
У вас очевидно, как и у меня, Excel 365. В нём убрали стандартную кнопку подключения, где можно было сразу посмотреть что как называется - заменили панелью. Поэтому сейчас, чтобы увидеть правильные названия, то либо скрипт выше, либо по кнопке "Существующие подключения".
Обновление запросов PowerQuery по очереди.
 
Доброе время суток
Цитата
kolyaya написал:
Subscript out of range
Нет там такого подключения. Достаточно провести простой эксперимент
Код
Public Sub PrintConnectionNames()
    Dim p As WorkbookConnection
    For Each p In ThisWorkbook.Connections
        Debug.Print p.Name
    Next
End Sub

Чтобы в этом убедиться :)
Цитата
Запрос — test
Запрос — test1
Перебор ячеек диапазона с копированием каждой ячейки и вставкой в разные книги в папке
 
Цитата
Spec написал:
присвоив им в названии цифры от 1 до 1600
Может сделать всё проще - в ячейки C2:C4 первого листа книги Spisok.xlsm записать названия файлов? И тогда порно с двумя циклами и нечётким поиском не потребуется использовать.
Изменено: Андрей VG - 5 Июл 2020 11:17:24
Перебор ячеек диапазона с копированием каждой ячейки и вставкой в разные книги в папке
 
Цитата
Spec написал:
встать в Workbook с апельсином
Как это можно узнать, посредством email запроса вышестоящему руководителю?!
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 338 След.
Наверх