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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 19 След.
Ищу рабочую socket библиотеку 64 бит
Печать jpg файлов из Excel
 
еще вариант, копируем во временную папку, печатаем все файлы пачкой
Код
Sub PrintFiles()

    Dim sPath As Variant
    Dim sh As Object 'new Shell32.Shell

    Set sh = CreateObject("shell.application")
    
    With sh.Namespace("shell:Local AppData\Temp")
        .NewFolder "jpg"
        With .ParseName("jpg\").GetFolder
            sh.Namespace("shell:RecycleBinFolder").MoveHere .Items(), &H14
            For Each sPath In ActiveSheet.UsedRange.Columns("A").Value
                .CopyHere sh.Namespace(0).ParseName(sPath), &H14
            Next
            .Items().InvokeVerbEx "print"
        End With
    End With
    
End Sub
Изменено: Андрей Лящук - 15 сен 2020 10:32:22
Как разбить текст на строки внутри ячейки с помощью Power Query, Добрый день! Сцепить текст из нескольких полей - получается. Но нужно, чтобы текст записался в ячейку в несколько строк
 
и так тоже должно  
Код
Table.AddColumn(table, "column", each Text.Format("#[Предмет]. #(lf)дог. №#[№ дог] от #[ДатаДог]",_))
Как разбить текст на строки внутри ячейки с помощью Power Query, Добрый день! Сцепить текст из нескольких полей - получается. Но нужно, чтобы текст записался в ячейку в несколько строк
 
Код
[Предмет] & ". #(lf)дог. №" & [#"№ дог"] & " от " & Text.From([ДатаДог])
Печать jpg файлов из Excel
 
Цитата
БМВ написал:
mspaint /p
ну так же не интересно :) вот тут намного интереснее :D
PQ Вывести сообщение об отправке данных после вызова процедуры
 
а еще можно так, только если осторожно
Использование столбца таблицы в качестве массива для ИНДЕКС
 
Здравствуйте
Код
=ИНДЕКС([Остаток];СТРОКА()-1-СТРОКА([#Заголовки]))+(-1)^([@[Приход/Расход]]="Расход")*[@Сумма]
На сайте отправить адрес в поле поиска
 
Цитата
Григорий Тимофеев написал:
Возможно ли ориентацию карты сделать по инвентарному номеру?
с этим вопроом вам надо обращаться к разработчикам карты
На сайте отправить адрес в поле поиска
 
Доброго времени суток
для IE
Код
Sub Go_To_Site()
    Dim fn$
    Const BaseUrl$ = "http://map.mossvet.ru:51/"
    With CreateObject("internetexplorer.application")
        .navigate ""
        .document.parentWindow.execScript "document.write(encodeURI('" & [A1] & "'))", "JavaScript"
        GotoUrl .Application, BaseUrl & "AddressDetail.php?Address=" & .document.body.innertext
        fn = "(" & .document.body.querySelector("tr").onclick & ")(0)"
        GotoUrl .Application, BaseUrl
        .document.parentWindow.execScript fn, "JavaScript"
        .Visible = 1
    End With
End Sub
Sub GotoUrl(ByRef ie As Object, url$, Optional timeout% = 5)
    Dim t!
    ie.navigate url
    t = Timer
    Do
        DoEvents
        If Timer - t >= timeout Then
            MsgBox "Timeout!", 16
            Stop
        End If
    Loop Until ie.ReadyState = 4
End Sub
Изменено: Андрей Лящук - 3 сен 2020 03:03:35
Долго форматируется таблица через VBA
 
Ну и не помешает проинспектировать список стилей. Избыточное количество стилей может в некоторой мере замедлять работу с файлом Удаление неиспользуемых стилей
Навести мышку на картинку в нужное место и считать RGB одного пикселя.
 
Какое отношение
Цитата
Sla_0412 написал:
узнать по наименованию картинки код артикула. И в потом в таблице найти этот код и вписать параметры RGB в соответствующие столбцы.
имеет к названию темы
Цитата
Sla_0412 написал:
Навести мышку на картинку в нужное место и считать RGB одного пикселя.
?
Расчет уникальных просмотров и уникальных посетителей сайта
 
Код
=--(СЧЁТЕСЛИМН(A$2:A2;A2;C$2:C2;C2;D$2:D2;D2)*СЧЁТЕСЛИМН(A$2:A2;A2;B$2:B2;B2;C$2:C2;C2)=1)
Код
=--(СЧЁТЕСЛИМН(A$2:A2;A2;C$2:C2;C2)=1)


или
Код
=--(СЧЁТЕСЛИМН(A2:A$18;A2;C2:C$18;C2;D2:D$18;D2)*СЧЁТЕСЛИМН(A2:A$18;A2;B2:B$18;B2;C2:C$18;C2)=1)
Код
=--(СЧЁТЕСЛИМН(A2:A$18;A2;C2:C$18;C2)=1)
Перенести таблицы из Excel в Word, При использовании макроса в excel, в ворд переносится таблица с неправильным форматированием
 
Выделить текст -> вставка -> ссылки -> закладка -> написать имя -> добавить
Перенести таблицы из Excel в Word, При использовании макроса в excel, в ворд переносится таблица с неправильным форматированием
 
Здравствуйте
Код
        Dim v as Variant
        For Each v In Array( _
                                Array("C3:E8", "chart1"), _
                                Array("G3:L26", "chart2"), _
                                Array("N3:S9", "chart3") _
                            )
            pSheet.Range(v(0)).Copy
            With objWrdDoc.Bookmarks(v(1)).Range
                .PasteAndFormat 16
                objWrdApp.DoEvents
                .tables(1).AutoFitBehavior 2
            End With
        Next
Изменено: Андрей Лящук - 10 авг 2020 23:34:00
Отсортировать месяца сезона продаж без разрыва и представить в виде первый-последний
 
вариант в Power Qery
Код
let
    Source    = Excel.CurrentWorkbook(){[Name="Таблица1_2"]}[Content],
    NewPeriod = Table.AddColumn(Source, "Пользовательская", each let 
                    period = List.Buffer(Text.Split([period],", ")),
                    num    = List.Buffer(List.Transform(period,each Date.Month(Date.From(_&"1")))),
                    sorted = List.Sort(
                                 List.Generate(
                                     ()=> [i=0,m=num{i}?,y=1],
                                     each [m]<>null,
                                     each [i=[i]+1,m=num{i}?,y=[y]-(if m>[m]+1 then 1 else 0)], 
                                     each period{[i]} meta [d=#date([y],[m],1)]
                                 ),
                                 each Value.Metadata(_)[d]
                             ),
                    result  = Text.Combine(List.RemoveRange(sorted,1,List.Count(num)-2),"-")
                in result)
in
    NewPeriod
Внедрение таблицы Excel в документ word
 
копируем файл книги в буфер обмена, вставляем в Word в виде значка (Ctrl+Alt+V, вставить, галочка "в виде значка", ОК), двойным кликом по значку открываем вставленный файл, копируем необходимый диапазон, и, не закрывая внедренный excel файл, вставляем связь в word Ctrl+Alt+V, связать, ОК, Закрываем внедренный excel файл. Значок можно скрыть, выделив его и установив соответсвующий стиль шрифта
Изменено: Андрей Лящук - 9 авг 2020 19:49:48
PQ. Поиск строки заголовков по вх. параметру.
 
Цитата
Андрей VG написал:
а так не проще
ну да, дергать туда-сюда всю таблицу, чтобы отсеять ненужные столбцы - не лучшая идея.
Код
let
    Source = Excel.CurrentWorkbook(){[Name="Лист1"]}[Content],    
    fn     = (tbl,col1,col2)=> let 
                 SkipRows   = Table.Skip(tbl,each not List.Contains(Record.ToList(_),"Найди меня")),
                 Promoted   = Table.PromoteHeaders(SkipRows, [PromoteAllScalars=true]),
                 ColNames   = Table.ColumnNames(Promoted),
                 NeededCols = List.RemoveLastN(List.Skip(ColNames,each _<>col1),each _<>col2)
             in Table.SelectColumns(Promoted,NeededCols),
    Result  = fn(Source,"Найди меня","Добавь меня")
in
    Result
PQ. Поиск строки заголовков по вх. параметру.
 
Доброго времени суток
я как-то так понял
Код
let
    Source   = Excel.CurrentWorkbook(){[Name="Лист1"]}[Content],    
    fn       = (tbl,col1,col2)=> let 
                   SkipRows   = Table.Skip(tbl,each not List.Contains(Record.ToList(_),col1)),
                   SkipCols   = List.Skip(Table.ToColumns(SkipRows),each _{0}<>col1),
                   RemoveCols = List.RemoveLastN(SkipCols,each _{0}<>col2)
               in Table.FromColumns(RemoveCols),
    Promoted = Table.PromoteHeaders(fn(Source,"Найди меня","Добавь меня"), [PromoteAllScalars=true])
in
    Promoted
Как с помощью макроса можно сместить ячейки и выстроить зеркальную структуру.
 
Добрый день

Код
Sub Макрос1()
    Range("A1:H8").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
End Sub
Сортировка значений в строку после проверки на повторение ключа в столбце
 
Здравствуйте
Power Query

PoverPivot

VBA
Изменено: Андрей Лящук - 3 авг 2020 17:19:52
PQ: Вырезать ссылку из текстового поля
 
немного изврата
в google sheets скрипт (слепил на коленке), опубликовал как веб приложение
Код
function doPost(e){
  var re=/(([^<>()\[\]\\.,;:\s@""]+(\.[^<>()\[\]\\.,;:\s@""]+)*)|("".+""))@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}])|(([a-zA-Z\-0-9]+\.)+[a-zA-Z]{2,}))/gi; 
  return ContentService.createTextOutput(
    JSON.stringify(
      JSON.parse(e.postData.contents).map(
        function(a){
          try{
            a.a=a.MyText.match(re).join(', ')
          }catch(e){
            a.a=null
          }
          return a
        }
      )
    )
  )
  .setMimeType(ContentService.MimeType.JSON);
}

в Power Query
Код
Table.FromRecords(
    Json.Document(
        Web.Contents(
            "https://script.google.com/macros/s/AKfycbwj8B-iRsCdVafdNiWlfq5lPRpRJCRZK7k9V3bDFdMJBPw3YC3G/exec", 
            [
                Headers = [
                              Accept="application/json", 
                              #"Content-Type"="application/json"
                          ], 
                Content = Json.FromValue(
                              Excel.CurrentWorkbook(){[Name = "Таблица1"]}[Content]
                          )
            ]
        )
    )
)
PQ: Вырезать ссылку из текстового поля
 
ну в принципе, должно быть достаточно раздела
Код
HKEY_CURRENT_USER\SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION
если мне память не изменяет, то дать права на изменение разделов или отдельных ключей реестра можно через gpedit, правда он не во всех редакциях Windows есть, но его можно установить через dism
PQ: Вырезать ссылку из текстового поля
 
Андрей VG, задал режим совместимости IE=11 с помощью ключа реестра FEATURE_BROWSER_EMULATION
Изменено: Андрей Лящук - 26 июл 2020 06:10:51
PQ: Вырезать ссылку из текстового поля
 
Цитата
Андрей VG написал:
Сейчас тёзка подтянется, как мне лещей накидает
Это хто такой? Oo ниче не знаю...  :)  
Код
Table.FromRecords(
    Json.Document(
        Web.Page(
            "<script>
                var re=/(([^<>()\[\]\\.,;:\s@""]+(\.[^<>()\[\]\\.,;:\s@""]+)*)|("".+""))@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}])|(([a-zA-Z\-0-9]+\.)+[a-zA-Z]{2,}))/ig; 
                var json="& 
                    Text.FromBinary(
                        Json.FromValue(Excel.CurrentWorkbook(){[Name = "Таблица1"]}[Content])
                    )&
                ";
                document.write('\
                <table><tr><th>a\
                       <tr><td>'+
                           JSON.stringify(
                               json.map(
                                   function(a){
                                       try{
                                           a.a=a.MyText.match(re).join(', ')
                                       }catch(e){
                                           a.a=null
                                       }
                                       return a
                                   }
                               )
                           )+
                '</table>')
            </script>"
        ){0}[Data]{0}[a]
    )
)
Выгрузка списка организаций с сайта Минпромторга
 
