Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
VBA программа в вба Докажите, что любой оператор цикла с постусловием можно записать с помощью условного оператора и цикла с предусловием. https://www.cyberforum.ru/ vba/ thread996538.html Вводить определенные символы VBA
Дан TextBox в него можно вводить только цифры и запятые или точки причем 2 раз нельзя вводит запятую или точку мне нужно что б в текстбокс получалось только корректное число
VBA Запуск макроса при добавлении строк Есть лист. Разделен условно на несколько диапазонов. Например: Range(Cells(n, 2), Cells(k, 2)), Range(Cells(n, 3), Cells(k, 3)) ... Range(Cells(a, 2), Cells(b, 2)), Range(Cells(c, 3), Cells(d, 3)) ... ... и т.д. (всего по горизонтали 5, по вертикали 9) Как сделать так, чтобы запускался определенный макрос (отрисовка внешних границ диапазона ячеек) только при добавлении строк (строки) на... https://www.cyberforum.ru/ vba/ thread996076.html VBA Ограничение даты использование https://www.cyberforum.ru/ vba/ thread995611.html
Здраствуйте! Возникла проблема с макросом переформатирования текста в нужный формат из входящего файла. Разработчика к сожалению не можем допросить что крутить чтоб исправить, суть такая макрос работает до 11 месяца (ноября) , как только дата на календаре начинаеться ноябрь и выше он не форматирует согласно заданым условиям. (если установить по умолчанию дату на часах месяцом раньше все...
Поиск по всем листам VBA
В VB почти нечего не шарю...говорю сразу) Проблема: нужно сделать поиск ячейки в определенном диапазоне на ВСЕХ листах. если можно, укажите некоторые комментарии. p.s. Вся задача заключается в том что бы, создать макрос который проверяет не попадает ли один и тот же преподаватель в несколько групп на факультете на одной и той же паре. Заранее спасибо :) Кой что попытался...
VBA Ошибка в "ADO", в "Sort": Не удается применить порядок сортировки https://www.cyberforum.ru/ vba/ thread995397.html
Скажите, пожалуйста, что в этом коде неправильно? Ошибка появляется в строке 59, текст ошибки "Не удается применить порядок сортировки.". Sub Main() 'Библиотека: Microsoft ActiveX Data Objects 6.1 Library. Dim myRecordset As ADODB.Recordset Dim arrSource() As Variant Dim i As Long, j As Long
VBA Подсчитать суммарную реакцию организма на препарат за заданный интервал времени https://www.cyberforum.ru/ vba/ thread995293.html
Дана вот такая задача: Зависимость реакции организма на некоторый лекарственный препарат от времени описывается уравнением R=t*EXP(-t). Составьте пользовательскую функцию, подсчитывающую суммарную реакцию организма на препарат за заданный интервал времени. Используя полученную пользовательскую функцию, получите значение суммарной реакции на препарат за время, равное 1, 2, 3, 4, 5, 6 часов....
При передачи отчёта по OLE-Технологии возникла ошибка в инструкции FROM VBA
Здравствуйте, при передачи отчёта по OLE-Технологии возникла ошибка в инструкции FROM: ' Набор RecordUser будет содержать только одну строку - информацию о пользователе With RecordUser .Source = "SELECT User.Family * FROM User " & _ "WHERE UserID = " & UserID 'Указатель на открытое соединение .ActiveConnection = CurrentProject.Connection '.CursorType =...
VBA Макрос для сохранения документов в нужную папку с именем из текста Имеется документ который нужно сохранить в нужную папку и с именем из текста этого документа (текст в таблице). Проблема в том, что в день таких документов создается очень много и каждый раз руками это делать лень. Помогите чайнику пожалуйста. прилагаю файл - его нужно сохранить с номером заявки, (т.е 1234 в данном случае, но каждый раз № заявки разный) Заранее спасибо https://www.cyberforum.ru/ vba/ thread994742.html VBA Создать программу под названием «Справочник по металлам» для пяти наименований металлов Создать программу под названием «Справочник по металлам» для пяти наименований металлов. Выбор нужного металла должен быть осуществлен из списка металлов представленного в пользовательской форме. После выбора из списка интересующего металла в форме должен быть выведен список с физико-механическими характеристиками металла, а именно: плотность, модуль упругости, предел прочности и предел... https://www.cyberforum.ru/ vba/ thread994736.html
VBA Из одного формата даты в другую
Всем привет, подскажите как мне из даты формата 29.04.1999 преобразовать в дату 19990429 ?
VBA Использование макроса(Процедуры) в другой книге https://www.cyberforum.ru/ vba/ thread994471.html
Имеется 2 книги Excel. Необходимо передать данные из одной книги в другую с помощью макроса VBA. Данные в виде таблицы(массива). Вся процедура проходит так: 1 книга с помощью кнопки передает номер необходимого месяца во 2 книгу, а вторая книга после необходимых вычислений(поиска записей по месяцу) передает обратно 1 книге данные в виде таблицы(массива) Подскажите как можно организовать данное...
4377 / 661 / 36
Регистрация: 17.01.2010
Сообщений: 2,134
04.11.2013, 22:42 0

