Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/создание отсутствующих дат и уничтожение "задвоенных" - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » создание отсутствующих дат и уничтожение "задвоенных"
создание отсутствующих дат и уничтожение "задвоенных"
карандаш Дата: Вторник, 22.01.2013, 23:15 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 329
Репутация: 8 ±
Замечаний: 0% ±

2010
есть последовательность, снимаемая с некоторого источника (см. файл)

там каждое событие заноситься в строку (содержимое любое, неважно какое)
в день может быть от нуля до нескольких событий

нужно преобразовать этот список в список дат, идущих последовательно и рядом имеющих число событий за эту дату
вручную справа показано как должен выглядеть преобразованный список.

каким образом можно это сделать?

спасибо
К сообщению приложен файл: 0767422.xlsx (15.9 Kb)
 
Ответить
Сообщениеесть последовательность, снимаемая с некоторого источника (см. файл)

там каждое событие заноситься в строку (содержимое любое, неважно какое)
в день может быть от нуля до нескольких событий

нужно преобразовать этот список в список дат, идущих последовательно и рядом имеющих число событий за эту дату
вручную справа показано как должен выглядеть преобразованный список.

каким образом можно это сделать?

спасибо
Автор - карандаш
Дата добавления - 22.01.2013 в 23:15
_Boroda_ Дата: Среда, 23.01.2013, 02:35 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16718
Репутация: 6505 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Вариант сводной таблицей
К сообщению приложен файл: 0767422_1.xlsx (51.7 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеВариант сводной таблицей
Автор - _Boroda_
Дата добавления - 23.01.2013 в 02:35
карандаш Дата: Среда, 23.01.2013, 11:31 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 329
Репутация: 8 ±
Замечаний: 0% ±

2010
_Boroda_, спасибо
дьявол в деталях )))
и в заголовке сообщения ))
получилось не совсем так, как хотелось.
в образце вставлены даты подряд, даже если событий не было
тогда и график по этим данным получается реальный.
ось времени равномерная

p.s. а можно данные поставить с головы на ноги? а то график не в ту сторону получается )))


Сообщение отредактировал карандаш - Среда, 23.01.2013, 11:32
 
Ответить
Сообщение_Boroda_, спасибо
дьявол в деталях )))
и в заголовке сообщения ))
получилось не совсем так, как хотелось.
в образце вставлены даты подряд, даже если событий не было
тогда и график по этим данным получается реальный.
ось времени равномерная

p.s. а можно данные поставить с головы на ноги? а то график не в ту сторону получается )))
Автор - карандаш
Дата добавления - 23.01.2013 в 11:31
Serge_007 Дата: Среда, 23.01.2013, 12:04 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Цитата (карандаш)
можно данные поставить с головы на ноги?

Можно. Отсортируйте по полю Годы в нужном порядке

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Цитата (карандаш)
можно данные поставить с головы на ноги?

Можно. Отсортируйте по полю Годы в нужном порядке
Автор - Serge_007
Дата добавления - 23.01.2013 в 12:04
nilem Дата: Среда, 23.01.2013, 12:33 | Сообщение № 5
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
как вариант
[vba]
Код
Sub ertert()
Dim dMax&, dMin&
With Range("B3", Cells(Rows.Count, 2).End(xlUp))
     .Sort .Cells(1), 1: dMin = .Item(1, 1): dMax = .Item(.Rows.Count, 1)
     With .Item(1, 3)
         .Value = dMin: .AutoFill .Resize(dMax - dMin + 1), xlFillDefault
     End With
     .Item(1, 4).Resize(dMax - dMin + 1).FormulaR1C1 = _
     "=COUNTIFS(" & .Address(, , xlR1C1) & ","">=""&RC[-1]," & .Address(, , xlR1C1) & ",""<""&RC[-1]+1)"
     With .Item(1, 4).Resize(dMax - dMin + 1)
         .Value = .Value
     End With
End With
End Sub
[/vba]

ЗЫ прочитал в справке, что ф-ции МАКС и МИН могут считать массивы длиной до 255 эл-тов. Правда что ли? А если нужно больше?

Яндекс.Деньги 4100159601573
 
