Вопросец пpо Arrays in Excel

[vova7777]

Приветствую,

Сам я совсем не программист, поэтому прошу помощи с данной задачей:

Дано информация в столбике D,
В "A1" есть формула: Если в любой ячейки "С" появится единица то показывать инфу которая находится справа от единицы в ячейке столбика D.

Например если в D4 появится 1 то в А1 показывать инфу взятую с Е4,
или
если в D7 появится 1 то в А1 показывать инфу взятую с Е7
или
если в D3 появится 1 то в А1 показывать инфу взятую с Е3

Сампл я приложил. Обратите внимание что простой IF тянет максимум 11 колонок а мне нужно больше 100.

Вот пример который нужно переделать в array:

=IF(D1=1;E1;IF(D2=1;E2;IF(D3=1;E3;IF(D4=1;E4;IF(D5=1;E5;IF(D6=1;E6;IF(D7=1;E7;IF(D8=1;E8;IF(D9=1;E9;IF(D10=1;E10;IF(D11=1;E11;)))))))))))

В инете array только упоминается с суммой а мне нужно нечто указанное выше. Help

vova7777 добавил 05.07.2010 в 23:06
что-то xls не прикрепился.
вот здесь его можно скачать: http://rapidshare.com/files/405177829/excel-arrays.xls
или здесь: http://www.megaupload.com/?d=XMFSY2XJ

[Юм-Юм]

Дорогой товарищ, ты пошто подсовываешь нам HTML-файл как-то странный под видом Эксела?

Это на самом деле HTML-файл, содержащий JavaScript c каким-то тайным смыслом.
И тот, кто его написал - таких детских вопросов не задаёт. Программировнаие он знает сурово.

Так что пропало желание помогать. Хотя мог бы...

[vova7777]

Дорогой Тoварищ,
Вы наверно никогда не пользовались файлообменниками. Там нужно зайти по ссылке, подождать Х секунд и нажать на скачать а просто забивая линк в прогу для скачки даст вам html с линком для скачки без премиум акаунта.
Сампл безвредный, там макросы не требуются. Впринципе я задачу старался подробно описать и думаю можно её понять без сампла.

[rojer]

я - программист, excel - это п-ц.

[Kot]

Сообщение от vova7777

Сампл я приложил. Обратите внимание что простой IF тянет максимум 11 колонок а мне нужно больше 100.

Чтото страшное вы такое задумали, правда... %)

На скоко я понял в столбце Д у вас идет последовательность 0 и 1 (если 0 - пусто). Почему не считать это двоичным представлением числа записанного сверху вниз? Если вы просуммируете взвешенные значения в соответствующих строчках (вес -номер строки сверху в степени 2), то задача сводится к поиску наименьшего "бита" в полученном числе. Наименьший бит вычисляется как побитовое "И" числа с его отрицательным значением (х & -х, тут вам нужно определить юзер дефайнед функцию, Эксель не имеет битвайз операций).

Хотя возможно Эксель тут будет несколько неуклюж

Kot добавил 06.07.2010 в 01:26

Сообщение от rojer

excel - это п-ц.

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

[vova7777]

Сообщение от Kot

На скоко я понял в столбце Д у вас идет последовательность 0 и 1 (если 0 - пусто). Почему не считать это двоичным представлением числа записанного сверху вниз? Если вы просуммируете взвешенные значения в соответствующих строчках (вес -номер строки сверху в степени 2), то задача сводится к поиску наименьшего "бита" в полученном числе. Наименьший бит вычисляется как побитовое "И" числа с его отрицательным значением (х & -х, тут вам нужно определить юзер дефайнед функцию, Эксель не имеет битвайз операций).

А можно по русски или показать на примере?

Задачку нужно сделать на Excele, если это не реально то наверно прийдётся создавать extension, включать макросы и кодить в Microsoft Visual Basic. Другие варианты пока не интересны.

Сообщение от Kot

Что-то страшное вы такое задумали, правда... %)

согласен. настолько страшное что безуспешно был потрачен вечер. но очень хотелось бы...

[Yury]

Вот например решение (если я правильно понял задачу)
ввести array формулу (с Ctrl+Shift+Enter)
=INDIRECT("e"&SMALL(IF(D:D=1,ROW(D:D),1000000),1))

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

[Юм-Юм]

Сообщение от vova7777

Там нужно зайти по ссылке, подождать Х секунд и нажать на скачать

Я так и сделал. Мне скачался xls-файл.

