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

Страницы: 1
Автоматизация диаграмм на основе сводной, От теории к практике
 
Добрый день.
Есть видео, где Николай П. доходчиво преподносит полезный функционал Excel - сводная таблица.
Это действительно хороший инструмент, однако на практике я хочу довести его до логического завершения, а именно-...
В сводной не получается отобразить все факторы/разрезы. Например на видео видно, как Николай пренебрег одним из срезов - "менеджер", оно и понятно, ведь все затолкнуть невозможно.
Однако это большой минус. Т.к. при построении диаграмм я столкнулся с проблемой, связанной с невозможностью построить исчерпывающий список диаграмм. Причем динамических диаграмм, которые менялись бы при внесении изменений в первичную динамическую (откуда все идет), а позже в сводную таблицу (при нажатии обновить).
На данный момент, сводная  служить лишь удобным "конфигуратором" (не больше), а значения я вписываю в ручную в "мертвые-статические" таблицы, получая "мертвые" диаграммы. Поэтому я провожу очень много времени, при внесении малейшего изменения. Т.к это одно изменение я должен внести во множество мертвых-статических диаграмм и связей (сводная по компании, доля по филиалам, доля менеджера в филиале, доля менеджера в конкретном продукте и т.д.).
В идеале необходимо вести некоторую базу (динамическую таблицу), внося изменени, а на выходе получать динамические наглядные диаграммы.
Т.к. любые необходимые таблицы-анализ выливаются в презентацию (например для собственника), а не в другие "таблицы".

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

Думаю это скорее не вопрос, а констатация фактов.
Но вдруг, кто-то подобный вопрос решал и может подсказать...
Пока вижу решение проблемы в составлении множества сводных, например на разных листах (однако по моим прикидкам таких разрезов будет штук 20 минимум), а все диаграммы будут на отдельном листе вместе. Нужно будет только не забывать обновлять все сводные, для актуализации графиков. Другого выхода, пока не вижу.
Добавляю ссылку на видео http://www.youtube.com/watch?v=WOpV9_zeB4Q
Изменено: Personal Jesus - 28.10.2014 11:38:43
Как сделать полноценный таймер с ведением статистики
 
Изучать решил Java
Как сделать полноценный таймер с ведением статистики
 
Цитата
JayBhagavan пишет: На х64 винде и офисе не работает. Не нравится экселю эта строчка:
Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
У меня тоже. Пришел домой, хотел порадоваться, а не тут то было. Как я понял, надо универсализировать макрос. Но как его сделать не понятно ((
Пишет что :
Цитата
Код в этом проекте должны быть обновлены для использования на 64-битных системах. Пожалуйста, пересмотреть и обновить Заявить заявления, а затем отметьте их с атрибутом PrtSafe
Только что обновлять, как сравнить что отличает проект на 32 от 64... компьютеры далеки друг от друга, так на глаз сразу не скажешь же...
Дома переустановил офис на 32 бит, все нормально.
Изменено: Personal Jesus - 25.08.2014 23:34:51
Как сделать полноценный таймер с ведением статистики
 
Цитата
Jack пишет: ещё возникает вопрос
Я догадывался, что Вы причастны к спорту, если откликнулись на такие идеи.) Ноут таскать - это конечно издевательство;D, а я просто занимаюсь дома. И решил, что если занимаюсь, то почему бы не собирать статистику занятий. К тому же интересно, как эксперимент. Пробовал приложения на смартфон - красивые, вполне приемлемые приложения (хотя и функционал не всегда тот), но какие-то они не практичные, словно люди написали их, что бы ими никогда не пользоваться.
Пользоваться Excel-ем подразумевается только в моем домашнем тренинге, рядом с компьютером. В идеале это должно стать приложением на смартфон, что бы можно было пользоваться в зале, на улице... а ексель-вариант будет как тех. задание для дальнейшего преобразования на другие платформы.
Но это только идеи спортивного направления, есть еще: управления финансами, питание, цели... И все это, в итоге, должно быть связано между собой, ведь в жизни ничего не происходит обособлено, как в пробирке.
Значит приходит время изучения VBA.... надо попробовать хотя бы. А там видно будет, ведь всему научиться невозможно и иногда лучше воспользоваться аутсорсингом))
Как сделать полноценный таймер с ведением статистики
 
Офигеть) Спасибо! Буду разбираться как направить запись статистики в определенные ячейки (нужные мне). Но думаю справлюсь, буду смотреть код, пробывать.  
А еще, только что нашел вот такое (во вложении), тоже похожее. Задача была засекать круги участников велогонки/автогонки. Но эта задача похожа с тренировками бодибилдинга и его подходами (циклы же). Может кому пригодится.
P.s Еще такую хорошую "штуку" заметил у варианта, который я нашел на просторах интернетов - там словно флажком отмахиваешься, нажимая "стоп". Т.е. автоматически "стоп" и автоматически начало нового "круга".
Изменено: Personal Jesus - 25.08.2014 23:34:13
Как сделать полноценный таймер с ведением статистики
 
