Парсинг (получить рабочие дни с консультатнта)

Sub Расписание() Set doc = CreateObject("htmlfile") doc.Open ‘ Dim sl As String, Url As String Dim Sh As Worksheet Set Sh = ActiveSheet   Application.DisplayAlerts = False   Sh.Range("2:3").Clear     yar = Range("F1").Value   ‘ Url = "http://www.consultant.ru/law/ref/calendar/proizvodstvennye/2017/" Url Читать далее Парсинг (получить рабочие дни с консультатнта)

Поиск уникальных значений (массив)

‘Еще один хороший вариант поиска Sub Extract_Unique() Dim vItem, avArr, li As Long Dim Count As Integer Count = 0   ReDim avArr(1 To Rows.Count, 1 To 2) With New Collection On Error Resume Next For Each vItem In Range("C1:C" Читать далее Поиск уникальных значений (массив)

Получить данные с сайта

Sub Расписание() Set doc = CreateObject("htmlfile") doc.Open ‘ Dim sl As String, Url As String Dim Sh As Worksheet Set Sh = ActiveSheet     Sh.UsedRange.Clear     Url = "http://31.2dr.ru/registratu/4/starooskolskiy_gorodskoy_okrug/poliklinika_gorodskoy_bolnitsy_2/1010/1"         sl = "" ss = Читать далее Получить данные с сайта

Удалить

Все чаще и чаще в новостях публикуют информацию об отзыве лицензии того или иного банка. Причина, на которую обычно ссылается ЦБ – это неадекватная оценка принимаемых рисков, размещение активов в низкокачественные активы. Как правильно оценить риски связанные с кредитованием и Читать далее Удалить

Макрос для обработки выписок Сбербанка

Sub УдалитьПустыеЯчейки() ‘ i = 12 ‘Начальная позиция для удаления пустых строк, кторые не содержат дату в ячейке С t = Timer Application.ScreenUpdating = False For i = 12 To 2900 If IsDate(Range(«C» & i).Value) = False Then Range(i & Читать далее Макрос для обработки выписок Сбербанка

Преобразование даты к формату ГГГГ.ММ.01

‘——————————————————————————————— ‘Функция осуществляет поиск в массиве Rng значения, которые содержатся в массиве RngFind ‘Если значение найдено (по маске), то возвращает найденное значение, если нет, то пустую строку. ‘——————————————————————————————— Function GetNameInRng(ByVal Rng As Range, RngFind As Range) On Error GoTo Next_ Читать далее Преобразование даты к формату ГГГГ.ММ.01