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

Страницы: 1
Разделить текст в ячейке по большой букве
 
Я пробовал найти. Все, что нашел - одна тема, в которой формула работает только в том случае, если в ячейке две заглавных буквы
Разделить текст в ячейке по большой букве
 
К сожалению, нет.
По разделителю запятая: может быть такая ситуация: "Сельхозтехника, оборудование, удобрения, Сельхозтехника, оборудование". Т.е. на выходе в ячейке B2 должно быть "Сельхозтехника, оборудование, удобрения", а в B3 "Сельхозтехника, оборудование", т.е. разделитель запятая не подойдет
Разделить текст в ячейке по большой букве
 
Добрый день!

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

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

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

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

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

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

Заранее спасибо.
Поиск последнего ненулевого значения в динамическом диапозоне
 
Пытливый, попробовал Вашу формулу, выдает #знач на этапе
Код
ТЕКСТ($C$1:$ND$1;"ММММ")
Что может быть не так? Просто в этом же файле считал сумму примерно так же (СУММПРОИЗВ + аналогичное вашему сравнение диапазона) и все работало

upd: затупил, забыл нажать ctrl+shift+enter.
Спасибо, все отлично работает.
Изменено: oakrasikov - 17.01.2017 19:22:17
Поиск последнего ненулевого значения в динамическом диапозоне
 
Цитата
Пытливый написал: Скажите, а по вашему расчету 01.02.16 - 28.01.16 это сколько дней? 4?
Ну, вроде, как да   :sceptic:

Цитата
Пытливый написал: Если да, то можно такой формулой массива (в NE2 ее и тянуть вправо, а потом вниз)
Спасибо за формулу и наводку куда нужно копать, завтра попробую под рабочий файл переделать, ибо диапазоны по факту выглядят совсем иначе, чем в примере.
Цитата
Пытливый написал:
P.s. Кстати, два января может быть в таблице?
Нет, только непрерывный год, по крайней мере сейчас именно такой запрос от бизнеса :)
Как создать макрос для суммирования значения ячеек с условиями в других ячейках?
 
hoho.hoho, ну да. Замените данные на неактуальные и направьте
Как создать макрос для суммирования значения ячеек с условиями в других ячейках?
 
А можете скинуть пример?

На первый взгляд, проблема в неправильном цикле. Зайдите на сайт msdn, посмотрите синтаксис, должно быть так:
Код
For counter [ As datatype ] = start To end [ Step step ]  
    [ statements ]  
    [ Continue For ]  
    [ statements ]  
    [ Exit For ]  
    [ statements ]  
Next [ counter ]  
 
Поиск последнего ненулевого значения в динамическом диапозоне
 
Добрый день, форумчане.

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

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

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

Помоги с проблемой, пожалуйста.
Проблема с Excel (Недостаточно ресурсов)
 
Столкнулся с той же проблемой. Она появляется исключительно после того, как пытаешься открыть любой вложенный файл из Outlook. После этого, пока полностью не закрыть Excel, ошибка вылазит даже если пытаешься создать пустой файл. Раньше такого не было.

На компьютере 8 ГБ оперативной памяти, всегда без проблем работал с 10+ открытыми книгами. Сейчас даже если создать пустой файл, а потом попытаться октрыть вложение из Outlook, ошибка появляется. Т.е. это проблема не со стороны моих файлов однозначно. Но что тогда ему может не нравится?
Количество выполнения KPI
 
Добрый день.

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

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

Файл во вложении.
Копирование таблицы Excel в тело письма Outlook (VBA)
 
Андрей VG, спасибо! просмотрел только шапку :oops:
Изменение вычислений в зависимости от цвета шрифта
 
А если вот так? По сути это и есть функция если
Копирование таблицы Excel в тело письма Outlook (VBA)
 
Все_просто , за HTMLBody спасибо.
Но, как я понимаю, просто копировать диапозон, как он есть не получится в любом случае?

Цитата
Андрей VG написал: Может проще, чтобы Excel сам отправлял таблицу и текст письма над ней Outlook - отправка графиков и таблиц из Excel?
Спасибо за совет. Но, к сожалению, вставлять как картинку в данном случае у меня нет возможности, так как получатель использует эти данные в дальнейшем.
Копирование таблицы 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
Наверх