Цитата
Jack пишет:
1 2 3 Sub ZaPuSk() UserForm1.Show End Sub
Спасибо большое, вставил в модуль,работает! Теперь открываю секундомер когда хочу и можно кнопку сделать...))
Осталось понять, как можно переносить данные секундомера... как статистику можно изымать и возможно ли это вообще в Excel?
На Гугл плей есть один секундомер ("секундомер бодибилдера", как-то так), полностью подходящий по смыслу... но он пишет показания у себя, просто по порядку. Придется ручками переписывать все в ексель с него, да и как бы не запутаться, какой интервал к какому подходу относится, а какой интервал вообще отдых между подходом...
Изменено: Personal Jesus - 31.07.2014 13:06:14
Как сделать полноценный таймер с ведением статистики
 
Странно, что предложенные макросы таймеров не подразумевают автоматического фиксирования данных. Ведь если нет статистики, то нет и аналитики... но, тогда каков смысл любого учета секундомером?!
Забегу немного назад. Уже довольно долго делаю комплексную таблицу, что-то типа универсального органайзера: учет денежных потоков, приход и расход энергии (питание/физ нагрузки), цели(долгосрочные, среднесрочные, краткосрочные +задачи), антропометрия и пр, пр.  Если учет денежных потоков имеет свои довольно четкие правила и методики, типа двойной системы бухгалтерского учета и оценки эффективности инвестиционной эффективности. То учет энергозатрат - дело очень спорное и неблагодарное. И вообще, 21 век, но люди даже не способны ответить на, казалось бы простые, но ведь первостепенные вопросы: "что и как есть?", "как и когда тренироваться?".  Есть много хороших идей, как вести учет спортивной деятельности (и не только спортивной), однако ограниченные способности знания excel  не позволяют это осуществить в Excel. Не исключаю, что осуществление подобных задач возможно должно происходить в какой-то другой среде. Но делаю это я не для рынка, а для себя. И проверяю все на себе - сразу вижу, что удобно на практике, а что вовсе не нужно и лишнее, а что было бы не плохо.  Вот и столкнулся с очередным вопросом/идеей, при проведении очередной тренировки. БЛИЖЕ К ТЕМЕ. Я записываю на бумаге подходы, кол-во повторений, вес, кол-во подходов. В каждом подходе учитываю: время выполнения похода, пульс после подхода, время отдыха до следующего подхода. Пульс отслеживаю с помощью спорт. пульсометра. Время отслеживаю с помощью секундомера (логично же;D). Понял, что если я использую свои таблицы Excel, то не плохо было бы и записывать данные в Excel сразу, а не переносить их с бумажки. Т.е. на практике нужно и таймер/секундомер иметь в Excel - все в одном источнике/инструменте. Конечно, есть множество хороших онлайн секундомеров, среди них и интервальных, их можно получить благодаря интернету, однако на практике это не удобно. Мне приходится открывать и закрывать окна. После подхода мало времени, но нужно быстро и точно внести данные, при этом, отдыхая подготавливаться к следующему подходу , а не заниматься: сворачиванием окон, копированием ячеек, налаживанием интернет соединения и т.п. А ТЕПЕРЬ САМ ВОПРОС. Нашел нормальный секундомер (во вложении), но: 1. Не понимаю как его запускать, если его закрыть,то при нажатии alfF8 нет никаких макросов. Т.е. он открывается только при открытии файла, а нужно открывать/закрывать (для начала) по требованию юзера. Как сделать так, что бы он открывался и закрывался "более понятно", если даже кнопку привязать не к чему - в списке макросов то нет? (например как значек калькулятора на верхней строке вызывается) 2. Как сделать, что бы при нажатии на "Стоп" временная величина секундомера улетела (зафиксировалась) где либо? Т.е. необходимо списывать показания секундомера: позанимался 30 секунд, нажал "стоп" и эти 30 секунд улетели в ячейку "время выполнения первого подхода ". Тут же, сразу нажал еще раз "старт" - отдыхаешь, нажал "стоп" и данные улетели в ячейку "время отдыха между подходом". Тут же, сразу нажал "старт" - делаешь следующий подход и так далее. Даже необязательно сбрасывать (нажимать "сброс" - пусть накапливает общее время - это будет общее время тренировки). Возможно, что и нажимать два раза "стоп-старт" - ненужное дело, можно просто нажать один раз на кнопку, таймер передаст статистику, а время будет идти дальше, без нажатия"старт". В идеале, человек просто стучит по кнопке - показывая, когда он закончил подход и когда его начинает. Может быть целесообразно иметь 2 кнопки: "время подхода" на нее нажимает по завершению подхода и кнопка "время отдыха" - на нее нажимает когда готов выполнять очередной подход. По факту мы будем пользоваться только секундомером, но автоматически будем вести и записи, статистику, не отвлекаясь от тренировки. ВОЗВРАЩАЯСЬ ОПЯТЬ НАЗАД. Понятно, что данные пульса придется вносит вручную, автоматической трансляции пока не встречал, есть подобное (можно переносить данные на компьютер), но качество пульсометра на запястье хуже нагрудного. И кто му же как, определить когда возник тот или иной пульс - пульсометр не знает, когда ты закончил упражнение и что именно этот показатель пульса был после определенного подхода... Тем не менее, благодаря всему этому можно будет анализировать свое состояние, прогресс, выявлять закономерности и т.п. Проверять работоспособность той или иной программы тренировок. Настраивать время отдыха, интенсивность,тоннаж. Продумать приятный интерфейс, способность задавать необходимую программу относительно существующих (или заданных) характеристик (антропометрия, цели занятий и т.п.) Но это уже другая история. И это только спортивный аспект органайзера. Возможно кто-то поможет осуществить идеи с помощью экселя, или направит в нужно русло. Если кого-то заинтересовало, пишите, тема очень обширная - сразу все не скажешь. Делаю для себя, в первую очередь, т.к. я обычный человек с планеты Земля, то таких как я немало. А я вижу в этой полезность и практическое применение, следовательно, при правильной подаче и реализации эти идеи будут полезны очень многим.  Оставлю свои альтернативные контакты mr.personaljesus@gmail.com
Изменено: Personal Jesus - 25.08.2014 23:33:46
Изменить проставление галочки с одного щелчка на два
 