Но сейчас проверю ещё раз. Может, мне подгадил Downloader

[magician]

Сообщение от Юм-Юм

под видом Эксела?

Сообщение от Юм-Юм

Так что пропало желание помогать. Хотя мог бы...

Сообщение от Юм-Юм

Мне скачался xls-файл.

парадокс ...xls и есть эксель
... так чо может не стоит помогать ?

Сообщение от vova7777

В инете array только упоминается с суммой а мне нужно нечто указанное выше. Help

не могу вытянуть файл с работы - вечером гляну

в 2х словах , синтакс сам проверяй
Dim MyArray(0) as string
For counter = 1 to 65535
if "Сдесь"(Колонка:Couynter) = чонадо then
redim preserve MyArray(Ubound(myarray)+1)
Ubound(myarray) = то чо надо
endif
next counter

это имелось ввиду или я вопрос недопонял

[Юм-Юм]

Сообщение от vova7777

Сампл безвредный, там макросы не требуются.

Да, это правда. Меня подвёл Free Download manager.

Глубоко извиняюсь. Сейчас помогу

Итак, слушайте.

Проще всего решить эту проблему, прикрутив к листу небольшой код на VBA

Надо зайти в редактор Visual Basic (Alt + F11), увидеть слева название рабочего листа и дважды кликнуть на нём.

Справа будет пустое окно, в который надо вводить код.

Вот этот:

'Функция ищет единицу в столбце 4 (D)
'и когда находит первую единицу в столбце  - возвращает содержимое соседней ячейки в столбце 5 (E)
Function strannoe() As Variant

    strannoe = "" 'Это если нет единиц в столбце D
    
    Dim ws As Worksheet
    Set ws = Me 'Ищем на листе, к которому прикреплён модуль
  
    'Проходим столбец D -- ищем единицу
    Dim i As Long  'Номер строки
    For i = 1 To 65535
    
        If (ws.Cells(i, 4).FormulaR1C1 = 1) Then '4 -- это номер столбца "D"
            strannoe = ws.Cells(i, 5).FormulaR1C1
            Exit For
        End If
        
    Next i
    
End Function

'Процедурка выполняется при каждом изменении листа
Private Sub Worksheet_Change(ByVal Target As Range)
    If (Target.Column = 4) Then 'Изменения -- в столбце 4
        'В ячейку А1 добавляем результат функции strannoe()
        Me.Cells(1, 1).FormulaR1C1 = strannoe()
        ActiveWorkbook.Save 'Сохраним изменения

    End If
End Sub

И всё заработает так, как Вы описали. Проверил только что.

Обратите внимание: непонятно из Вашего описания, что должно вывестись в А1, если единиц несколько в столбце D. Я ищё первую единицу -- и выводу её соседа справа.

Если есть вопросы -- задавайте

[vova7777]

Спасибо вам Юм-Юм!
Действительно работает. Теперь ради спортивного интереса хочется посмотреть или это реально сделать без макросов с Array.

Юра,
Попробовал ваш array, не совсем работает. работает только когда "1" ставить перед первой ячейкой а иначе показывает инфу с последней.

=INDIRECT("e"&SMALL(IF(D:D=1;ROW(D:D);14);1))

[Yury]

Сообщение от vova7777

Юра,
Попробовал ваш array, не совсем работает. работает только когда "1" ставить перед первой ячейкой а иначе показывает инфу с последней.

=INDIRECT("e"&SMALL(IF(D:D=1;ROW(D:D);14);1))

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

[vova7777]

Работает. Юра, это именно то что нужно.
Всем спасибо.

[vova7777]

Формула компактная но после 5й такой формулы учитывая что каждая работает с сотней данных, мой ексель стал не совсем быстро работать.
приходится ждать 2-4секунды пока все формулы сделают свою работу.
Это учитывая что у меня два ядра по 2.5Ghz , рама на 4гб и SSD extreme edition.


Давайте вернёмся к Microsoft Visual Basic и варианту предложенным Юм-Юм. Возможно этот вариант не будет так тормозить.
Единственная проблема с предложенным кодом: если в колонке с информацией не информация а ссылка на информацию то ничего не получается.

Ссылка может быть просто =F7 или простая формула типа =Q7-G7

например: Если единицу ставим возле ячейки с формулой to в А1 должен быть показан результат формулы.

[maxiiiim]

А шо
A1=vlookup(1,D:E,2,0)

не катит?