Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 71 След.
Быстродействие макросов - удаление скрытых строк, Скорость выполнения 3х макросов по удалению сткрытых строк
 
Моя лошадка  молодец !!!
Быстродействие макросов - удаление скрытых строк, Скорость выполнения 3х макросов по удалению сткрытых строк
 
Цитата
Jack Famous написал:
doober , что по времени?
Я не замерял, секундомер в ремонте :)
База клиентов защита, База клиентов защита
 
Цитата
Дмитрий(The_Prist) Щербаков написал:
Это будет уже php, html и SQL.
И стоить будет от 50 рублей при наличии шаблонов с дизайном
Быстродействие макросов - удаление скрытых строк, Скорость выполнения 3х макросов по удалению сткрытых строк
 
Выставлю свою лошадку на забег
Код
Sub Test1()
    Dim LastRow As Long, r As Long, Sht As Worksheet, lCounter As Long
    Dim t As Single, Rng As Range, cel As Range
    t = Timer
    Application.ScreenUpdating = False
    Set Sht = Worksheets("Test1")
    With Sht
        LastRow = .UsedRange.Rows.Count
        Set Rng = .Range("A2:A" & LastRow).Cells.SpecialCells(xlCellTypeVisible)
        For r = 1 To Rng.Areas.Count
            For Each cel In Rng.Areas(r).Cells
                cel.Offset(0, 1) = cel.Row
            Next

        Next

        If .FilterMode = True Then .ShowAllData
        .Range("A1:B" & LastRow).RemoveDuplicates Columns:=2, Header:=xlNo
        .Range("B1:B" & LastRow).ClearContents

    End With
    Application.ScreenUpdating = True

    MsgBox  "Время: " & Round(Timer - t, 2), , "Test1"
End Sub
Скрипты, Помощь со скриптами
 
Цитата
Дмитрий(The_Prist) Щербаков написал:
Помочь тут нечем
Это точно.Надо доки читать, чтобы файл выгрузки создать.
Рабочий код, как пример
Скрытый текст
Писать xml текстом, да еще и валидацию пройти...
Изменено: doober - 02.12.2022 17:35:27
Парсинг данных с сайта букмекерской конторы.
 
Чтобы Вы понимали, один  сайт=отдельному обработчику (макросу).
Заказ не держу.
Парсинг данных с сайта букмекерской конторы.
 
Цитата
Mar77 написал:
с сайта БК
Это с сайта с адресом типа письма, который написал Ваня Жуков
Ищу специалиста по гугл таблицам, Разработка в google sheets
 
Написал в телегу
В работе
Выполнил, оплату получил
Изменено: doober - 28.11.2022 11:27:40
Стал вылетать Excel при включении макроса или при удалении вкладок
 
Не верю я, что этот макрос мог начать что то выполнять.
Как минимум не хватает этого
Код
     Set AutoCAD = GetObject(, "AutoCAD.Application.Версия, которая прописана в реестре")
     
.Этот макрос будет работать  в vba автокада
Ищу специалиста по гугл таблицам, Разработка в google sheets
 
Чем эта пост отличается от этого ?Явный дубль.
Могу сделать, но учитывая это только 100% предоплаты.
Если у Вас акк не корпоративный, то для формирования xml, как в примере, времени работы скрипта явно не хватит .
Изменено: doober - 26.11.2022 10:08:08
Как преобразовать математическую формулу в эксель?
 
Почитайте о типах данных, как обозначается тип данных long в VBA,VBS
Как преобразовать математическую формулу в эксель?
 
Здравствуйте.
Цитата
Дмитрий С написал:
([ЗнакСуммы с нижней границей 1, а с верхней P] действие Пi)
Для начала поискать понять знаки Σ и П
Это расчет известного математического ряда
Код
Sub TTT()
    N = 10
    For NN = 1 To N
        p& = 1
        For i = 1 To NN
            p = p * i
        Next
        t = p / NN
        Debug.Print t
    Next
End Sub
Изменено: doober - 25.11.2022 13:15:20
Как сделать отправку в Telegram из макроса VBA Excel, Telegram из макроса VBA Excel
 
Цитата
Izobilie Logic написал:
что такое "Boundary"
boundary
Макросом забрать данные из почты outlook
 
Посмотрите здесь на сайте у Дмитрия Щербакова(The_Prist)
Макросом забрать данные из почты outlook
 
Цитата
valchik написал:
Как можно решить такой вопрос?
Здравствуйте.Показать секретный код макроса
гугл таблицы форматирование символов с 45 по 55 в ячейке, нужно применить макрос ко всем выделенным ячейкам независимо от текста в них
 
Подход не верный, но как хотите
Скрытый текст
PQ не видит всего кода сайта, При парсинге старницы PQ видит только часть кода
 
Цитата
Тимур написал:
Я не понимаю почему в ВИДЕО ИНСТРУКЦИИ с тем же вайлдберризом все корректно отображалось, а когда я сам стал так же пошагово сейчас делать, это все уже и не получается.
Наполнение страницы изменилось.Во вложении страница, с которой Вы пытаетесь что то получить до отработки скриптов.
Страница после отработки скриптов-это вы видите в браузере.
То, что на видео, уже история
PQ не видит всего кода сайта, При парсинге старницы PQ видит только часть кода
 
