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

Страницы: 1
Разделить текст в ячейке по большой букве
 
Добрый день!

Коллеги, помогите справиться с задачей.

В ячейке A2 есть текст через запятую. Его необходимо разделить так, чтобы в каждом новом столбце была новая фраза из ячейки A2. Разделитель фразы - большая буква. Также нужно учесть, что таких фраз в ячейке A2 может быть от 1 до 15.

Заранее спасибо!
Изменено: oakrasikov - 25.09.2017 11:29:03
Копирование диапазона в фильтр OLAP куба
 
Всем привет!

Подскажите, пожалуйста, как можно скопировать Диапазон значений в фильтр сводной таблицы OLAP?

В примере обычная сводная. Нужно с листа3 скопировать все значения клиентов и вставить их в фильтр на листе 2. Как это организовать через VBA?

С одной стороны, можно сделать перебор всех значений и вставки их в фильтр. Но бывает, что там по 30-40к значений, что будет очень долго, учитывая, что OLAP будет каждый раз обновляться.

Заранее спасибо.
Поиск последнего ненулевого значения в динамическом диапозоне
 
Добрый день, форумчане.

Настигла беда, с которой никак не могу справиться.

Есть данные по покупкам клиентов в диапазоне С:ND за 365(6) дней. Причем даты в строке 1 меняются, когда пользователь меняет значение начала периода в ячейке B1 (всегда 1-ое число какого-либо месяца). Необходимо найти дату последнего ненулевого значения за каждый месяц (месяцы в столбцах NE:NP, например: Январь - 28.01.2016, Февраль - 29.02.2016 и т.д.), а зачем вычесть это число из первого числа следующего месяца. например: 01.02.2016 - 28.01.2016 = 4 и записать в уже указанный диапазон NE:NP.

Если бы диапазоны не смещались или каждый месяц был в отдельной строке, то проблем бы не возникло с использованием функции ПРОСМОТР, но здесь ничего не выходит.

Помоги с проблемой, пожалуйста.
Количество выполнения KPI
 
Добрый день.

Есть файлик. Нужно посчитать сколько раз человек выполнил KPI (KPI выполнен при условии, что было больше 100% 4 месяца подряд). Следующее выполнение начинает считать со дня окончания первого выполнения.

Например, выполнил больше 100% в период с января по апрель, следующий счет начинается с мая.
В файлике подсветил разными цветами:
Оранжевый - 1 выполнение
Зеленый - 2 выполнение
Синий - 3 выполнение.

Файл во вложении.
Копирование таблицы Excel в тело письма Outlook (VBA)
 
Добрый день.

Есть код, который должен отправлять часть скопированных данных в Outlook. Как вставить скопированный диапозон в тело письма? Сейчас, чтобы я не делал, он вставляет в тело слово "True"
Код
Sheets("Send").Select 'Копируем нужный диапозон с листа Send
FromWhom = InputBox("Кто направил")
ActiveSheet.Range("$A$1:$L$65000").AutoFilter Field:=2, Criteria1:=xlFilterToday, Operator:=xlFilterDynamic
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.FormulaR1C1 = FromWhom
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select

Set objOutlookApp = CreateObject("Outlook.Application") 'Отправляем в Outlook
Set objMail = objOutlookApp.CreateItem(0)
sTo = "Иванов Иван"
sCC = "Сергеев Сергей"
sSubject = "штат"
sBody = "??????"
sAttachement = "S:\Доки\2015.xlsx"

With objMail
.To = sTo
.CC = sCC
.Subject = sSubject
.Body = sBody
.Attachments.Add sAttachement
.Display
End With

Страницы: 1
Наверх