Sanja и V,
Спасибо большое!

С форматированием на кириллицу весело получилось)
Цитата
Апплицатион.ЕнаблеЕвентс = Труе
Цитата
БыВал Таргет Ас Ранге
:D  :D  8)
Изменить проставление галочки с одного щелчка на два
 
Повторяю все заново, с надеждой что при редактировании ничего не затупит.
Нужно макрос добавления галочки изменить, с одного щелчка на два.
Чтобы исключить случайно проставление галочки просто выделяя ячейку, как то реализовано в макросе Пометка элементов списка    
Имеем часть макроса, ответственного за добавление галочки

1 Ставим флажок, если был одиночный щелчок по ячейке
Код
Private Sub Worksheet_[COLOR=#ff0000]SelectionChange[/COLOR](ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
        If Not Intersect(Target, Range("A2:A100"  ;)  ) Is Nothing Then
            Target.Font.Name = "Marlett"
            If Target = vbNullString Then
                Target = "a"
            Else
                Target = vbNullString
            End If
        End If
End Sub

Меняю его на следующий (исходя из кода при удалении галочки двойным щелчком)
1 Ставим флажок, если был двойной щелчок по ячейке
Код
Private Sub Worksheet_[COLOR=#00ff00]BeforeDoubleClick[/COLOR](ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
        If Not Intersect(Target, Range("A2:A100"  ;)  ) Is Nothing Then
            Target.Font.Name = "Marlett"
            If Target = vbNullString Then
                Target = "a"
            Else
                Target = vbNullString
            End If
        End If
End Sub

Но вылазит ошибка (картинка на гугл диске) --> https://drive.google.com/file/d/0B8fEK9Vf1uRpTXdXYlViaGhPTDg/edit?usp=sharing

Подскажите, что делать? Что не правильно прописал?
Изменить проставление галочки с одного щелчка на два
 
да блин, хотел подправить текст и все приняло киррилическую форму...))
Капец.
Изменить проставление галочки с одного щелчка на два
 
Блин... все что делал изменило вид на русские буквы...
И удалить сообщения нельзя...
Изменено: Personal Jesus - 10.04.2014 11:21:32
Очень много условий, функция ЕСЛИ не справляется
 
Разорался, все работает. Оба способа.
Еще раз благодарю!
Очень много условий, функция ЕСЛИ не справляется
 
Цитата
JayBhagavan пишет:
Persona Jesus , функция ИНДЕКС() возвращает из указанного диапазона (первый аргумент) то значение ячейки, порядковый номер в строке (2й аргумент) которой выдаёт функция ПОИСКПОЗ().
А, понял! Просто не пользовался никогда функцией ИНДЕКС... теперь понял, что где указывается. Да, формула очень компактная получается)5+
Очень много условий, функция ЕСЛИ не справляется
 
