сумма между определенными значениями - Microsoft Office Excel

Zeon25 · 05.08.2009, 08:54

задача посчитать значения такого вида
0

1
1
1 сумма между 0 должна всегда равняться 1, если между 0
1 значений нет, то сумма должна быть 0. и выводиться в соседнем
1 столбце. Значения между нулями всегда 1, но их может быть
от 1 до 100. растояния между нулями всегда разные.
0
1
1
1
0

SAS888 · 05.08.2009, 09:10

Цитата:

сумма между 0 должна всегда равняться 1

Но ведь это же не сумма???!!!
Уточните, что нужно. Если между 0 в столбце значений пусто, то ставим 0 (куда?). А если не пусто - ставим 1 (куда?). Так? А если встречается, например, текст или просто пробел?

Zeon25 · 05.08.2009, 09:18

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

SAS888 · 05.08.2009, 10:22

Посмотрите вложение. Запустите макрос "Main".

IgorGO · 05.08.2009, 11:30

или вот так. справа от данных формула и условное форматирование на столбец

Zeon25 · 05.08.2009, 13:49

Спасибо большое

Zeon25 · 12.08.2009, 08:17

Уважаемые SAS888 и IgorGO в макросе который вы написали обнаружилась маленькая проблемка.
Если между 0 всего одна строка, то макрос выставляет 1. Помогите справится с этим. Зарание спасибо.

SAS888 · 12.08.2009, 08:37

Да. Извините. В коде макроса строку

Код:

Set y = Range(Cells(a + 1, 1), Cells(b - 1, 1)).SpecialCells(xlCellTypeConstants, xlNumbers)

замените на

Код:

Set y = Range(Cells(a + 1, 1), Cells(b - 1, 2)).SpecialCells(xlCellTypeConstants, xlNumbers)

Ибо диапазон в 1 ячейку для метода SpecialCells указывать не есть правильно.

Zeon25 · 12.08.2009, 08:40

Спасибо, все сработало верно.
Хорошо что есть ваш форум, я бы сам еще долго мучался бы, а возможно и не справился бы.

12.08.2009, 08:37	#8
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	Да. Извините. В коде макроса строку Код: `Set y = Range(Cells(a + 1, 1), Cells(b - 1, 1)).SpecialCells(xlCellTypeConstants, xlNumbers)` замените на Код: `Set y = Range(Cells(a + 1, 1), Cells(b - 1, 2)).SpecialCells(xlCellTypeConstants, xlNumbers)` Ибо диапазон в 1 ячейку для метода SpecialCells указывать не есть правильно. Чем шире угол зрения, тем он тупее.

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Разность между максимальным и минимальным значениями	StudeHt	Помощь студентам	7	23.04.2009 22:26
Операции над повторяющими значениями	Iskin	Microsoft Office Excel	7	22.04.2009 14:45
Разность между max и min значениями	Иван 883	Паскаль, Turbo Pascal, PascalABC.NET	2	16.02.2009 23:24
Заполнение значениями из сводной	Branch	Microsoft Office Excel	0	12.02.2009 16:20
Помогие с двоичными и 16ными значениями !!	UnD)eaD)Snake	Общие вопросы Delphi	3	01.08.2007 20:47

05.08.2009, 09:18	#3
Zeon25 Пользователь Регистрация: 05.08.2009 Сообщений: 25	В столбце а1 есть значения из примера в столбец b1 неоходимо выводить 1 или 0 в зависимости есть ли значения между нулями. Значения в b1 необходимо выводить в любую строчку напротив диапазона между 0. Текст игнорируется и пустые ячейки тоже. Если сумма между 0 в столбце больше 1, то все равно ставим 1 и только 1 раз на каждый диапазон.

05.08.2009, 13:49	#6
Zeon25 Пользователь Регистрация: 05.08.2009 Сообщений: 25	Спасибо большое

12.08.2009, 08:17	#7
Zeon25 Пользователь Регистрация: 05.08.2009 Сообщений: 25	Уважаемые SAS888 и IgorGO в макросе который вы написали обнаружилась маленькая проблемка. Если между 0 всего одна строка, то макрос выставляет 1. Помогите справится с этим. Зарание спасибо.

12.08.2009, 08:40	#9
Zeon25 Пользователь Регистрация: 05.08.2009 Сообщений: 25	Спасибо, все сработало верно. Хорошо что есть ваш форум, я бы сам еще долго мучался бы, а возможно и не справился бы.