Ответить
Сообщениекак вариант
[vba]
Код
Sub ertert()
Dim dMax&, dMin&
With Range("B3", Cells(Rows.Count, 2).End(xlUp))
     .Sort .Cells(1), 1: dMin = .Item(1, 1): dMax = .Item(.Rows.Count, 1)
     With .Item(1, 3)
         .Value = dMin: .AutoFill .Resize(dMax - dMin + 1), xlFillDefault
     End With
     .Item(1, 4).Resize(dMax - dMin + 1).FormulaR1C1 = _
     "=COUNTIFS(" & .Address(, , xlR1C1) & ","">=""&RC[-1]," & .Address(, , xlR1C1) & ",""<""&RC[-1]+1)"
     With .Item(1, 4).Resize(dMax - dMin + 1)
         .Value = .Value
     End With
End With
End Sub
[/vba]

ЗЫ прочитал в справке, что ф-ции МАКС и МИН могут считать массивы длиной до 255 эл-тов. Правда что ли? А если нужно больше?
Автор - nilem
Дата добавления - 23.01.2013 в 12:33
Serge_007 Дата: Среда, 23.01.2013, 12:36 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Цитата (nilem)
ф-ции МАКС и МИН могут считать массивы длиной до 255 эл-тов

Не-а. Это они могут иметь до 255 АРГУМЕНТОВ, а массивы могут быть любыми smile

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Цитата (nilem)
ф-ции МАКС и МИН могут считать массивы длиной до 255 эл-тов

Не-а. Это они могут иметь до 255 АРГУМЕНТОВ, а массивы могут быть любыми smile
Автор - Serge_007
Дата добавления - 23.01.2013 в 12:36
nilem Дата: Среда, 23.01.2013, 12:48 | Сообщение № 7
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
Да, кажется, понял теперь. Спасибо.

Яндекс.Деньги 4100159601573
 
Ответить
СообщениеДа, кажется, понял теперь. Спасибо.
Автор - nilem
Дата добавления - 23.01.2013 в 12:48
карандаш Дата: Среда, 23.01.2013, 14:46 | Сообщение № 8
Группа: Проверенные
Ранг: Обитатель
Сообщений: 329
Репутация: 8 ±
Замечаний: 0% ±

2010
nilem, здравствуйте

куда можно вставить эту программу?
чтобы она преобразовала два столбца

на какую кнопку нажать? что выделить?
 
Ответить
Сообщениеnilem, здравствуйте

куда можно вставить эту программу?
чтобы она преобразовала два столбца

на какую кнопку нажать? что выделить?
Автор - карандаш
Дата добавления - 23.01.2013 в 14:46
nilem Дата: Среда, 23.01.2013, 15:02 | Сообщение № 9
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
карандаш,
Вот ваш файлик. Данные должны начинаться с ячейки В3 и вниз до упора (реально 3000-5000 строк будут обрабатываться довольно быстро. Если строк будет, скажем, 100000, то потребуется другой макрос - более быстрый).
Макрос находится в Module1 (чтобы его посмотреть, нажмите Alt+F11). Результат записывается в D:E
Выделять ничего не надо, просто нажмите на зеленую кнопку с говорящим названием "кнопка" (пример интуитивно понятного, дружественного интерфейса smile )
К сообщению приложен файл: _0767422.xlsm (29.5 Kb)

Яндекс.Деньги 4100159601573

Сообщение отредактировал nilem - Среда, 23.01.2013, 15:05
 
Ответить
Сообщениекарандаш,
Вот ваш файлик. Данные должны начинаться с ячейки В3 и вниз до упора (реально 3000-5000 строк будут обрабатываться довольно быстро. Если строк будет, скажем, 100000, то потребуется другой макрос - более быстрый).
Макрос находится в Module1 (чтобы его посмотреть, нажмите Alt+F11). Результат записывается в D:E
Выделять ничего не надо, просто нажмите на зеленую кнопку с говорящим названием "кнопка" (пример интуитивно понятного, дружественного интерфейса smile )
Автор - nilem
Дата добавления - 23.01.2013 в 15:02
карандаш Дата: Среда, 23.01.2013, 17:07 | Сообщение № 10
Группа: Проверенные
Ранг: Обитатель
Сообщений: 329
Репутация: 8 ±
Замечаний: 0% ±

