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

Страницы: 1 2 След.
Типы файлов для сохранения книги макросом, Типы файлов для сохранения книги
 
ODS = 60
Сумма по 15ти минутным интервалам, Разложить значения случайных временных рядов по 15ти минутным интервалам
 
еще вариант
Посчитать отличников, хорошистов и т.д., Нужно посчитать отличников, хорошистов за каждую четверть, учитывая все оценки.
 
=ЕСЛИОШИБКА(ЕСЛИ(ПОИСКПОЗ(3;D5:AJ5;0)>0;"Ударник";);ЕСЛИОШИБКА(ЕСЛИ(ПОИСКПОЗ(4;D5:AJ5;0)>0;"Хорошист";);ЕСЛИОШИБКА(ЕСЛИ(ПОИСКПОЗ(5;D5:AJ5;0)>0;"Отличник";);0)))
Список из массива с фильтром в Google Таблице, Сделать список из массива с фильтром и уникальными значениями
 
Разобрался, тему можно закрывать.
Ответ так же в этом файле, может кому пригодится.
Список из массива с фильтром в Google Таблице, Сделать список из массива с фильтром и уникальными значениями
 
Коллеги, здравствуйте!

Прошу помощи, не могу понять почему выдается весь список в не по фильтру
Задача, отфильтровать список по датам от даты до даты, в список должны попасть только уникальные значения


Ссылка на Google Таблицу
https://docs.google.com/spreadsheets/d/1wjSYZuCF9-pHseT-g5rfvVlcMf8dhSq8C2Mcx0F4QyU/edit?usp=sharing
Авторизация на сайте MSXML2.XMLHTTP, Авторизация и копирования кода страницы в переменную
 
Спасибо огромное, буду изучать эту тему дальше!
Авторизация на сайте MSXML2.XMLHTTP, Авторизация и копирования кода страницы в переменную
 
Здравствуйте, коллеги
Прошу помочь с кодом.

Пытаюсь авторизоваться на сайте, чтобы получить информацию о товаре, которая без авторизации недоступна.
Ссылку-путь для авторизации я нашел, а вот как передать информацию о логине и пароле не знаю.

Код
Sub Parser()
 
    Set oHttp = CreateObject("MSXML2.XMLHTTP")
    Set objRegExp = CreateObject("VBScript.RegExp")
     
    URL = "https://www.sima-land.ru/4794023/nabor-dlya-sortirovki-sorter-bomboshki/"
    URL_autorization = "https://www.sima-land.ru/api/v3/login-form/"
    entity = "******"
    Password = "******"
    g_recaptcha_response = " "
    PostData = "g_recaptcha_response: " & ", entity: " & entity & ", password: " & Password

    'Подсмотрел в Request Payload но не могу написать запрос, что бы авторизоваться
    '"{"g_recaptcha_response": "", "entity": "******", "password": "******"}"

    With oHttp
       .Open "post", URL_autorization, False
       .Send PostData
    End With
    
    'После авторизации переходим на страницу с товаром и копируем код страницы в переменную
    
    oHttp.Open "GET", URL, False
    oHttp.Send
    htmlcode = oHttp.ResponseText
    Set oHttp = Nothing
    
    'Ищем на странице информацию об остатке товара, если авторизация прошла, то будет количество,
    'если нет то будет надпись "На складе достаточно"

    ссылкаНачало = InStr(1, htmlcode, "На складе")
    ссылкаКонец = InStr(ссылкаНачало, htmlcode, "<")
    outstr = Mid(htmlcode, ссылкаНачало, ссылкаКонец - ссылкаНачало)
    Cells(1, 1) = outstr
 
End Sub


Изменено: lextoys - 16.04.2023 01:57:30
Возможно ли убрать нолик, чтобы была пустая ячейка к которой прикреплена ссылка, из-за вставки ссылки с другого файла или листа выскакивает нолик
 
может так

=ЕСЛИ(Лист2!B3="";"";Лист2!B3)
VBA Включение и удаление правил условного форматирования
 
Запись макрорекордера


Код
Cells.FormatConditions.Delete
Изменено: lextoys - 11.02.2021 14:02:45
Дополнительный фильтр через макро рекордер, Не срабатывает дополнительный фильтр если его записать через макро рекордер и запустить
 
Спасибо, заменил в условия запятую на точку, все работает.
Дополнительный фильтр через макро рекордер, Не срабатывает дополнительный фильтр если его записать через макро рекордер и запустить
 
Коллеги, здравствуйте!