Цитата
JayBhagavan пишет:
ОИСКПОЗ()
Понял... попробую применить сейчас.
Очень много условий, функция ЕСЛИ не справляется
 
Цитата
JayBhagavan пишет:
Persona Jesus , сделал реорганизацию районов и областей. С её учётом и формула.
Спасибо! Правда не совсем понял формулу. Чтоб ей пользоваться-подстраивать самостоятельно. Не понял как черпает формула информацию из "реорганизация", и что делать, если "реорганизация" будет другой.
Вообщем буду разбираться. В любом случае, мой первый способ, по сравнению с этим - каменный век;D
Очень много условий, функция ЕСЛИ не справляется
 
Цитата
seregeyss пишет:
можно так если позволяет эксель
Вот этот пример нравится, вернее я его понял легче. Это по сути тоже, что и я делал, только быстрее. Я прописывал каждый вариант, а тут сразу указаны интервалы выбора.
Спасибо!!!
Очень много условий, функция ЕСЛИ не справляется
 
Цитата
JayBhagavan пишет:
Persona Jesus , ой, лучше файл эксель с что есть и что надо. Предположу, что Ваше решение не оптимальное.
Я догадываюсь, что иду не лучшим путем. Но, просто, эта "дорога" мне известна, вот и начал "так" решать задачу...
Во вложении упрощенный пример.
Есть районы областей. Есть база контрагентов с указанием их районов, но без указания области (областного города).
Каждой строке региона необходимо проставить ее область. Контрагентов чуть более 2000, в ручную можно, но  решил в очередной раз возможности екселя оценить (и свои тоже)))
Очень много условий, функция ЕСЛИ не справляется
 
Или она нормально считает...?!
Поторопился чтоли...
Почему то смутило отсутствие подсветки ячейки "A2".
Изменено: Persona Jesus - 25.02.2014 12:44:12
Очень много условий, функция ЕСЛИ не справляется
 
Цитата
JayBhagavan пишет:
Persona Jesus , где файл с примером?
Ссылки указал)
Очень много условий, функция ЕСЛИ не справляется
 
Добрый день!
Столкнулся со странной проблемой, не могу продолжить вводить условия для функций ЕСЛИ(ИЛИ
Обозначенная ячейка по каким-то причинам перестает показываться активной в формуле... и функция прекращает считывать условия на определенном моменте... (Приложение "WHY" )
Знаю, что ограничения по условиям, если и есть, то с ооочень  большим запасом (делал подобную операцию, на намного больший диапазон условий (приложение "Good" )
Простая ситуация, но ставит в тупик... скрины с примерами прилагаются.
P.s. Под условием имею ввиду - "(A2="Проверка";...) - это оно условие и т.д.
Надеюсь на подсказку.
WHY - http://yadi.sk/d/7SnEj9rhJW3Fk
Good - http://yadi.sk/d/h5RhFIM8JW3Kp
Изменено: Persona Jesus - 26.02.2014 00:31:36
Макрос защиты и снятия пароля, Необходимо снять защиту со всех листов с помощью макроса
 
Цитата
The_Prist:Макрорекордером-то не пробовали воспользоваться?
записать макрос, а потом просмотреть его код?
P.S. Я в этом профан
Макрос защиты и снятия пароля, Необходимо снять защиту со всех листов с помощью макроса
 
V
Цитата
Простоя замена "Protect" на "Unprotect" не помогла.
серьезно?
Да, проверил еще разок, не работает. Пишет следующее - Run-time 1004 Application-defined or object defined error.
Excel 2013

Вот что вставляю
Код
Sub Windenis()
For i = 1 To Worksheets.Count
 Worksheets(i).Unprotect Password:="1234", DrawingObjects:=True, Contents:=True, Scenarios:=True
Next
End Sub
Изменено: Persona Jesus - 13.12.2013 16:06:33
Макрос защиты и снятия пароля, Необходимо снять защиту со всех листов с помощью макроса
 
Dima S,
Оказалось все логичнее, чем я думал.
Спасибо большое!
Макрос защиты и снятия пароля, Необходимо снять защиту со всех листов с помощью макроса
 
Добры день!
Подскажите как снять защиту всех листов с помощью макроса.
Есть рабочий макрос защищающий все листы -->

Код
Sub Windenis() 
For i = 1 To Worksheets.Count 
 Worksheets (i).Protect Password:="1234", DrawingObjects:=True, Contents:=True, Scenarios:=True 
Next 
End Sub
Но как снять защиту макросом со всех листов?!
Не могу понять, что нужно изменить в коде. Простоя замена "Protect" на "Unprotect" не помогла.
Изменено: Persona Jesus - 13.12.2013 15:47:48
Страницы: 1
Наверх