2010
"Послущай, абидна, да" (с) к/ф "Кавказская пленница"

nilem, обычно пользую под макрос стандартную страшную кнопку из набора инструментов
"Разработчик" -> "Элементы управления" -> "Вставить" -> "Элементы управления форм"
Она обычная и все что можно сделать - поменять шрифт на кнопке
А ваша кнопка такая красивая, цветная, блестяще матовая, с закруглёнными краями, да ещё и тень отбрасывает!
Где брали? Почем?
На неё даже можно макрос назначить!
заменю себе все кнопки на такие

Да! ваша кнопка работает отлично! более 300-500 не будет.
Теперь можно видеть активность подписчиков!
огромное спасибо!

p.s. Посмотрел текст макроса. Китайская грамота. Для меня. Пока. Надеюсь. )))

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

nilem, обычно пользую под макрос стандартную страшную кнопку из набора инструментов
"Разработчик" -> "Элементы управления" -> "Вставить" -> "Элементы управления форм"
Она обычная и все что можно сделать - поменять шрифт на кнопке
А ваша кнопка такая красивая, цветная, блестяще матовая, с закруглёнными краями, да ещё и тень отбрасывает!
Где брали? Почем?
На неё даже можно макрос назначить!
заменю себе все кнопки на такие

Да! ваша кнопка работает отлично! более 300-500 не будет.
Теперь можно видеть активность подписчиков!
огромное спасибо!

p.s. Посмотрел текст макроса. Китайская грамота. Для меня. Пока. Надеюсь. )))

а можно по второй кнопке получить сумму событий за неделю и создать рядом вторую пару столбцов - с номером недели и кол-вом событий за неё? График ежедневный не умещается на экране, а как его растянуть и смотреть частями - не знаю. Да и понедельная активность тоже информативна в принципе
что в вашей программе можно изменить - не знаю
Автор - карандаш
Дата добавления - 23.01.2013 в 17:07
Serge_007 Дата: Среда, 23.01.2013, 17:14 | Сообщение № 11
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Цитата (карандаш)
Где брали?

Макросы можно назначать на графические объекты и картинки, помимо стандартных кнопок разработчика

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Цитата (карандаш)
Где брали?

Макросы можно назначать на графические объекты и картинки, помимо стандартных кнопок разработчика
Автор - Serge_007
Дата добавления - 23.01.2013 в 17:14
карандаш Дата: Среда, 23.01.2013, 17:20 | Сообщение № 12
Группа: Проверенные
Ранг: Обитатель
Сообщений: 329
Репутация: 8 ±
Замечаний: 0% ±

2010
Serge_007, понял
спасибо
попробую
 
Ответить
СообщениеSerge_007, понял
спасибо
попробую
Автор - карандаш
Дата добавления - 23.01.2013 в 17:20
карандаш Дата: Среда, 23.01.2013, 17:33 | Сообщение № 13
Группа: Проверенные
Ранг: Обитатель
Сообщений: 329
Репутация: 8 ±
Замечаний: 0% ±

2010
Serge_007,
можно вопрос?

а как сделать, чтобы этот макрос присутствовал во всех вновь создаваемых книгах?

вот я получил новые данные, создаю книгу, копирую туда данные, вставляю кнопку и хочу назначить макрос
надо чтобы он был всегда
что нужно для этого сделать?
 
Ответить
СообщениеSerge_007,
можно вопрос?

а как сделать, чтобы этот макрос присутствовал во всех вновь создаваемых книгах?

вот я получил новые данные, создаю книгу, копирую туда данные, вставляю кнопку и хочу назначить макрос
надо чтобы он был всегда
что нужно для этого сделать?
Автор - карандаш
Дата добавления - 23.01.2013 в 17:33
nilem Дата: Среда, 23.01.2013, 17:50 | Сообщение № 14
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
Цитата (карандаш)
надо чтобы он был всегда
что нужно для этого сделать?

Поищите по форуму "Персональная книга макросов" или "Personal"
Сразу две красивых кнопки. Сначала нажимаем 1. потом (вот догадайтесь... smile ) 2.
По месяцам и по годам сделайте самостоятельно.
К сообщению приложен файл: _0767422-2.xlsm (31.4 Kb)