Помогите разобраться.
Пытаюсь сделать макрос для дополнительного фильтра, но он не работает по условиям.
А если это сделать вручную, то все работает.
Делаю вручную, записываю макро рекордером, запускаю макрос и он не работает, точнее работает, но фильтрует не по всем условиям.
В строках A1:H7 условия для фильтра
Со строки H7 данные для фильтрации.


Файл пример во вложении. Код ниже.

Код
Sub Макрос3()

On Error Resume Next
ActiveSheet.ShowAllData
    Range("A7:H23").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Range("A1:H4"), Unique:=False
End Sub
Подбор высоты строки по заданному значению (макросом)
 
Код
Sub размер()
Application.ScreenUpdating = False
lLastRow = Cells(Rows.Count, 21).End(xlUp).Row
    For i = 10 To lLastRow
        If Cells(i, 21) <> 0 Then
        Cells(i, 21).RowHeight = 6
        End If
    Next
Application.ScreenUpdating = True
End Sub
Определение максимального значения по выбранному месту назначения, Для тех, у кого 2013 ексель
 
вставьте формулу и нажмите CTRL + SHIFT + ENTER
Определение максимального значения по выбранному месту назначения, Для тех, у кого 2013 ексель
 
Удалите вашу формулу во всем столбце, вставьте эту и протяните вниз.
=МАКС(ЕСЛИ($B$2:$B$152=$K5;$C$2:$C$152))
Копирование на другой лист данных за определенную дату
 
А не проще воспользоваться сводной таблицей?
Экспорт данных таблицы Excel в txt-файл с разбивкой по параметру, создание набора txt-файлов на основе таблицы Excel
 
Если я Вас правильно понял, то вариант макроса во вложении.
Сохраняет файлы txt по № дома в той же папке где лежит "исходный файл"
Изменено: lextoys - 14.10.2020 14:41:23
Пробелы, с которыми не работают СЖПРОБЕЛЫ и Trim
 
Спасибо, буду иметь в виду.
Пробелы, с которыми не работают СЖПРОБЕЛЫ и Trim
 
Спасибо всем.

В vba прописал так, проблема ушла.
Код
outstr = Replace(outstr, Chr(9), "")
Пробелы, с которыми не работают СЖПРОБЕЛЫ и Trim
 
Коллеги,

Помогите с вопросом, что это за символ "пробел" на которые не срабатывают "СЖПРОБЕЛЫ" и "Trim"
Появляется из парсера.

Выдержка из кода страницы

"
                               Артикул:
                                                               Т59037                            "

В файле в ячейке пробелов не видно, но они есть )))
Если скопировать ячейку и вставить в поиск то будет видно так "                Т59037      "
VBA обработка событий элемента OptionButton, внедренного на лист Excel
 
Cells(3, 4) = Value1
Изменено: lextoys - 17.09.2020 18:01:00
Умножение значений в ячейки при условии наличия определенного значения в другой ячейки
 
возможно
Изменено: lextoys - 15.09.2020 18:07:15
Как из списка вывести только нужные (выделенные)?
 
Отобрать фильтром не пустые ячейки и скопировать в отдельную таблицу.
Заполнить таблицу на основании данных другой таблицы
 
Если я правильно понял )
Авторассылка писем по Аутлук
 
И файл с примером необходим
Помогите распарсить строку только формулами excel
 
Функция текст по столбцам, далее копируем полученный результат и вставляем через специальную вставку с "транспонировать"
Отображение картинки по ссылке из ячейки (макрос)
 
Привет всем!

Задачу уже взяли в работу?
Автоматически раскидать число из строки по столбцам, но в пределах своего значения
 
Как вариант, сделал макросом
Единственное нужно будет адаптировать под вашу форму.
А именно указать номер строки и номер колонки, от этой ячейки будет делаться распределение.
В коде добавил комментарий к этим строкам
удалить весь текст в ячейке до переноса строки
 
Можно просто удалить, открываем окно замены, в поле "Найти:" вводим * и жмем Ctrl+Enter, поле "Заменить на:" оставляем пустым, жмем "Заменить все" и весь текст до переноса строки будет удален.
Оставить только те товары, которые есть в списке кодов товаров
 
ВПР в файле во вложении.
Парсинг страницы, Не могу прописать в коде, что бы на странице отображались все товары
 
Jungl, что то не могу разобраться где посмотреть какие запросы формируются, можете прислать скрин, где отображается эта ссылка, которую вы мне прислали.

Я вижу только это:
<a href="javascript:_fsubmited('size', 'все'); void(0);">все <span class="total">(460)</span></a>

Спасибо.
Страницы: 1 2 След.
Наверх