Ezoptron, а чего сложного-то?  
Power Query
Изменено: Андрей Лящук - 24 июл 2020 23:05:04
Подстановка кода из другой таблицы по неполному условию, только Power Query или DAX
 
пара вариантов, по сути идентичных
Скрытый текст
Скрытый текст


Цитата
Максим Зеленский написал:
чему равен 3 в 10 строке???
3-е значение из набора  , ну подумаешь - упустил, что индексация с 0. Работает же ведь    
Изменено: Андрей Лящук - 21 июл 2020 22:18:02
Подстановка кода из другой таблицы по неполному условию, только Power Query или DAX
 
Дратути :)
Код
let
    Source  = Справочник,
    Columns = List.Buffer(List.Intersect({Table.ColumnNames(Source), Table.ColumnNames(Данные)})),
    Custom1 = Table.AddColumn(
        Справочник, 
        "a", 
        each List.PositionOf(
            Table.ToRecords(Данные), 
            _, 
            3, 
            (a, b) => List.Accumulate(
                Columns, 
                true, 
                (acc, curr) => acc and 
                    (Record.Field(b, curr) = "*" or 
                     Record.Field(b, curr) = Record.Field(a, curr))
            )
        )
    ),
    Custom2 = Table.AddColumn(Custom1, "count", each List.Count([a])),
    Expand  = Table.ExpandListColumn(Custom2, "a"),
    Custom3 = Table.NestedJoin(Table.AddIndexColumn(Данные, "i", 0), "i", Expand, "a", "Код"),
    Custom4 = Table.TransformColumns(Custom3, {"Код", each Table.Min(_, "count")[Код]}),
    Result  = Table.RemoveColumns(Custom4, {"i"})