Яндекс.Деньги 4100159601573
 
Ответить
Сообщение
Цитата (карандаш)
надо чтобы он был всегда
что нужно для этого сделать?

Поищите по форуму "Персональная книга макросов" или "Personal"
Сразу две красивых кнопки. Сначала нажимаем 1. потом (вот догадайтесь... smile ) 2.
По месяцам и по годам сделайте самостоятельно.
Автор - nilem
Дата добавления - 23.01.2013 в 17:50
Gustav Дата: Среда, 23.01.2013, 17:53 | Сообщение № 15
Группа: Админы
Ранг: Участник клуба
Сообщений: 2797
Репутация: 1161 ±
Замечаний: ±

начинал с Excel 4.0, видел 2.1
Цитата (nilem)
Если строк будет, скажем, 100000, то потребуется другой макрос - более быстрый).

100000 дней - это 273 года... с хвостиком... smile

МОИ: Ник, Tip box: 41001663842605
 
Ответить
Сообщение
Цитата (nilem)
Если строк будет, скажем, 100000, то потребуется другой макрос - более быстрый).

100000 дней - это 273 года... с хвостиком... smile
Автор - Gustav
Дата добавления - 23.01.2013 в 17:53
nilem Дата: Среда, 23.01.2013, 18:06 | Сообщение № 16
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
Цитата (Gustav)
100000 дней - это 273 года... с хвостиком...

ну ведь макросы пишем не просто так, а на века! smile

Яндекс.Деньги 4100159601573
 
Ответить
Сообщение
Цитата (Gustav)
100000 дней - это 273 года... с хвостиком...

ну ведь макросы пишем не просто так, а на века! smile
Автор - nilem
Дата добавления - 23.01.2013 в 18:06
карандаш Дата: Среда, 23.01.2013, 19:31 | Сообщение № 17
Группа: Проверенные
Ранг: Обитатель
Сообщений: 329
Репутация: 8 ±
Замечаний: 0% ±

2010
nilem, можно на века запечатлеть сумму событий за неделю? )))
 
Ответить
Сообщениеnilem, можно на века запечатлеть сумму событий за неделю? )))
Автор - карандаш
Дата добавления - 23.01.2013 в 19:31
nilem Дата: Среда, 23.01.2013, 20:05 | Сообщение № 18
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
Цитата (карандаш)
nilem, можно на века запечатлеть сумму событий за неделю? )))

см. сообщение №14

Яндекс.Деньги 4100159601573
 
Ответить
Сообщение
Цитата (карандаш)
nilem, можно на века запечатлеть сумму событий за неделю? )))

см. сообщение №14
Автор - nilem
Дата добавления - 23.01.2013 в 20:05
карандаш Дата: Среда, 23.01.2013, 21:27 | Сообщение № 19
Группа: Проверенные
Ранг: Обитатель
Сообщений: 329
Репутация: 8 ±
Замечаний: 0% ±

2010
nilem,
слона-то я и не приметил!!!

спасибо огромное!

посмотрел со всех сторон на коды...
способностей достало лишь на перетащить их в персональную книгу, чтобы всегда были рядом )))
на большее тяму не хватило
надеюсь, "на месяц" не понадобится" ))) 52 недели уж уместятся в графике )))

ещё раз большущее спасибо


а ячейки поможете покрасить?


Сообщение отредактировал карандаш - Среда, 23.01.2013, 21:38
 
Ответить
Сообщениеnilem,
слона-то я и не приметил!!!

спасибо огромное!

посмотрел со всех сторон на коды...
способностей достало лишь на перетащить их в персональную книгу, чтобы всегда были рядом )))
на большее тяму не хватило
надеюсь, "на месяц" не понадобится" ))) 52 недели уж уместятся в графике )))

ещё раз большущее спасибо


а ячейки поможете покрасить?
Автор - карандаш
Дата добавления - 23.01.2013 в 21:27
Мир MS Excel » Вопросы и решения » Вопросы по Excel » создание отсутствующих дат и уничтожение "задвоенных"
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!