макросы в Excel, обработка матрицы #490181

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

ух ты! макросы в 1С? это что-то новое. пойду за попкорном

>> "думаю это не сложно, но сама вообще не понимаю" Бугага >> Найти количество неотрицательных элементов Это где? В Excele что ли?

да, в Excel ))

а что? по Кому в Эксель и запускаем макрос, предварительно записав в эксель данные... результат забираем в 1с и вуаля!

я думаю это контрольная типо

ну я надеюсь, что не собеседование)

там просто в Excel нужно ну это не контрольная, но типа того)

По адресам ячеек смотри их значения типа Range("A4")

используй запись макросов в экселе: "запись макроса". Включаешь, делаешь "руками" нужные действия с матрицей, потом останавливаешь "запись макроса" и получаешь готовый скрипт. редактируешь его (убираешь лишнее и т.п.).

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

а что ты знаешь?

в информатике, к сожалению, почти ничего

точно макросы, а не обычные формулы?

да, сказали сделать это с помощью макросов...

а одногруппники на что?) тут записью макроса не отделаешься, прогить надо. Как матрица задается?

одни одногруппники ничего не знают, другие ботанат и ничего не рассказывают =/ матрица задается случайным набором чисел

а размер матрицы?

погугли справку по VBA,  там все достаточно просто;)

размер матрицы любой эх, но все же я не понимаю =(

что-то мне кажется, что это должна быть функция на VBA, в которую передается квадратный массив. то бишь программинг на ВБА в чистом виде

мне от твоих слов еще хуже становится, т.к. вообще не знаю что это =( ты сможешь мне помочь?

я - нет. Не переношу ВБА.

блондинка или любитель халявы?

Сколько помню блондинок в институте - у них хватало ума и женских чар развести любого ботана (включая меня) на помощь.

так пойдет ?    Set книга = ThisWorkbook    Set листы = книга.Worksheets    Set лист = листы.Item    Set диапазон = лист.UsedRange 'Или квадратный диапазон    Dim массив    количество = 0    Dim врем    массив = лист.UsedRange    For Сч = 1 To UBound(массив, 2)        If массив(Сч, 2) >= 0 Then количество = количество + 1    Next    MsgBox количество    For Сч = 1 To UBound(массив, 1) - 1        If IsEmpty(врем) Or врем >= массив(Сч + 1, Сч) Then врем = массив(Сч + 1, Сч)    Next    MsgBox врем

русая) эм...понимаете...в моей группе ботаны - девушки smaharbA думаю пойдет, я не понимаю что тут написано спасибо тебе)

так определитесь сначала: помочь надо или сделать за Вас?

если не затруднит, можно и сделать)

$ 50 если не затруднит