Как Вы не можете понять, что страница сайта заполняется скриптами.
Чтобы увидеть текст, доступный для   PQ, надо нажать Ctrl+U, а не смотреть через код элемента. А чтобы понять принцип формирования этой ссылки, надо поковырять скрипты js, которые подгружаются на страницу.
PQ не видит всего кода сайта, При парсинге старницы PQ видит только часть кода
 
Цитата
Тимур написал:
отсутствует код где спрятана цена товара
Все данные сайт получает совсем другим запросом
Это пример через поиск на сайте
Или таким
Преобразование выгрузки из 1С в плоскую
 
Цитата
Msi2102 написал:
господин  doober ,
Приветствую.
Господа в Париже :)
Преобразование выгрузки из 1С в плоскую
 
Приветствую.
Проблем не обнаружено, если выбирать только диапазон с данными.
Добавьте заглушку от плохого юзверя.
Код
    For Each r In Selection.Rows
        n = n + 1
        If r.Cells(1, 1) = "" Then Exit For 'Заглушка от нерадивого юзера

        If Not Dict.contains(r.OutlineLevel) Then
Как в VBA Word достать номера абзацов?
 
Скорее всего файл не правильный и создан не правильными пчелами.
Первый раз такую нумерацию встречаю
Как средствами VBA спарсить информацию WORD в Excel
 
Здравствуйте
Цитата
Дмиитрий Алексиев написал:
sh1.Cells(FreeRow, 2) = wrdDoc.Tables(1).Cell(Row:=1, Column:=1).Range
Замените на
Код
    For i = 1 To wrdDoc.Tables(1).Cell(1, 1).Range.Paragraphs.Count
        sh1.Cells(FreeRow, i + 1) = Replace(wrdDoc.Tables(1).Cell(1, 1).Range.Paragraphs(i).Range.Text, Chr(13), "")
    Next
Помогите оформить в коде, Задача прочитать файлы из папки и получить файл отчет содержащий часть имени файла и значения первых 2х строк из из этого файла.
 
Цитата
alex_j написал:
но теперь работать перестало.
Надо сначала в коде было разобраться.Найдите отличия
Код
Sub Кнопка3_Щелчок()

    Dim Sh As Worksheet, Path, tdate, ftdate, ft As String, Sh1 As Worksheet, Arr(1 To 3, 1 To 1)
    Set Sh = ActiveSheet
    Path = Sh.Range("B1")
    tdate = Sh.Range("F1")
    If tdate = "" Then ftdate = Date Else ftdate = tdate
    Set Sh = Workbooks.Add.Worksheets(1)
    Application.DisplayAlerts = False
    Sh.Parent.SaveAs Filename:=Path & "отчет " & ftdate & ".xlsx", FileFormat:= _
                     xlOpenXMLWorkbook, CreateBackup:=False
    If tdate <> "" Then ft = Left(tdate, 2) & Mid(tdate, 3, 2) & Right(tdate, 4)
    Application.DisplayAlerts = True
    Set Files = Get_files(Path)
    pz& = 1
    keys = Files.keys
    Application.ScreenUpdating = False
    For i = 0 To Files.Count - 1
        If InStr(1, keys(i), ft, vbTextCompare) > 0 Then
            Set Sh1 = Workbooks.Open(keys(i)).Worksheets(1)
            Arr(1, 1) = Files.Item(keys(i))
            Arr(2, 1) = Sh1.Cells(1, 1)
            Arr(3, 1) = Sh1.Cells(2, 1)
            Sh1.Parent.Close (False)
            Sh.Cells(pz, 1).Resize(3, 1) = Arr
            pz = pz + 4
        End If
    Next
    Sh.Parent.Save
    Application.ScreenUpdating = True
    Workbooks("отчет " & ftdate & ".xlsx").Close

End Sub
PS:А не проще так записать
Код
If tdate <> "" Then ft = Format(CDate(tdate), "ddMMyyyy")
Изменено: doober - 17.11.2022 16:38:30
Помогите оформить в коде, Задача прочитать файлы из папки и получить файл отчет содержащий часть имени файла и значения первых 2х строк из из этого файла.
 
Добрый.Сделано в темную.
Скрытый текст
Изменено: doober - 17.11.2022 12:10:14
разработка VB скрипта (добавление картинок по существующим ссылкам в файле), разработка VB скрипта (добавление картинок по существующим ссылкам в файле)
 
Не беру.Код рабочий
разработка VB скрипта (добавление картинок по существующим ссылкам в файле), разработка VB скрипта (добавление картинок по существующим ссылкам в файле)
 
Здравствуйте
Это не в скрипте проблема.Запускал раз 5, один раз ошибка.
Это проблемы на стороне сайта, он тупит.
Как в VBA Word достать номера абзацов?
 
Добрый.
Не пойму, почему такая странная нумерация
Код
    Dim Doc As Document, ps As Paragraph
    Set Doc = ActiveDocument
    For Each ps In Doc.Paragraphs
        If ps.Range.ListFormat.ListType > 0 Then
            Set List = ps.Range.ListFormat
            ListString = List.ListString
            Text = Trim(ps.Range.Text)
            Debug.Print ListString, Text
        End If
    Next

Изменено: doober - 16.11.2022 00:30:48
Оптимизация отчетности в EXCEL, Есть действующая отчетность в EXCEL. Файл большой и долго и нестабильно работает. Power Pivot.
 
skais675
Могу составить Вам компанию только по экспорту данных в БД
работа с xml, zip xml
 
off:
Цитата
БМВ написал:
не понятно зачем так сделано
Чтобы статья прошла проверку плагиата.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 71 След.
Наверх