Заменить нулями все элементы матрицы, расположенные на главной диагонали и выше нее - VBA - Ответ 5286584

04.11.2013, 22:42. Показов 2509. Ответов 3
Метки (Все метки)

Ответ

to toiai. Или я что-то не понял, или сегодня "не Ваш день". Что-то случилось?
Так не будет проще?:
Кликните здесь для просмотра всего текста
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub matriza1()
    Dim n As Integer, a() As Integer, i&, j&
    Cells.Clear
    n = InputBox("Введите кол-во строк матрицы N")
    ReDim a(1 To n, 1 To n)
    Randomize
    ' заполнить массив
    For i = LBound(a, 1) To UBound(a, 1)
        For j = LBound(a, 2) To UBound(a, 2)
         a(i, j) = IIf(j > i, 0, Int(Rnd * 100))
        Next
    Next
    [A1].Resize(UBound(a, 1), UBound(a, 1)) = a
End Sub

У меня машина сегодня была в ремонте. В поле не выехал. Вот и было время думать.

Вернуться к обсуждению:
Заменить нулями все элементы матрицы, расположенные на главной диагонали и выше нее VBA
2
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.11.2013, 22:42
Готовые ответы и решения:

Заменить нулями все элементы матрицы, расположенные на главной диагонали и выше нее
Дана действительная квадратная матрица порядка 12. Заменить нулями все ее элементы, расположенные...

Заменить нулями все элементы матрицы, расположенные на главной диагонали и выше нее.
Дана действительная квадратная матрица порядка 12. Заменит нулями все ее элементы, расположенной...

Заменить нулями все элементы матрицы, расположенные на главной диагонали и выше неё
Ребят,помогите с одним вопросом. Дана действительная квадратная матрица порядка 12. Заменить...

Заменить нулями все элементы матрицы, расположенные на главной диагонали и выше нее
Дана действительная квадратная матрица D(4,4). Заменить нулями все ее элементы, расположенные на...

3
04.11.2013, 22:42
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.11.2013, 22:42
Помогаю со студенческими работами здесь

Заменить нулями все ее элементы, расположенные на главной диагонали и выше нее
Дана действительная квадратная матрица порядка 12. Заменить нулями все ее элементы, расположенные...

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

Дана матрица A(n,n). Заменить нулями все элементы, расположенные на главной диагонали и выше неё
Дана матрица A(n,n). Заменить нулями все элементы, расположенные на главной...

Замените нулями все элементы матрицы, расположенные на главной диагонали и выше нее
Дана действительная квадратная матрица порядка 12. Замените нулями все ее элементы, расположенные...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru