Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.09.2010, 18:26   #11
Serge 007
Участник клуба
 
Аватар для Serge 007
 
Регистрация: 15.12.2009
Сообщений: 1,448
По умолчанию

Цитата:
Сообщение от GoreProgrammist Посмотреть сообщение
только формула у меня не считает, выдаёт 0.
CSE жали? Диапазоны поправили?
Бесплатная помощь: www.excelworld.ru
Платная помощь: serge_007.planetaexcel@mail.ru
https://yoomoney.ru: 41001419691823
Serge 007 вне форума Ответить с цитированием
Старый 10.09.2010, 18:50   #12
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

там формула массива вводится Ctrl+Shift+Enter, а не просто Enter.
или скопируйте формулу с соседней ячейки, там, где все считается.
а вообще - ваша задача типична для сводной таблицы. добавил одну колонку в исходную таблицу. результат во вложении. + со сводной таблицей все просто летает
и самое последнее - можно посмотрететь совпадают ли рассчеты)))
Вложения
Тип файла: rar Книга402.rar (867.2 Кб, 10 просмотров)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 13.09.2010, 17:01   #13
GoreProgrammist
Пользователь
 
Регистрация: 13.07.2009
Сообщений: 52
По умолчанию

Премного благодарен всем кто откликнулся.

В итоге сделал как советовал Игорь (сводную) + написал на ВБА код который пилит значения на смены. Получилось то что нужно - средняя скорость подбора за рабочую смену.

Цитата:
Public Sub Sortirovka()
Dim n As Long
Dim i As Long
Dim oRange As Range
Dim Range As Range
i = 2
n = 1



Do While i < 36744
Cells(i, 9).Value = n
Set oRange = Worksheets("Портянка чистая").Range("H1").Cells(i + 1, 1)
Set Range = Worksheets("Портянка чистая").Range("H1").Cells(i, 1)
If oRange - Range > 10 Then

Cells(i, 2).Value = n
n = n + 1


End If
i = i + 1
Loop

End Sub
GoreProgrammist вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вопрос по функциям trim и empty Svetix PHP 4 01.06.2009 23:48
вопрос по математическим функциям - десятичный логарифм. на log10(x) marisha Помощь студентам 1 13.12.2008 10:14
Вопрос по функциям Antowka Паскаль, Turbo Pascal, PascalABC.NET 6 08.12.2008 22:45
глупый вопрос по функциям steck Общие вопросы Delphi 2 17.06.2007 15:40