Поиск первого ненулевого значения в одномерном массиве

МАВр Гость	#1 12.03.2010 12:03:12 Доброго дня всем! Помогите решить задачку нахождения первого ненулевого значения в строке Например 0,4,0,0,10,5,7 - результат 4 либо индекс в массиве 2 0,0,0,3,10,6,2 - результат 3 либо индекс в массиве 4 Заранее спасибо.

webley Пользователь Сообщений: 2174 Регистрация: 01.01.1970	#2 12.03.2010 12:14:09 For i = LBound(ArrayName) To UBound(ArrayName) If ArrayName(i) <> 0 Then MsgBox "Значение элемента массива " & i & " равно " & ArrayName(i) Exit For End If Next i

dude Пользователь Сообщений: 1066 Регистрация: 22.12.2012	#3 12.03.2010 12:14:11 индекс(диапазон;мин(если(диапазон>0);столбец(диапазон))-столбец(первый слева)) как формула массива

Hugo Пользователь Сообщений: 26220 Регистрация: 22.12.2012	#4 12.03.2010 12:18:58 нахождения первого ненулевого значения в строке Например 0,4,0,0,10,5,7 - результат 4 0,0,0,3,10,6,2 - результат 3 post}{/quote} =LEFT(SUBSTITUTE(A1;"0,";"");1)

kim Пользователь Сообщений: 3139 Регистрация: 23.12.2012 Игорь	#5 12.03.2010 19:24:20 {=ПОИСКПОЗ(;ЕСЛИ(A1:G1;);)} - первый ненулевой {=ПОИСКПОЗ(;ЕСЛИ(A1:G1;))} - последний ненулевой

Nonick Пользователь Сообщений: 126 Регистрация: 01.01.1970	#6 31.05.2010 11:42:07 Добрый день! Хотелось бы поднять эту тему, т.к. здесь есть решение но не до конца С использованием массива. А есть ли решение без массива???

Guest Гость	#7 31.05.2010 11:45:10 А пример?

Nonick Пользователь Сообщений: 126 Регистрация: 01.01.1970	#8 31.05.2010 11:48:26 Есть план продаж помесячно янв фев мар апр май июн июл авг сен окт ноя дек 0 0 0 0 5 10 12 12 11 10 8 5 Нужно определить первый месяц продаж. В данном примере - май (5)

Guest Гость	#9 31.05.2010 11:55:06 =ВПР

Guest Гость	#10 31.05.2010 11:55:25 =ИНДЕКС(A1:L1;ПОИСКПОЗ(;A2:L2)+1)

lapink2000 Пользователь Сообщений: 2186 Регистрация: 01.01.2013	#11 31.05.2010 13:20:52 При данном решении, попробуйте ввести ненулевое значение для янв или фев :-) KL

Guest Гость	#12 31.05.2010 13:24:15 почти обрадовался) но не работает если идут нули в середине ((

Trike-aerotech.ru

Гость

#13

09.11.2010 16:59:47

{=СМЕЩ(A1;ПОИСКПОЗ(;ЕСЛИ(B1:B13;);)-1;0)} Это по столбцам, т.е. первый столбик - месяцы, второй - суммы продаж.

{=СМЕЩ(A1;0;ПОИСКПОЗ(;ЕСЛИ(A2:L2;);)-1)} Это по строкам, аналогично, первая строка - месяц, второй-сумма продаж.

С Уважением.

Мудрый

Гость

#14

29.10.2012 18:32:14

Варианты Trike-aerotech.ru работают, но надо было дописать, что после того, как ввели формулу, надо нажимать не как обычно ENTER, а комбинацию CTRL+SHIFT+ENTER, после чего формула обрамится фигурными скобками, а в ячейке будет Ваш искомый результат.

Kuzmich Пользователь Сообщений: 8188 Регистрация: 21.12.2012	#15 29.10.2012 18:44:44 Option Explicit В первой строке месяцы, во второй продажи Запустить макрос Sub qq() Dim i As Long For i = 1 To 12 If Cells(2, i) > 0 Then MsgBox "Первый месяц продаж: " & Cells(1, i) Exit Sub End If Next End Sub

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#16 30.10.2012 17:20:06 СМЕЩ()пересчитывается при любом изменении на листе. Лучше =ИНДЕКС(A1:L1;ПОИСКПОЗ(1=1;A2:L2>0;))

Читают тему