ExcelVba

Подробно, как работает макрос, описано в видео 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")...

В вашей жизни наверняка встречались ситуации, когда приходилось подолгу и часто нажимать одну и ту же клавишу при выполнении тех или иных действий или их подтверждения. Для меня, в своё время, оператор Sendkeys стал настоящим открытием. С его помощью можно создать эмуляцию нажатия той или иной клавиши, а также их сочетаний как в рамках Excel, так и вне его. Сам по себе оператор довольно прост и выглядит следующим образом: Application.SendKeys ("клавиша/сочетание клавиш") "клавиша/сочетание клавиш" - это те клавиши, сочетание которых вы хотите эмулировать, т...

Давным-давно (году этак в 2007) на втором курсе университета в наши неокрепшие головы пытались вбить теорию вероятности, составной частью которой являлась такая наука, как комбинаторика. Наиболее просто о комбинаторике, на мой взгляд, рассказывает следующий анекдот: Приходят к профессору два студента экзамен сдавать. По комбинаторике. В те еще времена. Домой пришли к профессору. Ну, сдавали, сдавали, за картами засиделись, за костями игральными, стемнело. А в то время и студенты, и профессора были бедные, домой их не отправишь, пришлось спать укладывать в профессорской трехкомнатной квартире. В одной комнате - два студента, в другой - профессор с женой, в третьей - профессорская дочь...

Подробно о том, как работать с данным макросом я рассказываю в видео по ссылке (https://rutube.ru/video/ba252faf453768c11c00369e3809f3bb/) Одним из основных "рутинных" действий в аналитике (помимо функции ВПР, естественно), является постоянное копирование/перемещение/вставка тех или иных данных с одного листа/из одной книги на другой лист/в другую книгу(файл). Итак, задача: Дано: Некоторый набор/диапазон данных на листе Excel в одной книге(файле) Нужно: скопировать эти данные на другой лист/в другую книгу(файл) Сразу оговорюсь, что методика у решения копирования с листа на лист в одной книге или между книгами схожа, но есть некоторые нюансы...

Вы задумывались когда-нибудь, что такое аналитик по сути? С моей колокольни могу сказать следующее: аналитик-это человек, который анализирует не только "какие-то цифры у себя в табличках", но и весь окружающий его мир. Лично для меня одной из граней такой "бытовой" аналитики являются, помимо дисконтных карт, банковские карты и кэшбэки. Когда в очередной раз я достаю бумажник, то люди в моем окружении, чаще всего, спрашивают: "Сколько у тебя их?". Давайте посчитаем: - Две кредитные карты ("Сбер" и "Тинькофф")...

Подробно о том, как работать с данным макросом я рассказываю в видео по ссылке (https://rutube.ru/video/47953be926be1daa43dc64d50d434e77/) В своей практике я часто сталкивался с ситуациями, когда было необходимо прописать макрос протягивания (автозаполнения) формул в Excel. Есть много вариантов, как это можно сделать, но моим безусловным фаворитом вот уже более пяти лет остаётся следующий Sub Протяжка_формул() ' ' Протяжка_формул Макрос ' ' Range("D2:D" & Cells(Rows.Count, "D").End(xlUp).Row).Select Selection.ClearContents [D2].Resize(Cells(Rows.Count, "A").End(xlUp).Row - 1, 1)...

Добрый день. Меня зовут Сергей Шахназарян. В настоящий момент я занимаю должность старшего аналитика в компании «Belle YOU». Общий опыт работы в аналитике составляет более 10 лет. Я работал в таких компаниях, как ПАО «Сбербанк», X5 Retail Group («Пятёрочка»), Дикси и других. В данных компаниях я занимал должности, связанные с аналитикой, задачей которых было обеспечить всестороннюю поддержку бизнеса в различных сферах, начиная от процессов пополнения, управления и оптимизации цепей поставок и заканчивая ценообразованием. Помимо этого, участвовал в решении различных нестандартных кейсов. Данный...