in
    Result
Объединение двух запросов PQ в один
 
Цитата
Молодое_Поколение написал:
Сдвинулись с мертвой точки,
Ниче не знаю про вашу мертвую точку, у меня все работает, запрос из #17 со свежими куки
Объединение двух запросов PQ в один
 
Скрытый текст
Объединение двух запросов PQ в один
 
видимо уперлись в ограничение по количеству/частоте запросов, у меня запрос
Код
let
    Source= Table.AddColumn(
        Excel.CurrentWorkbook(){[Name = "ЗП_ССЫЛКИ"]}[Content],
        "  ",
        each Json.Document(Web.Contents("https://www.instagram.com/" & [Столбец1] & "/?__a=1"))
    )
in
    Source
выдает ошибку на всех строках
Цитата
В запросе "" произошла ошибка. DataFormat.Error: В конце входного JSON-файла были обнаружены лишние символы.
Сведения:
   Value=
   Position=0
получилось победить только после копирования заголовков запроса и частично печенек (нужны только csrftoken и sessionid) из браузера
Код
let
    Source= Table.AddColumn(
        Excel.CurrentWorkbook(){[Name = "ЗП_ССЫЛКИ"]}[Content],
        "  ",
        each Json.Document(Web.Contents("https://www.instagram.com/" & [Столбец1] & "/?__a=1", [Headers=[
            Cookie="csrftoken=FuHJ2oE4Ew4mQm2SZYkzBnWqCTyWJynK; sessionid=8560511502%3Aq9GejLj90wiJ7R%3A16"
        ],ManualStatusHandling={404}]))
    )
in
    Source
Изменено: Андрей Лящук - 20 июл 2020 21:18:09
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 19 След.
Наверх