Архив рубрики: Без рубрики

Application.Trim пример: Selection = Application.Trim(Selection) Cells.SpecialCells(xlLastCell).Row

Sub ПолучитьРабДаты1(Y As Integer, RowStart As Integer, ColumnStart As Integer) 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 Продолжить чтение Парсинг: выгрузить все выходные дни в году→

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 = Продолжить чтение Получить данные с сайта→

http://www.e-reading.by/bookreader.php/132415/AJAX_i_PHP._Razrabotka_dinamicheskih_veb-prilozheniii.pdf https://yadi.sk/i/T36mTDSDioow4

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

ActiveSheet.DrawingObjects.Select

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

Sub dsdsds() i = 1 For Each r In Range(«C1:C100») If IsDate(r) = False And IsEmpty(r) = True Then Range(i & «:» & i).Delete i = i + 1 Next End Sub