xxlanalytics

Подробно, как работает макрос, описано в видео Sub coda() ' ' coda Макрос ' ' Sheets("Таблица").Select Columns("A:A").Select Selection.Delete Shift:=xlToLeft Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Range("A1").Select ActiveCell.FormulaR1C1 = "Фото" Range("A2").Select Dim k As Integer k = Cells(Rows.Count, "B").End(xlUp).Row Dim q As Integer q = 2 Do While q <= k Dim myPhrase As Variant, myCell As Range myPhrase = Sheets("Таблица").Cells(q, 2) Set myCell = Sheets("Список").Range("A:A").Find(myPhrase) On Error Resume Next If Not myCell Is Nothing Then Sheets("Список")...

Добрый день, уважаемые подписчики Дзен(если вы еще не подписались на канал, то рекомендую это сделать, чтобы не пропустить новые статьи). Порой, а на самом деле, почти всегда, бывает удобно видеть название месяца в сводной таблице в виде текста. Согласитесь, что например "Апрель" смотрится порой лучше, чем "4", особенно если объём таблицы большой. Видео вариант данной статьи доступен на Rutube и Youtube. Чтобы решить подобную задачу, нужно совсем немного, но начну по порядку. Допустим, у нас есть...

Добрый день, уважаемые подписчики Дзен(если вы еще не подписались на канал, то рекомендую это сделать, чтобы не пропустить новые статьи). В предыдущей статье (ссылку на неё вы найдёте внизу страницы), я рассказал о простых функциях дат. Продолжу развивать эту тему и сегодня я расскажу о работе с датами. Видео вариант данной статьи доступен на Rutube и Youtube. Как превратить текст в дату Допустим, мы получили выгрузку, в которой информация по датам представлены не в формате дат. Выглядит подобная...

Одной из важных составляющих работы в аналитике является работа с датами событий. Например, дата используется, чтобы найти продажи за тот или иной период. В данной статье я расскажу про самые простые функции Excel, которые облегчают работу с ними. Текущая дата Одна из самых простых функций. Отображает в ячейке Excel, где она прописана, текущую дату, установленную на компьютере. Записывается следующим образом: =ТДАТА() Никаких аргументов не требует, ни на какие ячейки не ссылается. Вживую выглядит следующим образом: День из даты Также простейшая функция...

По многочисленным просьбам выкладываю ниже текст макроса из видео https://rutube.ru/video/5833afc53fb0b88a602a420a0630a372/ Sub Обработчик() ' ' Обработчик Макрос ' ' Dim sFolder As String, sFiles As String With Application.FileDialog(msoFileDialogFolderPicker) If .Show = False Then Exit Sub sFolder = .SelectedItems(1) End With sFolder = sFolder & IIf(Right(sFolder, 1) = Application.PathSeparator, "", Application.PathSeparator) sFiles = Dir(sFolder & "*.xls*") Application.ScreenUpdating = False Do While sFiles <> "" Workbooks.Open sFolder & sFiles Rows("1:3")...